FisyX
-
Gesamte Inhalte
121 -
Benutzer seit
-
Letzter Besuch
Inhaltstyp
Profile
Forum
Downloads
Kalender
Blogs
Shop
Alle Inhalte von FisyX
-
##### GENERAL ADMIN DISPLAY ##### print "Content-type: text/html\n\n"; print "<html><head><title>:::: Quiz Administration Page :::: $ENV{'HTTP_REFERER'}</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 ".$type."ing a record in the $quiz quiz.</b></font>\n"; print "<hr color=\"#000000\" width=\"450\" align=\"left\" noshade>"; if ($type eq "add") { print "Complete the required(<font color=\"red\">*</font>) information and hit add.<br>"; print "You may leave some of the questions empty if you choose.<br>"; print "To display no reason just use a blank space in the Reason area.<br>"; print "<form action=\"$editurl\" method=\"POST\">"; print "<input type=\"Hidden\" name=\"quiz\" value=\"$quiz\">"; print "<table><tr><td colspan=\"3\"><font size=\"2\" face=\"verdana\"><font color=\"red\">*</font>Question:</font></td></tr>\n"; print "<tr><td colspan=\"3\"><input type=\"text\" name=\"question\" size=\"45\"></td></tr>\n"; print "<tr><td><font size=\"2\" face=\"verdana\"><font color=\"red\">*</font>Answer</font></td><td><font size=\"2\" face=\"verdana\">#</font></td><td><font size=\"2\" face=\"verdana\"><font color=\"red\">*</font>Choices</font></td></tr>\n"; foreach $i (@list) { print "<tr><td><input type=\"radio\" name=\"answer\" value=\"$i\"></td><td><font size=\"2\" face=\"verdana\">$i)</font></td>\n"; print "<td><input type=\"text\" name=\"$i\" size=\"30\"></td></tr>\n"; } print "<tr><td colspan=\"3\"><font size=\"2\" face=\"verdana\"><font color=\"red\">*</font>Reasoning for answer</font></td></tr>\n"; print "<tr><td colspan=\"3\"><textarea cols=\"34\" rows=\"3\" name=\"reason\"></textarea></td></tr>\n"; print "<tr><td colspan=\"3\" align=\"right\"><input type=\"submit\" name=\"action\" value=\"Add\"></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\">NueDream Inc.</a></b></font>\n"; } elsif ($type eq "modify") {# modifying a database of quizzes print "<table>"; foreach $line (@data) { ($quizin,$num,$question,$ans,$a,$b,$c,$d,$e,$f,$reason) = split(/\Q$spacer/,$line); if ($quizin eq $quiz) { print "<form action=\"$editurl\" method=\"POST\">"; print "<tr><td><font size=\"2\" face=\"verdana\">$num) $question<input type=\"hidden\" name=\"question\" value=\"$question\"><input type=\"hidden\" name=\"number\" value=\"$num\"><input type=\"hidden\" name=\"quiz\" value=\"$quiz\"></font></td></tr>\n"; print "<tr><td nowrap><input type=\"Submit\" name=\"action\" value=\"Edit\"><input type=\"Submit\" name=\"action\" value=\"Remove\"></form></td></tr>"; } } print "</table>"; print "<hr color=\"#000000\" width=\"450\" align=\"left\" noshade>"; print "<font size=\"1\"><b>NueQuiz - © 2000 <a href=\"http://www.nuedream.com\">NueDream Inc.</a></b></font>\n"; } } elsif ($FORM{'action'} eq "Add") { print "Content-type: text/html\n\n"; #check if input is correct and put it into the database if ($FORM{'reason'} eq "" || $FORM{'answer'} eq "" || $FORM{$FORM{'answer'}} eq "" || $FORM{'question'} eq ""){ print "<br><h1>ERROR :: Information Incomplete</h1><br>Please hit your browser's back button and complete the information"; } else { open(DATA,$file) or dienice("Couldn't open $file :: $!\n"); #flock(DATA,0); # uncomment this line if using unix based server @data = <DATA>; close(DATA); $count = 0; foreach $line (@data) { ($quizin,$num,$question,$ans,$a,$b,$c,$d,$e,$f,$reason) = split(/\Q$spacer/,$line); if ($quizin eq $FORM{'quiz'}) { if ($count < $num) { $count = $num; } } } $count++; $line = $FORM{'quiz'}.$spacer.($count).$spacer.$FORM{'question'}.$spacer.$FORM{'answer'}.$spacer; foreach $i (@list){ $line .= $FORM{$i}.$spacer; } $line .= $FORM{'reason'}; open(DATA,">>".$file) or dienice("Couldn't open $file :: $!\n"); print DATA $line."\n"; close(DATA); 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 Added 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\">NueDream Inc.</a></b></font>\n"; } } elsif ($FORM{'action'} eq "Update") {# going to update 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 $line (@data) { chomp($line); ($quizin,$num,$question,$ans,$a,$b,$c,$d,$e,$f,$reason) = split(/\Q$spacer/,$line); if ($quizin eq $FORM{'quiz'} && $num eq $FORM{'number'}) { $string = $FORM{'quiz'}.$spacer.$FORM{'number'}.$spacer.$FORM{'question'}.$spacer.$FORM{'answer'}.$spacer; foreach $i (@list){ $string .= $FORM{$i}.$spacer; } $string .= $FORM{'reason'}; push (@result, $string); } else { push (@result, $line); } } 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); ##### MODIFIED 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 Modified 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\">NueDream Inc.</a></b></font>\n"; } elsif ($FORM{'action'} eq "Edit") {# going to edit 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);
-
Ok, das sind 2 CGI Scripte! Einmal das edit (Wo man ein Quiz erstellen kann): #!/usr/bin/perl use CGI::Carp qw(fatalsToBrowser); # © NueDream Inc. 2000-2002 (www.nuedream.com) ################ USER VARIABLES ################ $editurl = "/home/13/tfcffchd/cgi-bin/edit.cgi"; # Location of this edit page, no trailing slashes(/). $password = "test"; # Password for administration. ############ THESE ARE OPTIONAL CHANGES ########### $file = "questions.db"; # This is the name of your questions file. $quizname = "NueQuiz"; # This is what appears in the TITLE. $spacer = '|'; # Delimeter used in the database. @list = ('a','b','c','d','e','f'); ############## GET INFO FROM WEBPAGE ############# if($ENV{'HTTP_REFERER'} =~ /$editurl/) { 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; $value =~ s/\n/ /g; # newlines are now spaces $value =~ s/\r//g; # removes hard returns $value =~ s/\cM//g; # deletes ^M's $FORM{$name} = $value; } ############## MAIN PROGRAM ############ if ($FORM{'action'} eq "") { print "Content-type: text/html\n\n"; print <<EndADMIN <html> <head> <title>:::: NueQuiz Administration Page ::::</title> </head> <!-- © NueDream Inc. 2000-2002 --> <body bgcolor="white"> <font size="1" face="verdana"> <font size="4"><b>Administrative Menu</b></font><br> <hr color="#000000" width="450" align="left" noshade> <b>NOTE: Choose what action you wish to perform and click on the Submit button.</b><br> <hr color="#000000" width="450" align="left" noshade> <form action="$editurl" method="POST"> <input type="radio" name="edit" value="modbeg" checked>Modify Beginner Quiz Questions.<br> <input type="radio" name="edit" value="modnov">Modify Novice Quiz Questions<br> <input type="radio" name="edit" value="modexp">Modify Expert Quiz Questions<br> <br> <input type="radio" name="edit" value="addbeg">Add Beginner Quiz Question<br> <input type="radio" name="edit" value="addnov">Add Novice Quiz Question<br> <input type="radio" name="edit" value="addexp">Add Expert Quiz Question<br> <br> <input name="action" value="Submit" type="submit"> </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> EndADMIN } elsif ( $FORM{'action'} eq "check" ) { 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; $value =~ s/~!/ ~!/g; $FORM{$name} = $value; } if ($FORM{'pass'} eq $password) { print "Location: $editurl\n\n"; } else { dienice("Invalid Password! Please go back and try again!"); } } elsif ( $FORM{'action'} eq "Submit" ) { $edit = $FORM{'edit'}; if ($edit =~ /\w+beg$/) { $quiz = "beginner"; } elsif ($edit =~ /\w+nov$/) { $quiz = "novice"; } elsif ($edit =~ /\w+exp$/) { $quiz = "expert"; } else { dienice("Invalid quiz type go to the <a href=\"$editurl\">Admin Page</a> and try again"); } if ($edit =~ /^mod\w+/) { $type = "modify"; } elsif ($edit =~ /^add\w+/) { $type = "add"; } else { dienice("Invalid action to perform go to the <a href=\"$editurl\">Admin Page</a> and try again"); } 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);
-
Habe mal ne Frage: ich habe ein Onlinetest CGI-Script das bei mir (Windows 2000 Rechner) Lokal einwandfrei unter dem Webserver WAMP läuft! Nun wollt ichs Online stellen. hab den Pfadt von Perl am anfang in /usr/bin/perl geändert so wied er Provieder gesagt hat und sogar allen Dateien sowie ggf. allen Unterverzeichnissen die Rechte 755 wie vom Provieder gewollt. Doch es geht immer noch nicht! es kommt ein Internal Server Error! Aber es kann doch nicht sein das das Script auf ner Windows Kiste funzt und auf ner Unix Kiste nich ... oder ??? Bitte um Antwort woran es liegen könnte! Ps: Der Provieder hat ein testscript ausprobiert dieses auch tatsächlich funktionierte! :( :(
-
Also, Beim Notebook ist unten eine Schraube angebracht die sehr tief sitzt. Diese lösen. Danach oben links am Plastikverdek der Tastatur ist ein Loch. Mit einer Büroklammer reindrücken. Plastikverdeck in linke richtung Wegschieben. Tastatur nach vorne rausziehen. Metallplatte entfehrnen. Und man kann den RAM Baustein in den dafür vorgesehenen Slot stecken. :uli Juhu... endlich geschafft
-
Habe mir ein Notebook von Asus (L3500H) zugelegt und mir auch gleich nen 2ten Speicher Ram Stick dazugekauft. Mein Problem: Wie bekomme ich diesen versch. Speicherbaustein ins Notebook? Auf der Unterseite des Notebooks sind 2 Fächer zum Aufschrauben. - im einen ist die festplatte drinn -im anderen der CPU und ein Ramslot. Jedoch ist dieser schon belegt. Ich rief bei der Hotline an...... die meinte unter der Tastatur währe noch ein freier. Doch wie bekomme ich diese runter? Hab schon alle schrauben die abzuschrauben gehen abgeschraubt (wäh zungenbrecher) Aber des Ding ging immer noch ned auseinander.... Oder muss ich die von der Oberseite her runter machen ?! Bitte um hilfe
-
Ich brauche dringend Hilfe. Wie kann ich Vektoren in c ++ bei programm ende in einer Datei speichern und bei Programmstart wieder auslesen lassen? Bitte schnellstmöglich um hilfe (Brauche ein Beispiel bis spätestens 08.07.2003.) Bitte beachten: Wir Programmieren in Borland C++ :o/ Das heißt so Header Dateien wie ctime gibts bei uns leider nicht ( Thx schonmal im Vorraus für eure Bemühungen!
-
Gut... habe deine e-mail erhalten Nun bin ich gespannt ob ich des gleich so raf Gbe sobald ich es ausprobiert habe rückmeldung!
-
wenns bis nächste woche dauert ist auch nicht schlimm Ps: Danke für deine Mühe dich da hinzusetzen und das für mich mal als Beispiel zu proggen..... Dafür verdienst du echt großen :uli
-
minestrator@surfeu.de Thx schonmal!
-
thx hat mir sehr geholfen
-
Aber jetzt mal ne frage dazu... wie erzeuge ich denn so ne Datei von c++ aus und mit welchem Befehl schreibe ich ide Daten in diese die ich über c++ eingelesen habe? Oder muss ich eine Datei vorher eine anlegen? Kann mir nich einer nen beispiel quellcode geben? Würde mir dann um einiges leichter fallen das umzusetzen..... Thx schonmal im vorraus
-
Nu ja..... sagen wir mal so, unser programm soll Namen, Nummern und Daten vom Typ Datum speichern. Dies soll in eine externe Datei gespeichert werden (wenn möglich kein .txt File) also dachte ich mir Excel sei ganz gut. Nun sollen die Daten wenn man das Programm öffnet eingelesen werden. Sinn der Speicherung: Die Daten nach erneutem Programmausführen per Suchfunktion wieder Auslesen und anzeigen zu können. Die Speicherung muss so erfolgen das dies in Form von Datenblöcken geschieht. 1 Datenblock besteht aus (1 Name, 1 NUmmer, 1 Datum) Weis nicht ob dies beim Speichern eine geweisse Rolle spielen muss das das Programm später weiss das diese Daten zusammengehören die man vorher zusammen eingelesen hat. Bitte um ein beispiel zur orientiertung. -> Wer das oben nicht versteht ( verstehe es ja selbst kaum ;o) soll einfach dies reallisieren) : Es soll ein Name eingelesen werden und in einer Excel Tabelle gespeichert werden. beim erneuten Ausführen des Programms soll dieser wiede ausgelesen werden und auf dem Bildschirm angezeigt werden. Hoffe etwas verständlicher. :confused: :eek:
-
Hallo c++ Spezis Wie könnte ich das Anstellen? Ich habe ein Programm in c++ geprogt, nehemn wir mal an ein ganz stubides. Dieses liest Namen ein. Wie kann ich diese in einer Exceltabelle speichern und bei abfrage wieder Auslesen? Die Daten sollen auch wenn das c++ programm beendet wird erhalten bleiben. Wenn ihr ncht wisst wies mit Excel Funktioniert, könnt ihr mir auch helfen indem ihr es für einen Textdatei umsetzt. Whäre sehr froh wenn ich ein paar Lösungsforschläge bekommen würde da man im Internet nicht gerade alzuviel darüber findet. Brauche diese jar nur als Beispiel da mein Programm viel umfangreicher ist... also lernen tu ich trotzdem was Schonmal Danke im vorraus! Hoffe auf Antwort
-
Ich muss ein Progaramm programmieren das ein eingelesenes Datum mit dem aktuellen Datum vergleicht und wenn das eingelesene Datum mit dem aktuellen Datum Übereinstimmt, soll eine Meldung erscheinen: "Hat heute Geburtstag!" Ich kenne allerdings die Funktion mit der ich das aktuelle Datum ermitteln kann nicht. Falls es so eine überhaupt gibt. und wenn ja wie muss ich das Datum eingeben wenn ich es mit dem aktuellen vergleichen möchte? xx.xx.xx oder xx.xx.xxxx oder ect? Hope for Help :confused:
-
Also bpoote mit ner Dos diskette hoch und tipp die Befehle fixmbr ein. wenn des ned geht probiers mit fdisk /mbr :marine Hoffe dir ist damit geholfen ;o)
-
Also mit den treibern habt ihr recht gehabt..... waren die Falschen Habe die korreckten Treiber für Win NT Runtergeladen. Die Grafikkarte ist eine von MiroMedia, Miro Premium! Diese Hat 4 MB Ram. Nu Ja, was soll man da noch zu sagen..... das Problem besteht immer noch :-( Der Computer hängt sich während manchmal aber schon vor der Anmeldung, nachdem die Netzwerkeinstellungen geladen wurden auf Die kiste lässt sich nur im VGA Modus hochfahren.... Da hab ich dann mal mit volgenden einstellungen neu gebootet: Auflösung: 640*480 pixel 16 Bit Color Und 70 Hz Erfolgslos... nur im VGAModus korrecktes Starten :confused:
-
Schau mal unter probleme mit Linux.... das kann ich netmal gescheid installen :-(
-
Also ich hab nie gedacht das ich mit Linux mal irgendwelche Installationsprobleme bekommen würde doch nun ist es soweit gekommen :-( Auf meinem Alten rechner Pentium 133 MHz mit ner 20 GB Festplatte (Nur für Linux) und 90 EdoRam läuft Linux 8.0 und 7.2 Einwandfrei... n bissel langsam ... deswegen: Wollte ich es auf meinem neuen Rechner Pentium 4 mit 1,8 GHz mit 1024GB SDRam und ner GeForce 3 installieren ..... Festplatte 80 GB -----> 1 Parttition Für WIndows 1 Partition für Backup 1 Partition Für Linux restliche Plattenplatz für Linux So mein Problem: 8.0 Stürzt jedesmal nachdem ich zur stelle komme wo ich mein Rootpasswort Eingeben muss und die Anzeige kommt -------------------------------------------------------------- Es wird die bestehende Hardware Geprüft sec. 5 (zählt ab) Überspringen Verwerfen OK --------------------------------------------------------------- ab! ---> Es kommt ein Schwarzer Monitor und nix passiert :confused: Nun ist kein YAST2 Installiert........ Ich wollte es nachinstallieren aber jedesmal wenn ich in die terminal (commandoebene) mit den Tastenkombinationen F1 ect wächsel) stürtzt der PC ab! Bei Linux 7.2 heißt es ..... Es muss mindestens nocheine zusätzliche prtition für root angelegt werden..... Da aber genau das gleiche Problem wenn ich dies dann installiere... absturz :-( Was kann man da tun ...???? Woran kann dies liegen??? Hoffe auf Antwort...
-
Probiers mal mit der Wiederherstellungskonsole Vieleicht klappts ja
-
Ok, ich habe folgendes Problem. Habe einen etwas älteren PC (Pentium 2 MMX 200 MHz mit 64MB Ram) Nun hatte ich Windows 2000 Advance Server installiert. Fuhr die kiste hoch, nahm ein paar Einstellungen vor und fuhr sie runter um eine netzwerkkarte von realtake zu installieren. Hab ich gemacht wieder Hochgefahren, funktionierte alles. wieder runter gefahren. Einige Tage später wieder hochgefahren ... beim laden der Netzwerkkonfiguration abgestürzt. konnte Computer nur im abgesicherten Modus ohne Netzwerkeinstellungen hochfahren...! Einen anderen hab ich nicht ausprobiert. Windows 2000 Server erneut installiert.... Selbes problem.... Habe dann Windows 2000 professional draufgemacht.... Erstes mal Hochgefahren.... zweites mal kurz form Login abgestürzt. Konnte diesmal allerdings mit netzwerkeinstellungen im abgesicherten Modus hochfahren nur halt im VGA MOdus :-( Einstellungen der Auflößung heruteregesetzt. Neugestartet .... wieder Hochgefahren...... problem war weg :-) Am nächsten Tag wars wieder da und geht nichtmehr weg... kann nur im VGA Modus Hochfahren.... :-((( denke es könnte an der Grafikkarte liegen das die nen schuss hat... hab mal ne Uralte vom 468 eingebaut... Da issser schon beim laden des Betriebssystems (kurz nachdem der Ladebalken abgelaufen war) abgestürzt. Konnte wie nicht anders erwartet nur im VGA Modus hochfahren... Was kann ich tun..... Habe folgenden Rat schon bekommen (noch nicht ausprobiert): Neue Grafikkarte, neue Treiber. Währe nett wenn mir einer Helfen könnte....
