Bonjour,
My personal view of this kind of dialog (I'm myself quite new to perl and
cgi....and still breaking my teeth on some thick O'reilly books) is the
same. The Unix world has a great sense of humor, much sympathy and many
*very* helpful people.
And this list here, even if don't need it very much as I'm the
read-the-fine-manuel man, this list,,, should definitely not be overfilled
with such remarks
Thanks again for trying to think positively and let this distribution list
deserve its *initial* purpose: perl-cgi beginners questions.
Have all a nice day and the reasonnable amount of fun
<it's_me>
Jean-Marc (:~
</it's_me>
----- Original Message -----
From: "Sally" <[EMAIL PROTECTED]>
To: "Casey West" <[EMAIL PROTECTED]>; "Will Cottay" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Thursday, July 12, 2001 5:07 PM
Subject: RE: applause for Casey!!!!! APPLAUSE DUDE! ('Turning the tide...'
and a 911 plea for help)
> I have to say I agree entirely with Casey
>
> -----Original Message-----
> From: Casey West [mailto:[EMAIL PROTECTED]]
> Sent: 12 July 2001 14:54
> To: Will Cottay
> Cc: [EMAIL PROTECTED]
> Subject: Re: applause for Casey!!!!! APPLAUSE DUDE! ('Turning the
> tide...' and a 911 plea for help)
>
>
> On Thu, Jul 12, 2001 at 10:41:32AM -0400, Will Cottay wrote:
> : The only reason I'm posting an example of how to do this is so
> : that I can feel better about commenting on just how excruciatingly
> : bad your code is.
>
> Bad tone for this list...
>
> : I shudder to think that you are teaching software techniques to
> : anyone.
>
> This comment is far from necissary...
>
> : If you provided an example like that to Tom Christiansen, I'm not
> : surprised that he was a bit harsh with you. As far as asking him to
> : solve your little file upload problem, you should be embarrassed to
> : clutter his mail with such trivia.
>
> In all honesty, I wager that even Tom doesn't feel *this* way about
> questions asked of him...
>
> : BTW, I've been writing code since the 70's also and I'm a bit curious.
> : Have you got your first program running yet?
>
> And this is entirely over the edge. Please do not waste thousands of
> peoples time with with this attitude, it is extremley unwelcome.
>
> : -will
> :
> : #!/usr/bin/perl -w
> :
> : use strict;
> : use CGI qw(:all);
> :
> : my $q = new CGI;
> : print $q->header;
> : print $q->start_html(-title=>'File Upload Example');
> :
> : my $filename = $q->param('img');
> :
> : $| = 1;
> :
> : print $q->start_multipart_form(-name=>'fup');
> : print $q->filefield(-name=>'img');
> : print "<input type='submit' name='sfile'></form>";
> : print $q->end_html;
> :
> : if ($filename) {
> : my ($fn, $fout, $buffer, $bytesread);
> : ($fn) = $filename =~ m!([^/|\\]+)$!;
> :
> : $fout = $ENV{DOCUMENT_ROOT} . '/photos/ptmp/' . $fn;
> :
> : open (OUTFILE,"> $fout") or die "Can't open $fout: $!";
> : print OUTFILE $buffer while ($bytesread = read($filename, $buffer,
> 1024));
> : close OUTFILE;
> : }
>
> This is a much bettter and much more welcome answer.
>
> Casey West
>
> --
> Shooting yourself in the foot with AMIGA-DOS
> The gun works pretty well, except that few people use one and it's
> impossible to find bullets.
>
>
