#!/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; # Output the content associated with this tab print ""; # display tabs require $tabdisplay; print_header ("Creation of a password protected area on www.$domainname"); $pw_protect_user = "pw" . $mainuser; print " Please choose the folder and password before clicking on the button to install this feature:
Directory:
"; print "

Password protection user::
$pw_protect_user"; print ""; print "

Password:
"; print "
(The password's pronounciation is in brackets)"; print_end_of_form(); require $footer;