scusate ora vi invio il codice in perl
#!/usr/bin/perl


@months=("January", "February", "March", "April", "May", "June", "July",

"August", "September", "October", "November", "December");

($sec, $min, $hour, $mday, $mon, $year) = localtime($^T);

$mon = $months[$mon];



&getInput;

&sendOutput;



sub getInput {

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;

}

}





sub sendOutput {

if ($FORM{'submit'} =~ /download/i) {

print "Content-type: download\n";

print "Content-Disposition: attachment; filename=page.html\n";

print "Content-Description: $FORM{'title'}\n\n";

} elsif($FORM{'submit'} =~ /source/i) {

print "Content-type: text/plain\n\n";

} else {

print "Content-type: text/html\n\n";

}



print("<HTML>\n<HEAD>\n");

print("\n<TITLE>");

print($FORM{'title'});

print("</TITLE>\n");

print("<META GENERATOR=\"Web Page Generator $ENV{'HTTP_REFERER'}\">");

print("<META AUTHOR=\"Kevin Meltzer kmeltz\@cris.com\">");

print("</HEAD>\n\n");

print("<BODY bgcolor=\"$FORM{'bg'}\" text=\"$FORM{'txt'}\">");



if ($FORM{'img'} eq "") {

}

elsif (!($FORM{'img'} eq "") && $FORM{'center2'} eq "") {

print("<IMG SRC=\"file:///$FORM{'img'}\">\n");

}

else {

print("<center><img src=\"file:///$FORM{'img'}\"></center>\n");

}



if ($FORM{'ximg'} eq "") {

}

elsif (!($FORM{'ximg'} eq "") && $FORM{'center2'} eq "") {

print("<IMG SRC=\"$FORM{'ximg'}\">\n");

}

else {

print("<center><img src=\"$FORM{'ximg'}\"></center>\n");

}



if ($FORM{'ximg'} eq "" && $FORM{'img'} eq "") {

print("");

}

if ($FORM{'center1'} eq "center") {

print("<CENTER><H1>$FORM{'heading1'}</H1></CENTER>\n");

}

else {

print("<H1>$FORM{'heading1'}</H1>\n");

}

print("
\n");



print("\n<HR>\n");



print("\n

$FORM{'introduction'}</P>\n");



print("\n<HR>\n");



if ($FORM{'center3'} eq "center") {

print("<CENTER><H2>$FORM{'heading2'}</H2></CENTER>\n");

}

else {

print("\n<H2>$FORM{'heading2'}</H2>\n");

}



print("\n

$FORM{'description'}</P>\n");



# print("\n<UL>\n");

# print("\t<LI><A HREF=\"$FORM{'link1'}\">");

# print("$FORM{'anchor1'}</A>\n");

# print("\t<LI><A HREF=\"$FORM{'link2'}\">");

# print("$FORM{'anchor2'}</A>\n");

# print("[/list]\n\n");



print("\n<HR>\n<FONT SIZE=\"-1\">\n");
print("Copyright\&copy\; 19$year by <a href=\"MAILTO:$FORM{'Email'}\">$FORM{'Name'}</a>");



# print("Original: $FORM{'Name'} $mday $mon 19$year
\n");

# print("Updated: $FORM{'Name'} $mday $mon 19$year
\n");
Qui io avevo messo un collegamento a una pagina in php per il salvataggio ma non so come farlo perche in questa pagina deve inviare i dati dei form

# print("Comments: <A HREF=mailto:$FORM{'Email'}>$FORM{'Email'}</A>");

print("</FONT>
\n");


print("</BODY>\n</HTML>");

}

che pensate è meglio un salvataggio in javascript non so piu che pensare VVoVe: VVoVe: VVoVe: