Hej!
Jag håller på att fixa en gästbok med nedanstående kod som jag hittat på internet. http://www.idg.se/iworld/webbskolan/skriptskolan/cgi.asp
Men jag undrar hur man ska göra för att kunna ända bakgrunden på sidan.
Jag vill inte ha den vit, utan jag vill kunna ändra det själv.
Sen undarar jag också hur jag bestämmer hur många meddelande som får visas.
Jag klarade inte klura ut det själv...
Om det finns någon som vet någon annan bra gästbok som man kan få tag på internet gratis. Får
ni gärna höra av er. Men det är viktigt att funktionen att man kan bestämma hur många
meddelande som ska visas finns!!!
Jag har ett bra hotell med cgi rättigheter.
#!/usr/bin/perl
use CGI ":standard";
$datafil = "/var/www/www.kristianstadshop.com/wwwroot/pellefant/meadows/klotterplanket/plank.txt";
print header, start_html("Kotterplanket"), h1("Klotterplanket");
if (param) { &skriv_inlagg; }
&rita_formular;
&visa_inlagg;
sub rita_formular {
print hr, start_form;
print p, "Namn: ", textfield("namn","", 40), br;
print " E-post: ", textfield("epost", "", 40), br;
print "Meddelande: ", textarea("meddelande", "", 4, 40, 1);
print br, p, submit("", "Skicka!"), " ", reset("Rensa!");
print end_form, hr;
}
sub skriv_inlagg {
$rad{namn} = param('namn');
$rad{epost} = param('epost');
$rad{meddelande} = param('meddelande');
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
$rad{datum} = $date_time_now=sprintf("%04d-%02d-%02d %02d:%02d:%02d", 1900 + $year, ++$mon, $mday, $hour,$min, $sec);
$helaraden = $rad{datum};
foreach $faltnamn (qw(epost namn meddelande)) {
$rad{$faltnamn} =~ s/\r\n|\n/\\n/g;
$rad{$faltnamn} =~ s/\t/ /g;
$helaraden .= "\t" . $rad{$faltnamn}
}
return if $rad{meddelande} !~ /\w/;
open (DATAUT, ">> $datafil") | | die("Kan inte skriva till datafilen $datafil: $!\n");
print DATAUT "$helaraden\n";
close(DATAUT);
}
sub visa_inlagg{
open(DATAIN, "< $datafil") | | die("Kan inte öppna datafilen $datafil: $!\n");
while(<DATAIN> ) { @inlagg=<DATAIN>; }
close(DATAIN);
foreach $rad (reverse @inlagg) {
$rad =~ s/\\n/<BR>/g;
($datum, $epost, $namn, $meddelande) = split(/\t|\n/, $rad);
print qq#$datum, <A HREF="mailto:$epost">$namn</A><BR>$meddelande<center><IMG SRC=http://www.kristianstadshop.com/pellefant/meadows/meny/orange_pixel.gif BORDER=0 width=100% HEIGHT=1></center>#;
print br;
}
}
------------------
God Jul
Plutt