HOME       >>       Programming

Little Help Regarding Cgi....


Hello all,, I keep getting the error message :"Can't find string terminator "END_HTML" anywhere before EOF at upload.cgi line 53" and I am at my wits end trying to fix this one.

Here is the script - if anyone has any suggestions post them at me, I'll try just about anything right now. Thanks

#!/usr/bin/perl -wTuse strict;use CGI;use CGI::Carp qw ( fatalsToBrowser );use File::Basename;$CGI:OST_MAX = 1024 * 5000;my $safe_filename_characters = "a-zA-Z0-9_.-";my $upload_dir = "http://forums.xisto.com/no_longer_exists/ $query = new CGI;my $name = $query->param("name");my $location = $query->param("location");my $email = $query->param("email");my $photolocation = $query->param("photolocation");my $filename = $query->param("uploadfile");if ( !$filename ){print $query->header ( );print "There was a problem uploading your photo (try a smallerfile).";exit;}my ( $name, $path, $extension ) = fileparse ( $filename, '\..*' );$filename = $name . $extension;$filename =~ tr/ /_/;$filename =~ s/[^$safe_filename_characters]//g;if ( $filename =~ /^([$safe_filename_characters]+)$/ ){$filename = $1;}else{die "Filename contains invalid characters";}my $upload_filehandle = $query->upload("uploadfile");open ( UPLOADFILE, ">$upload_dir/$filename" ) or die "$!";binmode UPLOADFILE;while ( <$upload_filehandle> ){print UPLOADFILE;}close UPLOADFILE;print $query->header ( );print <<END_HTML;<html><head><meta http-equiv="Content-Type" content="text/html; charset=utf-8"/><title>Thanks!</title></head><body><p>Thanks for uploading your photo!</p><p>Your email address: $email</p><p>Your photo:</p><p><img src="http://forums.xisto.com/no_longer_exists/; border="0"></p></body>END_HTML;


Xisto.com offers Free Web Hosting to its Members for their participation in this Community. We moderate all content posted here but we cannot warrant full correctness of all content. While using this site, you agree to have read and accepted our terms of use, cookie and privacy policy. Copyright 2001-2019 by Xisto Corporation. All Rights Reserved.