23/06/2002, 14:01
|
| | | Fecha de Ingreso: junio-2002
Mensajes: 3
Antigüedad: 21 años, 11 meses Puntos: 0 | |
| 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
|