#!/usr/bin/perl use CGI; my $q = new CGI; my $name = $q->param('name'); my $suggestions = $q->param('suggestions'); print < Intranet Suggestions

EOT if ( $name && $suggestions ) { my $lt = localtime(); open(SM,"|/usr/sbin/sendmail -t|"); print SM < Cc: "Dave Stahr" From: "$ENV{'HTTP_HOST'}" Subject: Suggestions from $name $suggestions -- $name $lt $ENV{'REMOTE_ADDR'} $ENV{'HTTP_USER_AGENT'} EOT close(SM); print < Thank You! Your comments have been relayed to the IT Deptartment. EOT } else { print <

Your Name
Comments/Suggestions:

EOT } print < EOT