(Not tested)use strict; use LWP::UserAgent; my $url = "http://your url"; my $ua = LWP::UserAgent->new; my $res = $ua->post($url); if($res->is_success()){ my $content = $res->content(); if($content =~ /true/){ print "looks good\n"; }elsif($content =~ /false/){ print "something is wrong\n"; }else{ print "how can that be?\n"; } }else{ print "Uh-oh, time to work!\n"; }
In reply to Re: Server to Server communication
by johnnywang
in thread Server to Server communication
by Hammy
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |