Unable to write the log generated inside an TPL

Hi Everyone,

I have an TPL that generates an HTML output. In that TPL as an include i have an ipl , in this ipl file am doing an read operation on an XML file ,if the file is not found i write the log for it.. My ipl code looks like this

my $debug = 1; # Set debug to 0 to stop logging
my $file ="some.xml";

open(FP,$file) or error("\nERROR: cannot find the file $file");
close(FP);

sub error
{
my ($message) = @_;
return unless $debug;
open(FILE,">>logfile.txt");
print FILE "$message\n";
close(FILE);
}

can any one please giude me...!

Thanks.

Find more posts tagged with

Comments

iw_store

Hi Everyone,

I have an TPL that generates an HTML output. In that TPL as an include i have an ipl , in this ipl file am doing an read operation on an XML file ,if the file is not found i write the log for it.. My ipl code looks like this

my $debug = 1; # Set debug to 0 to stop logging
my $file ="some.xml";
open(FP,$file) or error("\nERROR: cannot find the file $file");
close(FP);

sub error
{
my ($message) = @_;
return unless $debug;
open(FILE,">>logfile.txt");
print FILE "$message\n";
close(FILE);
}
can any one please giude me...!
Thanks.

There is one simple tutorial by Roberts "Roberts perl" for getting rid of perl. Please read that, that tutorial has demo examples also for these kind requirements.

dazzlad

what is the problem you are having exactly?

Adam Stoller

There is one simple tutorial by Roberts "Roberts perl" for getting rid of perl. Please read that, that tutorial has demo examples also for these kind requirements.

If you're talking about this - where do you interpret it as being "for getting rid of perl"??In this case, I'm with dazzlad:

what is the problem you are having exactly?

Sbardeo

Have you checked permissions on log file (RWX)? try eval block.

nipper

Hi Everyone,

I have an TPL that generates an HTML output. In that TPL as an include i have an ipl , in this ipl file am doing an read operation on an XML file ,if the file is not found i write the log for it.. My ipl code looks like this

my $debug = 1; # Set debug to 0 to stop logging
my $file ="some.xml";

open(FP,$file) or error("\nERROR: cannot find the file $file");
close(FP);

sub error
{
my ($message) = @_;
return unless $debug;
open(FILE,">>logfile.txt");
print FILE "$message\n";
close(FILE);
}

can any one please giude me...!

Thanks.

Along with everyone else without knowing what his happening it is hard to debug. However you are appending to logfile.txt which has no directory specified. When you generate the page, good luck figuring out where it is trying ot create that file. Define a hard path to that file (including a driver letter)

ISCBorisB

good luck figuring out where it is trying ot create that file.

If you do not change it yourself within code it's actually '/iwhome/httpd/iw-bin'

nipper

If you do not change it yourself within code it's actually '/iwhome/httpd/iw-bin'

ok, I was thinking the workarea or something like that. So unless he is running as admin/root he had *better* not have write access to that directory.