#!/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);
$vacationuser = param('vacationuser');
# 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 ("Removal of an 'Out of Office' reply for $domainname");
php_request ("setVacation", "scope=user:$vacationuser\@$domainname", "vacationStatus=No", "vacationText=no");
#open (REMOVEVACUSERS, ">>$removevacationfile");
#print REMOVEVACUSERS $vacationuser, "\n";
#close REMOVEVACUSERS;
print "Thank you for your request to delete the 'Out of Office' reply for the user $vacationuser.";
show_time_to_change();
require $footer;