#!/usr/local/bin/perl -w
sub on
{
 open(FORWARD, ">/home/$username/.forward") || die ("Unable to open /home/$username/.forward");

 #.forward must look like 
 #\username, "|/usr/bin/vacation username"
 $set_fwd="\\$username, \"|/usr/bin/vacation $username\"";
 
 print FORWARD $set_fwd; 
 close(FORWARD);

 open(VMESSAGE, ">/home/$username/.vacation.msg") || die ("Unable to open /home/$username/.vacation.msg");

 print VMESSAGE $message;
 print VMESSAGE "\n";
 close(VMESSAGE);

 open(VACATIONDIR, ">/home/$username/.vacation.dir") || die ("Unable to open /home/$username/.vacation.dir");
 close(VACATIONDIR);

 open(VACATIONPAG, ">/home/$username/.vacation.pag") || die ("Unable to open /home/$username/.vacation.pag");
 close(VACATIONPAG);

 `chmod 644 /home/$username/.forward /home/$username/.vacation.msg /home/$username/.vacation.pag /home/$username/.vacation.dir`;

 `chown $username /home/$username/.forward /home/$username/.vacation.msg /home/$username/.vacation.pag /home/$username/.vacation.dir`;
}

sub off
{
`rm -f /home/$username/.vacation.msg`;
`rm -f /home/$username/.vacation.pag`;
`rm -f /home/$username/.vacation.dir`;
`rm -f /home/$username/.forward`;
}

if (($#ARGV > 1) ||(($#ARGV == 1) && ($ARGV[1] eq "off")))
{
 $username=$ARGV[0];
 $on_off=$ARGV[1];
 if($on_off eq "on")
 {
  $message = join (" ",@ARGV);
  $message =~ s/$username//;
  $message =~ s/$on_off//;
  &on(); 
  print "  <div align=\"center\"> $username\'s vacation message has been \n";
  print "   <font color=red>activated</font>.</div><BR>\n";
  print "  <div align=\"center\">\n";
  print "  </div>\n";
  print "  <center><BR>Please E-Mail <a href=\"mailto:$username\@whereiwork.com\">$username\@whereiwork.com</a>\n";
  print "      to test this message. <BR> If you do not recieve an automatic response with your\n";
  print "      vacation message please resubmit this form and try again.</center>\n";

 }
 elsif($on_off eq "off")
 {    
  &off();
  print "  <div align=\"center\"> $username\'s vacation message has been \n";
  print "   <font color=red>deactivated</font>.</div><BR>\n";
  print "  <div align=\"center\">\n";
  print "  </div>\n";
  print "  <center><BR>Please E-Mail <a href=\"mailto:$username\@whereiwork\">$username\@whereiwork.com</a>\n";
  print "      to test this message. <BR> If you recieve an automatic response with your\n";
  print "      vacation message please resubmit this form and try again.</center>\n";
 }
}
else
{
 print "<b>Not all necessary values have been given.</b>\n";
}