help help
se non mostri nemmeno una porzioncina di codice che aiuto pretendi di avere?
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\©\; 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 pensareVVoVe:
Sinceramente non ho capito cosa vuoi fare.
...altri 5 anni di purga...
vorrei fare una pagina per l'inserimento di oggetti da vendere on line una specie di subito.it la pagina html
riceve i dati inseriti nel form e poi li invia allo script in perl sopra elencato e lui costruisce una pagina in html ma dopo fatta la pagina in html come la salvo sul mio server se vuoi puoi vedere la pagina che è on line all' indirizzo www.arcobalenobeach.com/shop/pgen2.htm
vi prego aiutatemi anche dandomi informazioni su dove posso scaricare uno script che faccia questo
grazie
In altre parole hai un testo e vuoi creare il file?
Se è così vedi file_put_contents()
...altri 5 anni di purga...
scusa... ma sai dell'esistenza di FCKeditor ?
Kalton
-------------------
www.kalton.it - www.kalton.cavarzere.it
Scusa la mia ignoranza ma come faccio a inserirlo sul codice perl o sulla pagina html.
Scusa la mia ignoranza ma come faccio a inserirlo sul codice perl o sulla pagina html.
FCKeditor o no il file lo vuole sempre salvare.
...altri 5 anni di purga...
Permessi di invio
Rispondi quotando