;
close(MAIN);
foreach $main_line (@main){
if ($main_line =~ //){
$oliverrocks=$1;
last;
}
}
$oliverrocks++;
open(MAIN,">$quotefile");
foreach $main_line (@main){
if ($main_line =~ //){
print MAIN "\n",
"\n";
}
else{
print MAIN "$main_line";
}
}
close(MAIN);
}
sub Comment{
open(MAIN,"$quotefile");
@main = ;
close(MAIN);
open(MAIN,">$quotefile");
foreach $main_line (@main){
if ($main_line =~ //){
print MAIN "\n",
"- $Config{'quote'} -$Config{'username'}\n";
}
else{
print MAIN "$main_line";
}
}
close(MAIN);
}
sub Finish{
print "Content-type: text/html\n\n",
"\n",
"\n",
"Boredom2 Quote\n",
"",
"\n";
}
sub Error{
print "Content-type: text/html\n\n",
"\n",
"Boredom2 Quote\n",
"
\n",
"Incorrect Login or Password. Please try again.\n",
"\n";
exit;
}