FisyX

kannst du dazu ein beispiel posten... brauche den quellcode

Hallo... Habe ein PHP Script geproggt das Daten aus einer HTML Form in eine MYSQL Datenbank schreibt. Es handelt sich um Folgende Daten: Benutzername, Password, E-Mailadresse Meine Frage: Wie kann ich Verhindern das man 2 mal den selben Benutzernamen über das Script eintragen kann..... (vieleicht auch e-mail addy)? Es sol eine Fehlermeldung ausgegeben werden wie z.B: Name schon vorhanden!" Bitte um ein Code Beispiel... Warscheinlich ist das Problem mit einer IF abfrage zu lösen... kenne mich in PHP aber noch nicht so gut aus Bitte um Hilfe ...

Hallo, ich habe ein Problem: Ich möchte in eine MYSQL Datenbank Daten aus einer HTML Form per PHP eintragen. Hier mein Script: <?php $server = "server"; $user = "user"; $pass = "password"; $db = "datenbank"; $conn = @mysql_connect($server, $user, $pass); if (!$conn) {echo "fehler in der Datenbank";} $verbindung = @mysql_select_db($db); if (!$verbindung) {echo " -> datenbank nicht da";} mysql_query("INSERT INTO wowbb_users VALUES ('$user_name', md5('$user_password'), '$user_email', '$user_group_id')") or die(mysql_error()); print ("<u>Registration im Forum erfolgreich</u><br><br><b>Nickname:</b> "); echo $user_name; print ("<br><b>Password:</b> "); echo md5($user_password); print ("<br><b>E-Mail:</b> "); echo $user_email; print("<br><br><br><br><br>© by Networkunit.com 2003 - 2005 Germany"); ?> Wenn ich dies bei einer selbst angelegten Test Datenbank ausführe, klappt es. Doch die reale datenbank sieht etwas anders aus: Tabelle: wowbb_users Spalten: - user_id - gruppen_id - user-name - ... - ... Wenn ich das obige Script darauf anwende bekomme ich eine Fehlermeldung: Column count doesn't match value count at row 1 ich weiß was es bedeutet. Nur was muss ich tuhen das diese Meldung nicht mehr kommt ??? Ich denke das Problem liegt daren: 1: Von der HTML Form werden weniger Daten als Spalten in der Tabelle sind eingetragen bzw. übergeben. 2: Die Spalten sind in der tabelle nicht so angeordnet wie diese im PHP script. Siehe hier: PHP Script: Isert into tabelle (name, password, ...) MYSQL Tabelle: Spalten ( user id, name, password, e-mail, ...) Bitte um Hilfe... weis nichtmehr weiter

Was ist das für eine Klasse und wozu dient Sie??? Bitte leichte erklährung ?

Also..... meine ganzen Planungen... Ich hab nen PHP basierendes Forum. Ich dachte mir Ok... hasste 3 verschiedene Webseiten und 3 versch. Forensysteme... das geht auch einfacher zu verwalten. Ich will nur noch ein Forensystem für alle 3 Webseiten nehemn. Da diese über unterschiedl. Inhalte und Themen verfügen will ich das so regeln: Die meisten Forensysteme haben eine Funktion die User in bestimmte Gruppen einzuteilen (natürlich manuell)... und diesen dann nur bestimmte Froen vom ForumSystem überhaubt anzeigen zu lassen. Alles schön und gut .... nun zu meinem Problem Wie kann ich die User autom. bei der Erstregistration in die von mir gewollten Gruppen einteilen lassen??? -> Meine bisherigen Überlegungen: Ich progge 3 eine eigene HTML FORMEN. Für jede Seite eine. Diese statte ich dann mit einer unsichtbaren Variable "UserGruppe" aus die standartmäßig schon fest steht und nicht änderbar ist! Nun übergebe ich diese Variablen an ein von mir geproggtes script das diese direkt in die MYSQL Datenbank -> Usertabelle reinschreibt! (Natürlich müssen die usergruppen vorher manuell angelegt werden). Wie findet ihr diese Realisierung ??? Gut, Schlecht, Verbesserungsvorschläge.... OK kommen wir zu meinem 2ten Anliegen: Ich habe unter anderem einen Java Chat und die Community software PostNuke. Wie bekomme ich es hin das die User sich nur einmal registrieren müssen und dann iwederum nur einmal Einloggen! Sozusagen müsste dann ja mit Session IDs gearbeitet werden.... Ich habe leider noch keine Idee wie ich sowas realisieren würde Geschweigedenn hab ich sowas noch nie gemacht und keine Ahnung...... Bitte um genaue Angaben und Hilfestellung Vielen Dank schonmal für eure Antworten!

Ich kann ja ein bisschen PHP und ich weis auch wie man Werte einer HTML Form in einer MYSQL Tabelle speichert aber was ich ned weiss wie das alles funktionieren soll wenn die tabelle mehrere felder hat??? Habe eine Tabelle namens: phpbb_users In dieser Tabelle sind folgende Felder: username , user_password , user_email ! Unter diesen Feldern möchte ich nun folgende werte speichern: $name, $password, $mail. Wie kann ich dat machen ??? Bitte mit script beispiel wenns ned alzuviel arbeit macht. PS: Die Passwörter sind in der Tabelle verschlüsselt... bekomme ich dann in der überprüfung nen Fehler wenn ich diesee im Klartext eintragen lasse? Thx schonmal

Eine Frage...... Ist es Möglich eine HTML Form an beispielsweise 2 php Scripte gleichzeitig zu übergeben? Mein Vorhaben: Habe einen java Chat! Und ein php basierendes Forum! Möchte allerdings das sich die Besucher nur einmal anmelden brauchen. Die HTML Form (Anmeldung an den Chat) wird nun an den Chatserver übergeben! Kann ich die ned auch gleichzeitig noch an nen php script übergeben das die eingetragenen daten in die Forum Datenbank schreibt??? Bitte um hilfe..... Wenns nicht gehen sollte um andere Vorschläge wenn möglich Ps: So sieht die Form aus <form action="http://$host:$iport/POSTCGI" method="get" enctype=multipart/form-data >

Bis jetzt haben eure vielen beispielversuche nichts gebracht Bei manchen ( die ersten paar) da schreibt das script garnix mehr in die text datei und ansonsten immer wieder "\ ! Ich glaube am besten ich lasse die anführungszeichen komplett weg ..... Oder hat nicht jemand ein komplett funktionierendes script mit dem man den quelltext von html dateien anzeigen lassen und wenn gewollt auch bearbeitetn kann (sozusgen webasierend) über eine html form :confused:

Hat nicht funktioniert.... mit deinem Script schreibt er garnix mehr in die datei Wenn ein inhalt besteht wird dieser beim abspeichern glöscht !

Entschuldigung... er macht backslaches und keine slash ! Also Ich öffne ne HTML Datei mit " drinne dann sieht die so aus wenn die per php geöffnet wurde: <html> <body> "Dies ist ein test" </body> </html> Dan klicke ich auf speichern und die datei sieht so aus: <html> <body> \"Dies ist ein test\" </body> </html> Die Datei wird mit dieser html Form angezeigt: <body> <form method="POST" action="edit.php?file=<? echo("$file"); ?>"> <textarea rows="15" name="text" cols="60"> <? include("$file"); ?> </textarea><br> <input type="submit" value="Speichern" name="saved"> </form> </body> Bisehr kam ich mit euren Vorschlägen nicht weiter

die / kommen erst nach beschreiben der datei

<?php $fhandle=fopen("$file","w+"); fwrite($fhandle,"$text"); $var=stripslashes($var ); fclose($fhandle); echo("Die Datei wurde geändert!"); exit(); ?> Das ist der Code.... Die hilfen die ich ausm Internet hab wie z.B: $var=stripslashes($var ); haben nichts geholfen

Hallo... Ich habe ein PHPscript geschrieben mit dessen hilfe ich dateien editieren kann (z.B HTML Dateien die auf meinem Webspace liegen) Das alles läuft über eine HTML Form. Mein Problem: Er öffnet die Datei einwandfrei... ich kann Editieren ohne Problem und er speichert auch das veränderte. Doch irgendwie werden die "Anführungszeichen" mit einem / Slasch ersetzt. Wie kann ich das verhindern? Ich könnte natürlich garkeine " Verwenden doch würde die dann nichtmehr dem Standart entsprechen und was ist wenn ich ein Wort oder Satz in " Schreiben möchte? Wenn ihr etwas mit Austausch vorschlagen solltet bitte bedenkt das HTTP Adressen in der Datei die Beispielsweise so lauten könnten : http://www.test.de nicht dürch http:""www.test.de derstez werden. Hoffe auf hilfe

Wie kann ich ein Perlscript autom. beim Hochfahren des rechners unter Linux Straten und beim Runterfahren wiedr beenden? Bitte mit ausfürlicher bechreibung da ich mich in Linux noch nicht so gut auskenne. ThX schonmal im vorraus.

Nein hab ich noch nicht...... Denkst du es liegt daran? Wie installiere ich diese denn unter linux? In einer Hilfe von VMWARE stand volgendes: Auf VMWARE Tools installieren klicken dann folgende befehle eintippen: 'mount -t iso9660 /dev/cdrom /mnt cp /mnt/vmware-linux-tools.tar.gz /tmp umount /dev/cdrom' danach 'cd /tmp tar zxf vmware-linux-tools.tar.gz cd vmware-linux-tools ./install.pl' danach in einem X Terminal 'vmware-toolbox &' für das starten. Habe daheim ja Suse Linux 8.2 Die hilfe gilt allerdings für Redhat 7.1 stimmt diese dann berhaupt...? Hab das mal in der Arbeit ausprobiert. Natürlich hab ich hier kein Linux 8.2 Habe knopixx installiert. Da ging das nicht da der Kernel angeblich keine iso Dateitypen unterstütz. Werden diese denn bei linux 8.2 unterstützt??? Bitte um antwort :confused:

Habe ein Problem.... Ich habe bei mir (Windows Computer) die neuste VMWARE Workstation laufen. Da hab ich mir eine Virtuelle Maschiene mit SuSE Linux 8.2 Angelegt. Nun das Problem: Wenn ich diese Virtuelle Maschiene Lokal am Rechner Starte läd Linux einwandfrei hoch bis zum KDE Desktop. Greife ich jetzt über einen anderen Windows Computer auf den, worauf die VMWARE Workstation installiert ist per Remote Desktop zu und starte die Virtuelle Linux Maschiene, funktioniert der KDE Desktop nicht. Er wird einfach nicht geladen. Stattdessen fährt das Linux in den Comandozeilen Modus hoch Woran liegt das und was kann ich dagegen tun....??? Wie gesagt, lokal ok remote läuft was schief.... dabei wird bei remote desktop doch eigentlich nur das Bild übertragen... Hoffe jemand kann mir helfen

Ich kenne mich schon etwas mit Linux aus, allerdings nur mit der SuSe Version. Nun hab ich mal Debian ausprobiert und musste mit erschrecken feststellen das YAST unter Debian nicht existiert. Gibts denn dort nen ähnliches konfigurations Programm? Und wie sieht das ganze unter RedHat aus??? Hoffe jemand kann mir weiter helfen.

Jo das ist schon ganz Gut. Möchte folgendes deaktivieren bzw. aktivieren können: - alle ActiveX elemente - Download - Schriftendownload - Scripting ( ActiveScripting)

Will ein VB Script schreiben das die Sicherheitseinstellungen des Internet Explorers nach belieben autom. auf Knopfdruck verändert. z.B. Active Scripting aktiviert bez. deaktiviert. Wie kann ich dies machen? Bitte um hilfe und einige Beispielcodes wenn möglich. Müsste auf die Registry zugreifen und schlüssel verändern....oder?

Jo des isses.... genau sowas stell ich mir vor! wenn du´den mir schicken kannst dan send ihn an minestrator@surfeu.de THX :uli

Ja genau, diese art von tests.... am besten noch mit einer punktezahl am ände diese zusammengerechnet wurde. Nu ja, der Supporter mit dem ich sprach war ratlos und meinte, soweit würde alles gehen allerdings könnte er mir jetzt nict das script debuggen. Ich weiß ned, aber von der website von der ich des habe, gibts auch nen demo script und des läuft einwandfrei wie bei mir aufm lokalen webserver! Ich denke, es liegt wirklich an dieser ******e von schreib leseberechtigung das die aus sicherheitsgründen nur so und so lauten darf :confused:

hab nen paar neue scripte gefunden... allerdings auch in cgi..... hoffe die gehen nun !!! hm....

Also das mit dem nicht im ASK. Mode Hochladen hat nicht geklappt. immer noch Server Fehler! Das mit dem -w hintendran bin ich gestern durch zufall auch drauf gestoßen funktioniert aber auch nicht. Was natürlich sein kann, das man das script nun ebenfalls umschreiben müsste Ich hab ne CGI Test Page draufgeladen und die ging werde aber mal das -w vornedrann wegnehmen und dann schauen obs geht! Ach ja.... hat ned jemand nen funktionierendes modul zum online test erstellen? Kann GGI oder PHP oder von mir aus auch Java Script sein... Währe nett!

#!/usr/bin/perl use CGI::Carp qw(fatalsToBrowser); # © NueDream Inc. 2000-2002 (www.nuedream.com) ############## GLOBAL CONSTANTS ############ $file = "questions.db"; # This is the name of your questions file. $quizname = "NueQuiz"; # This is what appears in the TITLE. $spacer = '|'; # The delimeter used in the database. $result1 = "You need to think a little harder before you answer next time."; # Message Displayed when user gets below 50%. $result2 = "You did pretty good. Some of those questions are harder than they look."; # Message Displayed when user gets between 51%-80%. $result3 = "Wow! You did excellent, looks like you know your stuff."; # Message Displayed when user get above 80%. $cheater = "Cheating won't get you anywhere in life."; # Message Displayed when user cheated. $fontface = "verdana, tahoma, arial"; # Font Type. $anticheat = 1; # Enables or disables the anti-cheating feature # (1-Enabled, 0-Disabled). ############## PROGRAM START ############ @pairs = split(/&/, $ENV{'QUERY_STRING'} ); foreach $pair (@pairs) { ($name,$value) = split (/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("c", hex($1))/eg; $value =~ s/\n/ /g; $value =~ s/\r//g; $value =~ s/\cM//g; $GET{$name} = $value; } $cookie = $ENV{'HTTP_COOKIE'}; (@cookies) = split(/;/, $cookie); $content = $ENV{'QUERY_STRING'}; ($type, $question) = split(/=/, $content); if($question eq "") { $question = 1; } $current = $question-1; $correct = 0; if($GET{'action'} eq "") { print "Content-type: text/html\n\n"; print "<html>\n<head>\n<title>$quizname</title>\n</head>\n\n<body bgcolor=\"white\">\n"; print "\n<!-- NueQuiz. © NueDream Inc. 2000-2002. (www.nuedream.com) -->\n\n"; print "<center>\n<table width=\"450\" border=\"0\" cellpadding=\"0\" cellspacing=\"0\">\n<tr>\n<td>\n"; print "<font face=\"$fontface\" size=\"2\">\n"; open(DATA,$file) or dienice("Couldn't open $file :: $!\n"); #flock(DATA,0); # uncomment this line if using unix based server seek(DATA,0,0); @data = <DATA>; close(DATA); # Calculating total number of questions. $total = 0; foreach $line (@data) { ($quiz,$num,$q,$ans,$a,$b,$c,$d,$e,$f,$reason) = split(/\|/,$line); if ($quiz eq $type) { $total++; } } $total++; # Printing Quiz results. if ($question == $total) { print "<br><b>QUIZ Results:</b><br><hr width=\"450\" align=\"left\" color=\"black\" NOSHADE><br>"; print "<font size=\"1\">"; foreach $part (@cookies) { if ($part =~ /$type/) { ($name, $value) = split(/=/,$part); (@answers) = split(/-/,$value); foreach $a (@answers) { ($questionc, $answerc) = split(/_/,$a); foreach $line (@data) { chomp($line); ($quiz,$num,$q,$ans,$a,$b,$c,$d,$e,$f,$reason) = split(/\|/,$line); ##################################################################### if ($quiz eq $type && $questionc eq $num) { if(substr($answerc,0,1) eq $ans) { $tempa = substr($answerc,0,1); $tempb = substr($answerc,1,1); print "<b>$questionc.</b> $q<br>You Answered: <b>$tempa</b>. <font color=\"#33cc00\"><b>CORRECT!</b></font><ol>$reason</ol>"; $correct++; } else { $tempa = substr($answerc,0,1); $tempb = substr($answerc,1,1); print "<b>$questionc.</b> $q<br>You Answered: <b>$tempa</b>. <font color=\"red\"><b>INCORRECT!</b></font><br>Correct Answer: <b>$tempb</b>.<ol>$reason</ol>"; } } } } } } print "</font>"; print "<br><hr width=\"450\" align=\"left\" color=\"black\" NOSHADE>"; $percent = ($correct/$current)*100; printf ("<b>$correct</b> / <b>$current</b> = <b> %4.1f", $percent, "%</b><br><br>"); print "%</b><br><br>"; if ( ($correct/$total) < 0.5) { print "$result1"; } elsif (($correct/$total) < 0.8) { print "$result2"; } elsif (($correct/$total) <= 1.0) { print "$result3"; } else { print "$cheater"; } } else { foreach $line (@data) { chomp($line); ($quiz,$num,$q,$ans,$a,$b,$c,$d,$e,$f,$reason) = split(/\|/,$line); if ($quiz eq $type && $question eq $num) { print "<form action=\"quiz.cgi?$type=$question&action=check\" method=\"GET\">\n"; print "<br><b>$question. $q</b><br>"; if ($a ne "") { print "<input type=\"radio\" name=\"$num\" value=\"a\" checked>A. $a<br>\n"; } if ($b ne "") { print "<input type=\"radio\" name=\"$num\" value=\"b\">B. $b<br>\n"; } if ($c ne "") { print "<input type=\"radio\" name=\"$num\" value=\"c\">C. $c<br>\n"; } if ($d ne "") { print "<input type=\"radio\" name=\"$num\" value=\"d\">D. $d<br>\n"; } if ($e ne "") { print "<input type=\"radio\" name=\"$num\" value=\"e\">E. $e<br>\n"; } if ($f ne "") { print "<input type=\"radio\" name=\"$num\" value=\"f\">F. $f<br>\n"; } print "<br><input type=\"hidden\" name=\"$type\" value=\"$num\">\n"; print "<br><input type=\"hidden\" name=\"action\" value=\"check\">\n"; print "<input type=\"submit\" value=\"Continue »\">\n</form>\n"; } } } print "</font>\n</td>\n</tr>\n</table>\n</center>\n</body>\n</html>"; } elsif ($GET{'action'} eq "check") { $content = $ENV{'QUERY_STRING'}; ($temp, $temp2, $temp3) = split(/&/, $content); ($question, $answer) = split(/=/, $temp); ($type, $question) = split(/=/, $temp2); ($temp4, $act) = split(/=/,$temp3); $start = $question+1; $url = "quiz.cgi?$type=$start"; $tempv = ""; (@cookies) = split(/;/, $ENV{'HTTP_COOKIE'}); foreach $crum (@cookies) { ($name, $value) = split(/=/, $crum); if($name =~ /$type/) { $tempv = $value; last; } } open(DATA,$file) or dienice("Couldn't open $file :: $!\n"); #flock(DATA,0); # uncomment this line if using unix based server seek(DATA,0,0); @data = <DATA>; close(DATA); foreach $line (@data) { chomp($line); ($quiz,$num,$q,$ans,$a,$b,$c,$d,$e,$f,$reason) = split(/\|/,$line); if ($quiz eq $type && $question eq $num) { if($tempv ne "") { if ($tempv =~ /$question/) { if($anticheat == 1) { print "Content-type: text/html\n\n"; print "<br><br><center><font face=\"verdana\" size=\"2\"><b>$cheater</b><br><br>If you did not try to cheat, try again. This time do not double click the next button.<br> Click once and wait until the next question is fully displayed before clicking again.</font></center>"; } else { print "Location: $url\n\n"; } } else { $tempcookie = "$tempv" . "-" . $question . "_" . $answer . $ans; print "Set-cookie: $type=$tempcookie\n"; print "Location: $url\n\n"; } } else { $tempcookie = $question . "_" . $answer . $ans; print "Set-cookie: $type=$tempcookie\n"; print "Location: $url\n\n"; } } } } ############# DYING SUBROUTINE ############ sub dienice { my($msg) = @_; print ("<br><hr><br><h1>FATAL ERROR</h1><hr><br>\n"); print ($msg); exit; }

##### EDITING QUESTION DISPLAY ##### print "<html><head><title>:::: $quizname Administration Page ::::</title></head>\n<body bgcolor=\"white\">"; print "<font size=\"1\" face=\"verdana\">"; print "<font size=\"4\"><b>Administrative Menu</b></font><br>"; print "<hr color=\"#000000\" width=\"450\" align=\"left\" noshade>"; print "<font size=\"1\"><b>You are Editing a record in the $FORM{'quiz'} quiz.</b></font>\n"; print "<hr color=\"#000000\" width=\"450\" align=\"left\" noshade>"; foreach $line (@data) { ($quizin,$num,$question,$ans,$a,$b,$c,$d,$e,$f,$reason) = split(/\Q$spacer/,$line); if ($quizin eq $FORM{'quiz'} && $question eq $FORM{'question'} && $num eq $FORM{'number'}) { print "<form action=\"$editurl\" method=\"POST\">"; print "<input type=\"hidden\" name=\"number\" value=\"$FORM{'number'}\">"; print "<input type=\"hidden\" name=\"quiz\" value=\"$FORM{'quiz'}\">"; print "<table><tr><td colspan=\"3\"><font size=\"2\" face=\"verdana\">Question:</font></td></tr>\n"; print "<tr><td colspan=\"3\"><input type=\"text\" name=\"question\" size=\"45\" value=\"$question\"></td></tr>\n"; print "<tr><td><font size=\"2\" face=\"verdana\">Answer</font></td><td><font size=\"2\" face=\"verdana\">#</font></td><td><font size=\"2\" face=\"verdana\">Choices</font></td></tr>\n"; $addon = ($ans eq "a")?" checked":""; print "<tr><td><input type=\"radio\" name=\"answer\" value=\"a\"$addon></td><td>a)</td>\n"; print "<td><input type=\"text\" name=\"a\" size=\"30\" value=\"$a\"></td></tr>\n"; $addon = ($ans eq "b")?" checked":""; print "<tr><td><input type=\"radio\" name=\"answer\" value=\"b\"$addon></td><td></td>\n"; print "<td><input type=\"text\" name=\"b\" size=\"30\" value=\"$b\"></td></tr>\n"; $addon = ($ans eq "c")?" checked":""; print "<tr><td><input type=\"radio\" name=\"answer\" value=\"c\"$addon></td><td>c)</td>\n"; print "<td><input type=\"text\" name=\"c\" size=\"30\" value=\"$c\"></td></tr>\n"; $addon = ($ans eq "d")?" checked":""; print "<tr><td><input type=\"radio\" name=\"answer\" value=\"d\"$addon></td><td>d)</td>\n"; print "<td><input type=\"text\" name=\"d\" size=\"30\" value=\"$d\"></td></tr>\n"; $addon = ($ans eq "e")?" checked":""; print "<tr><td><input type=\"radio\" name=\"answer\" value=\"e\"$addon></td><td>e)</td>\n"; print "<td><input type=\"text\" name=\"e\" size=\"30\" value=\"$e\"></td></tr>\n"; $addon = ($ans eq "f")?" checked":""; print "<tr><td><input type=\"radio\" name=\"answer\" value=\"f\"$addon></td><td>f)</td>\n"; print "<td><input type=\"text\" name=\"f\" size=\"30\" value=\"$f\"></td></tr>\n"; print "<tr><td colspan=\"3\"><font size=\"2\" face=\"verdana\">Reasoning for answer</font></td></tr>\n"; print "<tr><td colspan=\"3\"><textarea cols=\"34\" rows=\"3\" name=\"reason\">$reason</textarea></td></tr>\n"; print "<tr><td colspan=\"3\" align=\"right\"><input type=\"submit\" name=\"action\" value=\"Update\"></td></tr>"; print "</table>\n</form>\n"; print "<hr color=\"#000000\" width=\"450\" align=\"left\" noshade>"; print "<font size=\"1\"><b>NueQuiz - © 2000 <a href=\"http://www.nuedream.com\'>http://www.nuedream.com\">NueDream Inc.</a></b></font>\n"; last; } } } elsif ($FORM{'action'} eq "Remove") {# going to remove a specific question print "Content-type: text/html\n\n"; open(DATA,$file) or dienice("Couldn't open $file :: $!\n"); #flock(DATA,0); # uncomment this line if using unix based server seek(DATA,0,0); @data = <DATA>; close(DATA); foreach $i ("beginner", "novice", "expert") { $nextnum{$i} = 0; } foreach $line (@data) { chomp($line); ($quizin,$num,$question,$ans,$a,$b,$c,$d,$e,$f,$reason) = split(/\Q$spacer/,$line); if ($quizin eq $FORM{'quiz'} && $question eq $FORM{'question'} && $num eq $FORM{'number'}) { } else { $nextnum{$quizin}++; $string = $quizin.$spacer; $string .= $nextnum{$quizin}.$spacer.$question.$spacer.$ans.$spacer; $string .= $a.$spacer.$b.$spacer.$c.$spacer.$d.$spacer.$e.$spacer.$f.$spacer; $string .= $reason; push (@result, $string); } } open(DATA,">".$file) or dienice("Couldn't open $file for overwriting:: $!\n"); #flock(DATA,0); # uncomment this line if using unix based server seek(DATA,0,0); sort @result; foreach $line (@result) { print DATA $line."\n"; } close(DATA); ##### REMOVED QUESTION DISPLAY ##### print "<html><head><title>:::: $quizname Administration Page ::::</title></head>\n<body bgcolor=\"white\">"; print "<font size=\"1\" face=\"verdana\">"; print "<font size=\"4\"><b>Administrative Menu</b></font><br>"; print "<hr color=\"#000000\" width=\"450\" align=\"left\" noshade>"; print "<font size=\"1\"><b>You have successfully Removed a question in the $FORM{'quiz'} $quizname quiz</b></font><br>\n"; print "<hr color=\"#000000\" width=\"450\" align=\"left\" noshade>"; print "<font size=\"1\"><br>You may now return to the <a href=\"$editurl\">administration page</a>.</font><br><br>"; print "<hr color=\"#000000\" width=\"450\" align=\"left\" noshade>"; print "<font size=\"1\"><b>NueQuiz - © 2000 <a href=\"http://www.nuedream.com\'>http://www.nuedream.com\">NueDream Inc.</a></b></font>\n"; } else { dienice("You have not used a valid way to access this program go to the <a href=\"$editurl\">Admin Page</a>"); } } else { print "Content-type: text/html\n\n"; print <<Passpage <html> <head> <title>:::: NueQuiz Admin Page :::: www.nuedream.com</title> </head> <!-- © NueDream Inc. 2000-2002 --> <body> <font size="1" face="verdana"> <font size="4"><b>Password Check</b></font> <br> <hr color="#000000" width="450" align="left" noshade> <b>Please input the password to administrate quiz.</b> <hr color="#000000" width="450" align="left" noshade> <form method="post" action="$editurl"> <input type="password" name="pass" size="10" maxlength="8"> <input type="hidden" name="check" value="pass"> <input type="hidden" name="action" value="check"> <input type="submit" value="Validate"> </form> <hr color="#000000" width="450" align="left" noshade> <b>NueQuiz - © 2000 <a href="http://www.nuedream.com">NueDream Inc.</a></b> </font> </body> </html> Passpage } ############## DYING SUBROUTINE ############ sub dienice { my($msg) = @_; print "Content-type: text/html\n\n"; print ("<br><hr><br><h1>FATAL ERROR</h1><hr><br>\n"); print ($msg); exit; }