#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "<Head><Title>Thank you</Title></Head>";
# Get the input
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
# Split the name-value pairs
@pairs = split(/&/, $buffer);

foreach $pair (@pairs)
{
    ($name, $value) = split(/=/, $pair);

    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $FORM{$name} = $value;
}
open (F,">/usr/local/etc/httpd/htdocs/tor/demo3.led");
print F "Do\n";
print F "$FORM{m_display}";
print F "$FORM{color}";
print F "$FORM{message}\n";
print F "Sleep delay=0\n";
print F "$FORM{m0_display}";
print F "$FORM{color0}";
print F "$FORM{message0}\n";
print F "Sleep delay=0\n";
print F "$FORM{m1_display}";
print F "$FORM{color1}";
print F "$FORM{message1}\n";
print F "Sleep delay=0\n";
print F "Pixel delay=3 pixels=15 clear=true\n";
print F "Repeat times=-1";
close (F);
print "<BODY BACKGROUND=/tor/brnmysbg.jpg BGCOLOR=#000000 TEXT=#FFFFFF VLINK=#FFFFFF ALINK=#FFFFFF LINK=#FFFFFF>\n";
print "<CENTER><IMG SRC=/tor/home.gif><CENTER>\n";
#print "<applet code=\"LED.class\" codebase=\"/prointel\" width=500 height=48 align=center>";
#print "<param name=\"script\" value=\"/tor/demo3.led\">\n";
#print "<param name=\"border\" value=\"2\">\n";
#print "<param name=\"bordercolor\" value=\"100,130,130\">\n";
#print "<param name=\"spacewidth\" value=\"3\">\n";
#print "<param name=\"wth\" value=\"122\">\n";
#print "<param name=\"ht\" value=\"9\">\n";
#print "<param name=\"font\" value=\"/tor/default.font\">\n";
#print "<param name=\"ledsize\" value=\"3\">\n";
#print "</applet>\n";
#
