gæstebog
Hvad er der galt her, den sætter ikke tingene ind på den pågældende side!#!/usr/bin/perl
# std gæstebog
############### Overordnede variabler ####################
# Relatv sti fra script til gbog.pl skal kun ændres, hvis du flytter gbog.pl eller gbog.html
$gbog = \"diskoteker.htm\";
# URL til takke side - hvis den eftlades uændret stilles skribenter tilbage til gæstebogen ...
$takkeside = \"diskoteker.htm\";
############### Kald af Subrutiner ####################
&RYD_OP;
&SKRIV;
&TAK;
########### Modtag sorter og check input #################
sub RYD_OP {
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;
$FORM{$name} = $value; #Efter denne linje er $FORM{\'feltnavn\'} = indtastet værdi i feltet \"feltnavn\"
}
# Gør indkomne data nemmere at arbejde med
$overskrift = \"$FORM{\'overskrift\'}\" ;
$email = \"$FORM{\'email\'}\" ;
$navn = \"$FORM{\'navn\'}\" ;
$tekst = \"$FORM{\'tekst\'}\" ;
# check af eventuel email adresse
if ($email) {
unless($FORM{\'email\'} =~ /^[^\\@]+\\@(\\[?)[a-zA-Z0-9\\-\\.]+\\.([a-zA-Z]{2,3}|[0-9]{1,3})(\\]?)$/) {
print (\"Content-type: text/html\\n\\n\");
print \"Fejl i email adresse. Prøv igen<BR><BR>Brug browserens tilbageknap ...\";
exit;
}
}
# Drab på html-koder og tegn, der kan forstyrre gbog.pl
$tekst =~ s/\\\"/\\\"\\;/g;
$tekst =~ s/\\\'/\\&\\#39/g;
$tekst =~ s/\\[/\\<\\;/g;
$tekst =~ s/\\]/\\>\\;/g;
$tekst =~ s/\\n/<br>/g;
# checker om de tre krævede felter er udfyldt
if ((!$overskrift) || (!$navn) || (!$tekst)) {
&MANGLER_INDTASTNING;
}
}
############### Skriv nyt indlæg i $gbog ##################
sub SKRIV {
open (GL_BOG, \"$gbog\") ;
@indhold = <GL_BOG>;
close(GL_BOG);
$kontrol = \"Q\" ;
open (NY_BOG, \">$gbog\") || &FEJL;
foreach $linje (@indhold) {
if ($linje =~ /<!-- nyt indlæg -->/){
print NY_BOG \"<!-- nyt indlæg -->\\n\";
print NY_BOG \"<h4>$overskrift<br><br></h4>\\n\";
if ($email){
print NY_BOG \"<A href=\\\"mailto:$email\\\">$navn</A>\' diskoteks forslag er: <br><br>\\n\";
}
else {
print NY_BOG \"$navn \' diskoteks forslag er: <br><br>\\n\";
}
print NY_BOG \"$tekst<br><hr noshade>\\n\";
}
else {
print NY_BOG \"$linje\";
}
}
close(NY_BOG);
}
################ Send bruger til $takkeside ###############
sub TAK {
print \"Location: $takkeside\\n\\n\";
}
######### Fejlmeddelelse ved forkert indtastning ##########
sub MANGLER_INDTASTNING {
print (\"Content-type: text/html\\n\\n\");
print \"<BR><BR>\";
print \"Du mangler at udfylde et eller flere af følgende felter:<br>\";
print \"diskoteks navn, navn eller Vurdering<BR><BR>\";
print \" - klik på browserens \'tilbage\'-knap og prøv igen\";
exit;
}
################ Generel fejl-meddelelse ##################
sub FEJL {
print (\"Content-type: text/html\\n\\n\");
print \"Fejl - desværre ... Prøv tilbage knappen ! <br>Hvis denne fejl fortsætter kontakt mig venligst på <a href=mailto:mnv@sol.dk>mnv@sol.dk</a>.\";
exit;
}
