Guest_imported
New member
- Jan 1, 1970
- 0
Hi here is my code! I'm trying to connect to mtnsms.com to send sms, but my code is not working!!
Could anyone help me?
#!/usr/bin/perl
print "Content-type: text/html\n\n";
use strict;
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);
my $ua = LWP::UserAgent->new();
my $req = POST '[ username => 'username', password => 'password' ];
$ua->cookie_jar(HTTP::Cookies->new(file => "lwpcookies.txt", autosave=> 1));
#make new uri
my $loginUri = new URI::URL $loginUrl;
#encode the login details
$loginUri->query_form(username => $username, password => $password);
my $messageReq = POST $messageUrl, [ smsToNumbers => $number,smsMessage => $message];
my $logoutReq = GET $logoutUrl;
Could anyone help me?
#!/usr/bin/perl
print "Content-type: text/html\n\n";
use strict;
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);
my $ua = LWP::UserAgent->new();
my $req = POST '[ username => 'username', password => 'password' ];
$ua->cookie_jar(HTTP::Cookies->new(file => "lwpcookies.txt", autosave=> 1));
#make new uri
my $loginUri = new URI::URL $loginUrl;
#encode the login details
$loginUri->query_form(username => $username, password => $password);
my $messageReq = POST $messageUrl, [ smsToNumbers => $number,smsMessage => $message];
my $logoutReq = GET $logoutUrl;