Thread: Auto POST

can you use a perl script?

Code:

#!/usr/bin/perl

%form = ( key1 => "key1value",   # whatever you want to post goes here, fairly straightforward.
          key2 => "key2value",
	  key3 => "key3value" );

use URI::URL;
use LWP::UserAgent;

while(1)
{
 $ua = new LWP::UserAgent;  
 my $curl = url("http:");
 $curl->query_form(%form);
 my $req = new HTTP::Request 'POST',
 "http://www.singtel-mobile.com/products_services/online_services/sms.html"; # your url here
 $req->content_type('application/x-www-form-urlencoded');
 $req->content($curl->equery);
 print $ua->request($req)->as_string; #this will print the results, comment it out if you feel it slows things down too much.
}