Hello Everybody,
One of the files is not opening.....Couldnt get WHY...................possibly U
CAN......HELP
the code goes like this :
# !usr/bin/perl -w
use CGI;
$query =new CGI ;
print <<"Endoftext";
Content-type: text/html
<html>........</html>
Endoftext ######### fine till here
$mailids = $query->param('mailid') ;
for($mailids)
{
s/^\s//;
s/\s+$//;
}
print "$mailid Hello" ; ######### fine till here
$file =/var/www/cgi-bin/cgirahul/cli.txt ;
$old = $file ;
$new =$file.tmp.$$" ;
$bak="$file.bak";
print"SHEEEEEEEEEEEE"; ######### fine till here
open(OLD,"< $old") or die "cant open $old: $!";
print "HEEEEEEEEE" ; ######### fine till here
open(NEW,"> $new") or die "cant open $new: $!";
print "OOOOOOOOOOOPPPPPPs" ; ########################
not printing man.......above file is not opening..................
############rest of prog.........goes here..............
Also....if i am running this as a simple perl program its running............but not
when using CGI i think so may be here is the
problem................................................
Waiting for Reply.........
Thanx in Advance,
Rahul
