#!/usr/bin/perl print "Content-type: text/html\n\n"; $dir = $ENV{'QUERY_STRING'}; @bgs = ("
","
","
","
","
","
","
","
","
","
","
","
","
","
","
","
"); srand(time ^ $$); $num = rand(@bgs); # Pick a Random Number $background = $bgs[$num]; print " Post a Message\n \n $background

Post A Message! [to group $dir]

Your Name: (required, nicks o.k.)

E-Mail: (optional)

Subject: (required)
Optional Image URL:

Message:
\n "; $show = "no"; if ($show eq "yes") { print "

Sign up to receive updates to this message board via email!

"; } print "
Select Notification Action: Subscribe Unsubscribe
Your Internet e-mail address:
";