$FORM{'title'}\n";
}
}
}
close (FILE);
# Return Link File
print "Location: $linksurl\n\n";
if ($database ne '') {
open (DATABASE,">>$database");
print DATABASE "$FORM{'url'}\n";
close(DATABASE);
}
sub no_url {
print "Content-type: text/html\n\n";
print "ERROR: No URL\n";
print "";
print "No URL
\n";
print "You forgot to enter a url you wanted added to the Free for ";
print "all link page. Another possible problem was that your link ";
print "was invalid.\n";
print "
\n";
exit;
}
sub no_title {
print "Content-type: text/html\n\n";
print "ERROR: No Title\n";
print "";
print "No Title
\n";
print "You forgot to enter a title you wanted added to the Free for ";
print "all link page. Another possible problem is that you title ";
print "contained illegal characters.\n";
print "
\n";
exit;
}
sub repeat_url {
print "Content-type: text/html\n\n";
print "ERROR: Repeat URL\n";
print "Repeat URL
\n";
print "Sorry, this URL is already in the Free For All Link Page.\n";
print "You cannot add this URL to it again. Sorry.\n";
print "$linkstitle";
print "\n";
exit;
}