[9395] in Perl-Users-Digest
Perl-Users Digest, Issue: 2990 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Jun 26 03:07:20 1998
Date: Fri, 26 Jun 98 00:00:48 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 26 Jun 1998 Volume: 8 Number: 2990
Today's topics:
Re: [Q]: Finding File Modification date in Win32? <rootbeer@teleport.com>
About usage of recursive algoritm in Perl. <w3master@infosys.ru>
Re: Array trouble - severe newbie <rootbeer@teleport.com>
Re: broken upload program (I.J. Garlick)
Re: Checking if a file does NOT exist <ryan@steelplan.com.au>
Re: Corrupt File Writing To Disk Using & Char - Help! <rootbeer@teleport.com>
Executing Perl Script From Command Line (Elliott McGucken)
Re: first language - last language <dgris@rand.dimensional.com>
Re: Help with guestbook PLEASE (I.J. Garlick)
Re: Hiding the Perl source <tchrist@mox.perl.com>
interacting w/a device off a serial port (Kenwrick Chan)
Re: Null List, (), Considered Unitialized? <rootbeer@teleport.com>
Re: perl on windows 95 <rootbeer@teleport.com>
Re: Printing E-Mail to a file (I.J. Garlick)
Re: problems with script (I.J. Garlick)
Re: Q: HTTP/CGI Multipart Content-type Header <rootbeer@teleport.com>
Re: regex error (Craig Berry)
Re: s/\s//g - causing strange result - fish story <rootbeer@teleport.com>
Re: sendmail problems (I.J. Garlick)
Re: Tricky problem <rootbeer@teleport.com>
Re: Undefined subroutine CGI::pram (I.J. Garlick)
Re: What a Crappy World (Craig Berry)
Re: What a Crappy World <kenner@DELETE.MExnet.com>
Which is the best Perl book for beginners? <paul@bradleycvs.demon.co.uk>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 26 Jun 1998 05:37:34 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: [Q]: Finding File Modification date in Win32?
Message-Id: <Pine.GSO.3.96.980625223521.5566R-100000@user2.teleport.com>
On Thu, 25 Jun 1998, Steve McCullagh wrote:
> I get inconsistent results when using -M and stat() on Win32.
Then there's a bug in either perl or your system. If you are using the
most recent release of perl and if you can make a simple example script
which demonstrates this problem, please submit a bug report. It will
especially help if you can show that the modification date of the file in
question is the same after the program run as before - and specify what it
really is, of course, in the report. Thanks!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 26 Jun 98 04:36:24 GMT
From: "Administrator" <w3master@infosys.ru>
Subject: About usage of recursive algoritm in Perl.
Message-Id: <01bda0c4$924dfa60$e16c54c2@serverg1>
Hi!
How can I create a perl-program with recursive function in RedHut Linux
Perl 5.00.003?
Or it's not passible? Answer me please!!!! You are may send your answer at
w3master@infosys.ru
------------------------------
Date: Fri, 26 Jun 1998 06:16:41 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Array trouble - severe newbie
Message-Id: <Pine.GSO.3.96.980625231144.5566V-100000@user2.teleport.com>
On Thu, 25 Jun 1998 Grehom@my-dejanews.com wrote:
> > > Basically, how do I print to an array?
> I'm fairly new to this too but you could have a look at this
>
> #!/usr/bin/perl -w use diagnostics; # split the string into bits (at comma
> white spaces) and load into array. @mytab = split(/,\W+/,"fred, jim, bob,
> jill"); # print array contents out, one element per line (don't even need a
> subscript!) foreach (@mytab) { print $_, "\n"; }
Now that's an interesting script. :-)
You should know that 'use diagnostics' isn't recommended for finished
programs; you should generally comment it out or remove it when you're
done with development. But it's good that you're using it (and -w) to
learn about possible errors.
Also, \W isn't the pattern to match "white spaces", even though it "works"
in your example. I think you want \s instead. Or maybe qw() instead of the
whole split.
And it's probably not a good idea to word-wrap your code, but you probably
noticed that by now. :-)
Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Mon, 22 Jun 1998 09:27:45 GMT
From: ijg@csc.liv.ac.uk (I.J. Garlick)
To: chapman50@hotmail.com
Subject: Re: broken upload program
Message-Id: <Euy4y9.EEK@csc.liv.ac.uk>
[Posted and mailed]
In article <6mblrj$6jc$1@nnrp1.dejanews.com>,
chapman50@hotmail.com writes:
> I'm attempting to upload files over a form (perl script), I'm also using
> CGI.pm (version 2.36).
>
> The problem is that no matter what I try it uploads 0 bytes. The essential
> lines that do get the file's data are...
>
> while ($bytesread = read($filename,$buffer,1024)) {
> $totalbytes += $bytesread;
> print OUTFILE $buffer;
> }
Admittedly I am new to Perl, but why are you doing this if you are using
CGI.pm?
$filename = $query->param('uploaded_file');
Will return a file handle to the uploaded file passed by the
<INPUT TYPE=file NAME="uploaded_file">
tag. It appears to quit happily store the input in a temporary file
referenced by $filename which can be accessed using
while (<$filename>) {
.....
}
If there is a reason for doing it your way great, but I have just done this
(I was dreading it) and it was really easy, it took longer to read about it
than to do it.
>
> But it is never able to find any of the data and $totalbytes = 0. CGI.pm is
> able to receive properly data from text fields, buttons, etc.
>
> The script worked prior to our machine having its ip address changed. I am
> also using linux and the Apache web server.
>
> Any suggestions?
>
> -----== Posted via Deja News, The Leader in Internet Discussion ==-----
> http://www.dejanews.com/ Now offering spam-free web-based newsreading
--
Ian J. Garlick
ijg@csc.liv.ac.uk
------------------------------
Date: Fri, 26 Jun 1998 12:54:40 +0800
From: Ryan Snowden <ryan@steelplan.com.au>
Subject: Re: Checking if a file does NOT exist
Message-Id: <3593298F.3357C302@steelplan.com.au>
Cheers Russ - Shortly after sending I figured it out - it's always the way.
Russ Allbery wrote:
> Ryan Snowden <ryan@steelplan.com.au> writes:
>
> > Perl allows you to check if a file DOES exist & has a 0 byte size like:
>
> > if (-e $file || -z $file) {
> > # stuff
> > }
>
> > This isn't what I'm after though. I want to check if the file DOESN'T
> > exist.
>
> if (!-e $file || -z _) {
>
> will do what you want. Just negate the test that's returning the opposite
> of what you want to check.
------------------------------
Date: Fri, 26 Jun 1998 06:39:43 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Corrupt File Writing To Disk Using & Char - Help!
Message-Id: <Pine.GSO.3.96.980625233349.5566a-100000@user2.teleport.com>
On Fri, 26 Jun 1998, Ralph Freshour wrote:
> I'm trying to write a text file to a unix fiel server in perl5 - this
> code has been working fine until I tried to include a string with an &
> in it - then I found for reasons I don't understand, the file writing
> stopped right there and the rest of the data does not get written.
Well, there's nothing about perl (or the Unix file system) which forbids
ampersands in files.
> Here's my code:
>
> for ($i=0; $i < @filterBuffer; $i++)
> {
> print FILE $filterBuffer[$i] . "\n";
> }
Nothing wrong with that, although it's more Perlish to use for(each)
instead of for:
for (@filterBuffer) {
print FILE "$_\n";
}
Shorter, simpler code. But the other way is also fine.
> I have been trying to add one line above the print statement:
> $filterBuffer[$i] =~ s/\&/x/;
You don't need to backslash the ampersand, but that shouldn't hurt. Of
course, you know that you're modifying your array. But that shouldn't
cause this problem either.
> But it is still not completly writing the file to disk.
When you say 'still not', you're saying that it doesn't write the whole
file whether you use that last line or not. Right?
> If I have the string "Stone C&M Automotive", the last line in the file
> is "Stone C" and the rest of the data after this line is not there.
You haven't shown anything that should cause this problem. You could try
to come up with a short example program (say, half a dozen lines or less)
to show us just what's going on. Or, you could try this:
perl -lwe 'print "Stone C&M Automotive"' >file
If that works, just keep debugging it until it does everything you need.
:-)
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 26 Jun 1998 04:47:56 GMT
From: mcgucken@caligula.physics.unc.edu (Elliott McGucken)
Subject: Executing Perl Script From Command Line
Message-Id: <6mv95s$opa$1@fddinewz.oit.unc.edu>
Hello there. I'm using a bash shell, and when I try to execute a perl
script from the command line, I get "file not found".
I seem to recall that a way to fix this was to alter something in one
of the the .bash* files.
Does anyone have any hints?
The path to perl is correct in all the programs.
Please respond to mcgucken@physics.unc.edu
Thanks! --Elliot
------------------------------
Date: Fri, 26 Jun 1998 06:00:40 GMT
From: Daniel Grisinger <dgris@rand.dimensional.com>
Subject: Re: first language - last language
Message-Id: <6mvcr3$a9p$1@rand.dimensional.com>
In article <35924D07.432A@min.net>
jdporter@min.net wrote:
>dgris@rand.dimensional.com wrote:
>>
>> I'm not sure that I qualify as an expert, but the *last* language
>> I'd want to have to write in is C++.
>
>Surely this is an exaggeration.
>You would rather program in Basic? Pascal? Asm? Intercal?
>
I was unusually cranky after spending several days puzzling over
someone else's C++, but it is an improvement over the other choices
you presented.
I had never heard of Intercal but found an implementation. I've been
playing with it for a couple of hours and all I can say is, `Wow, and
people think perl looks line noise' :-). Not to mention the amusing,
but somewhat obscure error messages.
>John Porter
Regards,
Daniel
--
Daniel Grisinger dgris@perrin.dimensional.com
"No kings, no presidents, just a rough consensus and
running code."
Dave Clark
------------------------------
Date: Wed, 24 Jun 1998 08:37:56 GMT
From: ijg@csc.liv.ac.uk (I.J. Garlick)
To: jsadek@bayou.uh.edu (Bill)
Subject: Re: Help with guestbook PLEASE
Message-Id: <Ev1rz9.63I@csc.liv.ac.uk>
[Posted and mailed]
In article <358dbfb0.68926330@news.insync.net>,
jsadek@bayou.uh.edu (Bill) writes:
> Hi, I am trying to make a guestbook perl file work. I keep getting an
> error and I narrowed it down to the following lines. This is where
> the error occurs. ($guestbookreal is pointed to the right address.)
>
> ##start##
> # Begin the Editing of the Guestbook File
> open (FILE,"$guestbookreal") || die "Can't Open $guestbookreal:
> #$#$!\n";
> @LINES=<FILE>;
> close(FILE);
> $SIZE=@LINES;
> ##end##
>
> The line that the error occurs at is the open statement. The error it
> gives me is:
>
> Internal Server Error
>
> The server encountered an internal error or misconfiguration and was
> unable to complete your request.
>
> Please contact the server administrator, webmaster@insync.net and
> inform them of the time the error occurred, and anything
> you might have done that may have caused the error.
>
>
> What am I doing wrong? Any help please?
I get these all of the time. Have you set the permissions, on the
directory/file you are trying to write to, correctly? Try reading the
error-log file for your web server, that's where the
'Can't Open $guestbookreal......'
message should be appearing.
>
> you can reply via email at: jsadek@bayou.uh.edu
OK. Since you asked so nicely.
--
Ian J. Garlick
ijg@csc.liv.ac.uk
------------------------------
Date: 26 Jun 1998 05:23:29 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Hiding the Perl source
Message-Id: <6mvb8h$mfq$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
luong@my-dejanews.com writes:
:But in some case, I don't want to
:reveal my work just to prevent the unjust people from taking
:a look inside my program, see how it works and then find the
:way to break it.
If knowing how something works is the key to breaking security,
you are deceiving yourself.
:Still, I'm looking for an useful response
Well, good luck. You may be under no obligation to share your work, but
we are under no obligation to help you hoard it. And most of us won't.
--tom
--
_doprnt(pat, args, &fakebuf); /* what a kludge */
--Larry Wall, from util.c in the v5.0 perl distribution
------------------------------
Date: Thu, 25 Jun 1998 19:20:59 -1000
From: kchan@hawaii.edu (Kenwrick Chan)
Subject: interacting w/a device off a serial port
Message-Id: <kchan-2506981920590001@godard.its.hawaii.edu>
Folks,
I have a device that is connected to my Freebsd box via a serial port. In
theory if I send a string to the device via the serial connection I'm
supposed to get feedback back from the device. I'm having problems in
obtaining the feedback from the serial device. Any suggestions?
Thanks,
Ken
------------------------------
Date: Fri, 26 Jun 1998 06:53:24 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Null List, (), Considered Unitialized?
Message-Id: <Pine.GSO.3.96.980625234400.5566d-100000@user2.teleport.com>
On Fri, 26 Jun 1998 james.p.williams@usahq.unitedspacealliance.com wrote:
> The following program generates a couple of strange warnings from -w.
>
> #!/usr/bin/perl -w
>
> use strict;
>
> my(@a)=();
>
> print scalar(@a),"\n";
> print scalar(()),"\n"; #warning - () is uninitialized
>
> print scalar(&func(0)),"\n";
> print scalar(&func(1)),"\n"; #warning - () is uninitialized
>
> sub func
> {
> my($arg)=shift;
> my(@null)=();
>
> $arg ? @null : ();
> }
>
> Each pair of print statements seems to be doing the same thing,
The key phrase is 'seems to'. :-)
In one case you have an (empty) array's "name" in a scalar context - that
gives the number of elements in the array, in this case zero. In the
other, you have an empty expression in a scalar context - that gives
undef.
> Do I have to declare a variable to hold a null array just
> in case I'm being called in a scalar or Boolean context?
If the context is Boolean, the value undef won't cause a warning. If the
context will be one which could generate a warning, you must either be
expecting a string or a number - so if you return an empty string or zero,
you always can avoid the warning. Alternatively, you can check your
function's return value with defined() before you use it further.
Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Fri, 26 Jun 1998 06:20:33 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: perl on windows 95
Message-Id: <Pine.GSO.3.96.980625231745.5566W-100000@user2.teleport.com>
On Thu, 25 Jun 1998, josri wrote:
> Subject: perl on windows 95
Please check out this helpful information on choosing good subject
lines. It will be a big help to you in making it more likely that your
requests will be answered.
http://www.perl.com/CPAN/authors/Dean_Roehrich/subjects.post
> I have a web page with geocities and I want to post my Dynamic ip
> address to that page as and when I log on to internet. I want this to do
> with perl on windows 95. Now, how can I fetch a file, make changes and
> again post the file?
You can fetch a file by finding a suitable protocol supported by the
remote machine, then implementing that protocol in your own program. Some
popular protocols are FTP and HTTP. Many protocols can be implemented in
Perl with the help of a module.
You can make changes by using some of the functions in the perlfunc
manpage, such as truncate and print.
You can post the file by using the same protocol as in the first step, or
a different protocol.
Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Mon, 22 Jun 1998 10:45:54 GMT
From: ijg@csc.liv.ac.uk (I.J. Garlick)
To: Jesse Rosenberger <jesse@savalas.com>
Subject: Re: Printing E-Mail to a file
Message-Id: <Euy8KJ.IEH@csc.liv.ac.uk>
[Posted and mailed]
In article <358B40A2.F61C0D52@savalas.com>,
Jesse Rosenberger <jesse@savalas.com> writes:
> does anyone know of a script that can read e-mail from a POP3 account
> and if the subject *begins* with a certain word, such as "PERL - " (but
> might have other words after it), it would read the message body, and
> print it to a file? If no one knows of a script...maybe a similiar
> script that I can modify to suit my needs? thanks in advance to anyone
> who can help. Oh, and I would prefer if the method of going about it
> didn't require a module because I have no way of installing them at this
> point because I only have FTP access...and not any telnet. thanks again.
>
Here is a novel idea. Goto CPAN, download the libnet package, which includes
the POP3.pm module and list the POP3.pm module. All of the code you need
will be in there.
Or you could do the same with the module Tom suggested. You could even try
to get the module to work from your directory, it should be possible. I
think I had to do this to convince my sys admin it was worth using before
loaded it.
--
Ian J. Garlick
ijg@csc.liv.ac.uk
------------------------------
Date: Wed, 24 Jun 1998 08:32:53 GMT
From: ijg@csc.liv.ac.uk (I.J. Garlick)
To: "Daniel J Adams" <little.web.deity@fearsome.net>
Subject: Re: problems with script
Message-Id: <Ev1rqt.5sM@csc.liv.ac.uk>
[Posted and mailed]
Firstly it would have helped if you included a bit more code and the errors
that where reported.
Hold on, you are using something like '/usr/bin/perl -w' aren't you?
In article <6mk64f$ncg$1@bolivia.it.earthlink.net>,
"Daniel J Adams" <dj_adams@earthlink.net> writes:
> Hi,
>
> I was hoping that somebody would be able to tell me what is wrong with the
> following snippet of code, it doesn't seem to work. It is part of a perl CGI
> script for a UNIX server.
>
> open (GETCOUNT,"<$fileserv/numero.dat");
^^^^^^^^^^^^^^^^^^^^^
What do you think this is trying to do? I think it is trying to open the
file stored in $fileserv/numero.dat (or something, I am not sure about the
.dat, but my gut feeling is it will create problems)
try:
open (GETCOUNT,"<".$fileserv."/numero.dat");
> $counter=<GETCOUNT>;
> close (GETCOUNT);
> $counter++; & nbsp;
^^^^^^^
what is this trying to do? (Perl thinks you are trying to call a non-
existant sub called nbsp (I am assuming there is no sub called that later
on as this looks awfully like HTML)
> print "$counter quotes so far<br>\n";
> print "This information has been written to $fileserv/numero.dat<br><br>\n";
Why the HTML? (Oh this is a CGI?)
> open (PUTCOUNT,">$fileserv/numero.dat");
^^^^^^^^^^^^^^^^^^^^
same problem here. A better solution than above would be to combine the path
and file name into one variable and then use this in both postions in your
script.
> print PUTCOUNT ($counter);
> close PUTCOUNT;
>
HTH
--
Ian J. Garlick
ijg@csc.liv.ac.uk
------------------------------
Date: Fri, 26 Jun 1998 06:24:16 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Q: HTTP/CGI Multipart Content-type Header
Message-Id: <Pine.GSO.3.96.980625232341.5566Y-100000@user2.teleport.com>
On Thu, 25 Jun 1998 Hello@There.com wrote:
> Is there a way to refresh a CGI generated text without using META
> REFRESH?
The docs, FAQs, and newsgroups about CGI programming and related topics
should be able to help you with this. Good luck!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 26 Jun 1998 05:47:11 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: regex error
Message-Id: <6mvckv$nks$2@marina.cinenet.net>
David D Winfield (dwinfield@arrissys.com) wrote:
: I am having a bit of a problem with this regular expression and it looks
: ok to me. Surely clearer eyes will prevail.
:
: $Msg =~ /^(+\/.\;.)/;
You need to escape the plus, and need not escape the semicolon. Also,
using a different delimiter would make your regex more readable. I'd
rewrite it as
$Msg =~ m!^(\+/.;.)!;
Note that the parentheses and dots are special regex characters; if that's
not what you meant to say, escape them as well.
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| Member of The HTML Writers Guild: http://www.hwg.org/
"Every man and every woman is a star."
------------------------------
Date: Fri, 26 Jun 1998 05:06:16 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: s/\s//g - causing strange result - fish story
Message-Id: <Pine.GSO.3.96.980625213941.5566N-100000@user2.teleport.com>
On Thu, 25 Jun 1998, Colin Kilburn wrote:
> I thought I ran into an example once where
> the match vars persist and cloak themselves
> as a successful match in the future.
The rule is pretty simple, but it can lead to some interesting situations.
Match variables are automatically localized (that is, saved and
restored) in each scope. Within any one scope, they stay in
effect until the next successful pattern match.
So, if you wish to temporarily use a pattern match which doesn't mess up
$1 and friends, you can do that match within a new scope.
$_ = 'this is a test message';
while (/(\w+)/g) {
print "\$1 is '$1'\n";
{ # Naked block provides new scope
my $word = $1;
print "Found '$1'\n" if $word =~ /^(.*)[^aeiou]$/;
}
print "\$1 is '$1' again\n\n";
}
> Is it ever necessary to undef the match vars
> after using, to insure that no cloaking happens?
You can't do that because the match vars are read-only. :-) But a
careless programmer could be fooled into thinking a match has happened,
which is what I think you're asking.
$_ = 'this is a test message';
/(\w+)/;
my $word = $1;
/(\d+)/;
my $number = $1; # oops!
print "word is '$word', $number is '$number'!\n";
The key part of the rule is that it requires a _successful_ pattern match.
Of course, this is a good reason either to do the match in a list context
or to check it for success. Or both.
So, for the puzzlement of anyone who understands all this, can you now
tell what this will do before you run it? (But don't post the answer;
anyone who wants to find out can cut and paste. :-)
$_ = 'this is nearly the same boring test message as before';
s{(\w+)\W+(\w+)\W+(\w+)}{
my($one, $two, $three) = ($1, $2, $3);
$three =~ s/([aeiou])/#/g;
join ' ', scalar reverse($three), $two, uc($1);
}e;
print "The string is $_\n";
print "And \$1 is now '$1'!\n";
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Wed, 24 Jun 1998 08:07:44 GMT
From: ijg@csc.liv.ac.uk (I.J. Garlick)
To: Sifu Hall <webmaster@dragonslist.com>
Subject: Re: sendmail problems
Message-Id: <Ev1qKx.4KE@csc.liv.ac.uk>
[Posted and mailed]
In article <358C9CED.1BAA1B5A@dragonslist.com>,
Sifu Hall <webmaster@dragonslist.com> writes:
> I am attempting to use sendmail to send verification to a user when
> they have submitted a form. The form processes fine but the email
> message is never sent. If I copy the code to another pl file to attempt
> to troubleshoot my sendmail section of code by itself, the code works
> fine. I am new to sendmail but the syntax works fine from my test
> program. Does the fact that it is being called from a form have
> anything to do with it?
Yes and no. I had similar problem, it has something to do with scope or
output buffering. My problem occured because I was printing the
"Content-type: Text/HTML\n\n";
line before I was calling the module that did all the priming of sendmail
(through a module) and telling sendmail to send it. I never could sort out
why it wouldn't send but by simply moving the 'Content-type' line to after
all of the calls to sendmail I was able to send messages and then output
confirmation to the browser. (shrugs with puzzeled look on face)
Since I don't know in what order you are doing things this might be the
problem and is worth checking.
--
Ian J. Garlick
ijg@csc.liv.ac.uk
------------------------------
Date: Fri, 26 Jun 1998 05:49:21 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Tricky problem
Message-Id: <Pine.GSO.3.96.980625224707.5566S-100000@user2.teleport.com>
On Thu, 25 Jun 1998, Bj=F6rn-=C5ke Segrell wrote:
> Subject: Tricky problem
Please check out this helpful information on choosing good subject
lines. It will be a big help to you in making it more likely that your
requests will be answered.
http://www.perl.com/CPAN/authors/Dean_Roehrich/subjects.post
> What i need to do is this: place another server for recieving orders
> somewhere "else" on the net, when this server recieves the orders it
> shall just "relay" them to another server, invisible to the client
> putting the order.
What's stopping you? :-)
> I know this might not be the best group to this question to, in that
> case please direct me.
It sounds as if yours is a question about servers; the docs, FAQs, and
newsgroups about servers should be of some assistance. When it comes time
to implement your plan, if you choose to use Perl, you may find the LWP
bundle on CPAN to be useful. Good luck with it!
--=20
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Thu, 18 Jun 1998 14:19:32 GMT
From: ijg@csc.liv.ac.uk (I.J. Garlick)
To: "Dave" <hannum@oak.cat.ohiou.edu>
Subject: Re: Undefined subroutine CGI::pram
Message-Id: <Eur3sK.AL1@csc.liv.ac.uk>
[Posted and mailed]
In article <EunvuK.Bv2@boss.cs.ohiou.edu>,
"Dave" <hannum@oak.cat.ohiou.edu> writes:
> Why do I get this error and what does it mean?
>
> Undefined subroutine CGI::pram
It means there is no pram in the CGI package. If there was I would be worried
as prams are for babies.
>
> My program parses the contents of one form into the fields of another form.
> I do this because I am generating selections boxes based upon the input from
> the previous form. I believe I'm calling all the needed CGI modules:
> use CGI qw(:standard :html3);
> use CGI::Carp qw(fatalsToBrowser);
> CGI::ReadParse;
> my $form = new CGI;
>
> I'm using the following format to define the parsed variables:
> $variable = $form->pram('variable');
^^^^
Hmm.. looks awfully like a spelling mistake to me. try
$variable = $form->param('variable');
--
Ian J. Garlick
ijg@csc.liv.ac.uk
------------------------------
Date: 26 Jun 1998 05:18:39 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: What a Crappy World
Message-Id: <6mvavf$nks$1@marina.cinenet.net>
Bart Lateur (bart.mediamind@tornado.be) wrote:
: Craig Berry wrote:
:
: >But that clearly
: >does no good; every day, the S/N ratio in this group gets lower and lower.
:
: It's threads like this one that form the bulk of the noise.
A single thread or small group of threads is easily killfiled, and thus
does not contribute as significantly to S/N degradation as do multitudes
of separate-thread inappropriate posts. Nevertheless, yes, this whole
debate is decidedly off-topic for clpm. Unfortunately, I can't think of a
good home for it. Perhaps we need clpmd, in the great tradition of
alt.sex.stories. :)
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| Member of The HTML Writers Guild: http://www.hwg.org/
"Every man and every woman is a star."
------------------------------
Date: Thu, 25 Jun 1998 23:40:48 -0500
From: "Kenner" <kenner@DELETE.MExnet.com>
Subject: Re: What a Crappy World
Message-Id: <6mvc46$s1v$1@flood.xnet.com>
Eli the Bearded <*@qz.to> wrote in message ...
>Tom P. is a clever perl script, a la Eliza. Read thirty of his posts
>and look at the heavy redundancy. Humans are not that patient.
I certainly recognize this: it's predeveloped information delivered to meet
reoccuring needs and commonly posted questions. However, often included is
analysis and leads that are more specific to the original poster's code
snippet. Regardless of methods, I'm simply trying to point out the
difference. One technique is dignified, the other is petty and small.
You're right, though - we are not very patient. I just wish we could rise
above allowing our impatience to manifest itself in being hateful. Our
impatience helps explain this reaction, but it doesn't justify it.
(I know I'm being self-righteous, I know, I'm sorry - I don't think I'm
better, I just want it to be better, and I can't believe that being
malicious is a good thing, even as a means to an end)
--
Kenner
# If you want to send me e-mail, please remove the "DELETE.ME" from my
address. #
"I'm glad that I could help out my friend Stephen with his art." - Stuart
Davis
------------------------------
Date: Thu, 25 Jun 1998 10:41:40 +0100
From: Paul Bradley <paul@bradleycvs.demon.co.uk>
Subject: Which is the best Perl book for beginners?
Message-Id: <TBOXrFAUthk1Ew+x@bradleycvs.demon.co.uk>
I am new to Perl and would welcome suggestions on an appropriate
beginners book (preferably one that is available in the UK).
Kindest regards,
Paul Bradley.
--
------------------------------------------------------------------------
Bradley CVs
Professional CV service, careers advice and outplacement for private &
corporate clients. FREE CV, job searching & interview advice at our web
site http://www.bradleycvs.demon.co.uk/
Telephone: (01625) 532287 (outside the UK +44 1625 532287)
Address: 27 Pickmere Road, Handforth, Wilmslow, Cheshire, SK9 3SR, UK.
------------------------------------------------------------------------
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 2990
**************************************
