#!/usr/bin/perl -Tw
use CGI qw/:standard/;
BEGIN {
use CGI::Carp qw(carpout);
open(LOG, ">>/home/ericll75/www/steepturns.com/badcams/newcam.log") or
die("Unable to open newcam.log: $!\n");
carpout(LOG);
}
use CGI::Carp qw(fatalsToBrowser);
$CGI::DISABLE_UPLOADS = 1; # Disable uploads
$CGI::POST_MAX = 1024; # limit posts to 1K max
my $FileErr = substr(param('FileErr'),0,5);
my $FirstName = &unquote(param('FirstName'));
my $LastName = &unquote(param('LastName'));
my $UserEmail = &unquote(param('UserEmail'));
my $UserGender = &unquote(param('UserGender'));
my $BdayMonth = &unquote(param('BdayMonth'));
my $BdayDate = &unquote(param('BdayDate'));
my $BdayYear = &unquote(param('BdayYear'));
my $SexOrient = &unquote(param('SexOrient'));
my $UserState = &unquote(param('UserState'));
my $UserCountry = &unquote(param('UserCountry'));
my $SiteName = &unquote(param('SiteName'));
my $SiteDesc = &unquote(param('SiteDesc'));
my $SiteURL = &unquote(param('SiteURL'));
if ($SiteURL eq '') { $SiteURL="http://"; }
my $CamURL = &unquote(param('CamURL'));
if ($CamURL eq '') { $CamURL="http://"; }
my $SiteRating = &unquote(param('SiteRating'));
my $UserName = &unquote(param('UserName'));
my $UserP1 = &unquote(param('UserP1'));
my $UserP2 = &unquote(param('UserP2'));
print "Content-type: text/html\n\n";
print qq`
Add your cam to BadCams!
Add your cam to BadCams!
*** NOTE: All cams on this portal are FREE. If you charge to view your cam, you will NOT be approved!