#!/usr/bin/perl print "Content-Type: Text/HTML\n\n"; use CGI ':standard'; use Vpanel 1.00; require $header; require $accountinfo; $domainname = find_domain ($mainuser); @validusers = find_valid_users($domainname); # Catch variables passwd by theconfirm script when an item has been left out $emailbody = param ('emailbody'); $fromaddress = param ('fromaddress'); $vacationuser = param ('vacationuser'); $subject = param ('subject'); # Define the tab which appears to the front $tab_section = $tabnum_email; # Output the content associated with this tab print ""; # display tabs require $tabdisplay; print_header ("Creation of an 'Out of Office' reply for $domainname"); print "Please select the user you wish to set up an 'Out of Office' reply for:
"; print "
"; print "User:



Please enter the email address from which the automatic response will come from:

Address:
\@$domainname


Please enter the subject of the email:

Subject:



Please enter the reply you wish to be sent to those who email you:

Reply:
!; print_end_of_form(); require $footer;