#!/usr/athena/bin/perl
unshift(@INC, '/var/www/cgi-bin/lib');
require 'parseform.pl';
$regfile = '/tmp/regfile';
$logfile = '/var/www/logs/reg_activity.log';
if (! $ENV{'QUERY_STRING'})
{
print "Location: /doc/activity-guidelines.html\n\n";
exit;
}
®_activity();
sub reg_activity {
local($query);
$query = $ENV{'QUERY_STRING'};
%form = &parseform($query);
while (-e $regfile) { sleep 3; }
print "Content-Type: text/html\n\n";
print "\n";
print "\n";
print "\n";
print "register output\n";
print "\n";
print "\n";
if (!open(REGFILE, ">$regfile")) {
print "Internal Error (1) processing request. Sorry.
\n";
print "Try again later or send mail to ",
"webmaster\@mit.edu.",
"
\n";
} else {
print "Activity Registered
\n";
print "Your activity is now registered with the SIPB ";
print "webmasters. Below is the information that you provided.";
print "\n";
print "Please verify the correctness of the information below. ";
print "If there are any errors, please re-submit your request.";
print "
\n";
print "Once your activity has been placed on the SIPB activities ";
print "page, your contact person should receive email confimation.";
print "
\n";
print "If you have any questions, please send email to ";
print "webmaster\@mit.edu.";
print "
\n";
print "
\n";
print "Activity name = \"$form{'name'}\"
\n";
print "Category = \"$form{'category'}\"
\n";
print "Contact = \"$form{'contact'}\"
\n";
print "Home page = \"$form{'location'}\" ";
print "($form{'type'})
\n";
print "Icon = \"$form{'icon'}\" ";
print "($form{'icon_type'})
\n";
print "Blurb:
\n";
print "\n";
print $form{'blurb'};
print "
\n";
}
print "
\n";
print "\n";
print "webmaster\@mit.edu\n";
print "\n";
print "\n";
print REGFILE "From: webmaster\@mit.edu\n";
print REGFILE "To: webmaster\@mit.edu\n";
$new_name = $form{'name'};
chomp($new_name);
if (length($new_name) > 80)
{
$new_name = "";
}
elsif ($new_name !~ /^[A-Za-z0-9!\@\$&\*\(\)_\+:'",\.\?\/ \t-]+$/)
{
$new_name = "";
}
print REGFILE "Subject: Activity Registration Request from $new_name\n\n";
print REGFILE "*** Activity Registration Request ***\n\n";
print REGFILE "Activity name = $form{'name'}\n";
print REGFILE "Category = $form{'category'}\n";
print REGFILE "Contact = $form{'contact'}\n";
print REGFILE "Location = $form{'location'} ($form{'type'})\n";
print REGFILE "Icon = $form{'location'} ($form{'icon_type'})\n";
print REGFILE "Blurb:\n";
print REGFILE "$form{'blurb'}\n\n";
print REGFILE "Semi-Automatic-Activity-HTML (void where prohibited):\n";
print REGFILE " $form{'blurb'}\n";
print REGFILE "\n";
close(REGFILE);
system("/usr/sbin/sendmail -t -fwebm-mtg\@charon.mit.edu < $regfile");
if (-e $logfile) {
system("/usr/bin/tail +5 $regfile >> $logfile");
} else {
system("/usr/bin/tail +5 $regfile > $logfile");
}
unlink($regfile);
}
1;