It does look like the last of the errors hehe :D
-----------
#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/,$buffer);
foreach $pair(@pairs) {
($name, $value) = split(/=/,$pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
$url = "http://www.site.com";
if($FORM{'UserCode'} eq "Jeremy")
{
open(Jstandings, "JStandings.txt");
#Opens the file for reading
my(@lines) = <Jstandings>;
close(Jstandings);
foreach $line (@lines){
if($line==1){
$Joldwins=$line;
}elsif($line==2){
$Joldlosses = $line;
}else{
$Jpoints = $line;
}
}
#makes list
#my($Joldwins, $Joldlosses, $Jpoints);
#assigns each line a variable(I hope)
if($FORM{'Wins'} eq "0"){
$JnewWins = $Joldwins;
}else{
$JnewWins =($Joldwins + $FORM{'Wins'});
}
if($FORM{'Losses'} eq "0"){
$JnewLosses = $Joldlosses;
}else{
$JnewLosses = ($Joldlosses + $FORM{'Losses'});
}
$Jpoints = $JnewWins - $JnewLosses;
#properly closes the file on the server
open(JstandingsOut,">JStandings.txt");
print JstandingsOut $JnewWins;
print JstandingsOut $JnewLosses;
print JstandingsOut $Jpoints;
#Appends the quoted text to the file
close(JstandinsOut);
print "Location: $url\n\n";
}elsif($FORM{'UserCode'} eq "Anthony"){
open(Astandings, "<AStandings.txt");
#Opens the file for appending
my(@lines) = <Astandings>;
close(Astandings);
foreach $line(@lines){
if($line==1){
$Aoldwins=$line;
}elsif($line==2){
$Aoldlosses = $line;
}else{
$Apoints = $line;
}
}
#makes list
#my($Aoldwins, $Aoldlosses, $Apoints);
#assigns each line a variable(I hope)
if($FORM{'Wins'} eq "0"){
$AnewWins = $Aoldwins;
}else{
$AnewWins = ($Aoldwins + $FORM{'Wins'});
}
if($FORM{'Losses'} eq "0"){
$AnewLosses = $Aoldlosses;
}else{
$AnewLosses = ($Aoldlosses + $FORM{'Losses'});
}
$Apoints = $AnewWins - $AnewLosses;
#properly closes the file on the server
open(AstandingsOut, ">AStandings.txt");
print AstandingsOut $AnewWins;
print AstandingsOut $AnewLosses;
print AstandingsOut $Apoints;
#Appends the quoted text to the file
close(AstandinsOut);
print "Location: $url\n\n";
}elsif($FORM{'UserCode'} eq "Steven"){
open(Sstandings, "<SStandings.txt");
#Opens the file for appending
my(@lines) = <Sstandings>;
close(Sstandings);
foreach $line(@lines){
if($line==1){
$Soldwins = $line;
}elsif ($line==2){
$Soldlosses = $line;
}else{
$Spoints = $line;
}
}
#makes list
#my($Soldwins, $Soldlosses, $Spoints);
#assigns each line a variable(I hope)
if($FORM{'Wins'} eq "0"){
$SnewWins = $Soldwins;
}else{
$SnewWins = ($Soldwins + $FORM{'Wins'});
}
if($FORM{'Losses'} eq "0"){
$SnewLosses = $Soldlosses;
}else{
$SnewLosses = ($Soldlosses + $FORM{'Losses'});
}
$Spoints = $SnewWins - $SnewLosses;
#properly closes the file on the server
open(SstandingsOut, ">SStandings.txt");
print SstandingsOut $SnewWins;
print SstandingsOut $SnewLosses;
print SstandingsOut $Spoints;
#Appends the quoted text to the file
close(SstandinsOut);
print "Location: $url\n\n";
}elsif($FORM{'UserCode'} eq "Kagen"){
open(Kstandings, "<KStandings.txt");
#Opens the file for appending
my(@lines) = <Kstandings>;
close(Kstandings);
foreach $line(@lines){
if($line==1){
$Koldwins=$line;
}elsif($line==2){
$Koldlosses = $line;
}else{
$Kpoints = $line;
}
}
#makes list
#my($Koldwins, $Koldlosses, $Kpoints);
#assigns each line a variable(I hope)
if($FORM{'Wins'} eq "0"){
$KnewWins = $Koldwins;
}else{
$KnewWins = ($Koldwins + $FORM{'Wins'});
}
if($FORM{'Losses'} eq "0"){
$KnewLosses = $Koldlosses;
}else{
$KnewLosses = ($Koldlosses +$FORM{'Losses'});
}
$Kpoints = $KnewWins - $KnewLosses;
#properly closes the file on the server
open(KstandingsOut, ">KStandings.txt");
print KstandingsOut $KnewWins;
print KstandingsOut $KnewLosses;
print KstandingsOut $Kpoints;
#Appends the quoted text to the file
close(KstandinsOut);
print "Location: $url\n\n";
}elsif($FORM{'UserCode'} eq "George"){
open(Gstandings, "<GStandings.txt");
#Opens the file for appending
my(@lines) = <Gstandings>;
close(Gstandings);
foreach $line(@lines){
if($line==1){
$Goldwins=$line;
}elsif($line==2){
$Goldlosses = $line;
}else{
$Gpoints = $line;
}
}
#makes list
#my($Goldwins, $Goldlosses, $Gpoints);
#assigns each line a variable(I hope)
if($FORM{'Wins'} eq "0"){
$GnewWins = $Goldwins;
}else{
$GnewWins = ($Goldwins + $FORM{'Wins'});
}
if($FORM{'Losses'} eq "0"){
$GnewLosses = $Goldlosses;
}else{
$GnewLosses = ($Goldlosses + $FORM{'Losses'});
}
$Gpoints = $GnewWins - $GnewLosses;
#properly closes the file on the server
open(GstandingsOut, ">GStandings.txt");
print GstandingsOut $GnewWins;
print GstandingsOut $GnewLosses;
print GstandingsOut $Gpoints;
#Appends the quoted text to the file
close(GstandinsOut);
print "Location: $url\n\n";
}else{
print "There was an error with your PassCode, please hit back and try again";
}
exit;