So what went wrong??

[mtorbin]

Here's the code:

#!/usr/bin/perl -wT

use CGI qw/:standard/;
use CGI::Cookie;

%cookies = fetch CGI::Cookie;
my $emailCookie = $cookies{'peiEmail'}->value;
my $ipCookie = $cookies{'peiIP'}->value;

my $fileName = substr $ENV{"QUERY_STRING"},9;
my $fileLoc = '

http://172.25.1.230/effTeePee/'

. $fileName;
my $timeStamp = 'TODAY';

$logEntry = $emailCookie . '|' . $ipCookie . '|' . $timeStamp . '|' . $fileName . "\n";

open (LOG, ">>ftpLog.txt");
flock (LOG, 2);
print LOG "$logEntry";
close (LOG);

Here's the error messages:

flock() on closed filehandle LOG at /var/

http://www/cgi-bin/fileDownload.cgi

print() on closed filehandle LOG at /var/

http://www/cgi-bin/fileDownload.cgi

What gives?

- MT

 

[Xaqte]

ftpLog.txt never Opened! You should put a "die" statement there and use:

    use CGI::Carp qw(fatalsToBrowser);

While testing for errors!

Whats the results now?

X

 

[mtorbin]

So I put that up at the top with the rest of the USE statements?

- MT

 

[Xaqte]

Yup, and change this:

open (LOG, ">>ftpLog.txt");

To this:

open (LOG, ">>ftpLog.txt") or die "file cannot be opened.";

 

[mtorbin]

So for my "learning experience", what does:

use CGI::Carp qw(fatalsToBrowser);

do?

- MT

 

[Xaqte]

Simply put, that sends all error messages to the browser... so you don't have to go hunt down your Apache error logs to figure what went wrong. Great for testing!

Take a look here for more information:

http://search.cpan.org/~lds/CGI.pm-3.11/CGI/Carp.pm