#!/usr/bin/perl

$html1 = qq~
<!--VirtualAvenueBanner-->

~;

$html2 = qq~

<center><h1>Submit your link:</h1></center><br>

<form action="index.cgi" method=POST>
URL: <input type="text" name="URL" VALUE="http://"><br>
Title: <input type="text" name="Title"><br>
Description: <input type="text" name="Description"><br>
Your Name: <input type="text" name="Name"><br>
Your Email: <input type="text" name="Email"><br>

<input type="submit" value="Submit!">
</FORM>

~;

print "Content-Type: text/html\n\n";

use CGI;
$in = new CGI;
$field0 = $in->param('URL');
$field1 = $in->param('Title');
$field2 = $in->param('Description');
$field3 = $in->param('Name');
$field4 = $in->param('Email');

open (DATABASE_IN,">>url.db");
print DATABASE_IN "$field0|$field1|$field2|$field3|$field4\n";
close(DATABASE_IN);

open(DATABASE_OUT, "<url.db");
@entries = <DATABASE_OUT>;
close DATABASE_OUT;
print "$html1";
foreach $line (@entries) {
@fields = split(/\|/,$line);

print "<ul><li><a href=\"$fields[0]\">$fields[1]</a> - $fields[2]</li></ul>";

};
print "$html2";

if ($in->param('URL') {
$field0 = $in->param('URL');
$field1 = $in->param('Title');
$field2 = $in->param('Description');
$field3 = $in->param('Name');
$field4 = $in->param('Email');
open (DATABASE_IN,">>url.db") or die $!;
print DATABASE_IN "$field0|$field1|$field2|$field3|$field4\n";
close(DATABASE_IN);
}