Foros del web, para los que viven de bits

uniyo · 23-jun-2002, 14:01

Hola, estaba poniendo un cgi para que los usuarios puedan cargar fotos desde mi pagina, pero sale un error: 500 Internal Server Error.
En el archivo "error_log" aparece el mensaje: Premature end of script headers

Pueden decirme que esta mal?. el cgi es el siguiente:

#!/usr/bin/perl -w
use CGI;
$upload_dir = "/home/mywebsite/htdocs/upload";
$query = new CGI;
$filename = $query->param("photo"); $email_address = $query->param("email_address"); $filename =~ s/.*[\/\\](.*)/$1/; $upload_filehandle = $query->upload("photo");
open UPLOADFILE, ">$upload_dir/$filename";
while ( <$upload_filehandle> ) { print UPLOADFILE; }
close UPLOADFILE;
print $query->header ( ); print <<END_HTML;
<HTML> <HEAD> <TITLE>Thanks!</TITLE> </HEAD>
<BODY>
Thanks for uploading your photo! Your email address: $email_address Your photo: <img src="/upload/$filename" border="0">
</BODY> </HTML>
END_HTML;

Gracias

MMontes · 24-jun-2002, 15:11

la última línea esta mal.

si pones print <<BLA;

imprime el texto hasta que encuentra una linea que diga pura, única y exclusivamente "BLA". Y en la última línea dice "BLA;".

tenes que ponerlo asi:

Código:

&lt;/body&gt;&lt;/html&gt;
END_HTML
;

uniyo · 24-jun-2002, 23:20

Bueno amigo, hice lo que dijiste, pero aun no funciona. El cgi quedo asi:

chmod 755 upload.cgi
#!/usr/bin/perl -w
use CGI;
$upload_dir = "/home/mywebsite/htdocs/upload";
$query = new CGI;
$filename = $query->param("photo"); $email_address = $query->param("email_address"); $filename =~ s/.*[\/\\](.*)/$1/; $upload_filehandle = $query->upload("photo");
open UPLOADFILE, ">$upload_dir/$filename";
while ( <$upload_filehandle> ) { print UPLOADFILE; }
close UPLOADFILE;
print $query->header ( ); print <<END_HTML;
<HTML> <HEAD> <TITLE>Thanks!</TITLE> </HEAD>
<BODY>
Thanks for uploading your photo! Your email address: $email_address Your photo: <img src="/upload/$filename" border="0">
</BODY> </HTML>
END_HTML
;

Yo supongo que el error es del cgi, por el mensaje: Premature end of script headers: /usr/local/psa/home/vhosts/mydomain.com/cgi-bin/upload.cgi

Gracias por tu interes MMontes, el cgi lo saque de http://www.webmasterbase.com/article.php?pid=0&aid=474 , tal vez si le das una ojeada ves que esta mal

Ahi nos vemos
Enrique

MMontes · 25-jun-2002, 00:04

Código:

#!/usr/bin/perl -w
use CGI;
$upload_dir = &quot;/home/mywebsite/htdocs/upload&quot;;
$query = new CGI;
$filename = $query-&gt;param(&quot;photo&quot;); $email_address = $query-&gt;param(&quot;email_address&quot;); $filename =~ s/.*[\/\\](.*)/$1/; $upload_filehandle = $query-&gt;param  (&quot;photo&quot;);
open UPLOADFILE, &quot;&gt;$upload_dir/$filename&quot;;
while ( &lt;$upload_filehandle&gt; ) { print UPLOADFILE; }
close UPLOADFILE;
print $query-&gt;header ( ); print &lt;&lt;END_HTML;
&lt;HTML&gt; &lt;HEAD&gt; &lt;TITLE&gt;Thanks!&lt;/TITLE&gt; &lt;/HEAD&gt;
&lt;BODY&gt;
&lt;P&gt;Thanks for uploading your photo!&lt;/P&gt; &lt;P&gt;Your email address: $email_address&lt;/P&gt; &lt;P&gt;Your photo:&lt;/P&gt; &lt;img src=&quot;/upload/$filename&quot; border=&quot;0&quot;&gt;
&lt;/BODY&gt; &lt;/HTML&gt;
END_HTML
;

no existe el metodo upload en el package CGI, no se de donde lo sacaron. Además, el param si es un archivo el parametro no es solo los datos sino un filehandle.

Deja bastante que desear el script, te recomendaría que busques alguno mejor, o -mejor aún- que te hagas uno a tu medida ;)

23-jun-2002, 14:01	#1 (permalink)
uniyo Fecha de Ingreso: noviembre-2002 Mensajes: 3	500 Internal Server Error Hola, estaba poniendo un cgi para que los usuarios puedan cargar fotos desde mi pagina, pero sale un error: 500 Internal Server Error. En el archivo "error_log" aparece el mensaje: Premature end of script headers Pueden decirme que esta mal?. el cgi es el siguiente: #!/usr/bin/perl -w use CGI; $upload_dir = "/home/mywebsite/htdocs/upload"; $query = new CGI; $filename = $query->param("photo"); $email_address = $query->param("email_address"); $filename =~ s/.[\/\\](.)/$1/; $upload_filehandle = $query->upload("photo"); open UPLOADFILE, ">$upload_dir/$filename"; while ( <$upload_filehandle> ) { print UPLOADFILE; } close UPLOADFILE; print $query->header ( ); print <<END_HTML; <HTML> <HEAD> <TITLE>Thanks!</TITLE> </HEAD> <BODY> <P>Thanks for uploading your photo!</P> <P>Your email address: $email_address</P> <P>Your photo:</P> <img src="/upload/$filename" border="0"> </BODY> </HTML> END_HTML; Gracias

24-jun-2002, 15:11	#2 (permalink)
MMontes Fecha de Ingreso: noviembre-2002 Mensajes: 415	Re: 500 Internal Server Error la última línea esta mal. si pones print <<BLA; imprime el texto hasta que encuentra una linea que diga pura, única y exclusivamente "BLA". Y en la última línea dice "BLA;". tenes que ponerlo asi: Código: </body></html> END_HTML ;

24-jun-2002, 23:20	#3 (permalink)
uniyo Fecha de Ingreso: noviembre-2002 Mensajes: 3	Re: 500 Internal Server Error Bueno amigo, hice lo que dijiste, pero aun no funciona. El cgi quedo asi: chmod 755 upload.cgi #!/usr/bin/perl -w use CGI; $upload_dir = "/home/mywebsite/htdocs/upload"; $query = new CGI; $filename = $query->param("photo"); $email_address = $query->param("email_address"); $filename =~ s/.[\/\\](.)/$1/; $upload_filehandle = $query->upload("photo"); open UPLOADFILE, ">$upload_dir/$filename"; while ( <$upload_filehandle> ) { print UPLOADFILE; } close UPLOADFILE; print $query->header ( ); print <<END_HTML; <HTML> <HEAD> <TITLE>Thanks!</TITLE> </HEAD> <BODY> <P>Thanks for uploading your photo!</P> <P>Your email address: $email_address</P> <P>Your photo:</P> <img src="/upload/$filename" border="0"> </BODY> </HTML> END_HTML ; Yo supongo que el error es del cgi, por el mensaje: Premature end of script headers: /usr/local/psa/home/vhosts/mydomain.com/cgi-bin/upload.cgi Gracias por tu interes MMontes, el cgi lo saque de http://www.webmasterbase.com/article.php?pid=0&aid=474 , tal vez si le das una ojeada ves que esta mal Ahi nos vemos Enrique

Herramientas
Mostrar Versión Imprimible Enviar por Correo
Desplegado
Mode Lineal Cambiar a Modo Hibrido Cambiar a Modo Hilado