use LWP::UserAgent;
use Getopt::Long; #pick up parms<\/p>\n\n\n\n
my $heattemp = “0”;
my $cooltemp = “0”;
$heattemp = sprintf(“%.0f”,$ARGV[0]);
$cooltemp = sprintf(“%.0f”,$ARGV[1]);
my $outfile = “vencntlstat.txt”; #status file
my $outln = “”;
if (($heattemp == “0”) or ($cooltemp == “0”)) {
$outln = “vencntlstat=1”;
open OUTPUT, “> $outfile” or die “Output file open error: $!”;
print OUTPUT $outln;
close OUTPUT;
exit;
}<\/p>\n\n\n\n
my $ua = new LWP::UserAgent;<\/p>\n\n\n\n
my $req = new HTTP::Request ‘POST’,’http:\/\/192.168.2.148\/control’;<\/p>\n\n\n\n
$req->header(‘content-type’ => ‘application\/x-www-form-urlencoded’);
my $query = “heattemp=” . $heattemp . “&” . “cooltemp=” . $cooltemp;
$req->content($query);
my $resp = $ua -> request($req);
if ($resp->is_success) {
my $message = $resp->decoded_content;
print “Received reply: $message\\n”;
$outln = “vencntlstat=0”;
open OUTPUT, “> $outfile” or die “Output file open error: $!”;
print OUTPUT $outln;
close OUTPUT;
}
else {
print “HTTP POST error code: “, $resp->code, “\\n”;
print “HTTP POST error message: “, $resp->message, “\\n”;
$outln = “vencntlstat=1”;
open OUTPUT, “> $outfile” or die “Output file open error: $!”;
print OUTPUT $outln;
close OUTPUT;
}<\/p>\n","protected":false},"excerpt":{"rendered":"
use LWP::UserAgent;use Getopt::Long; #pick up parms my $heattemp = “0”;my $cooltemp = “0”;$heattemp = sprintf(“%.0f”,$ARGV[0]);$cooltemp = sprintf(“%.0f”,$ARGV[1]);my $outfile = “vencntlstat.txt”; #status filemy $outln = “”;if (($heattemp == “0”) or ($cooltemp == “0”)) {$outln = “vencntlstat=1”;open OUTPUT, “> $outfile” or die “Output file open error: $!”;print OUTPUT $outln;close OUTPUT;exit;} my $ua = new LWP::UserAgent; my $req … Continue reading Venstar Control Perl Program<\/span>