index.cgi

#!/usr/bin/perl

use CGI;
use strict;

my $site_title = "Jared Burke's Movie Voting Script";
my $site_bgcolor = "#FFFFFF";
my $site_text = "#000000";
my $site_link = "#0000FF";
my $site_alink = "#00FF00";
my $site_vlink = "#FF0000";
my $site_font = "Tahoma";

print_home();

sub print_home() {
	print "Content-type: text/html\n\n";
	print "<html><head><title>$site_title: Home</title></head>\n";
	print "<body bgcolor=$site_bgcolor text=$site_text link=$site_link alink=$site_alink vlink=$site_vlink>\n";
	print "<font face=$site_font><h1>$site_title: Home</h1><br>\n";
	print "Vote for your favorite movie.<br>";
	print "<form action=verify.cgi method=POST><input type=text name=movie><input type=submit value='Vote'></form><br>Please be patient while your vote is verified.\n";
	print "<br><a href=index.txt>index.cgi source</a><br><a href=verify.txt>verify.cgi</a><br><a href=record.txt>record.cgi</a><br><a href=results.txt>results.cgi</a><br><a href=imdb.pm.txt>imdb.pm</a></body></html>\n";
}