Opened by Gast at 2006-06-08 18:45
Hi,
ich habe ein Gästebuch in Perl realisiert, verknüpft mit einer mysql Datenbank. Funktioniert an sich ganz gut.
Leider gibts einen bösen Bug
Firefox zeigt nach den letzten änderungen (zusätzliche Subprozeduren) nur noch den Quellcode im Browser an, obwohl dieser mit einleitendem HTML Tag, wie vorher als es noch angezeigt wurde beginnt.
Im IE wird alles noch normal angezeigt?!
Allerdings gibts auch hier das Problem, dass ich oft auf neu laden klicken muss, biss es endlich mal angezeigt wird, machmal muss ich nur einmal F5 drücken, manchmal aber auch öfters, da ein Servererror zu Stande kommt (loggfile ist für mich nicht einsehbar :( )
Bitte um Hilfe, das Teil muss auch im FF laufen. Ich kann es euch leider nicht zeigen, da es auf dem eigenen Server liegt, aber vielleicht weis ja auch so jemand etwas!?
Hier mal den Anfang von dem Script, und die 2 Subprozeduren die ich vor kruzen noch eingebaut habe, dannach ging nichts mehr im FF. Das zweite ist eine Prozedur für uhrzeit u. Datum von SelfHTML. Bitte nicht so viele Codeoptimierungen, bin noch ziehmlicher Anfänger, sondern Hilfe zum eigentlichen Problem
ich habe ein Gästebuch in Perl realisiert, verknüpft mit einer mysql Datenbank. Funktioniert an sich ganz gut.
Leider gibts einen bösen Bug
Firefox zeigt nach den letzten änderungen (zusätzliche Subprozeduren) nur noch den Quellcode im Browser an, obwohl dieser mit einleitendem HTML Tag, wie vorher als es noch angezeigt wurde beginnt.
Im IE wird alles noch normal angezeigt?!
Allerdings gibts auch hier das Problem, dass ich oft auf neu laden klicken muss, biss es endlich mal angezeigt wird, machmal muss ich nur einmal F5 drücken, manchmal aber auch öfters, da ein Servererror zu Stande kommt (loggfile ist für mich nicht einsehbar :( )
Bitte um Hilfe, das Teil muss auch im FF laufen. Ich kann es euch leider nicht zeigen, da es auf dem eigenen Server liegt, aber vielleicht weis ja auch so jemand etwas!?
Hier mal den Anfang von dem Script, und die 2 Subprozeduren die ich vor kruzen noch eingebaut habe, dannach ging nichts mehr im FF. Das zweite ist eine Prozedur für uhrzeit u. Datum von SelfHTML. Bitte nicht so viele Codeoptimierungen, bin noch ziehmlicher Anfänger, sondern Hilfe zum eigentlichen Problem
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
#! /usr/bin/perl -w
use DBI;
use CGI;
if($ENV{'REQUEST_METHOD'} eq 'GET') #Abfragen ob der user eine Eingabe gemacht hat
{
&GaestebuchEintrag();
}
&htmlGaestebuch();
#====================================================#
sub GaestebuchEintrag
{
my $cgi = new CGI;
$name = $cgi->param('name');
$mail =$cgi->param('mail');
my $homepage =$cgi->param('homepage');
my $titel =$cgi->param('titel');
my $nachricht =$cgi->param('nachricht');
&dateNow();
#$datum =@dateNow[0];
#$zeit =@dateNow[1];
#$sql = qq{insert into gaestebuch (name, datum, zeit, titel, text, mail, website) values (?,?,?,?,?,?,?)};
#$sth =dbh->prepare($sql);
#$sth->execute($name, $datum, $zeit, $titel, $text, $mail, $homepage);
#$sth->finish();
}
sub dateNow
{
my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat,
$Jahr, $Wochentag, $Jahrestag, $Sommerzeit) = localtime(time);
my $CTIME_String = localtime(time);
$Monat+=1;
$Jahrestag+=1;
$Monat = $Monat < 10 ? $Monat = "0".$Monat : $Monat;
$Monatstag = $Monatstag < 10 ? $Monatstag = "0".$Monatstag : $Monatstag;
$Stunden = $Stunden < 10 ? $Stunden = "0".$Stunden : $Stunden;
$Minuten = $Minuten < 10 ? $Minuten = "0".$Minuten : $Minuten;
$Sekunden = $Sekunden < 10 ? $Sekunden = "0".$Sekunden : $Sekunden;
$Jahr+=1900;
my @Wochentage = ("Sonntag","Montag","Dienstag","Mittwoch","Donnerstag","Freitag","Samstag");
my @Monatsnamen = ("","Januar","Februar","März","April","Mai","Juni",
"Juli","August","September","Oktober","November","Dezember");
#@dateNow=(["$Monatstag. $Monatsnamen[$Monat] $Jahr<br>\n"], ["$Stunden.$Minuten Uhr<br>\n"]);
$dateNow[0]="$Monatstag. $Monatsnamen[$Monat] $Jahr<br>\n";
$dateNow[1]="$Stunden.$Minuten Uhr<br>\n";
}