Hi,
Oops - sorry - didn't see you were printing to the mailfile -
Nevermind that one.
You may not have permissions to open the mailfile. Try printing $! and
see what you get as an error. It's always best to do error trapping on
open() calls. If you print $! to standard output, you will need the
headers first.
-lisa
On Mon, 10 Sep 2001, Lisa Nyman wrote too quickly:
> You need to establish your headers before you print anything.
> > 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
> >
> > #!/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);
> >
>
> Move this up before you print anything.
>
> > 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]
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
