Könnt Ihr euch mal den Code für das Gästebuch ansehen?

Knuffel82 · 1. Februar 2006

Hallo,

so hab mich mal in Perl versucht. Könnt Ihr euch das mal ansehen und sagen was man da anderes machen könnte?

Perl Datei:

Code:

#!c:/Perl/bin/perl -w

### Aufruf des CGI-Moduls ###

use CGI qw(:standard);
use Fcntl qw(:flock);

use strict;

### Gaestebuch öffnen ###
 my $gaeste = "../htdocs/gaestebuch.html";

 open(GAESTEBUCH,"+< $gaeste")
 or die "Das Gaestebuch konnte nicht geöffnet werden !\n";

flock(GAESTEBUCH,LOCK_EX);

 ### Einlesen der Formulardaten ###

my $name = param('eingabe');
my $E_Mail = param ('E_Mail');
my $kommentar = param('kommentar');

### Eintrag ins Gaestebuch ###

my $neueintrag = <<HERE_TEXT;

<P>
$name<BR>
$E_Mail
</P>
<H4>Kommentar:</H4>
<P><i>$kommentar</i></P>

<HR>

HERE_TEXT

seek(GAESTEBUCH, -16,2);
print GAESTEBUCH "$neueintrag\nZur&uuml;ck zum <A HREF 

=\"../formular.html\">Eingabeformular.</A>\n<BODY>\n</HTML>";
close(GAESTEBUCH);

###Dankeseite ###

my $danke =<<HERE_TEXT2;
Content-type:text/html

<HTML>
<HEAD>
<TITLE>Dankeseite</TITLE>
</HEAD>
<BODY>
<H1>Hallo $name!</H1>
<H4>Danke f&uuml;r Deinen Eintrag ins Gaestebuch.</H4>


<HR>
<P>
Wenn Sie die Eintraegee im G&auml;stebuch<BR>
lesen wollen klicken Sie bitte <A 

HREF="../gaestebuch.html">hier</A>zur&uuml;ck.</P>

</BODY>
</HTML>

my $danke =<<HERE_TEXT2; 
HTTP 1.1 200 OK 
Content-type:tex

print $danke;
t/html

Hmm hier dann das Eingabeformular:

HTML:

<HTML>
<HEAD>
<TITLE> Gästebuchformular</Title>
<script language = " JavaScript">
<!--
function checkForm (form)
{
if(form["eingabe"].value =="")
{
alert ( "Bitte geben Sie Ihren Namen ein!");
return false;
}
return true;
}
//-->
</script>

</HEAD>
<Body>

<H1>Eingabeformular </H1>

<FORM METHOD ="post" action="/cgi-bin/gaestebuch.pl" on Submit ="return checkForm(this);">
<HR>
<TABLE>
<TR>
<TD> Bitte gehen Sie Ihren Namen ein:</TD>
<TD><INPUT TYPE = " text" name = "eingabe" size = "50"></TD>
</TR>
<TR>
<TD>&Uuml;ber Ihren Kommentar zur <BR>
Web-Site und konstruktive <BR>
Kritik bin ich dankbar: </TD>
<TD><TEXTAREA Type = "text" name = "kommentar" rows = " 8"
cols = "25">
</TEXTAREA></TD>
</TR>
</TABLE>

<HR>

<INPUT type = "submit" value= "Eintragen">
<INPUT type = "reset" value = "L&ouml;schen" >

<HR>

<P>
Klicken sie <A HREF="gaestebuch.html">hier</A> um die <BR>
bisherigen Eintr&auml;ge im G&auml;stebuch zu lesen.
</P>
</FORM>

Gästebuch.html

HTML:

<HTML>
<HEAD>
<TITLE>G&auml;stehbuch</TITLE>
</HEAD>
<BODY>
<H!>Eintr&auml;ge im G&auml;stebuch</H1>

Zur&uuml;ck zum <A HREF="formular.html"> Eingabeformular.</A>

<BODY>
</HTML>

Könnt Ihr euch mal den Code für das Gästebuch ansehen?

Knuffel82

Mitglied

Neue Beiträge