perl-cgi

[opengates]

Non conosco la mia path su tripod, posso provare per tentativi, a meno che tu non mi dia qualche dritta per saperla.
Sulla loro lettera di conferma non ce n'è traccia, mi danno solo genericamente un indirizzo per help in generale: http://help.lycos.com/faq.php?categoryid=2
Intanto provo, ciao, grazie, Roberto.

[opengates]

Facendo altre prove ho ottenuto il seguente messaggio:
Use of uninitialized value in transliteration (tr///) at get_form_data.pl line 14.
Argument "Roberto" isn't numeric in subtraction (-) at get_form_data.pl line 14.
Use of uninitialized value in substitution (s///) at get_form_data.pl line 15.
Use of uninitialized value in substitution (s///) at get_form_data.pl line 16.
Use of uninitialized value in string ne at get_form_data.pl line 18.
Use of uninitialized value in transliteration (tr///) at get_form_data.pl line 14.
Argument "yorel@libero.it" isn't numeric in subtraction (-) at get_form_data.pl line 14.
Use of uninitialized value in substitution (s///) at get_form_data.pl line 15.
Use of uninitialized value in substitution (s///) at get_form_data.pl line 16.
Use of uninitialized value in string ne at get_form_data.pl line 18.
Use of uninitialized value in transliteration (tr///) at get_form_data.pl line 14.
Argument "Open+Gate+Service" isn't numeric in subtraction (-) at get_form_data.pl line 14.
Use of uninitialized value in substitution (s///) at get_form_data.pl line 15.
Use of uninitialized value in substitution (s///) at get_form_data.pl line 16.
Use of uninitialized value in string ne at get_form_data.pl line 18.
Use of uninitialized value in transliteration (tr///) at get_form_data.pl line 14.
Argument "siamo+i+primi." isn't numeric in subtraction (-) at get_form_data.pl line 14.
Use of uninitialized value in substitution (s///) at get_form_data.pl line 15.
Use of uninitialized value in substitution (s///) at get_form_data.pl line 16.
Use of uninitialized value in string ne at get_form_data.pl line 18.
get_form_data.pl did not return a true value at guestbook-save.cgi line 3.


Quindi che ci sia qualche errore di sintassi anche sul get_form_data.pl, che ne dici?
Ciao, Roberto.

[shishii]

Originariamente inviato da opengates
Facendo altre prove ho ottenuto il seguente messaggio:
Use of uninitialized value in transliteration (tr///) at get_form_data.pl line 14.
Argument "Roberto" isn't numeric in subtraction (-) at get_form_data.pl line 14.
Use of uninitialized value in substitution (s///) at get_form_data.pl line 15.
Use of uninitialized value in substitution (s///) at get_form_data.pl line 16.
Use of uninitialized value in string ne at get_form_data.pl line 18.
Use of uninitialized value in transliteration (tr///) at get_form_data.pl line 14.
Argument "yorel@libero.it" isn't numeric in subtraction (-) at get_form_data.pl line 14.
Use of uninitialized value in substitution (s///) at get_form_data.pl line 15.
Use of uninitialized value in substitution (s///) at get_form_data.pl line 16.
Use of uninitialized value in string ne at get_form_data.pl line 18.
Use of uninitialized value in transliteration (tr///) at get_form_data.pl line 14.
Argument "Open+Gate+Service" isn't numeric in subtraction (-) at get_form_data.pl line 14.
Use of uninitialized value in substitution (s///) at get_form_data.pl line 15.
Use of uninitialized value in substitution (s///) at get_form_data.pl line 16.
Use of uninitialized value in string ne at get_form_data.pl line 18.
Use of uninitialized value in transliteration (tr///) at get_form_data.pl line 14.
Argument "siamo+i+primi." isn't numeric in subtraction (-) at get_form_data.pl line 14.
Use of uninitialized value in substitution (s///) at get_form_data.pl line 15.
Use of uninitialized value in substitution (s///) at get_form_data.pl line 16.
Use of uninitialized value in string ne at get_form_data.pl line 18.

questi appaiono dei warning, indice di cattiva programmazione, ma non decisivi.

get_form_data.pl did not return a true value at guestbook-save.cgi line 3.


Quindi che ci sia qualche errore di sintassi anche sul get_form_data.pl, che ne dici?
Ciao, Roberto.

Queto è un errore vero. Per ovviare inserisci alla fine di get_form_data.pl, in una nuova riga vuota e completamente appoggiato a sinistra:
1;

così dovrebbe funzionare, e mi pare che ora il path è ok.

[opengates]

Si quell'1; l'avevo messo poi tolto ma anche rimettendolo la pagina mi si ferma sempre sul titolo della cgi e il contenuto della view originale; ora la situazione è questa: nella home ho guestbook.html e guestbook-view.html, gli stessi due file li ho anche nella sottocartella cgi-bin assieme get_form_data.pl e a guestbook-save.cgi: te li rimetto tutti di seguito qui per vedere se riesci a trovarmi qualche errore fatale (io parto sempre dal guestbook.html che sta nella cartella originale e che poi corrisponde a http://robertogessi.tripod.com/guestbook.html, mentre quello che vedo alla fine è il guestbook-view.html che sta nella cartella cgi-bin. ossia http://robertogessi.tripod.com/cgi-b...ook-view.html, ma non modificato ):

<HTML>
<HEAD>
<TITLE>
Guestbook</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<H2>A Simple Guestbook</H2>
<FORM ACTION="/cgi-bin/guestbook-save.cgi" METHOD="POST">
Name:
<INPUT TYPE="text" NAME="NAME">


E-mail Address:


<INPUT TYPE="text" NAME="EMAIL">


Company:


<INPUT TYPE="text" NAME="COMPANY">


Comments:


<TEXTAREA NAME="COMMENTS" ROWS="4" COLS="50" WRAP="virtual">
</TEXTAREA>


<INPUT TYPE="SUBMIT" VALUE="Submit">
<INPUT TYPE="RESET" VALUE="Clear">
</FORM>
</BODY>
</HTML>
----------------------------------------------------------------
<HTML>
<HEAD>
<TITLE>
My Guestbook
</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF">

<H2>What other have to say...</H2>





Back to the guestbook
</BODY>
</HTML>
----------------------------------------------------------------------
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;
}
}
}
1;

----------------------------------------------------------------------------
#!/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(GUESTBOOK_OUT);
open(GUESTBOOK, "./guestbook-view.html");
while(<GUESTBOOK>)
{
print $_;
}
close(GUESTBOOK);
exit;

-----------------------------------------------------------------------

Ciao, Roberto.