Thanks Andy ... I checked the link
But I checked the Perl Forum I found the
following Code from Paul ...
I used it .. it works fine ... I can Send
via this code a pager message to my ICQ
At the moment I want to send a SMS from the
ICQ Website
http://sms.icq.com/sms/inbox to my Cell Phones ... The code
it should log me in into sms.icq.com/sms/inbox
ICQno. + Password ...
then Select Country: MyCountry and
Network # (Area Code): 99 Cell Phone #: 1234567
any one did that before
#!/usr/bin/perl
#======================================
# Copyright Paul 2003.
use strict;
use LWP::UserAgent;
use HTTP::Request::Common qw(GET);
main();
#======================================
sub main {
#-------------------------------------------------------------
# Quick example of ICQ pager.
my $ua = LWP::UserAgent->new( agent => 'Takeshi/1.0', timeout => 30 );
my $url = q|http://wwp.icq.com/scripts/WWPMsg.dll?to=72280424&from=me&fromemail=me@here.com&subject=this&body=message|;
my $res = $ua->request( GET $url );
if ($res->is_success) {
print "Content-type: text/html\n\n";
print $res->content;
}
else {
print "Content-type: text/html\n\n";
print $res->code;
}
}
