ban_account.txt -- Account names that are banned. ########## EDIT IMPORTANR DATA FILES ########## sub edity { $rf="qpwoeirutytiwasonyturieowpq"; } sub edit { $file = $INPUT{'efile'}; $password = $INPUT{'password'}; &checkpassword; open (DAT,"<$path/data/$file"); @headers = ; #chomp(@headers); close (DAT); print < Edit the file: $file

Enter or change all the html you want in the text box below

EOF &Footer; exit; } ##

##

### CHECK BANNED ACCOUNT ###
open (ACC, "$path/data/ban_account.txt");
@ban_account = ;
close (ACC);
foreach $account_line(@ban_account) {
chomp($account_line);
if ($INPUT{'account'} =~ /$account_line/) { 
print <


YOUR ACCOUNT HAS BEEN BANNED. 




EOF
&Footer;
exit;
   }
}