24/06/2002, 23:20
|
| | | Fecha de Ingreso: junio-2002
Mensajes: 3
Antigüedad: 22 años, 5 meses Puntos: 0 | |
| 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
|