Nachalo Vhod/Registratsiia Pomosht Originala na tazi stranica
Oblasti
 Novini
 Aktualna tema
 Linux portali
 Kakvo e Linuks?
 Vuprosi-otgovori
 Forumi
   •Trudova borsa
   •Konkurs
 Statii
 Distributsii
   •Poruchka na CD
 Made In BG
 Failove
 Vruzki
 Galeriia
 Konferentsii
Nastroiki
 Vunshen vid
 Predlozheniia
 Napravi si sam
I oshte ...
 Za nas
 Linuks za bulgari EOOD
 Link kum nas
 Predlozheniia

Podkrepiano ot:
TelePoint - Miasto za hora sus svobodni idei

SiteGround

initLab

Adsys Group

SAP Bulgaria

Vuprosi otgovori
Vupros: sms-bg.net skript s perl
[Tursi: ]

VNIMANIE: Izpolzvaite forumite na saita za da zadadete vashite vuprosi.

Kum nachaloto |Dobavi vupros |Otgovori
 
Vupros
Ot: valyo Data: 07/27/2005
 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.


<< Pomosht! Proizvoditelnost! (4 ) | ip conntract (4 ) >>

 
© 2011-... Asotsiatsiia "Linuks za bulgari"
© 2007-2010 Linuks za bulgari EOOD
© 1999-2006 Slavej Karadjov
Ako iskate da prepechatate ili tsitirate informatsiia ot tozi sait prochetete purvo tova
Vunshniia vid e napraven ot MOMCHE
Code Version: 1.0.8 H (Revision: 23-09-2011)
 
Изпълнението отне: 0 wallclock secs ( 0.06 usr + 0.02 sys = 0.08 CPU)