#!/usr/local/bin/perl -w use CGI; my $post_data=new CGI; my $username=$post_data->param('username'); my $on_off=$post_data->param('on_off'); my $message=$post_data->param('message'); &Command(); @junk = ("authorize", "vacation.pl", $username, $on_off, $message); #@junk = ("vacation.pl", $username, $on_off, $message); $runme = join (" ",@junk); &Header(); print $runme; $output=`$runme`; print $output; &Footer(); sub Command { $username=$ARGV[0]; $on_off=$ARGV[1]; $message = join (" ",@ARGV); $message =~ s/$username//; $message =~ s/$on_off//; } sub Header { print "Content-type: text/html\n\n"; print "\n"; print " \n"; print " $username Vacation Message\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
"; print `date`; print " Information Technologies
\n"; print "
\n"; print " \n"; print "
\n"; print "
\n"; } sub Footer { print "
\n"; print " \n"; print " \n"; print "
\n"; print "
IT
\n"; print "
\n"; print "
\n"; print " \n"; print "\n"; }