Perl Script to Process Data From Form

# Process the miniproject topic proposal form inputs

# S. Tanimoto, 20 Feb 2000

use CGI qw/:standard/;

use strict;

print header;

my $projectname = param("projectname");

my $uncertain = param("uncertain");

my $partner = param("partner");

my $proposal_url = param("proposalurl");

my $student_username = $ENV{"REMOTE_USER"};

my $now = localtime();

$projectname =~ s/[^a-zA-Z0-9\-\~]//g;

$partner =~ s/[^a-zA-Z0-9\-\~]//g;

$proposal_url =~ s/[^a-zA-Z0-9\-\~]//g;