500 Internal Server Error

uniyo · #1 (**permalink**) 23/06/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 · #2 (**permalink**) 24/06/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 · #3 (**permalink**) 24/06/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 · #4 (**permalink**) 25/06/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 ;)