#!/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);
# Define the tab which appears to the front
$tab_section = $tabnum_website;
# Create the body section associated with this tab
print "";
# display tabs
require $tabdisplay;
# output the content of this tab
print_header ("Backup of the $domainname website");
open (BACKUP, "./backup_website.sh $domainname |");
while ()
{
print $_;
}
close (BACKUP);
require $footer;