Aggiornamento pagina HTML - ancora problemi

cesaripa · #1 (**permalink**) 25-02-2003, 16.37.17

Ho trovato uno script perl che permette di aggiornare una pagina .html tramite un form, ma purtroppo qualcosa non funziona:

* Ho salvato i file "pgen.pl" e "pgen2.htm" nella mia cartella public_html
* Ho cambiato i permessi a "pgen.pl" (755)
* Nel form in "pgen2.htm" ACTION punta su "http:/www.cesaripaolo.it/pgen.pl"
* Compilando il form dovrebbe crearsi una pagina "page.html"
* Invece dopo aver compilato il tutto ricevo una risposta di errore dal server

Se volete scaricare un file .zip con tutto il contenuto dello script andate all'indirizzo http://cgipoint.html.it/zip/editorhtml/9pgen.zip

Ringrazio fin da ora per l'aiuto..

serverplan · #2 (**permalink**) 25-02-2003, 16.51.42

Ciao,
che errore ti restituisce il server?

cesaripa · #3 (**permalink**) 01-03-2003, 17.15.48

L'errore che mi viene visualizzato ? il seguente:

Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.
Please contact the server administrator, webmaster@cesaripaolo.it and inform them of the time the error occurred, and anything you might have done that may have caused the error.
More information about this error may be available in the server error log.
Additionally, a 404 Not Found error was encountered while trying to use an ErrorDocument to handle the request.

Comunque basta digitare www.cesaripaolo.it/pgen2.htm completando poi i campi del form per ricevere il messaggio d'errore...

Grazie per la collaborazione..attendo suggerimenti!

serverplan · #4 (**permalink**) 01-03-2003, 17.31.58

Il problema sembra essere un permesso sbagliato del file perl, controlla se ha 755 e invialo in Ascii...
Il file perl necessita di essere configurato? Perch? molte volte pu? capitare che cancelli qualche linea di codice e il file non va pi?

Ciao

cesaripa · #5 (**permalink**) 04-03-2003, 16.41.27

ecco qui il file in questione...spero si capisca qualcosa...l'avevo settato 755, ma senza alcun risultato...il form a cui fa riferimento ? visualizzabile all'indirizzo http://www.cesaripaolo.it/pgen2.htm
Grazie per la collaborazione!

#!/usr/bin/perl

# Copyright 1997, Kevin Meltzer, All rights Reserved
# Feel free to use and modify this script as long as
# these comments remain. Let me know of any changes
# and/or ideas for changes. Have fun!!
# kmeltz@cris.com | www.cris.com/~kmeltz

@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");
# print("Comments: <A HREF=mailto:$FORM{'Email'}>$FORM{'Email'}</A>");
print("</FONT>
\n");
print("</BODY>\n</HTML>");
}

serverplan · #6 (**permalink**) 04-03-2003, 16.43.36

Ciao,
si il codice che hai postato puo? andare anche bene ma se non ho il file originale non posso dirti cosa hai sbagliato se magari mi posti l'url dove hai preso lo script a tempo perso vedo di darci un occhiata.

Bye

cesaripa · #7 (**permalink**) 04-03-2003, 16.51.20

Mi faresti un gran favore... ecco l'indirizzo...
http://cgipoint.html.it/zip/editorhtml/9pgen.zip

Se per caso dovessi avere una soluzione migliore/alternativa potrebbe andar bene lo stesso... Grazie ancora!

serverplan · #8 (**permalink**) 04-03-2003, 16.52.35

Ok, appena mi libero un po vedo di darci uno sguardo!

Ciaoo

serverplan · #9 (**permalink**) 06-03-2003, 09.36.27

Scusami per il ritardo, ho installato lo script e funziona regolarmente non devi configurare nulla:

1) invia il file .pl in ascii nella tua cartella cgi-bin
2) dai i permessi 755 sul file perl
3) configura il modulo htm alla sezione form action con il percorso del file perl e invialo sul server

Questo ? lo script funzionante: http://www.serverplan.com/pgen2.htm

Fammi sapere se hai ancora problemi

Ciao :wink:

Strumenti discussione
Visualizza versione stampabile Invia questa pagina via e-mail
Modalità visualizzazione
Modalità lineare Modalità ibrida Modalità elencata

Discussioni simili
Discussione	Autore discussione	Forum	Risposte	Ultimo messaggio
Ancora una domanda - SVN repository	grgmeda	Quesiti pre-acquisto	1	28-10-2005 23.10.46
ancora XML DOM	f.style	Pannello di controllo Cpanel - Linux	6	25-04-2004 19.23.43
Attivazione e Registrazione.. quanto ci vuole ancora ?	darkinlight	Registrare / Trasferire un dominio	3	05-03-2004 16.14.31
Ancora una volta complimenti..	ganzmax	Cosa dicono di noi...	2	17-05-2003 12.34.21
Aggiornamento pagina HTML	cesaripa	CGI - PERL - SCRIPT	1	19-02-2003 21.16.59