Thread Hilfe mit einem GB: ich brauche mit nem selbstgeproggten GB (57 answers)
Opened by Gast at 2003-08-26 18:35

Gast Gast
 2003-08-26 18:35
#1786 #1786
Hallo Leute,
ich habe eben ein sehr kleines Gastebuch geproggt mit CGI, und er mahct net genau das was er soll.
Hapern tuts beim Versuch, es in die Datei mit den Einträgen zu schreiben:
Code (perl): (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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76

open (DATEI2,  ">/homepages/18/d23090695/htdocs/eintrag.html") || die "Datei nicht gefunden!";
print DATEI2 @NeueZeilen;
close(DATEI2);

@NeueZeilen enthält ein Konstrukt der Eingaben, das dürft so auch stimmen. Aber er tut halt beim schreiben einfach nur...NICHTS! Die Datei bleibt leer.

Am besten ich geb den ganzen Quelltext des Scripts her:
#! /usr/bin/perl

use CGI;
my $cgi = new CGI;

use CGI::Carp qw(fatalsToBrowser);



my @NeuerEintrag;

push(@NeuerEintrag, "<;!-- Eintrag [".$cgi->param($username)."] -->;\n");

push(@NeuerEintrag, "<table border=\"0\" width=\"40%\"><tr>\n");

push(@NeuerEintrag, "<th>Name:</th><td>".$cgi->param($Username)."</td></tr>\n");

push(@NeuerEintrag, "<tr><td colspan=\"2\">".$cgi->param($Usertext)."</td>\n");

push(@NeuerEintrag, "</tr></table>\n");



open(DATEI, "</absoluterpfad/eintrag.html") || die "Datei nicht gefunden!";
@Zeilen = <DATEI>;

close(DATEI);



my @NeueZeilen;

my $Zeile;

foreach $Zeile (@Zeilen) {

if(/^<;!-- NEU -->;/) {

foreach(@NeuerEintrag) {

push(@NeueZeilen,$_);

}

push(@NeueZeilen,"<;!-- NEU -->;\n");

}

else {

push(@NeueZeilen,$Zeile);

}

}



open(DATEI2, ">/absoluterpfad/eintrag.html") || die "Datei nicht gefunden!";

print DATEI2 @NeueZeilen;

close(DATEI2);



print "Content type: text/html\n\n";

print "<html><head></head><body>Erfolgreich</body></html>";




Also das "ERFOLGREICH" krieg ich zu sehen, die "eintrag.html" bleibt so leer wie vorher



BITTE UM SCHNELLE ANTWORT,
MFG,
MW2000

<edit by strat>perl-tags hinzugefuegt</edit>\n\n

<!--EDIT|Strat|1061909046-->

View full thread Hilfe mit einem GB: ich brauche mit nem selbstgeproggten GB