Schrift
Start · Board · Webprogrammierung mit Perl · Perl/CGI
[thread]23[/thread]

Hilfe mit einem GB: ich brauche mit nem selbstgeproggten GB (Seite 3)

Leser: 1


<< |< 1 2 3 4 5 6 >| >> 58 Einträge, 6 Seiten
MW2000
 2003-08-29 02:51
#1806 #1806
User since
2003-08-26
43 Artikel
BenutzerIn
[Homepage] [default_avatar]
Kannste mir den ganzen Quelltext dessen geben, das bei dir funktioniert? BITTE!
ich schaffs net!\n\n

<!--EDIT|MW2000|1062111224-->
Rächtschraibfehla sin Gratis
Strat
 2003-08-29 02:57
#1807 #1807
User since
2003-08-04
5246 Artikel
ModeratorIn
[Homepage] [default_avatar]
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
62
63
#! /usr/bin/perl

use CGI;
use warnings;
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" );

my @Zeilen;
open( DATEI, "</homepages/18/d23090695/htdocs/eintrag.html" ) || die "Datei nicht gefunden!";
@Zeilen = <DATEI>;

close(DATEI);

my @NeueZeilen;

my $Zeile;

foreach $Zeile (@Zeilen) {

    if ( $Zeile =~ /^<\!\-\- NEU \-\->$/ ) {

        foreach (@NeuerEintrag) {

            push ( @NeueZeilen, $_ );

        }

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

    }

    else {

        push ( @NeueZeilen, $Zeile );

    }

}

open( DATEI2, ">/homepages/18/d23090695/htdocs/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>";
\n\n

<!--EDIT|Strat|1062111451-->
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
Strat
 2003-08-29 03:02
#1808 #1808
User since
2003-08-04
5246 Artikel
ModeratorIn
[Homepage] [default_avatar]
Ich habe es mal ein klein wenig umgeschrieben. Wie gefaellt es dir so?
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
#! /usr/bin/perl

use CGI;
use warnings;
my $cgi = new CGI;

use CGI::Carp qw(fatalsToBrowser);

my $GaestebuchDatei = "/homepages/18/d23090695/htdocs/eintrag.html";

my @NeuerEintrag = 
    (
     "<!-- Eintrag [" . $cgi->param(Username) . "] -->\n",
     "<table border=\"0\" width=\"40%\"><tr>\n",
     "<th>Name:</th><td>" . $cgi->param(Username) . "</td></tr>\n",
     "<tr><td colspan=\"2\">" . $cgi->param(Usertext) . "</td>\n",
     "</tr></table>\n",
     );

open( DATEI, $GaestebuchDatei ) or die "Datei nicht gefunden!";
my @Zeilen = <DATEI>;
close(DATEI);

my @NeueZeilen;

foreach my $Zeile (@Zeilen) {

    if ( $Zeile =~ /^<\!\-\- NEU \-\->$/ ) {
        push (@NeueZeilen, @NeuerEintrag, "<!-- NEU -->\n" );
    }
    else {
        push ( @NeueZeilen, $Zeile );
    }

}

open( DATEI2, ">$GaestebuchDatei" ) or die "Datei nicht gefunden!";
print DATEI2 @NeueZeilen;
close(DATEI2);

print "Content type: text/html\n\n";
print "<html><head></head><body>Erfolgreich</body></html>";
\n\n

<!--EDIT|Strat|1062111758-->
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
MW2000
 2003-08-29 03:03
#1809 #1809
User since
2003-08-26
43 Artikel
BenutzerIn
[Homepage] [default_avatar]
warum geht das net?
also meine eintrag.html sieht so aus:

Code: (dl )
1
2
3
4
5
6
7
8
9
<HTML>
<head>
</head>
<body>
<!-- NEU -->



</HTML>
Rächtschraibfehla sin Gratis
Strat
 2003-08-29 03:07
#1810 #1810
User since
2003-08-04
5246 Artikel
ModeratorIn
[Homepage] [default_avatar]
Was funktioniert nicht? wird nichts in die Datei geschrieben? Kommt eine Fehlermeldung?
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
MW2000
 2003-08-29 03:10
#1811 #1811
User since
2003-08-26
43 Artikel
BenutzerIn
[Homepage] [default_avatar]
Es kommt nur das "Erfolgreich", aber in der Datei steht nix!
Das steht aber mit CHMOD auf rwe-rw--rw-
Rächtschraibfehla sin Gratis
Strat
 2003-08-29 03:21
#1812 #1812
User since
2003-08-04
5246 Artikel
ModeratorIn
[Homepage] [default_avatar]
[quote=MW2000,29.08.2003, 01:10]Es kommt nur das "Erfolgreich", aber in der Datei steht nix!
Das steht aber mit CHMOD auf rwe-rw--rw-[/quote]
Hast du die Datei eintrag.html unter Windows erstellt und binaer hochgeladen? wenn ja, dann lade sie nochmal im text-modus hoch, oder versuche
Code: (dl )
   if ( $Zeile =~ /^<\!\-\- NEU \-\->\r?$/ ) {

\r? zusaetzlich
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
MW2000
 2003-08-29 03:26
#1813 #1813
User since
2003-08-26
43 Artikel
BenutzerIn
[Homepage] [default_avatar]
Jetzt hab ichs im ASCII-Modus hochgeladen und es funktioniert!!!
VIELEN DANK AN ALLE DIE VERSUCHT HABEN ZU HELFEN UND BESONDEREN DANK AN DEN SUPER STRAT, DER ES DANN GESCHAFT HAT.

Werde es jetzt noch optimieren und es dann mal zur schau stellen irgendwann ;)

DANKE,

MFG,
MW2000
Rächtschraibfehla sin Gratis
Strat
 2003-08-29 03:32
#1814 #1814
User since
2003-08-04
5246 Artikel
ModeratorIn
[Homepage] [default_avatar]
Gern geschehen; war auch ein schwer zu findender Fehler.

Damit da keiner was boeses mit der Formatierung deines Gaestebuchs anstellen kann, koenntest du vielleicht noch
Code: (dl )
1
2
3
4
5
6
7
8
my @NeuerEintrag = 
   (
    "<!-- Eintrag [" . &CGI::escapeHTML($cgi->param(Username)) . "] -->\n",
    "<table border=\"0\" width=\"40%\"><tr>\n",
    "<th>Name:</th><td>" . &CGI::escapeHTML($cgi->param(Username)) . "</td></tr>\n",
    "<tr><td colspan=\"2\">" . &CGI::escapeHTML($cgi->param(Usertext)) . "</td>\n",
    "</tr></table>\n",
    );

schreiben. Das escapeHTML ersetzt Zeichen wie < " & ... durch die entsprechenden HTML-Zeichen (&lt; &quot; &amp;, ...). Damit verhinderst du, dass z.B. der Username </table> schlimme folgen hat...\n\n

<!--EDIT|Strat|1062113600-->
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
MW2000
 2003-08-29 19:20
#1815 #1815
User since
2003-08-26
43 Artikel
BenutzerIn
[Homepage] [default_avatar]
Brauche nochma bitte Hilfe.
Es läuft zwar so wies ist, aber ihr wisst ja, ist noch net perfekt. Deshalb will ich z.B. net, das Felder leer sein dürfen.
Versucht habe ich das so:
Code: (dl )
1
2
3
4
5
if (Username ne "" && Usermail ne "" && Usertext ne "") {

# Hier alles was er machen soll, wenn keins der felder leer #ist...

}


Funzt aber net, er macht das in den Klammern auch wenns leer ist...
Rächtschraibfehla sin Gratis
<< |< 1 2 3 4 5 6 >| >> 58 Einträge, 6 Seiten



View all threads created 2003-08-26 18:35.