CODEWITHSUNDEEP
perl
hopup
hopup

Reputation: 73

Concerning the open() function... file does not exist

I want to upload a file (picture) to a webserver.

Here is a snippet of my code, when a button is clicked to upload a file this code should be run. It runs fine until the line open ( UPLOADFILE, ">", "$upload_dir/$filename" ) or die "$!"; but then the server returns an error saying "no such file or directory" I've set my permissions properly, open() just isn't creating a file I guess; any help greatly appreciated.

EDIT: I reverted back to this, when the debug line is uncommented i get the malformed header from script. Bad header=/srv/www/vhosts/nimml-dev.vbi.: mausdb.cgi

otherwise i get:No such file or directory at lib_view.pl line 1025.

################################################################
# upload photo if requested
if (defined(param('job')) && param('job') eq "Upload File") {
use File::Basename; #for use of fileparse()


$CGI::POST_MAX = 1024 * 100000; #max size it 10MB

my $safe_filename_characters = "a-zA-Z0-9_.-";
my $upload_dir = $global_var_href->{'URL_htdoc_basedir'} . "/jel_uploads";
my $filename = param("jel_photo");
my $query = new CGI;



if ( !$filename )
    {
    die "Photo too large to upload.";
    }

my ( $name, $path, $extension ) = fileparse( $filename, '\..*');
$filename = $mouse_id . '_' . $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("jel_photo");
#use Cwd; use Data::Dumper; { local $Data::Dumper::Useqq = 1; print(Dumper("$upload_dir/$filename")); print(getcwd(), "\n"); }
open ( OUTFILE, ">$upload_dir/$filename" ) or die "$!"; binmode OUTFILE;
    while (<$upload_filehandle> ) {print OUTFILE; } close OUTFILE;

}

Upvotes: 1

Views: 1195

Answers (1)

JRFerguson
JRFerguson

Reputation: 7526

Add the reason for the open failure to your message:

open (UPLOADFILE, ">", "$upload_dir/$filename") or die "Can't open '$upload_dir/$filename': $!\n";

Upvotes: 1

Related Questions