Sono proprio un neofita e dopo aver letto tutti i messaggi e i faq che potevano riguardare il mio caso non ci ho capito nulla.Prego per un aiuto. Dunque ho salvato due file in htpp://robertogessi.tripod.com/guestbook.html e htpp://robertogessi.tripod.com/guestbook-view.html
e altri due file, che allego nella cartella htpp://robertogessi.tripod.com/cgi-bin/get_form_data.pl e htpp://robertogessi.tripod.com/cgi-bin/guestbook-save.cgi
Questi ultimi due hanno l'attributo drwxr-xr-x, mentre i primi due -rw-r-r- (non chiedermi cosa vuol dire)
Fatto sta che il tutto si ferma in una pagina bianca dal titolo htpp://robertogessi.tripod.com/cgi-bin/guestbook-save.cgi
Cosa sto sbagliando? Grazie anticipatamente
#!/usr/local/bin/perl
sub get_form_data
{
#Ottiene l'imput
read(STDIN,$buffer,$ENV{ 'CONTENT_LENGTH' } );
#Divide le coppie Nome-Valore
@pairs=split(/&/, $buffer);
foreach $pair(@pairs)
{
($name,$value)=split(/=/,$pair);
#Trasforma segni + e codifica-%
$value -= tr/+/ /;
$value -= s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$value -= s///g;
if($FORM{$name} ne "")
{
$FORM{name} .= "; $value";
}
else
{
$FORM{$name} = $value;
}
}
}
--------------------------------------------------------------
#!/usr/local/bin/perl
#Pag.55
require "get_form_data.pl";
&get_form_data;
print"Content-type: text/html\n\n";
open(GUESTBOOK_IN, "./guestbook-view.html");
while(<GUESTBOOK_IN>)
{
push(@guestbook, $_);
}
close(GUESTBOOK_IN);
open(GUESTBOOK_OUT, ">./guestbook-view.html");
$entry="";
foreach $line(@guestbook)
{
if($line ne "\n")
{
print GUESTBOOK_OUT $line;
}else
{
print GUESTBOOK_OUT $line;
$entry .="\n\n";
$entry .="Name: $FORM{'NAME'} <<A 23.HREF=\"mailto:$FORM('EMAIL'}\">$FORM{'EMAIL'}</A>>\n";
$entry .="
\n";
$entry .="Company: $FORM{'COMPANY'}\n";
$entry .="
\n";
$entry .="Comments:\n";
$entry .="
\n";
$FORM{'COMMENTS'} -= s/\s/\n
/;
$entry .=$FORM{'COMMENTS'};
$entry .="\n\n<HR>\n";
print GUESTBOOK_OUT $entry;
}
}
close(GUETBOOK_OUT);
open(GUESTBOOK, "./guestbook-view.html");
while(<GUESTBOOK>)
{
print $_;
}
close(GUESTBOOK);
exit;
Rispondi quotando
