#!/usr/bin/perl print "Content-type: text/html\n\n"; $sendmail="/usr/sbin/sendmail -t"; use CGI qw(:standard Vars); #foreach $key (sort keys(%ENV)) { # print "$key = $ENV{$key}

" #} $data_file=(param('data')); $current_page=(param('page')); $from=(param('from')); $message_raw=(param('message')); unless ($from) { $from="Anonymous"; } if (($from) && ($message_raw)) { $message=substr($message_raw,0,256); $message=~s/[\000-\037]//g; open (LOG,">>led.log"); print LOG "$from: $message\n"; close (LOG); use IO::Socket; $SerialFileName = '/dev/prolite'; my $sock = new IO::Socket::INET ( PeerAddr => '192.168.1.1', PeerPort => '7071', Proto => 'tcp', ); $remote_message="\\$from: $message"; $nc_push=`echo \"$remote_message\" | nc -v -v irritant 3000`; print $sock "$remote_message\n"; close ($sock); #mail led message to grrlmonkey and me open(SENDMAIL, "|$sendmail") or print "Cannot open $sendmail: $!"; print SENDMAIL "Subject: Message from LED Sign\n"; print SENDMAIL "To: spamgod\@monkeyhands.com, anamaria\@monkeyhands.com\n"; print SENDMAIL "From: LEDSIGN\@monkeyhands.com\n"; print SENDMAIL "$from just left this message: \"$message\"\n\n"; print SENDMAIL $content; close(SENDMAIL); } #print "from = $from
\n"; #print "message = $message
\n"; #print "data_file_raw = $data_file_raw
\n"; $page_up=$current_page-1; $page_down=$current_page+1; if ($page_up < 0) { $page_up=0; } if ($page_down > 100) { $page_down=0; } print <<'TOP'; I've got MonkeyHands and I can talk

TOP print " BOTTOM_ONE print "\n"; print <<'BOTTOM_TWO';
"; if ($current_page) { $data_file="data-$current_page"; } #print "data_file = $data_file\n"; if (($from) && ($message_raw)) { $last_messages=`tail -10 led.log`; $last_messages=~s/\n/

\n/g; print "
\n"; print "
\n"; print "Thank you for leaving these messages:
\n"; print "\n"; print "\n"; print "$last_messages\n"; print "
\n"; } if ($data_file=~/[a-z0-9]/) { open (IN,"<$data_file.dat") || warn "can't open $data_file ($!)
\n"; while () { print "$_"; } } #print "i've got monkeyhands and i can talk\n"; print "
"; print <<'BOTTOM_ONE';
"; print "\n"; print ""; print "
BOTTOM_TWO