\n\n\n";
print FH @old_file;
flock(FH,LOCK_UN); #unlock the file
close FH or die "close damn you : $!";
print "Location: $url\n\n";
}
sub bad_hacker_no_cookie {
print "Content-type: text/html\n\n";
print " \n";
print " \n";
print "
!Unauthorized Access!\n";
print " ";
print "Hey bub, stop messin' with my News Page!\n";
print " You are at IP address $user !";
print "
";
exit 0;
}
sub mail_routine {
if ($pass ne $goodpass) {
open MAIL,"|mail $mail" or die "mail problem : $!";
print MAIL "$user tried to get in using $pass for a password.\n";
close MAIL;
} else {
open MAIL,"|mail $mail" or die "mail problem : $!";
print MAIL "$user changed the menu $words.\n";
close MAIL;
}
}
sub show_news { #This sub produces the current news page
if ($topic eq "" && $words eq "") {
open (FTXT, "$path_to_text") or die "where's the text file? : $!";
my @text_file = ;
open (FHTML, "$path_to_header") or die "where's the html file? : $!";
my @html_file = ;
print "Content-type: text/html\n\n";
print @html_file;
print @text_file;
print "