[16494] in Perl-Users-Digest
Perl-Users Digest, Issue: 3906 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Aug 3 18:20:51 2000
Date: Thu, 3 Aug 2000 15:20:31 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <965341231-v9-i3906@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Thu, 3 Aug 2000 Volume: 9 Number: 3906
Today's topics:
Security (with respect to chmod) - user_create.cgi [0/1 <bean@agentkhaki.com>
Re: Security (with respect to chmod) - user_create.cgi <bean@agentkhaki.com>
Sendmail and ACTIVEPERL <odesseus@my-deja.com>
Re: Sendmail and ACTIVEPERL <gorbeast@SPAMSUCKS.subduction.org>
Re: Sendmail and ACTIVEPERL <chinob103NOchSPAM@hotmail.com.invalid>
Re: SendMail.pm <gorbeast@SPAMSUCKS.subduction.org>
Re: SendMail.pm bing-du@tamu.edu
Re: SendMail.pm <gorbeast@SPAMSUCKS.subduction.org>
Re: SendMail.pm <design@thegame.ch>
Re: split strings by number <lr@hpl.hp.com>
Re: splitting on spaces <julie@friendlysoftware.com>
Re: splitting on spaces <godzilla@stomp.stomp.tokyo>
Re: splitting on spaces <care227@attglobal.net>
Re: splitting on spaces <russ_jones@rac.ray.com>
Re: splitting on spaces <julie@friendlysoftware.com>
Re: system or backticks <steve.jones@takethisoutproact.net>
Re: system or backticks <steve.jones@takethisoutproact.net>
Re: system or backticks <steve.jones@takethisoutproact.net>
Re: Variable Interpolation Woes <steve.jones@takethisoutproact.net>
Re: very cool routine <rbank@csf.edu>
Re: very cool routine <dan@tuatha.sidhe.org>
Re: very cool routine <russ_jones@rac.ray.com>
Re: very cool routine <care227@attglobal.net>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 03 Aug 2000 19:24:00 GMT
From: bean <bean@agentkhaki.com>
Subject: Security (with respect to chmod) - user_create.cgi [0/1]
Message-Id: <MPG.13f38e947f395a6a989680@news.concentric.net>
Okay...
After writing most of the scripts I need for a site I'm designing, I
started reading some of the back posts, and there seems to be this very
large concern over CGI security. Now, my question involves using Perl
for CGI, but I don't think it's necessarily CGI specific. Anyway, here
goes.
Here's what I'm having "issues" with:
sub make_userdbm {
$mode = "0666";
dbmopen (%temp, $username, oct($mode))";
dbmclose (%temp);
system "chmod $mode $username.*";
dbmopen (%user_data, "$fields{'username'}", 0666);
$user_data{'lastname'} = $fields{'lastname'};
$user_data{'firstname'} = $fields{'firstname'};
$user_data{'middlename'} = $fields{'middlename'};
$user_data{'email'} = $fields{'email'};
$user_data{'sec_email'} = "(none)";
dbmclose (%user_data);
}
My question is this: The variable $username comes from a form field
which is processed using the following code:
elsif (!($fields{'username'} =~ /^[a-zA-Z0-9]{5,15}$/)) {
print "You entered an illegal username. Please try again.";
}
Is my code safe (in respect to my use of chmod)?
I attached the entire script in case anyone wants to have a look see. I
wish I wasn't fumbling my way through this, and I'm sure my code is so
clunky it's not even funny, but it works.
Thanks for any and all help.
------------------------------
Date: 03 Aug 2000 19:28:02 GMT
From: bean <bean@agentkhaki.com>
Subject: Re: Security (with respect to chmod) - user_create.cgi [0/1]
Message-Id: <MPG.13f38f8b32dea939989682@news.concentric.net>
I have no idea what happened to that script when I used this "attach"
function on my news reader. Sorry for the spam. Here's the script it its
entirety:
#!/usr/bin/perl
#
##################################################
#
# title: user_create.cgi
# author: agentkhaki
# date: june 27, 2000 ad
# time: 8:41 pm
#
##################################################
#
# adds a user the the list of accepted users of
# the treefrog network databases.
#
##################################################
$fillfields = "nofill";
read(STDIN, $temp, $ENV{'CONTENT_LENGTH'});
$all_data = $temp;
&process_data ($all_data);
if ($blank eq $fillfields) {
$error_code = 002;
&cookie_creator ($error_code);
print "Location: ../error_frog.shtml";
return;
}
$username = $fields{'username'};
$password = $fields{'password'};
dbmopen(%auth_users, "auth_users", 0666);
if (defined($auth_users{$username})) {
$error_code = 003;
&cookie_creator ($error_code);
print "Location: ../error_frog.shtml";
return;
}
else {
if ($fields{'password'} ne $fields{'passcheck'}) {
$error_code = 004;
&cookie_creator ($error_code);
print "Location: ../error_frog.shtml";
return;
}
else {
%temp_users = ($username, $password);
%old_users = %auth_users;
%auth_users = (%old_users, %temp_users);
dbmclose (%auth_users);
open (LIST_FILE, '>> all_users.txt');
print LIST_FILE "$fields{'lastname'}, $fields{'firstname'}
$fields{'middlename'}.::$fields{'username'}\n";
close (LIST_FILE);
&make_userdbm (%fields);
print "Location: ../apply_registered.shtml";
}
}
sub process_data {
$blank = "";
@pairs=split(/&/,$all_data);
foreach $item(@pairs) {
($key,$content)=split (/=/,$item,2);
if ($content eq $blank) {
$blank = "nofill";
return ($blank);
}
$content=~tr/+/ /;
$content=~ s/%(..)/pack("c",hex($1))/ge;
$fields{$key}=$content;
}
return (%fields);
}
sub make_userdbm {
$mode = "0666";
dbmopen (%temp, $username, oct($mode)) || die "Couldn't open
$username\n";
dbmclose (%temp);
system "chmod $mode $username.*";
dbmopen (%user_data, "$fields{'username'}", 0666);
$user_data{'lastname'} = $fields{'lastname'};
$user_data{'firstname'} = $fields{'firstname'};
$user_data{'middlename'} = $fields{'middlename'};
$user_data{'email'} = $fields{'email'};
$user_data{'sec_email'} = "(none)";
$user_data{'birthday'} = "(none)";
$user_data{'birthplace'} = "(none)";
$user_data{'hsgradyear'} = "(none)";
$user_data{'cogradyear'} = "(none)";
$user_data{'currentyear'} = "(none)";
$user_data{'college'} = "(none)";
$user_data{'major'} = "(none)";
$user_data{'minor'} = "(none)";
$user_data{'job'} = "(none)";
$user_data{'website'} = "(none)";
$user_data{'home_phone'} = "(none)";
$user_data{'college_phone'} = "(none)";
$user_data{'homeadd_one'} = "(none)";
$user_data{'homeadd_two'} = "(none)";
$user_data{'homeadd_three'} = "(none)";
$user_data{'colladd_one'} = "(none)";
$user_data{'colladd_two'} = "(none)";
$user_data{'colladd_three'} = "(none)";
$user_data{'aim_sn'} = "(none)";
$user_data{'icq_uin'} = "(none)";
$user_data{'fav_book'} = "(none)";
$user_data{'fav_song'} = "(none)";
dbmclose (%user_data);
}
sub cookie_creator {
$path = "/";
&setCookie("error_code", $error_code, $path);
sub setCookie {
local($name, $value, $path) = @_;
print "Set-Cookie: ";
print ($name, "=", $value, "; path=", $path, "\n");
}
}
Thanks again.
------------------------------
Date: Thu, 03 Aug 2000 18:03:25 GMT
From: Paris <odesseus@my-deja.com>
Subject: Sendmail and ACTIVEPERL
Message-Id: <8mcc58$4ss$1@nnrp1.deja.com>
When running a 'proper' PERL interpreter on a proper OS I can usually
pipe to the the 'sendmail' program in usr/lib to send mail.
However there is no such luxury on an NT Server running activeperl..
Does anyone have a clue how you send mail from such a server???
--
Paris. Not the City.
odesseus@my-deja.com
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 03 Aug 2000 11:38:51 -0700
From: Gorbeast <gorbeast@SPAMSUCKS.subduction.org>
Subject: Re: Sendmail and ACTIVEPERL
Message-Id: <3989BC3B.80DAC940@SPAMSUCKS.subduction.org>
Hi,
'blat' is a command line free mailer for the win32 platform. Or you can
use the module Mail::sendmail. Works on NT, win98, etc.
HTH,
Goody
Paris wrote:
>
> When running a 'proper' PERL interpreter on a proper OS I can usually
> pipe to the the 'sendmail' program in usr/lib to send mail.
> However there is no such luxury on an NT Server running activeperl..
>
> Does anyone have a clue how you send mail from such a server???
>
> --
> Paris. Not the City.
> odesseus@my-deja.com
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
--
"If I had one wish, I would ask for a big enough ass for the whole world
to kiss."
--Marshall Mathers
------------------------------
Date: Thu, 03 Aug 2000 12:00:54 -0700
From: Chino Ficher <chinob103NOchSPAM@hotmail.com.invalid>
Subject: Re: Sendmail and ACTIVEPERL
Message-Id: <0ee5c130.6ea1e19e@usw-ex0104-031.remarq.com>
I am having the same problem but haven;'t even gotten that far.
There is no perl interpreter installed on our NT server and need
to get it installed but cannot find out where to get it. Any
ideas?
-----------------------------------------------------------
Got questions? Get answers over the phone at Keen.com.
Up to 100 minutes free!
http://www.keen.com
------------------------------
Date: Thu, 03 Aug 2000 11:30:02 -0700
From: Gorbeast <gorbeast@SPAMSUCKS.subduction.org>
Subject: Re: SendMail.pm
Message-Id: <3989BA2A.B23B623C@SPAMSUCKS.subduction.org>
Hello there,
Use a while loop -- See code below. On the command line, you should use
the syntax '[perl] script list_of_addresses.' Keep in mind you have to
insert your real mail server etc., where appropriate.
Sat Nam Wahe Guru,
Goody
---
use Mail::Sendmail;
while (<>) {
%mail = (
To => "$_",
From => 'You <bing-du@tamu.edu>',
Subject => "Test",
'X-Mailer' => "Mail::Sendmail version $Mail::Sendmail::VERSION",
);
$mail{Smtp} = 'your.mail.server';
$mail{'message : '} = "test, hope it works";
# cheat on the date:
$mail{Date} = Mail::Sendmail::time_to_date( time() - 86400 );
if (sendmail %mail) { print "Mail to $_ sent OK.\n" }
else { print "Error sending mail: $Mail::Sendmail::error \n" }
print "\n\$Mail::Sendmail::log says:\n", $Mail::Sendmail::log;
}
---
bing-du@tamu.edu wrote:
>
> Hello there,
>
> Has any body have used SendMail.pm?
>
> I have the following problem with SendMail.pm.
>
> I need to send 100 students some email notice. My Perl script creates
> an array '@to' which contains 100 students' email addresses. But if I
> used $sm->To(@to) to send notice, then when each student reads the
> notice, he/she will first have to see 100 students' email addresses
> listed in TO field in the message header. It's ugly.
>
> I want the notice to be sent to all students at the same time but for
> each student, he/she just sees his/her own email address listed in TO
> field.
>
> Then I changed the script as below. The basic idea was I expected to
> loop through array @to to send each student notice with only one
> recipient address showed up in TO failed. Unfortunately, this method
> did not accomplish what I wanted. Instead, each student got the
> following headers respectively:
>
> student1 got three same notices with different TO field:
> TO: r1@some.edu
> TO: r1@some.edu, r2@some.edu
> TO: r1@some.edu, r2@some.edu, r3@some.edu
>
> student2 got two same notices with different TO field:
> TO: r1@some.edu
> TO: r1@some.edu, r2@some.edu
>
> ...
>
> student100 got one notices with all 100 students' address listed in TO
> like this:
> TO: r1@some.edu, r2@some.edu,... r100@some.edu
>
> I can not figure out why the following script would generate the above
> result?
>
> =====================================
> @to = ("r1@some.edu","r2@some.edu",..."r100@some.edu");
>
> foreach $to (@to)
> {
>
> $sm->From($from);
>
> $sm->To($to);
>
> $sm->Cc($cc);
> $sm->ReplyTo($replyto);
> $sm->Subject($subject);
>
> foreach $item (keys %specific_session)
> {
> if ($item =~ /^$uid\_attach\_(.*)/)
> {
> $sm->Attach("$tmp/$item");
> }
> }
>
> $mailbody = <<__END__MAILBODY__;
>
> $memo
>
> __END__MAILBODY__
>
> $sm->setMailBody($mailbody);
>
> if ($sm->sendMail() != 0) {
> print $sm->{'error'}."<br>";
> exit;
> }
> $to = '';
> } # end of foreach $to (@to)
> ======================================
>
> Thanks for listening. I have been struggling with this problem for some
> time. And at my wit's end :(.
>
> Any ideas and suggestions would be greatly appreciated.
>
> Bing
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
--
"If I had one wish, I would ask for a big enough ass for the whole world
to kiss."
--Marshall Mathers
------------------------------
Date: Thu, 03 Aug 2000 19:24:12 GMT
From: bing-du@tamu.edu
Subject: Re: SendMail.pm
Message-Id: <8mcgsm$8rk$1@nnrp1.deja.com>
Thanks very much for the response. The module I use is SendMail.pm
which is authored by Simon Tneoh Chee-Boon. From the syntax of the
following code snippet, I guess SendMail.pm is not the same as
Mail::Sendmail. Any way, I have figured out $sm->reset helped.
SendMail.pm can handle multiple file attachments nicely. Can
Mail::Sendmail do so?
Thanks again,
Bing
In article <3989BA2A.B23B623C@SPAMSUCKS.subduction.org>,
Gorbeast <gorbeast@SPAMSUCKS.subduction.org> wrote:
> Hello there,
>
> Use a while loop -- See code below. On the command line, you should
use
> the syntax '[perl] script list_of_addresses.' Keep in mind you have
to
> insert your real mail server etc., where appropriate.
>
> Sat Nam Wahe Guru,
>
> Goody
>
> ---
> use Mail::Sendmail;
> while (<>) {
>
> %mail = (
> To => "$_",
> From => 'You <bing-du@tamu.edu>',
> Subject => "Test",
> 'X-Mailer' => "Mail::Sendmail version $Mail::Sendmail::VERSION",
> );
>
> $mail{Smtp} = 'your.mail.server';
> $mail{'message : '} = "test, hope it works";
> # cheat on the date:
> $mail{Date} = Mail::Sendmail::time_to_date( time() - 86400 );
>
> if (sendmail %mail) { print "Mail to $_ sent OK.\n" }
> else { print "Error sending mail: $Mail::Sendmail::error \n" }
>
> print "\n\$Mail::Sendmail::log says:\n", $Mail::Sendmail::log;
>
> }
>
> ---
> bing-du@tamu.edu wrote:
> >
> > Hello there,
> >
> > Has any body have used SendMail.pm?
> >
> > I have the following problem with SendMail.pm.
> >
> > I need to send 100 students some email notice. My Perl script
creates
> > an array '@to' which contains 100 students' email addresses. But if
I
> > used $sm->To(@to) to send notice, then when each student reads the
> > notice, he/she will first have to see 100 students' email addresses
> > listed in TO field in the message header. It's ugly.
> >
> > I want the notice to be sent to all students at the same time but
for
> > each student, he/she just sees his/her own email address listed in
TO
> > field.
> >
> > Then I changed the script as below. The basic idea was I expected
to
> > loop through array @to to send each student notice with only one
> > recipient address showed up in TO failed. Unfortunately, this
method
> > did not accomplish what I wanted. Instead, each student got the
> > following headers respectively:
> >
> > student1 got three same notices with different TO field:
> > TO: r1@some.edu
> > TO: r1@some.edu, r2@some.edu
> > TO: r1@some.edu, r2@some.edu, r3@some.edu
> >
> > student2 got two same notices with different TO field:
> > TO: r1@some.edu
> > TO: r1@some.edu, r2@some.edu
> >
> > ...
> >
> > student100 got one notices with all 100 students' address listed in
TO
> > like this:
> > TO: r1@some.edu, r2@some.edu,... r100@some.edu
> >
> > I can not figure out why the following script would generate the
above
> > result?
> >
> > =====================================
> > @to = ("r1@some.edu","r2@some.edu",..."r100@some.edu");
> >
> > foreach $to (@to)
> > {
> >
> > $sm->From($from);
> >
> > $sm->To($to);
> >
> > $sm->Cc($cc);
> > $sm->ReplyTo($replyto);
> > $sm->Subject($subject);
> >
> > foreach $item (keys %specific_session)
> > {
> > if ($item =~ /^$uid\_attach\_(.*)/)
> > {
> > $sm->Attach("$tmp/$item");
> > }
> > }
> >
> > $mailbody = <<__END__MAILBODY__;
> >
> > $memo
> >
> > __END__MAILBODY__
> >
> > $sm->setMailBody($mailbody);
> >
> > if ($sm->sendMail() != 0) {
> > print $sm->{'error'}."<br>";
> > exit;
> > }
> > $to = '';
> > } # end of foreach $to (@to)
> > ======================================
> >
> > Thanks for listening. I have been struggling with this problem for
some
> > time. And at my wit's end :(.
> >
> > Any ideas and suggestions would be greatly appreciated.
> >
> > Bing
> >
> > Sent via Deja.com http://www.deja.com/
> > Before you buy.
>
> --
> "If I had one wish, I would ask for a big enough ass for the whole
world
> to kiss."
> --Marshall Mathers
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 03 Aug 2000 12:53:41 -0700
From: Gorbeast <gorbeast@SPAMSUCKS.subduction.org>
Subject: Re: SendMail.pm
Message-Id: <3989CDC5.5AC43956@SPAMSUCKS.subduction.org>
bing-du@tamu.edu wrote:
> SendMail.pm can handle multiple file attachments nicely. Can
> Mail::Sendmail do so?
no, it isn't really suited for large attachments and whatnot.
I thought the two modules were the same but they are not.
HTH,
Goody
>
> Thanks again,
>
> Bing
>
> In article <3989BA2A.B23B623C@SPAMSUCKS.subduction.org>,
> Gorbeast <gorbeast@SPAMSUCKS.subduction.org> wrote:
> > Hello there,
> >
> > Use a while loop -- See code below. On the command line, you should
> use
> > the syntax '[perl] script list_of_addresses.' Keep in mind you have
> to
> > insert your real mail server etc., where appropriate.
> >
> > Sat Nam Wahe Guru,
> >
> > Goody
> >
> > ---
> > use Mail::Sendmail;
> > while (<>) {
> >
> > %mail = (
> > To => "$_",
> > From => 'You <bing-du@tamu.edu>',
> > Subject => "Test",
> > 'X-Mailer' => "Mail::Sendmail version $Mail::Sendmail::VERSION",
> > );
> >
> > $mail{Smtp} = 'your.mail.server';
> > $mail{'message : '} = "test, hope it works";
> > # cheat on the date:
> > $mail{Date} = Mail::Sendmail::time_to_date( time() - 86400 );
> >
> > if (sendmail %mail) { print "Mail to $_ sent OK.\n" }
> > else { print "Error sending mail: $Mail::Sendmail::error \n" }
> >
> > print "\n\$Mail::Sendmail::log says:\n", $Mail::Sendmail::log;
> >
> > }
> >
> > ---
> > bing-du@tamu.edu wrote:
> > >
> > > Hello there,
> > >
> > > Has any body have used SendMail.pm?
> > >
> > > I have the following problem with SendMail.pm.
> > >
> > > I need to send 100 students some email notice. My Perl script
> creates
> > > an array '@to' which contains 100 students' email addresses. But if
> I
> > > used $sm->To(@to) to send notice, then when each student reads the
> > > notice, he/she will first have to see 100 students' email addresses
> > > listed in TO field in the message header. It's ugly.
> > >
> > > I want the notice to be sent to all students at the same time but
> for
> > > each student, he/she just sees his/her own email address listed in
> TO
> > > field.
> > >
> > > Then I changed the script as below. The basic idea was I expected
> to
> > > loop through array @to to send each student notice with only one
> > > recipient address showed up in TO failed. Unfortunately, this
> method
> > > did not accomplish what I wanted. Instead, each student got the
> > > following headers respectively:
> > >
> > > student1 got three same notices with different TO field:
> > > TO: r1@some.edu
> > > TO: r1@some.edu, r2@some.edu
> > > TO: r1@some.edu, r2@some.edu, r3@some.edu
> > >
> > > student2 got two same notices with different TO field:
> > > TO: r1@some.edu
> > > TO: r1@some.edu, r2@some.edu
> > >
> > > ...
> > >
> > > student100 got one notices with all 100 students' address listed in
> TO
> > > like this:
> > > TO: r1@some.edu, r2@some.edu,... r100@some.edu
> > >
> > > I can not figure out why the following script would generate the
> above
> > > result?
> > >
> > > =====================================
> > > @to = ("r1@some.edu","r2@some.edu",..."r100@some.edu");
> > >
> > > foreach $to (@to)
> > > {
> > >
> > > $sm->From($from);
> > >
> > > $sm->To($to);
> > >
> > > $sm->Cc($cc);
> > > $sm->ReplyTo($replyto);
> > > $sm->Subject($subject);
> > >
> > > foreach $item (keys %specific_session)
> > > {
> > > if ($item =~ /^$uid\_attach\_(.*)/)
> > > {
> > > $sm->Attach("$tmp/$item");
> > > }
> > > }
> > >
> > > $mailbody = <<__END__MAILBODY__;
> > >
> > > $memo
> > >
> > > __END__MAILBODY__
> > >
> > > $sm->setMailBody($mailbody);
> > >
> > > if ($sm->sendMail() != 0) {
> > > print $sm->{'error'}."<br>";
> > > exit;
> > > }
> > > $to = '';
> > > } # end of foreach $to (@to)
> > > ======================================
> > >
> > > Thanks for listening. I have been struggling with this problem for
> some
> > > time. And at my wit's end :(.
> > >
> > > Any ideas and suggestions would be greatly appreciated.
> > >
> > > Bing
> > >
> > > Sent via Deja.com http://www.deja.com/
> > > Before you buy.
> >
> > --
> > "If I had one wish, I would ask for a big enough ass for the whole
> world
> > to kiss."
> > --Marshall Mathers
> >
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
------------------------------
Date: Thu, 03 Aug 2000 23:02:31 +0200
From: David Schneider <design@thegame.ch>
Subject: Re: SendMail.pm
Message-Id: <3989DDE7.86606A07@thegame.ch>
Hi,
send to BCC and no To
G
Dave
bing-du@tamu.edu wrote:
>
> Hello there,
>
> Has any body have used SendMail.pm?
>
> I have the following problem with SendMail.pm.
>
> I need to send 100 students some email notice. My Perl script creates
> an array '@to' which contains 100 students' email addresses. But if I
> used $sm->To(@to) to send notice, then when each student reads the
> notice, he/she will first have to see 100 students' email addresses
> listed in TO field in the message header. It's ugly.
>
> I want the notice to be sent to all students at the same time but for
> each student, he/she just sees his/her own email address listed in TO
> field.
>
> Then I changed the script as below. The basic idea was I expected to
> loop through array @to to send each student notice with only one
> recipient address showed up in TO failed. Unfortunately, this method
> did not accomplish what I wanted. Instead, each student got the
> following headers respectively:
>
> student1 got three same notices with different TO field:
> TO: r1@some.edu
> TO: r1@some.edu, r2@some.edu
> TO: r1@some.edu, r2@some.edu, r3@some.edu
>
> student2 got two same notices with different TO field:
> TO: r1@some.edu
> TO: r1@some.edu, r2@some.edu
>
> ...
>
> student100 got one notices with all 100 students' address listed in TO
> like this:
> TO: r1@some.edu, r2@some.edu,... r100@some.edu
>
> I can not figure out why the following script would generate the above
> result?
>
> =====================================
> @to = ("r1@some.edu","r2@some.edu",..."r100@some.edu");
>
> foreach $to (@to)
> {
>
> $sm->From($from);
>
> $sm->To($to);
>
> $sm->Cc($cc);
> $sm->ReplyTo($replyto);
> $sm->Subject($subject);
>
> foreach $item (keys %specific_session)
> {
> if ($item =~ /^$uid\_attach\_(.*)/)
> {
> $sm->Attach("$tmp/$item");
> }
> }
>
> $mailbody = <<__END__MAILBODY__;
>
> $memo
>
> __END__MAILBODY__
>
> $sm->setMailBody($mailbody);
>
> if ($sm->sendMail() != 0) {
> print $sm->{'error'}."<br>";
> exit;
> }
> $to = '';
> } # end of foreach $to (@to)
> ======================================
>
> Thanks for listening. I have been struggling with this problem for some
> time. And at my wit's end :(.
>
> Any ideas and suggestions would be greatly appreciated.
>
> Bing
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
--
David Schneider
Gamemanager of:
- http://www.thegame.ch "DAS Online Multiplayer Game"
------------------------------
Date: Thu, 3 Aug 2000 11:17:00 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: split strings by number
Message-Id: <MPG.13f356f8c5a898e098ac32@nntp.hpl.hp.com>
In article <8mc5si$l0v$1@lublin.zrz.tu-berlin.de> on 3 Aug 2000 16:16:18
-0000, Anno Siegel <anno4000@lublin.zrz.tu-berlin.de> says...
> <oderus54@my-deja.com> wrote in comp.lang.perl.misc:
> >How would i split strings by number, like for example;
> >
> >
> >$blah = "abcdefghijklmn";
> >#now i want $string1 = "abc", $string2 = "defgh", $string3 = "ijk",
> >$string4 = "lmn"
>
> While the description you give is less than clear, it looks like
> you want to split a string at given character positions. If so,
> the substr function is what you are looking for. perldoc -f substr.
>
> As usual, there are more ways to do this. If you're really into
> fun, try unpack.
The unpack() function provides a far more appropriate solution to this
problem than a sequence of substr()s.
my @strings = unpack A3A5A3A3 => $blah;
Now write the corresponding substr() solution, and you will see. It
will be messy and hard to maintain.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Thu, 03 Aug 2000 16:30:02 -0400
From: Julie Saba <julie@friendlysoftware.com>
Subject: Re: splitting on spaces
Message-Id: <3989D649.510D006C@friendlysoftware.com>
Thanks for the explanation of what this group is and is not, Anno. Now, at least I know I
don't belong here before I'm made a fool of.
Julie
Anno Siegel wrote:
> Dilworth <dilworth@megsinet.net> wrote in comp.lang.perl.misc:
> >Anno Siegel wrote:
> >
> >> Bob Dilworth <bdilworth@mco.edu> wrote in comp.lang.perl.misc:
> >> >On 2 Aug 2000 14:22:40 -0000, anno4000@lublin.zrz.tu-berlin.de (Anno
> >> >Siegel) wrote:
> >> >
> >> >[Posted and e-mailed as per the "rules"]
> >> >
> >> ><snip>
> >> >
> >> >>More grousing: Pleas keep your line length below 72 characters or so. And
> >> >>don't Cc postings per email without clearly indicating that the same
> >> >>message was also posted to the group. Both are rules that apply all
> >> >>over Usenet and are by no means specific to this group.
> >> >>
> >> >Sorry but I've never heard of these "rules" before. Doesn't men they
> >> >don't exist just that the other groups must be more forgiving of such
> >> >sins.
> >>
> >> You haven't been around usenet for long, it appears.
> >>
> >
> >No, I haven't been around THIS newsgroup for long.
>
> Over-long lines and stealth Cs's are unpopular everywhere, for reasons
> that don't depend on the purpose of any particular newsgroup.
>
> BTW, your lines are longer than 80 characters again.
>
> > I've not encountered the arrogance
> >and meanness I've seen in this group in other groups I frequent. As a matter of fact
> >folks seem to be rather nice in those other groups. You can't assume that my experience
> >is like yours so please stop doing that.
>
> You and me are walking along a street.
>
> Me: Hey, watch out. We got a red traffic light.
> You: Traffic light?
> Me: You haven't been around for long, have you?
> You: Don't assume your experience is like mine.
>
> > Additionally, the fact that my experience is
> >different also does not mean that I lack understanding, intelligence, or whatever else
> >you might decide to throw my way.
>
> I haven't commented on your intelligence or understanding yet, though
> I'm beginning to have my doubts.
>
> >> >>>also not familiar with the "jeopardectomy" metaphor and am curious as to what the
> >> >>>heck it refers.
> >> >>
> >> >>Hang around a bit. The term "jeopardy posting" (and implicitly
> >> >>"jeopardectomy") are explained about twice or three times a week.
> >> >
> >> >So ... there's not a simple explanation that your yourself could have
> >> >provided? Such knowledge must be "earned" as part of some sort of
> >> >initiation ritual?
> >>
> >> Well, in part, frankly yes. Most newsgroups of some standing develop
> >> an array of in-jokes and what might be called shibboleths, whose use
> >> shows that posters have done their required lurking before posting.
> >>
> >
> >I didn't know that such a complex dance was required here. If there are requirements
> >like these in the other groups I frequent then they're not as important as they
> >apparently are in clpm. It seems like a whole lot of work you purity monitors have
> >given yourselves. You really feel the heavy-duty obiesence to these "rules" is worth
> >it?
>
> Careful with those big words, they're tricky to handle. (Obeisance.)
>
> No, you didn't know how things work around here, and you didn't bother
> to find out before posting. So you get replies that tell you. Whether
> the effort is worth it is for those to decide who undertake the effort.
>
> [...]
>
> >> In the face of an overwhelming influx of newbies, a newsgroup develops
> >> defense mechanisms to maintain its identity. This is by no means
> >> particular to clpm.
> >
> >Excuse me? Defense against newbies? What kind of arrogant claptrap is that?
>
> It's the kind of arrogant claptrap that keeps a newsgroup functional for
> a while.
>
> > Why help
> >folks when you can insult them instead, right? Wow! You guys are real pieces of work.
>
> It isn't *the* purpose of clpm to help people with their Perl programs,
> although we do it all the time, a lot of it. This is a place for people
> with an interest in the Perl language to discuss pertinent issues. Not
> much of that happens, because a vast majority of original postings are
> questions (often very elementary questions) about how to do this or that
> "in PERL". The arrogance is really on the side of people who believe
> that a community of Perl experts (some of them world class) are obliged
> to help and hold the hands of everyone who happens to barge in with
> a question.
>
> Anno
------------------------------
Date: Thu, 03 Aug 2000 14:05:25 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: splitting on spaces
Message-Id: <3989DE95.C6DD04DE@stomp.stomp.tokyo>
Julie Saba wrote:
> Thanks for the explanation of what this group is and
> is not, Anno. Now, at least I know I don't belong here
> before I'm made a fool of.
(snipped)
Oh I dunno Ms. Saba. This is really a matter of
perspective. My personal perspective is you made
fools of many boys here, an event to which they
will never concede. Personal perspective is well
within a mind's eye and clear vision is directly
proportionate to intellect behind this mind's eye.
These boys would not be noted as Rocket Scientists.
You have every right to use this newsgroup as with
other newsgroups. Founding principal of USENET is
Freedom and, freedom of speech, within social mores.
However, as you know, each newsgroup develops its
own fascist cabal. This group is no different.
Nonetheless, these fascist Idi Amin here are just
toothless paper tigers spitting confetti and will
piddle, tuck tail and run with a BOO!
There is a sad note attached to this freedom we
are to enjoy here and hopefully nearly everywhere.
Within this group, again as with other groups,
these fascist wanna-be Cyber-Gods will not hesitate
to resort to insult, vulgarities, sexism, racism
and even crime, to satiate their egos. I know this
from long direct experience with these people and
people in other newsgroups. These morally repugnant
and criminally disgusting activities are quite the
common events in this newsgroup.
So there is a sad note with our freedom. To use this
group you must be firm and stand your ground. You must
say no to morally offensive people, say no to those
criminals here and, never backdown from taking
aggressive and assertive actions to emphasize
your NO!
* Thinks Braveheart *
Godzilla!
------------------------------
Date: Thu, 03 Aug 2000 17:14:09 -0400
From: Drew Simonis <care227@attglobal.net>
Subject: Re: splitting on spaces
Message-Id: <3989E0A1.9E5A6EC8@attglobal.net>
"Godzilla!" wrote:
>
> However, as you know, each newsgroup develops its
> own fascist cabal. This group is no different.
> Nonetheless, these fascist Idi Amin here are just
> toothless paper tigers spitting confetti and will
> piddle, tuck tail and run with a BOO!
Here you insult.
> There is a sad note attached to this freedom we
> are to enjoy here and hopefully nearly everywhere.
> Within this group, again as with other groups,
> these fascist wanna-be Cyber-Gods will not hesitate
> to resort to insult, vulgarities, sexism, racism
> and even crime, to satiate their egos.
And here you decry such behaviour as you yourself
demonstrate.
------------------------------
Date: Thu, 03 Aug 2000 16:19:06 -0500
From: Russ Jones <russ_jones@rac.ray.com>
Subject: Re: splitting on spaces
Message-Id: <3989E1CA.40A1766A@rac.ray.com>
"Godzilla!" wrote:
>
a bunch more crap
> Godzilla!
I can't take any more. You used to be entertaining. Now you're just
tiresome.
I think the word is "plonk"
--
Russ Jones - HP OpenView IT/Operatons support
Raytheon Aircraft Company, Wichita KS
russ_jones@rac.ray.com 316-676-0747
Quae narravi, nullo modo negabo. - Catullus
------------------------------
Date: Thu, 03 Aug 2000 17:53:30 -0400
From: Julie Saba <julie@friendlysoftware.com>
Subject: Re: splitting on spaces
Message-Id: <3989E9D9.9167B4F9@friendlysoftware.com>
"Godzilla!" wrote:
> Julie Saba wrote:
>
> > Thanks for the explanation of what this group is and
> > is not, Anno. Now, at least I know I don't belong here
> > before I'm made a fool of.
>
> (snipped)
>
> Oh I dunno Ms. Saba. This is really a matter of
> perspective. My personal perspective is you made
> fools of many boys here, an event to which they
> will never concede. Personal perspective is well
> within a mind's eye and clear vision is directly
> proportionate to intellect behind this mind's eye.
>
> These boys would not be noted as Rocket Scientists.
>
> You have every right to use this newsgroup as with
> other newsgroups. Founding principal of USENET is
> Freedom and, freedom of speech, within social mores.
>
> However, as you know, each newsgroup develops its
> own fascist cabal. This group is no different.
> Nonetheless, these fascist Idi Amin here are just
> toothless paper tigers spitting confetti and will
> piddle, tuck tail and run with a BOO!
>
> There is a sad note attached to this freedom we
> are to enjoy here and hopefully nearly everywhere.
> Within this group, again as with other groups,
> these fascist wanna-be Cyber-Gods will not hesitate
> to resort to insult, vulgarities, sexism, racism
> and even crime, to satiate their egos. I know this
> from long direct experience with these people and
> people in other newsgroups. These morally repugnant
> and criminally disgusting activities are quite the
> common events in this newsgroup.
>
> So there is a sad note with our freedom. To use this
> group you must be firm and stand your ground. You must
> say no to morally offensive people, say no to those
> criminals here and, never backdown from taking
> aggressive and assertive actions to emphasize
> your NO!
>
> * Thinks Braveheart *
>
> Godzilla!
Thanks, G. Maybe I will hang out a while and see if maybe I do belong
here after all. I know I'm not "world class" but I'm also not a "bottom
feeder" either. We'll see what happens.
Ms. Saba
------------------------------
Date: Thu, 3 Aug 2000 15:42:20 +0100
From: "Steve Jones" <steve.jones@takethisoutproact.net>
Subject: Re: system or backticks
Message-Id: <3989855a_2@nnrp1.news.uk.psi.net>
Maybe it's the path. Windows NT has system env vars and user env vars. If
the dos command is in the user path, but not in the system path, maybe Perl
can't see the program. Put the full path to the program in the command line.
By the way, you don't need to use @ARGS. For example,
$status = system("notepad file1.txt");
works OK because notepad is in the path. Use set at the command line to see
the path variable. Use control panel/system to set them.
Steve
--
Steve Jones
ProAct International, 9a Vale Street, Denbigh, North Wales
stevej@proact.net
"Lauren Smith" <lauren_smith13@hotmail.com> wrote in message
news:8m4r60$1dq$1@brokaw.wa.com...
>
> <mchampneys@my-deja.com> wrote in message
> news:8m4pl0$ght$1@nnrp1.deja.com...
> > I am seriously befuddled...
> >
> > I am trying to execute a command line DOS program from a Perl script.
> > (obviously, this is on a Windows machine) The DOS program executes fine
> > from the command line and also from a batch file, but I can't seem get
> > the Perl script to execute it.
> >
> > The DOS program has two arguments that need to passed to it.
> >
> > I have tried the following code:
> >
> > @args=("jpegsize.exe", "test.jpg", "$testt.jpg");
> > $test=system "@args";
> >
> > I have also tried this:
> >
> > $test=`jpegsize.exe test.jpg testt.jpg`;
> >
> > Anybody have any ideas?
>
> Are you in the right directory to execute jpegsize.exe?
>
> What are you trying to capture in $test?
>
> Have you read the documentation for system() (which also describes the
> backticks, and their respective differences)?
>
> perldoc -f system
>
> Lauren
>
>
>
------------------------------
Date: Thu, 3 Aug 2000 15:42:20 +0100
From: "Steve Jones" <steve.jones@takethisoutproact.net>
Subject: Re: system or backticks
Message-Id: <3989876f_2@nnrp1.news.uk.psi.net>
Maybe it's the path. Windows NT has system env vars and user env vars. If
the dos command is in the user path, but not in the system path, maybe Perl
can't see the program. Put the full path to the program in the command line.
By the way, you don't need to use @ARGS. For example,
$status = system("notepad file1.txt");
works OK because notepad is in the path. Use set at the command line to see
the path variable. Use control panel/system to set them.
Steve
--
Steve Jones
ProAct International, 9a Vale Street, Denbigh, North Wales
stevej@proact.net
"Lauren Smith" <lauren_smith13@hotmail.com> wrote in message
news:8m4r60$1dq$1@brokaw.wa.com...
>
> <mchampneys@my-deja.com> wrote in message
> news:8m4pl0$ght$1@nnrp1.deja.com...
> > I am seriously befuddled...
> >
> > I am trying to execute a command line DOS program from a Perl script.
> > (obviously, this is on a Windows machine) The DOS program executes fine
> > from the command line and also from a batch file, but I can't seem get
> > the Perl script to execute it.
> >
> > The DOS program has two arguments that need to passed to it.
> >
> > I have tried the following code:
> >
> > @args=("jpegsize.exe", "test.jpg", "$testt.jpg");
> > $test=system "@args";
> >
> > I have also tried this:
> >
> > $test=`jpegsize.exe test.jpg testt.jpg`;
> >
> > Anybody have any ideas?
>
> Are you in the right directory to execute jpegsize.exe?
>
> What are you trying to capture in $test?
>
> Have you read the documentation for system() (which also describes the
> backticks, and their respective differences)?
>
> perldoc -f system
>
> Lauren
>
>
>
------------------------------
Date: Thu, 3 Aug 2000 15:42:20 +0100
From: "Steve Jones" <steve.jones@takethisoutproact.net>
Subject: Re: system or backticks
Message-Id: <39899564_2@nnrp1.news.uk.psi.net>
Maybe it's the path. Windows NT has system env vars and user env vars. If
the dos command is in the user path, but not in the system path, maybe Perl
can't see the program. Put the full path to the program in the command line.
By the way, you don't need to use @ARGS. For example,
$status = system("notepad file1.txt");
works OK because notepad is in the path. Use set at the command line to see
the path variable. Use control panel/system to set them.
Steve
--
Steve Jones
ProAct International, 9a Vale Street, Denbigh, North Wales
stevej@proact.net
"Lauren Smith" <lauren_smith13@hotmail.com> wrote in message
news:8m4r60$1dq$1@brokaw.wa.com...
>
> <mchampneys@my-deja.com> wrote in message
> news:8m4pl0$ght$1@nnrp1.deja.com...
> > I am seriously befuddled...
> >
> > I am trying to execute a command line DOS program from a Perl script.
> > (obviously, this is on a Windows machine) The DOS program executes fine
> > from the command line and also from a batch file, but I can't seem get
> > the Perl script to execute it.
> >
> > The DOS program has two arguments that need to passed to it.
> >
> > I have tried the following code:
> >
> > @args=("jpegsize.exe", "test.jpg", "$testt.jpg");
> > $test=system "@args";
> >
> > I have also tried this:
> >
> > $test=`jpegsize.exe test.jpg testt.jpg`;
> >
> > Anybody have any ideas?
>
> Are you in the right directory to execute jpegsize.exe?
>
> What are you trying to capture in $test?
>
> Have you read the documentation for system() (which also describes the
> backticks, and their respective differences)?
>
> perldoc -f system
>
> Lauren
>
>
>
------------------------------
Date: Thu, 3 Aug 2000 15:31:11 +0100
From: "Steve Jones" <steve.jones@takethisoutproact.net>
Subject: Re: Variable Interpolation Woes
Message-Id: <398982c1_1@nnrp1.news.uk.psi.net>
The statement
print "The error $dbh->errmsg() occured.";
will make perl do as follows
1) Print out "The error"
2) Interpolate and print out $dbh (most likely some an object dump)
3) Print out literally "->errmsg() occured."
This sounds like what you are seeing. Why don't you get the errmsg into a
string first?
$errmsg = $dbh->errmsg() ;
print "The error $errmsg occured.";
or is this workaround too easy?
--
Steve Jones
stevej@proact.net
<abliss@mindspring.com> wrote in message news:1103_965088960@eratos...
> I'm sure this question has been asked before, but I can't seem to
> find the answer in any of the FAQs or DOCs. I am trying to do
> something like the following:
>
> print 'The error '.$dbh->errmsg().' occured.';
>
> My first instinct was to use a variable-interpolated string, a la
>
> print "The error $dbh->errmsg() occured.";
>
> but this prints the $dbh reference and then the literal '-
> >errmsg()'. Then I tried every permutation of {'s, ('s, etc. that
> I could come up with, and none of them did the desired thing. The
> best I could find in the DOCs was this section of perlop:
>
> ---
> Note also that the interpolation code needs to make a decision on
> where the interpolated scalar ends. For instance, whether
> "a $b -> {c}" really means:
> "a " . $b . " -> {c}";
> or:
> "a " . $b -> {c};
> Most of the time, the longest possible text that does not include
> spaces between components and which contains matching braces or
> brackets. because the outcome may be determined by voting based
> on heuristic estimators, the result is not strictly predictable.
> Fortunately, it's usually correct for ambiguous cases.
> ---
>
> This has done nothing but confuse me further, as it does not seem
> to be the case at all (not to mention the sketchy sentence
> structure). Can someone show me how to do this?
>
>
> Another thing which seems, to me, like it ought to work is this:
>
> $foo = 'bar';
> $bar = 'baz';
> $bazbar = 'Yay!';
>
> print "${$$foo$foo}";
>
> But that doesn't even compile. Even when I give explicit
> directions on what order it the variables should be expanded, like
> this:
>
> print "${${${foo}}${foo}}";
>
> It still doesn't go down. I think I have some kind of basic
> misunderstanding about how this works. If someone could give me an
> example or two that would clear it up, I'd be very grateful.
>
> Thanks very much for your time.
> Adam Bliss
>
>
------------------------------
Date: Thu, 3 Aug 2000 12:11:50 -0600
From: "Robin Bank" <rbank@csf.edu>
Subject: Re: very cool routine
Message-Id: <8mccif$1ltv$1@reader.nmix.net>
> I saw the subsequent apology. It's not your mouthing off that got you
> killfiled; everyone's entitled to bad days.
Killfile shmilfile.
> But what makes you so superior to the skilled coders and developers
> who pay attention and RTFM? If that's a geek, go ahead and label me.
Hmmm...ever RTFM and missed one function and said hey, I wish they had that
function, and realizing that they "don't" have it, decided to write their
own. Not knowing one little routine doesn't make me a "not skilled"
coder/developer. I'm sorry I don't know everything like you.
> And you never know who the "geeks" are... We could be that old man who
cut
> you off last week. We could be that girl on the barstool that makes all
the
> guys drool in their beers. We could even be that punk skater that almost
> knocked you into traffic. We could be _anyone_! *evil laugh* =)
That's true...However, I'd like to pare this down a bit. Anyone who stares
at a computer screen long enough to reply to every single trvial post on a
newsgroup would NOT look as good as that girl on the barstool. And, let's
face it, grumpy old men are not perl hackers... I suppose it could have been
the punk skater, but wouldn't he be out skating around rebelliously? Perl
doesn't seem like his thing. But, hey, you're right...you could be anyone.
--
< Robin Bank >
{ Web Design / Programming }
[ Internet @ Cybermesa ] [ www.cybermesa.com ] [ 505 - 988 - 9200 ]
------------------------------
Date: Thu, 03 Aug 2000 19:47:57 GMT
From: Dan Sugalski <dan@tuatha.sidhe.org>
Subject: Re: very cool routine
Message-Id: <N%ji5.10149$f_5.53821@news1.rdc1.ct.home.com>
Robin Bank <rbank@csf.edu> wrote:
> Actually, no matter how you put it, C code is gonna run faster.
While oftehn the case, this is not universally true. Your C program will
run faster than the equivalent perl one if and only if your C code is more
efficient than perl's C code. Granted, perl has the overhead of morphing
scalars and op dispatch so you have a good running start, but for programs
heavy with file IO and regex text munching you'll find yourself
hard-pressed to beat perl. A lot of work has gone into speeding up many of
the ops, and odds are many of the programmers who did it were
significantly better at what they optimized than you are. (Which is OK,
they were better than me, too)
Dan
------------------------------
Date: Thu, 03 Aug 2000 14:46:23 -0500
From: Russ Jones <russ_jones@rac.ray.com>
Subject: Re: very cool routine
Message-Id: <3989CC0F.7250A88A@rac.ray.com>
Robin Bank wrote:
>
> ... Anyone who stares
> at a computer screen long enough to reply to every single trvial post on a
> newsgroup would NOT look as good as that girl on the barstool. And, let's
> face it, grumpy old men are not perl hackers...
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
The hell we ain't you little snot! And I look damn good on a bar
stool, too.
--
Russ Jones - HP OpenView IT/Operatons support
Raytheon Aircraft Company, Wichita KS
russ_jones@rac.ray.com 316-676-0747
Quae narravi, nullo modo negabo. - Catullus
------------------------------
Date: Thu, 03 Aug 2000 16:01:04 -0400
From: Drew Simonis <care227@attglobal.net>
Subject: Re: very cool routine
Message-Id: <3989CF80.BA7DD6E4@attglobal.net>
Russ Jones wrote:
>
> Robin Bank wrote:
> >
> > ... Anyone who stares
> > at a computer screen long enough to reply to every single trvial post on a
> > newsgroup would NOT look as good as that girl on the barstool. And, let's
> > face it, grumpy old men are not perl hackers...
> ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
>
> The hell we ain't you little snot! And I look damn good on a bar
> stool, too.
>
Oh my, Russ... thats alot of information to digest.
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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 V9 Issue 3906
**************************************
