"Schoeman, Remco" wrote:
>
> hi
> i think i see your problem
>
> if you edit this line in the "comment out" section
>
> open (mailfile,">>".$mailfile);
>
> to
>
> open (mailfile,">> ".$mailfile) or die "$0: couldnt open $mailfile :$!";
>
> note the space after the >> in ">> "
>
> you could also write ">> $mailfile" instead of ">> ".$mailfile
> but that's just a matter of taste
>
> hope it works
> in any case it will show the error perl generates
>
> MVG
>
> Remco Schoeman
>
> The Lodge
>
> -----Original Message-----
> From: Peter Bosmans [mailto:[EMAIL PROTECTED]]
> Sent: maandag 10 september 2001 17:25
> To: [EMAIL PROTECTED]
Hi all,
Thanks for all your help. I appreciate it very much.
I've learned a lot (also about the right syntax)
The real problem was the -w at the first line of the program.
I removed it and everything seems allright.
Again, thanks for the response.
Peter
> Subject: I'm stuck
>
> Hi,
>
> I've a little problem.
> The next cgiscript doesn't work. (The mailfile will be created but i get
> a server error at my browser)
> But if i comment the 3 lines between "comment out", then this script
> will work. (i see the generated HTML-page at my browser)
> Does anybody see what the problem is ?
> Thanks in advance
>
> Peter
>
> #!/usr/local/bin/perl -w
>
> use CGI;
>
> $query = new CGI;
> $teamleader = "me.myself\@my_island.see";
>
> $mailfile = "/home/myself/mymail.".$$;
>
> # Comment out these lines and this perl script will work
> open (mailfile,">>".$mailfile);
> print mailfile "Originator : ".$query->param('ORIG')."\n";
> close (mailfile);
> # End comment out
>
> #unlink ($mailfile);
>
> print $query->header('text/html');
> print $query->start_html('Input CR','me.myself\@my_island.see');
> print $query->h1('Your request is sended to the teamleader
> :'.$teamleader);
> print $query->end_html();
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
