#!/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 "$site_title: Thanks\n";
print "\n";
print "$site_title: Thanks
\n";
print "Thanks for your submission. Click here to view results.\n";
print "";
}
sub record_movie() {
open(OUTFILE, ">>", "$datafile")
or die "write error: $datafile $!";
print OUTFILE "$movie\n";
close(OUTFILE);
}