[23375] in Perl-Users-Digest
Perl-Users Digest, Issue: 5594 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Sep 30 21:05:50 2003
Date: Tue, 30 Sep 2003 18:05:07 -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 Tue, 30 Sep 2003 Volume: 10 Number: 5594
Today's topics:
Re: code not working..ideas please? (Carlton Brown)
Re: Debug Messages <nospam-abuse@ilyaz.org>
Re: Debug Messages <minceme@start.no>
Re: GD::Graph: "mixed" graph doesn't recognize "area" g <mgjv@tradingpost.com.au>
Re: getting shell outputs as variables <jgibson@mail.arc.nasa.gov>
Re: How are spammers exploiting my wwwboard code? <Nekid@jaybird.com>
Re: How are spammers exploiting my wwwboard code? <Nekid@jaybird.com>
Re: newbie regxp question <jurgenex@hotmail.com>
Re: newbie regxp question <jurgenex@hotmail.com>
Oops, 5.8.1 broke my program <xaonon@hotpop.com>
Passing Variables from One Perlscript to Another <pangjo@netzero.com>
Re: Passing Variables from One Perlscript to Another <nospam_for_jkeen@concentric.net>
Re: Passing Variables from One Perlscript to Another <mbudash@sonic.net>
Re: Passing Variables from One Perlscript to Another <ebohlman@earthlink.net>
Re: Perl command to copy one file into another file? (ko)
Re: Perl command to copy one file into another file? (Jay Tilton)
Re: Printing every element of an array (Charles DeRykus)
Prog. testing. <elp@pnsihq.com>
script help to update member profiles <NOT@home.net>
Testeo de News elvira@onairos.es
Re: <bwalton@rochester.rr.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 30 Sep 2003 15:42:28 -0700
From: carltonbrown@hotmail.com (Carlton Brown)
Subject: Re: code not working..ideas please?
Message-Id: <aa611a32.0309301442.1e3712ec@posting.google.com>
Geoff Cox <geoff.cox@blueyonder.co.uk> wrote in message news:<jajjnvkc8qeq0qeu7lo5mg166dfrus9iv1@4ax.com>...
<snip>
Looks like you're assuming that perl args to a subroutine show up as
numbered positionals, like in a shell script. Bzzt. They show up in
an array called @_ which can be shifted or directly referenced like
any other array.
> sub email {
my $school = shift @_; # (this would work)
my $school = $_[0]; # (or this, if you prefer)
>
> while (defined (my $line2 = <INN>)) {
# Bleh. if ($line2 =~ /$1/i) {
Better. if ($line2 =~ /$school/i) {
> print OUT ($line2);
> }
> }
> }
PS - if you use hashes, you will experience joy should you ever need
to refactor this code in the future.
PPS - Your symbol names are kinda bad. "INN?" Bleh.
------------------------------
Date: Tue, 30 Sep 2003 22:28:26 +0000 (UTC)
From: Ilya Zakharevich <nospam-abuse@ilyaz.org>
Subject: Re: Debug Messages
Message-Id: <bld02a$281o$1@agate.berkeley.edu>
[A complimentary Cc of this posting was sent to
Anno Siegel
<anno4000@lublin.zrz.tu-berlin.de>], who wrote in article <blc1nd$2vn$1@mamenchi.zrz.TU-Berlin.DE>:
> In Perl, the corresponding approach would be to have
>
> use constant DEBUG => 0; # set to true for debugging
>
> near the beginning of the program, and later do
>
> print "Done one thing, starting another\n" if DEBUG;
> Also like in C, it can't be (easily) activated from the command line.
??? my $debug;
BEGIN {$debug++, shift @ARGV if @ARGV and $ARGV[0] eq '--debug'}
use constant DEBUG => $debug;
This works at least for --debug being at the fixed position. Otherwise
utilize/move (sic! ;-) getopt() in a BEGIN block.
Hope this helps,
Ilya
------------------------------
Date: Wed, 1 Oct 2003 00:12:27 +0000 (UTC)
From: Vlad Tepes <minceme@start.no>
Subject: Re: Debug Messages
Message-Id: <bld65b$3jt$1@troll.powertech.no>
* Ilya Zakharevich <nospam-abuse@ilyaz.org> (CCLXXIV'th day of year MMIII)
> ??? my $debug;
> BEGIN {$debug++, shift @ARGV if @ARGV and $ARGV[0] eq '--debug'}
> use constant DEBUG => $debug;
I thought I'd mention the s-switch for passing command-line
parameters. Quick and easy when you don't need getopt:
#!/usr/bin/perl -s
use strict;
our $debug;
print "Debugging!\n" if $debug;
--
(,_ ,_, _,)
/|\`\._( )_./'/|\
· · \/ L /\ D · ·
/__|.-'`-\_/-`'-.|__\
`·..·´¯`·..·´¯`·..·´¯`·..·´¯`·..·´¯`·..·´¯`·.. ` " `
------------------------------
Date: Wed, 1 Oct 2003 10:25:27 +1000
From: Martien Verbruggen <mgjv@tradingpost.com.au>
Subject: Re: GD::Graph: "mixed" graph doesn't recognize "area" graph type
Message-Id: <slrnbnk7nn.d8h.mgjv@martien.heliotrope.home>
On 30 Sep 2003 11:55:49 -0700,
Emilio Mayorga <e.mayorga@co.snohomish.wa.us> wrote:
> Hi,
>
> I'm using the GD::Graph module to create some graphs (great module,
> BTW!). Everything works fine. But in a "mixed" graph, "area" graphs
> are not recognized. I get this error message:
> [snip] unknown type area, assuming lines at [snip]
> I am trying to create a chart with two lines and three area graphs.
> The lines work fine. Area graphs work fine when used by themselves
> (not in a mixed graph); I wrote a small program to test this.
That's odd. Area charts should work. There's an example (sample61) in
the distribution that uses lines, bars, points, area, and linespoints,
all in one chart. Where is the code you tried?
> I am using ActiveState Perl 5.6.1 on Win2000; GD 1.27, GD::Graph 1.31.
You should upgrade GD::Graph. That's a rather old version. But I don't
think that that is your problem. sample61 was already in the
distribution back then.
> I've read in the documentation that support for "mixed" is fairly
> limited, but area is included in the sample "types" assignment in the
> documenation.
Indeed. And it should work.
> The X-axis on my graph is numerical. I don't know if that makes a
> difference.
It might, since bar charts and area charts are not normally used with
numerical X axes. I probably never tried them. However, I don't think
you should get that message anyway. I just tried sample61 with numerical
axes, in my development tree, and didn't get that message, but I'm a
few versions ahead of you.
You should probably just show the (minimal) code example that produces
this problem.
Martien
--
|
Martien Verbruggen | The world is complex; sendmail.cf reflects
| this.
|
------------------------------
Date: Tue, 30 Sep 2003 16:32:44 -0700
From: Jim Gibson <jgibson@mail.arc.nasa.gov>
Subject: Re: getting shell outputs as variables
Message-Id: <300920031632442959%jgibson@mail.arc.nasa.gov>
In article <vkpdb.80132$PD3.4800823@nnrp1.uunet.ca>, Peter
<feurry@hotmail.com> wrote:
> My script runs a program which outputs various information and i need to
> sort through that info and store some of it as a variable.
> When the program finishes (mencoder)... this is what it spits out to the
> console.
>
> Recommended video bitrate for 650MB CD: 16021
> Recommended video bitrate for 700MB CD: 17264
> Recommended video bitrate for 800MB CD: 19749
> Recommended video bitrate for 2 x 650MB CD: 32175
> Recommended video bitrate for 2 x 700MB CD: 34661
> Recommended video bitrate for 2 x 800MB CD: 39631
>
> Video stream: 0.767 kbit/s (95 bps) size: 32380 bytes 337.539 secs
> 8095 frames
>
> Audio stream: 117.333 kbit/s (14666 bps) size: 4957920 bytes 338.040
> secs
>
> I need to get the "4957920" bytes value from the audio line and the
> "337.539" seconds value from the audio stream line and store them as
> some variables. Any help is appreciated
> Thanks
>
The following is untested, but may be enough to get you started:
!#/path/to/perl
use strict;
my $size;
my @output = `mencoder`; # use back quotes here!
foreach ( @output ) {
if( /Video stream.*size:\s*(\d+)\s*bytes/ ) {
$size = $1;
print "Video size = $size\n";
}else if( /Audio stream.*size:\s*(\d+)\s*bytes/ ) {
$size = $1;
print "Audio size = $size\n";
}
}
Good luck.
------------------------------
Date: Tue, 30 Sep 2003 20:30:05 -0400
From: Buck <Nekid@jaybird.com>
Subject: Re: How are spammers exploiting my wwwboard code?
Message-Id: <pan.2003.10.01.00.30.04.71282@jaybird.com>
On Tue, 30 Sep 2003 12:29:51 +0100, Alan J. Flavell wrote:
> On Mon, 29 Sep 2003, Buck wrote:
>
>> Well... I didn't have time to read the *entire* script...
>> First off, what is the permission to cgi-bin directory?
>> Is it 711 -> rwx--x--x ?
>>
>> That will stop them reading your scripts.
No. Incorrect! Now a point for the clueless.
The 711 on a directory (NOTICE: I did say cgi-bin directory) provides
traverse access, and blocks LISTing of the directory. If the cgi-bin
directory were 755 as you say, just pointing to the cgi-bin directory -
any one can see each and every script in the directory.
711 on a directory, does not stop a script with 755 from being read and
run! I always setup cgi-bin as 711, it keeps the directory private. It
does not stop someone from getting the scripts, but it does hinder them
because they have to know the exact filename for retrieval.
budman
------------------------------
Date: Tue, 30 Sep 2003 20:49:19 -0400
From: Buck <Nekid@jaybird.com>
Subject: Re: How are spammers exploiting my wwwboard code?
Message-Id: <pan.2003.10.01.00.49.16.320236@jaybird.com>
On Mon, 29 Sep 2003 22:32:32 -0500, randy wrote:
> The instructions say it should be 755.
The script yes. The cgi-bin directory should be 711 to stop scripts from
reading all your other scripts
>>That will stop them reading your scripts. Take any data you generate and
>>put it somewhere else that is NOT the public directory. This way your
>>data cannot be accessed.
>
>>I'd change filenames and directory paths in your script, since they
>>probably know your layout and can easily get by any scripting.
>>
> How would that help them?
Any time a script is released into the public, many many eyes look at it
and learn how to exploit it, if possible. All they need is some type of
web crawler/spider looking for the script.
Try renaming the script to some other name instead of wwwboard.pl, maybe
webpost.pl - or something else that makes sense to you.
budman
------------------------------
Date: Tue, 30 Sep 2003 22:48:57 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: newbie regxp question
Message-Id: <tLneb.23513$Wd7.20485@nwrddc03.gnilink.net>
Jesper wrote:
> Ok, fair enough - I just relate the =~ operator to regxp (newbie :)).
Hmmm, well, aehh, but the binding operator =~ doesn't have anything to do
with REs at all.
Of the top of my head there are only three operators/functions which use
REs:
- split
- s
- m
I'm sure someone will jump in if I forgot one.
Note: glob() and its relatives don't use REs but shell wildcards.
jue
------------------------------
Date: Tue, 30 Sep 2003 22:50:53 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: newbie regxp question
Message-Id: <hNneb.23514$Wd7.1277@nwrddc03.gnilink.net>
Jesper wrote:
> 2 minuttes after I posted I got the following idea
>
> m/([a-zA-Z0-9]*)\/(.*)/
>
> What is the difference between m// and m!! ?
If you use the slash then you can omit the "m".
Details see the man page for "m" ("perldoc -f m") which will point you to
the the perlop man page: "perldoc perlop"
jue
------------------------------
Date: 30 Sep 2003 22:21:09 GMT
From: Xaonon <xaonon@hotpop.com>
Subject: Oops, 5.8.1 broke my program
Message-Id: <slrnbnkat7.vjm.xaonon@xaonon.local>
Or, more likely, it was broken before in some way that wasn't apparent until
I installed 5.8.1. The program in question is a signature generator, which
runs as a daemon and produces random quips via a named pipe. The main loop
looks like this:
while( 1 )
{
-p $options{outfile}
or die "$0: `$options{outfile}' disappeared\n";
sysopen FIFO, $options{outfile}, O_WRONLY
or die "$0: $options{outfile}: $!\n";
print FIFO randsig();
close FIFO or die "$0: $options{outfile}: $!\n";
# Sleep briefly to let the reader see EOF.
select undef, undef, undef, 0.1;
}
Now, though, it seems that the reader doesn't ever see an EOF. For example,
running "cat sig.fifo" spits out signature after signature until I kill the
process, as opposed to just printing one and finishing. I note that running
the program with 5.6.1 still works, but I want a more rigorous solution.
Can anyone identify the problem?
--
Xaonon, EAC Chief of Mad Scientists and informal BAAWA, aa #1821, Kibo #: 1
http://xaonon.dyndns.org/ Guaranteed content-free since 1999. No refunds.
"Uh oh, indeed. After vigintillions of years plush Cthulhu was loose once
more, and ravening for delight. How He slavered and gibbered!"
------------------------------
Date: Tue, 30 Sep 2003 18:16:20 -0400
From: "Joe" <pangjo@netzero.com>
Subject: Passing Variables from One Perlscript to Another
Message-Id: <fkneb.2344$r.458135@news20.bellglobal.com>
I am trying to write a Perlscript to be used with some HTML pages. Here is
how it works:
1.. The first HTML page has a form which requests for user input. Then it
passes the QUERY_STRING to a Perl script.
2.. The Perl script will then validate the data. If input validation
fails, it returns to the previous screen and asks the user to retry. If the
validation passes, it display the user input and asks for confirmation.
3.. If the user chooses okay to proceed, it will pass the validated data
to another Perl script to execute some queries from a database.
I can manage to go from step 1 to step 2. But I don't know how to pass the
variables from one Perl script to another. I am not sure if I should use
the POST or GET method. I think there should be some better ways.
------------------------------
Date: 30 Sep 2003 22:45:05 GMT
From: "James E Keenan" <nospam_for_jkeen@concentric.net>
Subject: Re: Passing Variables from One Perlscript to Another
Message-Id: <bld11h$45c@dispatch.concentric.net>
"Joe" <pangjo@netzero.com> wrote in message
news:fkneb.2344$r.458135@news20.bellglobal.com...
> I am trying to write a Perlscript to be used with some HTML pages. Here
is
> how it works:
>
>
>
> 1.. The first HTML page has a form which requests for user input. Then
it
> passes the QUERY_STRING to a Perl script.
> 2.. The Perl script will then validate the data. If input validation
> fails, it returns to the previous screen and asks the user to retry. If
the
> validation passes, it display the user input and asks for confirmation.
> 3.. If the user chooses okay to proceed, it will pass the validated data
> to another Perl script to execute some queries from a database.
>
>
> I can manage to go from step 1 to step 2. But I don't know how to pass
the
> variables from one Perl script to another.
Once the data has been validated, couldn't it be stored in a temporary file
on your server? The second Perl script could then access the file and use
its contents. (There are probably more elegant/secure solutions, but this
may get you started.)
jimk
------------------------------
Date: Tue, 30 Sep 2003 22:56:28 GMT
From: Michael Budash <mbudash@sonic.net>
Subject: Re: Passing Variables from One Perlscript to Another
Message-Id: <mbudash-B4AB4D.15562830092003@typhoon.sonic.net>
In article <fkneb.2344$r.458135@news20.bellglobal.com>,
"Joe" <pangjo@netzero.com> wrote:
> I am trying to write a Perlscript to be used with some HTML pages. Here is
> how it works:
>
>
>
> 1.. The first HTML page has a form which requests for user input. Then it
> passes the QUERY_STRING to a Perl script.
> 2.. The Perl script will then validate the data. If input validation
> fails, it returns to the previous screen and asks the user to retry. If the
> validation passes, it display the user input and asks for confirmation.
> 3.. If the user chooses okay to proceed, it will pass the validated data
> to another Perl script to execute some queries from a database.
>
>
> I can manage to go from step 1 to step 2. But I don't know how to pass the
> variables from one Perl script to another. I am not sure if I should use
> the POST or GET method. I think there should be some better ways.
>
i normally use one script to do it all.
in the script, if the form has been submitted, the script validates the
input data. if the data is valid, final processing occurs (db
activities, emails sent, etc.), whatever thank you page is shown, then
the script exits. if the data is not valid, the script "falls thru" to a
section where the input form is displayed, populated with input data, if
any. note that both the input form and the thank you pages are usually
external template files.
i'm pretty sure there are also perl modules out there that do the same
basic thing. anybody?
hth-
--
Michael Budash
------------------------------
Date: 30 Sep 2003 23:00:03 GMT
From: Eric Bohlman <ebohlman@earthlink.net>
Subject: Re: Passing Variables from One Perlscript to Another
Message-Id: <Xns9406B8C97EF49ebohlmanomsdevcom@130.133.1.4>
"Joe" <pangjo@netzero.com> wrote in
news:fkneb.2344$r.458135@news20.bellglobal.com:
> I am trying to write a Perlscript to be used with some HTML pages.
> Here is how it works:
>
> 1.. The first HTML page has a form which requests for user input.
> Then it
> passes the QUERY_STRING to a Perl script.
> 2.. The Perl script will then validate the data. If input
> validation
> fails, it returns to the previous screen and asks the user to retry.
> If the validation passes, it display the user input and asks for
> confirmation.
> 3.. If the user chooses okay to proceed, it will pass the validated
> data
> to another Perl script to execute some queries from a database.
>
> I can manage to go from step 1 to step 2. But I don't know how to
> pass the variables from one Perl script to another. I am not sure if
> I should use the POST or GET method. I think there should be some
> better ways.
Read the documentation for CGI.pm, paying particular attention to the parts
about "sticky" form values. CGI.pm should contain everything you need to
do what you want.
------------------------------
Date: 30 Sep 2003 15:51:17 -0700
From: kuujinbo@hotmail.com (ko)
Subject: Re: Perl command to copy one file into another file?
Message-Id: <92d64088.0309301451.35c211e0@posting.google.com>
"Bill" <WA5JUL@hotmail.com> wrote in message news:<P4heb.1765$_N1.387@twister.austin.rr.com>...
> The objective is to create a sum of the two files with out any duplications.
> I included "use" into the script, but all it does now is make the file copy
> and loops with out making any comapisons with output6.txt.
>
[snip]
Ok, I mentioned this already, but File::Copy will *NOT* do what you
are looking for. It copies files, *nothing* else. When you use the
module there is no need to open filehandles, loop through the files,
etc., you simply pass the pathnames to the files. Please read the
documentation...
So forget about File::Find in your code.
One way to accomplish your task is:
1. Build an array for file1 that consists of all lines in file1. Do
the same for the second file - this can be done in one step.
2. Build a hash where the keys are the elements of the arrays created
above
3. Print out the hash keys to the third file.
Basically what you want is a 'union' of the two files. The code is
available in perlfaq4, 'How do I compute the difference of two arrays?
How do I compute the intersection of two arrays?' You can cut and
paste the example code, but you only need the @union array ((@array1
and @array2 will represent the two arrays in step 1).
One last suggestion. Try to be more specific when you post a question.
The original post and this last post are entirely different questions.
HTH - keith
------------------------------
Date: Tue, 30 Sep 2003 23:11:24 GMT
From: tiltonj@erols.com (Jay Tilton)
Subject: Re: Perl command to copy one file into another file?
Message-Id: <3f7a0cfc.81483832@news.erols.com>
[Please do not top-post replies. Please trim reply-quoted material to
the minimum necessary to establish context. See the clpm posting
guidelines at http://mail.augustmail.com/~tadmc/clpmisc.shtml for
explanations and other good advices.]
"Bill" <WA5JUL@hotmail.com> wrote:
: The objective is to create a sum of the two files with out any duplications.
This problem is a variation on finding the elements in one array that
are not in another, which was discussed very recently in the thread
"Find what is in array1 and not in array2." You might find the
algorithms presented in that thread useful.
: I included "use" into the script, but all it does now is make the file copy
: and loops with out making any comapisons with output6.txt.
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
I doubt that's true. Just because you don't see evidence that it's
happening doesn't mean it's not happening.
: # To use this script, type the following at the command line prompt:
: # bbb.pl file1 file2 output_file_name
:
: open (INPUT1, "$ARGV[0]") or die "Cannot open $ARGV[0]";
^ ^
^ ^
Useless use of quotes.
See perlfaq4, ' What's wrong with always quoting "$vars"? '
: open (OUTPUT, "> $ARGV[2]");
Always check the return from open() for success.
open (OUTPUT, "> $ARGV[2]")
or die "Cannot open $ARGV[2]: $!";
: use File::Copy;
: copy("$ARGV[0]","$ARGV[2]") or die "Copy failed: $!";
^ ^ ^ ^
^ ^ ^ ^ More UUoQ.
Copying over a file while it is open feels like a bad idea. Better to
copy the file first, then open the output file for appending.
[snip rest of code]
: The script has been running all night
Comparing each line in one file with each line in another is going to be
slow--very slow when those files are each 3-meg long. Imagine reading
one 9-terabyte file to get an idea of scale.
: and the output file, output7.txt, is still only as big as the file it
: copied yesterday, output5.txt.
The file's size, as reported by "dir", is not updated until the file is
closed.
------------------------------
Date: Tue, 30 Sep 2003 22:49:25 GMT
From: ced@bcstec.ca.boeing.com (Charles DeRykus)
Subject: Re: Printing every element of an array
Message-Id: <HM1u2D.Luo@news.boeing.com>
In article <CMLdb.3506$ab5.106674@news20.bellglobal.com>,
Steve =?ISO-8859-1?Q?H=E9mond?= <shemond@hotmail.com> wrote:
>Hi people,
>
>This is actually a basic question ...
>
>For each element of an array, I need to print the previous element, the
>actual element, and the next element on a line.
>
>Example :
>
>@test = "One","Two","Three","Four","Five";
>
>The program need to read each array element, then print its previous, actual
>and next value :
>
>Output :
>
>*nothing*,One,Two
>One, Two, Three
>Two, Three, Four
>Three,Four,Five
>
>I was thinking of using a simple FOR statement :
>
>for ($i=$array[0]; $i==$array[LAST ELEMENT]; $i++)
>
If the array's not too humongous to slow things down,
you could do:
{ my @t= ("nothing",@test,"nothing");
print join "," => @t[$_-1..$_+1] for 1..$#t-1; }
HTH,
--
Charles DeRykus
------------------------------
Date: Wed, 01 Oct 2003 00:38:15 GMT
From: "Dr. Pastor" <elp@pnsihq.com>
Subject: Prog. testing.
Message-Id: <Xlpeb.9392$RW4.1277@newsread4.news.pas.earthlink.net>
I want to test a program running on Windows 2K pro. Would be Perl suitable
to manipulate the user interface and examine the results produced by this
program?
Anybody did such things? Thanks for any guidance!
------------------------------
Date: Tue, 30 Sep 2003 23:41:52 GMT
From: "BG" <NOT@home.net>
Subject: script help to update member profiles
Message-Id: <4xoeb.1366$Gb.773@news2.central.cox.net>
First, I apologize if this is not the right group to be asking this
question, but I am EXTREMELY new to perl and MySql both and am at a loss for
where to go.
I run a web site that has a member sign up area. The data from the sign-up
form is all stored in a MySql Database (First Name, Last Name, Username,
Password, Email Address, etc). Unfortunately our site does not currently
include an option for members to be able to change their email address or
password without Admin intervention. With the site growing rapidly
completing password/email address change requests is becoming quite tedious.
To make matters worse, my partner that did all the perl scripts was injured
in an accident and will not be available for some time.
Could anyone please offer some assistance in how I can create a form that
will take the current username/password along with the requested change
password and/or email and update the appropriate record/table in the MySql
database.
I know the basic functions that need to be completed would be:
1) Compare entered username and password to database to confirm the user is
authorized to make the change.
2) If it is a match, update password and/or email field with new data from
form and return to specified page.
3) If no match, return user to page with error that username and password
did not match.
Problem is while this is probably a simple task to those familiar with perl,
I am clueless to how to achieve this. While I am trying to learn as time
permits, this is still way beyond me.
Any help is appreciated.
Bryan
------------------------------
Date: Tue, 30 Sep 2003 20:52:16 +0000 (UTC)
From: elvira@onairos.es
Subject: Testeo de News
Message-Id: <blcqe0$c6s$1@localhost.localdomain>
testeo de news server
Escuse me
--
Elvira
Fotos Eroticas
http://www.personal.able.es/ensoriano
------------------------------
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 5594
***************************************
