record.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 = "#0000DD";
my $site_alink = "#0000FF";
my $site_vlink = "#0000AA";
my $site_font = "Tahoma";
my $datafile = "movies.txt";
my $movie = CGI::param("movie");

$movie =~ tr/"'//d;

record_movie();
redirect();

sub redirect() {
	print "Content-type: text/html\n\n";
	print "<html><head><title>$site_title: Thanks</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: Thanks</h1><br><br>\n";
	print "Thanks for your submission. <a href=results.cgi>Click here</a> to view results.\n";
	print "</body></html>";
}

sub record_movie() {
	open(OUTFILE, ">>", "$datafile")
		or die "write error: $datafile $!";
	print OUTFILE "$movie\n";
	close(OUTFILE);
}