#!/usr/bin/perl -w use Socket; use strict; my $xml_location = "http://www.linuxsecurity.com/linuxsecurity_advisories.rdf"; my $sprint_site = "http://www.messaging.sprintpcs.com/sms/check_message_syntax.html"; my $mobile_num = "1234567890"; my $callback = ""; my $ack_email = ""; my $save_result = "/scripts/wap/current"; my ($message, $page, @host, $item, @line, $current); &do_socket ($xml_location, "GET $xml_location" ); while () { @line = split (/>/); if ($item) { $line[1] =~ s/<\/title//; open (CUR, $save_result); $current = ; close (CUR); if ($line[1] ne $current) { open (NEW, ">$save_result"); print NEW $line[1]; close (NEW); $message = $line[1]; $message =~ s/ /%20/g; &do_socket ($sprint_site, "POST $sprint_site?mobilenum". "=$mobile_num&callbacknum=$callback&message=$message". "&ack_add=$ack_email"); } close (HTML); exit; } elsif ($line[0] =~ /