[23242] in Perl-Users-Digest
Perl-Users Digest, Issue: 5463 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Sep 8 11:05:38 2003
Date: Mon, 8 Sep 2003 08:05:09 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 8 Sep 2003 Volume: 10 Number: 5463
Today's topics:
Re: AI::GA <syscjm@gwu.edu>
Re: Appending at various locations. (Tad McClellan)
Bizarre SvTYPE after fork on W2K Server <ganchrow@nospam.com>
Re: Bizarre SvTYPE after fork on W2K Server <ganchrow@nospam.com>
Re: Help configuring Perl with Apache 2 (Tad McClellan)
Re: Help configuring Perl with Apache 2 <asu1@c-o-r-n-e-l-l.edu>
Re: how to do a simple check (Tad McClellan)
Re: illegal seek (Anno Siegel)
Re: illegal seek <dave.nospam@ntlworld.com>
Re: illegal seek (Anno Siegel)
Re: illegal seek <flavell@mail.cern.ch>
Re: illegal seek <abigail@abigail.nl>
Re: Image::Magick perl: constitute.c:2015: ReadImage: A <minceme@start.no>
Newbie Q: MacPerl / CGI woes (will@meister.com)
Re: perldoc can't display doc <hacker@amazon.de>
Re: Problem with simple contact script. (Tad McClellan)
Re: Problem with simple contact script. (Tad McClellan)
Re: Problem with simple contact script. (Tad McClellan)
Re: Search (Anno Siegel)
Re: simple regex problem (Tad McClellan)
Re: simple regex problem (Tad McClellan)
Re: system und metachar <syscjm@gwu.edu>
Re: <bwalton@rochester.rr.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 08 Sep 2003 10:30:25 -0400
From: Chris Mattern <syscjm@gwu.edu>
Subject: Re: AI::GA
Message-Id: <3F5C9281.5050907@gwu.edu>
Charlton Wilbur wrote:
>>>>>>"ATM" == Arthur T Murray <uj797@victoria.tc.ca> writes:
>>>>>
>
> >> Arthur T. Murray is a net.kook.
>
> ATM> * "A prophet is without honor in his own country."
>
> A kook is also without honor in his own country; that lack of honor is
> not sufficient to demonstrate that one is a prophet and not a kook.
>
Or as Carl Sagan so memorably put it, "They laughed at Columbus. They
laughed at Fulton. They laughed at the Wright brothers. But they also
laughed at Bozo the Clown."
Chris Mattern
------------------------------
Date: Mon, 8 Sep 2003 07:41:38 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Appending at various locations.
Message-Id: <slrnblou82.ic0.tadmc@magna.augustmail.com>
Eric J. Roode <REMOVEsdnCAPS@comcast.net> wrote:
> tabletdesktop@yahoo.com (MJS) wrote in
> news:f0171209.0309071012.606a61bd@posting.google.com:
>
>> I have to ask the user to input any two digits e.g input= 3,5 (their
>> value can be upto 300-whole numbers only). These two numbers have to
>> be associated with multiple strings. As an example, 3 is associated
> ...
>
> Didn't you post this about a month ago?
He posted the question 2 weeks ago.
I posted (most of) the code 2 weeks ago in response.
It appears that he needs to modify what he was given, but he
neglected to mention what problem it is that he needs solved...
It looks to me like he wants us to write his program for him rather
than help him learn how to write his program.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 08 Sep 2003 14:33:46 GMT
From: "Ganchrow Harris Peck" <ganchrow@nospam.com>
Subject: Bizarre SvTYPE after fork on W2K Server
Message-Id: <er07b.19607$x_5.9268@twister.nyc.rr.com>
Running ActivePerl 5.8.0 build 806 on Winows2K Server SP4.
A particular program I run tries once per day to fork off a process. It's
always worked before but has now recently stopped.
The syntax of the perl code is:
exec($CMD_vb) unless fork;
The child process never starts and the parent immediately terminates.
The error I get is Bizarre SvTYPE [53] at script.pl line ###.
Any idea what could possibly have suddenly caused this to occur?
--
To e-mail me directly, please change "nospam" in my e-mail address to
"yahoo".
Thanks,
Ganchrow
------------------------------
Date: Mon, 08 Sep 2003 14:50:40 GMT
From: "Ganchrow Harris Peck" <ganchrow@nospam.com>
Subject: Re: Bizarre SvTYPE after fork on W2K Server
Message-Id: <4H07b.89212$ev.18680665@twister.nyc.rr.com>
"Ganchrow Harris Peck" <ganchrow@nospam.com> wrote in message
news:er07b.19607$x_5.9268@twister.nyc.rr.com...
> Running ActivePerl 5.8.0 build 806 on Winows2K Server SP4.
>
> A particular program I run tries once per day to fork off a process. It's
> always worked before but has now recently stopped.
>
> The syntax of the perl code is:
> exec($CMD_vb) unless fork;
>
> The child process never starts and the parent immediately terminates.
>
> The error I get is Bizarre SvTYPE [53] at script.pl line ###.
>
> Any idea what could possibly have suddenly caused this to occur?
>
Interestingly enough (well interesting to me anyway) this Bizarre SvTYPE
error does not occur with the command:
system(1, $CMD);
which I thought did exactly the same thing as
exec($CMD) unless fork;
--
To e-mail me directly, please change "nospam" in my e-mail address to
"yahoo".
Thanks,
Ganchrow
------------------------------
Date: Mon, 8 Sep 2003 07:30:43 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Help configuring Perl with Apache 2
Message-Id: <slrnblotjj.ic0.tadmc@magna.augustmail.com>
Cyde Weys <cyde@umd.edu> wrote:
> Just a thought - if you actually did *plonk* me as you claimed to, how
> are you responding to my post?
They have these newfangled thingies called "scoring newsreaders",
I use one of those.
Your high negative score can be overcome by other positive scoring
rules, so it is possible that even your articles can end up above
the "invisible" score level.
It may auto-delete your messages, but I can manually undelete them if
I want to. I often do that for a short time after plonking to
verify that I've taken the correct action.
I've seen enough for that already.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 8 Sep 2003 15:03:33 GMT
From: "A. Sinan Unur" <asu1@c-o-r-n-e-l-l.edu>
Subject: Re: Help configuring Perl with Apache 2
Message-Id: <Xns93F0708051FCBasu1cornelledu@132.236.56.8>
Cyde Weys <cyde@umd.edu> wrote in
news:bjh47b$d6d$1@grapevine.wam.umd.edu:
> A. Sinan Unur wrote:
>
>> Try:
>>
>> #! C:/Perl/bin/perl
>
> I'm using Linux, not Windows, but thanks for all of the other relevant
> help!
You know and I know and everyone else knows that the she-bang line is
system dependent, and I really do not care what operating system you use. I
cannot see the point of this response.
Sinan.
--
A. Sinan Unur
asu1@c-o-r-n-e-l-l.edu
Remove dashes for address
Spam bait: mailto:uce@ftc.gov
------------------------------
Date: Mon, 8 Sep 2003 07:57:14 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: how to do a simple check
Message-Id: <slrnblov5a.ic0.tadmc@magna.augustmail.com>
JS <vervoom@hotmail.com> wrote:
> I have a program called depstats.pl
>
> which takes some files as input so I run it like:
>
> ./deptstats file1 file2 file3
>
> and then loop through all those files using the construct:
>
> while(<>)
>
> How do I check if any files were supplied?
die "USAGE: deptstats <files...>\n" unless @ARGV;
> Because if I just do :
>
> ./depstats.pl
>
> the programs never ends until I CTRL-C it.
That is what <> is _supposed_ to do.
It is waiting for you to provide the input via the keyboard (STDIN).
Try typing some input, then mark the end of input with
a CTRL-D (CTRL-Z on Windows).
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 8 Sep 2003 13:13:44 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: illegal seek
Message-Id: <bjhva8$eed$2@mamenchi.zrz.TU-Berlin.DE>
Dave Saville <dave.nospam@ntlworld.com> wrote in comp.lang.perl.misc:
> On Mon, 8 Sep 2003 10:01:43 +0100, news@roaima.freeserve.co.uk wrote:
> >Dave Saville <dave.nospam@ntlworld.com> wrote:
[...]
> >Depending on the underlying implementation of flock and your cross
> >platform requirements, you cannot /guarantee/ an exclusive lock with
> >read-only file access. (Mostly it will work, but just be aware...)
>
> I am now *really* confused - I do not understand about flock and read
> only - surely the use of a lock is to protect from concurrent usage - I
> am taking an exclusive lock because it is entirely possible that
> another program could be updating the same file when I want to read it
> - and of course I need to process it in a consistent state.
That's fine. If the updating process gets itself an exclusive lock,
it will have to wait till the reading process gives up its shared lock.
That's how file locking works.
> I was taking an exclusive lock on reading <$file and writing - either
> >$file or >>$file
>
> So how *should* I be doing it?
Get shared locks for reading and exclusive locks for writing.
Anno
------------------------------
Date: Mon, 08 Sep 2003 14:36:39 +0100 (BST)
From: "Dave Saville" <dave.nospam@ntlworld.com>
Subject: Re: illegal seek
Message-Id: <qnirfnivyyragyjbeyqpbz.hkwrp36.pminews@text.news.ntlworld.com>
On 8 Sep 2003 13:13:44 GMT, Anno Siegel wrote:
>> I was taking an exclusive lock on reading <$file and writing - either
>> >$file or >>$file
>>
>> So how *should* I be doing it?
>
>Get shared locks for reading and exclusive locks for writing.
>
>Anno
Thank's - I was used to locking on other languages/systems and there
you took exclusive all round.
Regards
Dave Saville
NB switch saville for nospam in address
------------------------------
Date: 8 Sep 2003 13:49:59 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: illegal seek
Message-Id: <bji1e7$gj6$2@mamenchi.zrz.TU-Berlin.DE>
Dave Saville <dave.nospam@ntlworld.com> wrote in comp.lang.perl.misc:
> On 8 Sep 2003 13:13:44 GMT, Anno Siegel wrote:
>
> >> I was taking an exclusive lock on reading <$file and writing - either
> >> >$file or >>$file
> >>
> >> So how *should* I be doing it?
> >
> >Get shared locks for reading and exclusive locks for writing.
> >
> >Anno
>
> Thank's - I was used to locking on other languages/systems and there
> you took exclusive all round.
So multiple reads on a locked file aren't possible in those languages?
That sounds less than optimal.
Anno
------------------------------
Date: Mon, 8 Sep 2003 15:29:51 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: illegal seek
Message-Id: <Pine.LNX.4.53.0309081527040.18612@lxplus004.cern.ch>
On Mon, Sep 8, Anno Siegel inscribed on the eternal scroll:
> Get shared locks for reading and exclusive locks for writing.
Indeed. However, AIUI anyone who's reading a file in order to
subsequently update it will need an exclusive lock from the start.
cheers
------------------------------
Date: 08 Sep 2003 14:17:23 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: illegal seek
Message-Id: <slrnblp3rj.ceo.abigail@alexandra.abigail.nl>
Dave Saville (dave.nospam@ntlworld.com) wrote on MMMDCLX September
MCMXCIII in <URL:news:qnirfnivyyragyjbeyqpbz.hkwrp36.pminews@text.news.ntlworld.com>:
$$ On 8 Sep 2003 13:13:44 GMT, Anno Siegel wrote:
$$
$$ >> I was taking an exclusive lock on reading <$file and writing - either
$$ >> >$file or >>$file
$$ >>
$$ >> So how *should* I be doing it?
$$ >
$$ >Get shared locks for reading and exclusive locks for writing.
$$ >
$$ >Anno
$$
$$ Thank's - I was used to locking on other languages/systems and there
$$ you took exclusive all round.
While it's entirely possible to have a degenerate language that
doesn't give you access to shared locking, whether exclusively
locking is possible on a file open for reading is an OS matter,
not a language matter.
If the OS doesn't allow exclusive locks on file open for reading,
not all the King's languages can get such a lock.
Abigail
--
perl -e '$_ = q *4a75737420616e6f74686572205065726c204861636b65720a*;
for ($*=******;$**=******;$**=******) {$**=*******s*..*qq}
print chr 0x$& and q
qq}*excess********}'
------------------------------
Date: Mon, 8 Sep 2003 13:46:19 +0000 (UTC)
From: Vlad Tepes <minceme@start.no>
Subject: Re: Image::Magick perl: constitute.c:2015: ReadImage: Assertion `image_info->signature == 0xabacadab' failed
Message-Id: <bji17b$8fj$1@troll.powertech.no>
Rob Bell <robbelljr@aol.com> wrote:
> perl: constitute.c:2015: ReadImage: Assertion `image_info->signature
> == 0xabacadab' failed
>
> If anyone here has encountered the error above when using the
> Image::Magick module please share how you adapted your scripts to
> avoid or work around it.
You need to provide more information:
What platform are you on?
Which version of Image::Magick?
How can I reproduce the error?
Regards,
--
Vlad
------------------------------
Date: 8 Sep 2003 07:36:33 -0700
From: will@meister.com (will@meister.com)
Subject: Newbie Q: MacPerl / CGI woes
Message-Id: <76a97bc4.0309080636.756a0e2a@posting.google.com>
Hi chaps,
This is a real clueless newbie-type question: my apologies for
bothering the list, but I've spent some very frustrating hours and
can't find any appropriate documentation in the primers.
I'm working with the classic Matt Wright Simple Search CGI, which I
intend to modify somewhat. Mods are going well, but my ISP is not set
up for Perl support, so I've installed MacPerl with an old copy of
QuidProQuo on my own machine on a dummy IP address. Although the CGI
is working well enough to echo search arguments, I can't get it to see
the search files.
Setup is:
MacHD/QuidProQuo/cgi-bin/search.cgi (location of CGI)
MacHD/QuidProQuo/herbfinder/*.htm (files I want it to search)
Configuration is presently:
$basedir = '../herbfinder/';
$baseurl = 'http://10.10.10.10/herbfinder/';
@files = ('*.htm');
$title = "HerbFinder";
$title_url = 'HerbFinder';
$search_url = 'http://10.10.10.10/herbfinder/hf.htm';
What am I doing wrong? Sorry for tedium of this question.
Will
------------------------------
Date: Mon, 8 Sep 2003 15:12:40 +0200
From: "thorsten schau" <hacker@amazon.de>
Subject: Re: perldoc can't display doc
Message-Id: <bjhv8e$j9o7u$1@ID-64752.news.uni-berlin.de>
"Ronald Fischer" <ronaldf@eml.cc> wrote in message
news:219750c.0309080040.2f36d379@posting.google.com...
> I'm running Perl 5.8 under cygwin. When I do something like
>
> perldoc IO::File
>
> I get the error message
>
> Ignored /usr/lib/perl5/5.8.0/cygwin-multi-64int/IO/File.pm: unreadable
> No documentation found for "IO::File".
>
> Although the file /usr/lib/perl5/5.8.0/cygwin-multi-64int/IO/File.pm
> is clearly readable.
>
> When I do a
>
> perldoc -f open
>
> I get the error message
>
> Ignored /usr/lib/perl5/5.8.0/pods/perlfunc.pod: unreadable
> No documentation found for "perlfunc".
>
> In fact, I can't get at any documentation with perldoc.
>
> Any suggestions?
did you try man IO::File ?
works for me .. sometimes :)
thorz
------------------------------
Date: Mon, 8 Sep 2003 08:22:24 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Problem with simple contact script.
Message-Id: <slrnblp0kg.ic0.tadmc@magna.augustmail.com>
Mortgageloan2003 <mortgageloan2003@aol.com> wrote:
> I have a form below - I put a radio button for the person to select who they
> want to email to instead of "hardcoding" this into the form. (thus the
> spammers can't get my email addresses) the email addresses are set in the
> script via an if elsif test.
A hash would be nicer than a chain of if-elsif's.
> I run this on my Windows XP port of perl with the
> -w and it simply can't find the path. I get an error 500 on the webserver. I
> can't figure this out.
perldoc -q 500
My CGI script runs from the command line but not the
browser. (500 Server Error)
> I'm only a novice programmer.
Then you aren't ready for advanced applications such as CGI programs.
> Any help is appreciated.
Get it working from the command line first, _then_ move it
to the CGI environment.
> Script:
>
> #!usr/bin/perl
You should ask for all the help you can get:
use strict;
use warnings;
use CGI::Carp qw(fatalsToBrowser); # remove for production!
> use CGI qw(param);
> $towhom= param("towhom");
> $name= param("name");
> $email= param("email");
> $comments= param("comments");
> if ($towhom eq "loanofficer") {
> $towhom = "loanofficer\@mortgage-pros.com";
> } elsif ($towhom eq "marketing") {
> $towhom="marketing\@mortgage-pros.com";
> } elsif ($towhom eq "broker") {
> $towhom="broker\@mortgage-pros.com";
> }
> open(SM,"|/usr/sbin/sendmail -oi -t");
> print SM "From: $email\n";
> print SM "To: $towhom\n";
Who will your program send mail to when:
param("towhom") eq 'mortgageloan2003@aol.com' ?
(answer: To: mortgageloan2003@aol.com )
Your program could be used to perform a denial-of-service attack,
against any email address.
# untested
my %addresses = (
loanofficer => 'loanofficer@mortgage-pros.com',
marketing => 'marketing@mortgage-pros.com',
broker => 'broker@mortgage-pros.com',
);
die "'$towhom' is not a valid email target"
unless exists $addresses{ $towhom };
$towhom = $addresses{ $towhom };
Now it can only be used to perform a denial-of-service attack
against those addresses. :-) errrr, that should be :-(
The multitasking and security concerns that go with the CGI are
no place for beginners.
Learn Perl first, learn CGI programming second.
> print SM "Subject: Comments from $name\n";
There must be a blank line between the headers and the body:
print SM "Subject: Comments from $name\n\n";
> print SM "$comments \n\n";
> close SM;
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 8 Sep 2003 08:24:52 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Problem with simple contact script.
Message-Id: <slrnblp0p4.ic0.tadmc@magna.augustmail.com>
Tom <tom@ztml.com> wrote:
> mortgageloan2003@aol.com (Mortgageloan2003) wrote in message news:<20030908023513.10815.00000560@mb-m29.aol.com>...
>> I have a form below - I put a radio button for the person to select who they
>> want to email to instead of "hardcoding" this into the form. (thus the
>> spammers can't get my email addresses) the email addresses are set in the
>> script via an if elsif test. I run this on my Windows XP port of perl with the
>> -w and it simply can't find the path. I get an error 500 on the webserver. I
> .
> .
>> open(SM,"|/usr/sbin/sendmail -oi -t");
> .
> .
>
> Try this...
>
> open(SM,">/usr/sbin/sendmail") or die $!;
Do not try that.
It does not invoke any programs, it attempts to open/create a file.
It has nothing to do with your problem.
This answer is from the Twilight Zone...
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 8 Sep 2003 08:26:48 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Problem with simple contact script.
Message-Id: <slrnblp0so.ic0.tadmc@magna.augustmail.com>
Mortgageloan2003 <mortgageloan2003@aol.com> wrote:
> I run this on my Windows XP port of perl with the
> -w and it simply can't find the path.
> open(SM,"|/usr/sbin/sendmail -oi -t");
Windows does not _have_ a program named sendmail.
You must use some other method of sending email.
(hint: perldoc -q mail )
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 8 Sep 2003 13:47:49 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Search
Message-Id: <bji1a5$gj6$1@mamenchi.zrz.TU-Berlin.DE>
Jimmy <jimmy_armand@hotmail.com> wrote in comp.lang.perl.misc:
> I have two files in a tmp directorie. each file have some data in
> them. Some data are the same. I want to search in the files (with file
> handles), and display the data on screen. But if they have the same
> data in both files, display the data once. Here's my code but doesn't
> work. Not all the data is display:
>
> while( <FILEHANDLE> or <FILEHANDLETWO>)
This reads a line from each file and discards them.
> {
> $mesAlertes = <FILEHANDLE>;
> $mesAlertesDeux = <FILEHANDLETWO>;
These read one more line from each file.
> $final = ($mesAlertes, $mesAlertesDeux); #take data in both
This sets $final to $mesAlerts and discards $mesAlertsDeux. What
do you want to achieve?
> #but display once if the
> data
> #is the two files...
>
> print $final;
> }
>
> What's wrong???
Well, you only work on every other line of each file, that's why you
don't see all the data.
As for discarding data that has already been displayed, your code
doesn't even make an attempt.
In a crude approach, I'd deal with each file on its own. First go
through one file and print it. Also keep the lines you printed in
a hash.
Then print the second file, but skip lines that are in the hash.
Anno
------------------------------
Date: Mon, 8 Sep 2003 07:25:04 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: simple regex problem
Message-Id: <slrnblot90.ic0.tadmc@magna.augustmail.com>
JS <vervoom@hotmail.com> wrote:
> The problem with that is if the dept name is longer than 24 characters e.g:
What does the data look like when the dept name is longer than 24 characters?
How can you tell where the longer-than-24-character name ends and
the data in the following column begins?
We do not have enough information to answer your (modified) question.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 8 Sep 2003 07:23:31 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: simple regex problem
Message-Id: <slrnblot63.ic0.tadmc@magna.augustmail.com>
JS <vervoom@hotmail.com> wrote:
> I'm trying to build a regex to put the department name into a variable
> $dept and the rest of the line into another variable $stats:
>
> E-Test 3 - 4 -
> Health and Safety - 1 1 -
> Finance - 3 - -
my($dept, $stats) = split /\s\s+/, $_, 2;
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 08 Sep 2003 10:41:13 -0400
From: Chris Mattern <syscjm@gwu.edu>
Subject: Re: system und metachar
Message-Id: <3F5C9509.1050908@gwu.edu>
Tof wrote:
> Hi from a newby,
>
> I wanted to use system like: system("mv","*","targetDir);
> But * ist not interpreted at all and the commande failed.
> What would be the best way to do that ?
>
When you hand system multiple strings, it directly invokes
the first string as the program name, passing it the other
strings as parameters. The shell is never invoked, so none
of the shell metacharacters get interpreted. In order to
get system to invoke the shell to parse your command line,
you need to pass it only *one* string, like so:
system("mv * targetDir");
Chris Mattern
------------------------------
Date: Sat, 19 Jul 2003 01:59:56 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re:
Message-Id: <3F18A600.3040306@rochester.rr.com>
Ron wrote:
> Tried this code get a server 500 error.
>
> Anyone know what's wrong with it?
>
> if $DayName eq "Select a Day" or $RouteName eq "Select A Route") {
(---^
> dienice("Please use the back button on your browser to fill out the Day
> & Route fields.");
> }
...
> Ron
...
--
Bob Walton
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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.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.
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 V10 Issue 5463
***************************************
