note
Anonymous Monk
I did something simalur to this but added an option in SendMail to redirect an email address to the script. This way I could have email paging.
Just Ideas!!!!!!!!!!!
<CODE>
/etc/aliases
pagebrad: "| /usr/bin/pagebrad.pl"
---------------------------------------
/usr/bin/pagebrad.pl
while (<STDIN>) {$org_msg .= $_};
$org_msg =~ /([Ss]ubject: )(.*)/;
$msg = $2 if $2;
$org_msg =~ /([Ff]rom: )(.*)/;
$from_field = $2 if $2;
$URL = 'http://www.cookmail.com/cgi-bin/img.dll';
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
$ua = new LWP::UserAgent;
my $req = POST $URL,
[ PIN => $pgr_num,
From => $from_field,
Subject => $subj,
Message => $msg,
tr => "PinSend",
page_name => "Phnximg" ];
</CODE>
178065
178065
4