Ideqta mi e slednata.bqh pisal za pra6tane na sms prez
konzola za gre6ka v raida no sega tova re6enie mi se stori
po dobro ot spomenatite tam.Ideqta mi e slednata:
Napisah si tozi skript na perl koito polzva saita
sms-bg.net.Populvam si poletata i tova raboti.lDo tuk
dobre,no kak da go napravq da simulira natiskane na butona
izprati?
Nqkoi ako si ima na ideq da drasne 1 red molq.
Skripta e:
#!/usr/bin/perl
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
my $url_sendsms = "http://sms-bg.net";
my($ua,$request,$response,%field);
undef %field;
$field{MN2} = "889";
$field{MN3} = "272850";
$field{FROM} = "Server";
$field{SM} = "Raid error !!!!";
$ua = LWP::UserAgent->new;
$request = POST $url_sendsms,\%field;
$response = $ua->request($request);
if($response->is_success) {
print $response->as_string;
}
else {
print "Failed: ", $response->status_line, "\n";
}
Mersi predvaritelno.
|