$cool

#!/usr/bin/perl use CGI; # Create the CGI object my $query = new CGI; # Output the HTTP header print $query->header ( ); # Capture the form results my $comments = $query->param("comments"); my $from = $query->param("from"); my $subject = $query->param("subject"); my $to= $query->param("to"); my $x= $query->param("x"); # title output $cool ="thanks"; $msg =""; if ($x >= 11){ $x = 0; $cool = "fail"; $msg = "you may only send 10 emails max due to bandwidth issues"; } while ($x >= 0){ $msg ="$x many more to send"; -- $x; # Email the form results open ( MAIL, "| /usr/lib/sendmail -t" ); print MAIL "From: $from\n"; print MAIL "To: $to\n"; print MAIL "Subject: $subject \n\n"; print MAIL "$comments\n"; print MAIL "\n.\n"; close ( MAIL ); # Thank the user print < $cool

$msg back

sent

END_HTML } # Functions for filtering user input sub filter_field { my $field = shift; $field =~ s/From://gi; $field =~ s/To://gi; $field =~ s/BCC://gi; $field =~ s/CC://gi; $field =~ s/Subject://gi; $field =~ s/Content-Type://gi; return $field; } sub filter_header_field { my $field = shift; $field =~ s/From://gi; $field =~ s/To://gi; $field =~ s/BCC://gi; $field =~ s/CC://gi; $field =~ s/Subject://gi; $field =~ s/Content-Type://gi; $field =~ s/[\0\n\r\|\!\/\<\>\^\$\%\*\&]+/ /g; return $field; }