nicht angemeldet
Ich versuche seit Tagen vergeblich eine Rangliste zu programmieren.
In der Rangliste sollen der Nickname, die Anzahl Punkte, Gewonnene und Verlorene Spiele aufgenommen werden.
Die Daten sollen über ein HTML Formular eingegeben werden.
Durch Passwortschutz sollen unberechtigte Postings verhindert werden.
Gewonnene Spiele sollen 3 Punkte bringen, verlorene -1 Punkt.
Kann mir jemand helfen solch ein Script zu proggen?
PS:
Das ist die sehr umfassende Version meines Versuchs:
Der Passwortschutz ist gewährleistet und die übergebenen Daten des Formulars werden in je einer Datei zu je einem Spieler gespeichert.
In einer anderen .pl Datei wird dann die Rangliste angezeigt - mit den entsprechenden Daten zu den einzelnen Spielern. Nur nicht in einer Rangfolge; und das ist das Problem. Helft mir bitte!
_____________________________________________________________________
#!C:/Perl/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser);
print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">', "\n";
print "<html><head><title>Ergebnis posten</title>\n";
print "</head><body>\n";
SPIELER A __VOLTOBAL__
if ( $ENV{QUERY_STRING} eq "Spieler=Voltobal&Passwort=&Status=Gewonnen" )
{
open(DATEI0, "<../USClan/Rangliste/PVoltobal.dat");
my $AA = <DATEI0>;
my $AAneu = $AA + 3;
close(DATEI0);
open(DATEI0, ">../USClan/Rangliste/PVoltobal.dat");
print DATEI0 $AAneu;
close(DATEI0);
open(DATEI1, "<../USClan/Rangliste/GVoltobal.dat");
my $AB = <DATEI1>;
my $ABneu = $AB + 1;
close(DATEI1);
open(DATEI1, ">../USClan/Rangliste/GVoltobal.dat");
print DATEI1 $ABneu;
close(DATEI1);
print '<html><head><title>Posting erfolgreich</title><link rel="stylesheet" type="text/css" href="../USClan/zentral.css"></head><body bgcolor="black" text="#808080">';
print '<h2 align="center">Posting erfolgreich</h2>';
print '<p align="center"><a href="./ranglist.pl"><u>Zurück</u></a></p>';
print "</body></html>";
}
elsif ( $ENV{QUERY_STRING} eq "Spieler=Voltobal&Passwort=&Status=Verloren" )
{
open(DATEI0, "<../USClan/Rangliste/PVoltobal.dat");
my $AA = <DATEI0>;
my $AAneu = $AA - 1;
close(DATEI0);
open(DATEI0, ">../USClan/Rangliste/PVoltobal.dat");
print DATEI0 $AAneu;
close(DATEI0);
open(DATEI2, "<../USClan/Rangliste/VVoltobal.dat");
my $AC = <DATEI2>;
my $ACneu = $AC + 1;
close(DATEI2);
open(DATEI2, ">../USClan/Rangliste/VVoltobal.dat");
print DATEI2 $ACneu;
close(DATEI2);
print '<html><head><title>Posting erfolgreich</title><link rel="stylesheet" type="text/css" href="../USClan/zentral.css"></head><body bgcolor="black" text="#808080">';
print '<h2 align="center">Posting erfolgreich</h2>';
print '<p align="center"><a href="./ranglist.pl"><u>Zurück</u></a></p>';
print "</body></html>";
}
SPIELER B __ZORRO11__
elsif ( $ENV{QUERY_STRING} eq "Spieler=zorro11&Passwort=&Status=Gewonnen" )
{
open(DATEI3, "<../USClan/Rangliste/Pzorro11.dat");
my $BA = <DATEI3>;
my $BAneu = $BA + 3;
close(DATEI3);
open(DATEI3, ">../USClan/Rangliste/Pzorro11.dat");
print DATEI3 $BAneu;
close(DATEI3);
open(DATEI4, "<../USClan/Rangliste/Gzorro11.dat");
my $BB = <DATEI4>;
my $BBneu = $BB + 1;
close(DATEI1);
open(DATEI4, ">../USClan/Rangliste/Gzorro11.dat");
print DATEI4 $BBneu;
close(DATEI4);
print '<html><head><title>Posting erfolgreich</title><link rel="stylesheet" type="text/css" href="../USClan/zentral.css"></head><body bgcolor="black" text="#808080">';
print '<h2 align="center">Posting erfolgreich</h2>';
print '<p align="center"><a href="./ranglist.pl"><u>Zurück</u></a></p>';
print "</body></html>";
}
elsif ( $ENV{QUERY_STRING} eq "Spieler=zorro11&Passwort=&Status=Verloren" )
{
open(DATEI3, "<../USClan/Rangliste/Pzorro11.dat");
my $BA = <DATEI3>;
my $BAneu = $BA - 1;
close(DATEI3);
open(DATEI3, ">../USClan/Rangliste/Pzorro11.dat");
print DATEI3 $BAneu;
close(DATEI3);
open(DATEI5, "<../USClan/Rangliste/Vzorro11.dat");
my $BC = <DATEI5>;
my $BCneu = $BC + 1;
close(DATEI5);
open(DATEI5, ">../USClan/Rangliste/Vzorro11.dat");
print DATEI5 $BCneu;
close(DATEI5);
print '<html><head><title>Posting erfolgreich</title><link rel="stylesheet" type="text/css" href="../USClan/zentral.css"></head><body bgcolor="black" text="#808080">';
print '<h2 align="center">Posting erfolgreich</h2>';
print '<p align="center"><a href="./ranglist.pl"><u>Zurück</u></a></p>';
print "</body></html>";
}
SPIELER C __DEATHER3__
elsif ( $ENV{QUERY_STRING} eq "Spieler=Deather3&Passwort=&Status=Gewonnen" )
{
open(DATEI6, "<../USClan/Rangliste/PDeather3.dat");
my $CA = <DATEI6>;
my $CAneu = $CA + 3;
close(DATEI6);
open(DATEI6, ">../USClan/Rangliste/PDeather3.dat");
print DATEI6 $CAneu;
close(DATEI6);
open(DATEI7, "<../USClan/Rangliste/GDeather3.dat");
my $CB = <DATEI7>;
my $CBneu = $CB + 1;
close(DATEI7);
open(DATEI7, ">../USClan/Rangliste/GDeather3.dat");
print DATEI7 $CBneu;
close(DATEI7);
print '<html><head><title>Posting erfolgreich</title><link rel="stylesheet" type="text/css" href="../USClan/zentral.css"></head><body bgcolor="black" text="#808080">';
print '<h2 align="center">Posting erfolgreich</h2>';
print '<p align="center"><a href="./ranglist.pl"><u>Zurück</u></a></p>';
print "</body></html>";
}
elsif ( $ENV{QUERY_STRING} eq "Spieler=Deather3&Passwort=&Status=Verloren" )
{
open(DATEI6, "<../USClan/Rangliste/PDeather3.dat");
my $CA = <DATEI6>;
my $CAneu = $CA - 1;
close(DATEI6);
open(DATEI6, ">../USClan/Rangliste/PDeather3.dat");
print DATEI6 $CAneu;
close(DATEI6);
open(DATEI8, "<../USClan/Rangliste/VDeather3.dat");
my $CC = <DATEI8>;
my $CCneu = $CC + 1;
close(DATEI8);
open(DATEI8, ">../USClan/Rangliste/VDeather3.dat");
print DATEI8 $CCneu;
close(DATEI8);
print '<html><head><title>Posting erfolgreich</title><link rel="stylesheet" type="text/css" href="../USClan/zentral.css"></head><body bgcolor="black" text="#808080">';
print '<h2 align="center">Posting erfolgreich</h2>';
print '<p align="center"><a href="./ranglist.pl"><u>Zurück</u></a></p>';
print "</body></html>";
}
NOBODY __FEHLER__
else
{
print '<html><head><title>Posting fehlgeschlagen</title><link rel="stylesheet" type="text/css" href="../USClan/zentral.css"></head><body bgcolor="black" text="#808080">';
print '<h2 align="center">Posting fehlgeschlagen</h2>';
print '<p align="center">Überprüfe deine Angaben und versuche es noch einmal.</p>';
print '<p align="center"><a href="../USClan/post.html"><u>Zurück</u></a></p>';
print "</body></html>";
}