Re: send message to sprint PCS through their site

Here's the code I use to post on my watchdog system to report problems to my PCS phone.

use LWP::UserAgent;
use HTTP::Request::Common qw(POST);

sub message_PCS{

        my $msg = $_[0];

        $ua = LWP::UserAgent->new();
        my $req = POST 'http://www.messaging.sprintpcs.com/sms/check_m
+essage_syntax.html',
               [ mobilenum => '**********', message => $message , call
+backnum => '**********', ack_add =>'redalert\@somehwere.com']
        $content = $ua->request($req)->as_string;



}
[download]

Update: Added the modules the sub uses.
UPDATE 04-16-2002 Sprint site has changed. See code update in reply to this message by metlhed_

-Lee

"To be civilized is to deny one's nature."

Comment on Re: send message to sprint PCS through their site Download Code

Replies are listed 'Best First'.
Re: Re: send message to sprint PCS through their site by metlhed_ (Beadle) on Apr 16, 2002 at 23:56 UTC
Sprint has changed their site around a bit and that code will no longer work. Here is an updated version: #!/usr/bin/perl -w use strict; use LWP::UserAgent; use HTTP::Request::Common qw(POST); &send_message ('1234567890', 'this is the message', 'metlhed'); sub send_message { my ($phone_num, $message, $call_back) = @_; my ($ua, $req, $content); $ua = LWP::UserAgent->new (); $req = POST 'http://www.messaging.sprintpcs.com/smswmgr/BMG/sendme +ssage.jsp', [ device => 'phone', phoneMin => $phone_num, msg => $message, callBackMin => $call_back, copyEsclateRadio => 'NO VALUE', ]; $content = $ua->request ($req)->as_string; } [download]	[reply] [d/l]
Re: Re: Re: send message to sprint PCS through their site by shotgunefx (Parson) on Apr 17, 2002 at 00:45 UTC
Thanks. I ran into that about a month ago when one a server problem arose and I didn't get notified. I neglected to put the updated version here. Now I have it send me a msg every few days to ping me. -Lee "To be civilized is to deny one's nature."	[reply]
Re: Re: Re: Re: send message to sprint PCS through their site by Anonymous Monk on May 10, 2004 at 23:28 UTC
hey baby what u doin	[reply]
Re: Re: Re: Re: Re: send message to sprint PCS through their site by shotgunefx (Parson) on May 17, 2004 at 13:34 UTC


Perl: the Markov chain saw
	PerlMonks