[16342] in Perl-Users-Digest
Perl-Users Digest, Issue: 3754 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Jul 20 06:05:42 2000
Date: Thu, 20 Jul 2000 03:05:14 -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: <964087514-v9-i3754@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Thu, 20 Jul 2000 Volume: 9 Number: 3754
Today's topics:
+++ Special Characters in Filenames +++ <bulletproof@5sl.org>
Re: +++ Special Characters in Filenames +++ <gus@black.hole-in-the.net>
Re: +++ Special Characters in Filenames +++ (Abigail)
- I Need Help <bbkling@earthlink.net>
Re: ATTENTION PERL MACHOES!!!!!!!!!!!!!!!!!!! (Philip Lees)
Re: ATTENTION PERL MACHOES!!!!!!!!!!!!!!!!!!! <bart.lateur@skynet.be>
Re: Bad file descriptor from Mail::Mailer <gellyfish@gellyfish.com>
Re: Comparing dates in perl <sb@muccpu1.muc.sdm.de>
Re: COOKIE Problem <nickwill@iname.com>
Re: COOKIE Problem (Abigail)
Re: Date on Win32 (Bernard El-Hagin)
Delete records in 2 weeks time <jaurangNOjaSPAM@crosswinds.net.invalid>
Re: Delete records in 2 weeks time <pavel@gingerall.cz>
Re: Delete records in 2 weeks time (Abigail)
Re: directory structure listing (Abigail)
Re: directory structure listing (Rafael Garcia-Suarez)
file handle eastking@my-deja.com
Re: file handle <pavel@gingerall.cz>
Re: How to read file line by line! <psi@nospam.mikrolog.fi>
Re: Include a script? (Neil Kandalgaonkar)
Insecure $ENV{PATH} while running setuid <hugh.bragg@mphasis.com>
IO::Socket::SSL buggy? <mattl@quokka.cs.uwa.edu.au>
limit on canvas object? <jdb@wcoil.com>
Re: looking for a ODP or yahoo style database (Abigail)
Re: looking for a ODP or yahoo style database <jdb@wcoil.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 20 Jul 2000 09:11:32 +0200
From: "M. Roming" <bulletproof@5sl.org>
Subject: +++ Special Characters in Filenames +++
Message-Id: <3976A623.83E2449E@5sl.org>
Hi,
I have got a problem with special characters in filenames. I am using
the ::getopt
Module to get the filename as an argument.The Filename is something like
this
-> $machine.dat
I thought it's possible to quote the special character '$'
with a construct like this :
($datname=$opt{'o'}) =~ s#([\$\\])#\\$1#ge;
But it's still impossible to open the file. All characters before '.dat'
are cut off. It seems that the committal is wrong.
Any ideas
------------------------------
Date: Thu, 20 Jul 2000 08:36:19 GMT
From: Gus <gus@black.hole-in-the.net>
Subject: Re: +++ Special Characters in Filenames +++
Message-Id: <964082179.3065.2.nnrp-09.c29f015a@news.demon.co.uk>
Stupid characters in Subject:
M. Roming <bulletproof@5sl.org> wrote:
> I have got a problem with special characters in filenames.
It looks like you've got a regular expresion requirement to me, or
I may have misunderstood.
> I am using
> the ::getopt
> Module to get the filename as an argument.The Filename is something like
> this
> -> $machine.dat
> I thought it's possible to quote the special character '$'
> with a construct like this :
> ($datname=$opt{'o'}) =~ s#([\$\\])#\\$1#ge;
> But it's still impossible to open the file. All characters before '.dat'
> are cut off. It seems that the committal is wrong.
If I understand, you have a string '$machine.dat' and you want 'machine.dat'
so 's#\$##g' will do it.
Just a thought: I take it you are /not/ doing something like
shell:$ ./yourprogram $foobar.dat
which would cause the shell to try to expand $foobar, fail and substitute
an empty string for $foobar before passing it to the script.
[angus@faith angus]$ cat z.pl
#!/usr/bin/perl
foreach $arg (@ARGV) {
print "arg", ++$x , " : $arg \n";
}
[angus@faith angus]$ ./z.pl a b
arg1 : a
arg2 : b
[angus@faith angus]$ ./z.pl $foobar.dat
arg1 : .dat
[angus@faith angus]$ ./z.pl \$foobar.dat
arg1 : $foobar.dat
Regards,
_Gus
--
gus@black.hole-in-the.net
0x58E18C6D
82 AA 4D 7F D8 45 58 05 6D 1B 1A 72 1E DB 31 B5
http://black.hole-in-the.net/gus/
------------------------------
Date: 20 Jul 2000 05:23:39 EDT
From: abigail@delanet.com (Abigail)
Subject: Re: +++ Special Characters in Filenames +++
Message-Id: <slrn8ndia0.3do.abigail@alexandra.delanet.com>
M. Roming (bulletproof@5sl.org) wrote on MMDXV September MCMXCIII in
<URL:news:3976A623.83E2449E@5sl.org>:
:) Hi,
:)
:) I have got a problem with special characters in filenames. I am using
:) the ::getopt
:) Module to get the filename as an argument.The Filename is something like
:) this
:) -> $machine.dat
:) I thought it's possible to quote the special character '$'
:) with a construct like this :
:)
:) ($datname=$opt{'o'}) =~ s#([\$\\])#\\$1#ge;
:)
:) But it's still impossible to open the file. All characters before '.dat'
:) are cut off. It seems that the committal is wrong.
Why are you modifying the filename anyway? What are you trying to achieve?
$ only needs to be escaped in Perl double quoted literals. If it's just
part of a value, then that's fine.
open my $fh => $opt {o} or die "Failed to open $opt{o}: $!";
should work.
Of course, $opt {o} might not contain what you think it does. You do
know that $ is special to the shell as well, don't you?
Abigail
--
perl5.004 -wMMath::BigInt -e'$^V=Math::BigInt->new(qq]$^F$^W783$[$%9889$^F47]
.qq]$|88768$^W596577669$%$^W5$^F3364$[$^W$^F$|838747$[8889739$%$|$^F673$%$^W]
.qq]98$^F76777$=56]);$^U=substr($]=>$|=>5)*(q.25..($^W=@^V))=>do{print+chr$^V
%$^U;$^V/=$^U}while$^V!=$^W'
------------------------------
Date: Thu, 20 Jul 2000 05:36:26 GMT
From: Bob Kling <bbkling@earthlink.net>
Subject: - I Need Help
Message-Id: <39768F7D.4C0E3E5D@earthlink.net>
I need to hire a Programmer - WORK AT HOME -Full Time
Ideal person would be strong in Perl, with some Java, and some SQL.
Server admin skills a big plus; Unix and some NT
-------
Also it would be a super help if anyone reading this could tell me if
there is a job posting service that has a "work at home" or
"tele-commuting " job section? The big job sites do not have this
category. Thank you very
much.
Bob
bob@tokensystems.com
------------------------------
Date: Thu, 20 Jul 2000 06:38:42 GMT
From: pjlees@ics.forthcomingevents.gr (Philip Lees)
Subject: Re: ATTENTION PERL MACHOES!!!!!!!!!!!!!!!!!!!
Message-Id: <39769e0c.61511629@news.grnet.gr>
On 17 Jul 2000 06:34:46 -0700, merlyn@stonehenge.com (Randal L.
Schwartz) wrote:
>I think you'll find that experts generally do pick up on the
>questioner having said "I've read X Y Z, and here's what I don't get
>about that". First, that's pretty rare, and second, it would be even
>rarer to get a flat "RTFM" once that has happened. :) I challenge
>you to pick out the 1% of the cases that are like that against the
>normal 99% of the cases. Go ahead. Deja.com is your friend. :)
I'm sure you're right. I certainly don't intend to spend days
searching deja in a probably futile attempt to prove you wrong.
The problem is, when you're on the receiving end of the 1% it feels
like a lot more.
Phil
--
Philip Lees
ICS-FORTH, Heraklion, Crete, Greece
Ignore coming events if you wish to send me e-mail
'The aim of high technology should be to simplify, not complicate' - Hans Christian von Baeyer
------------------------------
Date: Thu, 20 Jul 2000 09:27:15 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: ATTENTION PERL MACHOES!!!!!!!!!!!!!!!!!!!
Message-Id: <v6hdns46ct5jra1bh9gan6glkpuhdc45fe@4ax.com>
p3rlc0dr@my-deja.com wrote:
>FOR THIS, I HAVE THE HIGHEST PRAISES FOR TOM CHRISTIANSEN. INSTEAD OF
>PERPETUATING THIS RUDENESS, HE OPTED TO NOT SUPPORT THIS BAD BEHAVIOR
>AND CHOSE TO WRITE BOOKS AND HERD GOATS IN RURAL COLORADO INSTEAD.
Maybe you can thank Sadam Houssein too, for not particpating in this
newsgroup.
You can thank 99.999% of the world population for not participating in
this newsgroup.
I would think even more people would thank you for not paticipating in
this newsgroup.
(p.s. does this count as "Hitler"? ;-)
--
Bart.
------------------------------
Date: 20 Jul 2000 10:06:25 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Bad file descriptor from Mail::Mailer
Message-Id: <8l6feh$7n6$1@orpheus.gellyfish.com>
On Wed, 19 Jul 2000 15:26:35 GMT Otis Gospodnetic wrote:
> Hi,
>
> I am using Graham Barr's Mail::Mailer module (part of MailTools) and
> every once in a while the script that uses Mail::Send (which uses
> Mail::Mailer underneath) dies with the following error:
>
> Bad file descriptor at /usr/lib/perl5/site_perl/5.005/Mail/Mailer.pm
> line 269.
>
> Here is line 268:
> 268 # Fork and start a mailer
> 269 (defined($exe) && open($self,"|-"))
> 270 || $self->exec($exe, $args, \@to)
> 271 || die $!;
>
> I am using Mail::Send to send mail via SMTP directly (not 'mail'
> nor 'sendmail'), like so:
>
> my $fh = $msg->open('smtp', Server => 'smtp.server.here');
>
> There is no consistency: sometimes it works without any problems, and
> sometimes it dies like this.
> I am running this on Red Hat 6.2 with perl version 5.005_03.
>
> Does anyone know what could be causing this?
>
It is probably a problem with your mail server or your network. I posted a
patch to Mail::Mailer::smtp a couple of weeks ago that would enable you
to switch on the underlying Net::SMTP's debugging mode - you will probably
be able to find it via Deja News.
/J\
--
yapc::Europe in assocation with the Institute Of Contemporary Arts
<http://www.yapc.org/Europe/> <http://www.ica.org.uk>
------------------------------
Date: 20 Jul 2000 06:51:07 GMT
From: Steffen Beyer <sb@muccpu1.muc.sdm.de>
Subject: Re: Comparing dates in perl
Message-Id: <8l67gr$co9$2@solti3.sdm.de>
In article <8l5hu1$jtg$1@nnrp1.deja.com>, steveeq1@earthlink.net wrote:
> I have a string variable "19/Jul/2000". Is there an easy way to convert
> this string into the perl date format (that weird number or whatever).
> I need to compare two dates, but one of them is a string.
> I understand that there is some sort of "date module" to do this
> conversion, but I don't know what it's called. I can't seem to find it
> anywhere on Deja. . .
You could use "Date::Calc" (or "Date::EasyCalc").
-------------------- cut here -------------------- cut here --------------------
use Date::Calc qw(:all);
$string = "19/Jul/2000";
@date = Decode_Date_EU($string); # EU because of order day-month-year
@today = Today();
$diff = Delta_Days(@date,@today);
if ($diff == 0) { # same
}
elsif ($diff > 0) { # @date lies in the past
}
else { # @date lies in the future
}
-------------------- cut here -------------------- cut here --------------------
See http://www.perl.com/CPAN/modules/by-module/Date/Date-Calc-4.3.tar.gz
or http://www.engelschall.com/u/sb/download/pkg/Date-Calc-5.0.tar.gz
Good luck!
--
Steffen Beyer <sb@engelschall.com>
http://www.engelschall.com/u/sb/whoami/ (Who am I)
http://www.engelschall.com/u/sb/gallery/ (Fotos Brasil, USA, ...)
http://www.engelschall.com/u/sb/download/ (Free Perl and C Software)
------------------------------
Date: Thu, 20 Jul 2000 09:52:07 +0100
From: "nick" <nickwill@iname.com>
Subject: Re: COOKIE Problem
Message-Id: <q7zd5.91$yE4.2551@news2-win.server.ntlworld.com>
Hi everybody,
I have run across a problem on a particular persons PC and I can't replicate
it elsewhere, nor have I ever seen it occur before. I was wondering if
anyone has come across it before and if so, do you know the solution?
I wrote a Perl CGI Program to suit a Sunsparc Unix Server. The Program high
relies on Cookies. It works fine on 12 different PC's I have tested it on
but on one PC, it does not work.
It creates and saves the cookie correctly but when it opens up the cookie to
dynamically generate the HTML Web Page, the information is all missing and
totally incorrect.
I wrote another CGI Program to test the environment and instead of the
correct cookie information being displayed (the cookie was still saved on
the PC Harddisk), I received the following message:
HTTP_COOKIE = SITESERVER=ID=a0bae63b299ebf9b907bcbdf66b526c9;
RMID=c35c433338aac380
HTTP_X_FORWARDED_FOR = 62.124.4.118
REMOTE_HOSE = webcacheh12a.cache.pol.co.uk
I have done a lot of checking and spoke with his ISP Technical department
and his Web Hosting Tecnical department and no one knows. I don't know if it
is a Internet Configuration problem or a local PC problem.
If anyone knows the solution, can you PLEASE email me asap at
Nickwill@iname.com and I will be most grateful. NO SPAM please!
TIA
------------------------------
Date: 20 Jul 2000 05:27:03 EDT
From: abigail@delanet.com (Abigail)
Subject: Re: COOKIE Problem
Message-Id: <slrn8ndigc.3do.abigail@alexandra.delanet.com>
nick (nickwill@iname.com) wrote on MMDXV September MCMXCIII in
<URL:news:q7zd5.91$yE4.2551@news2-win.server.ntlworld.com>:
][ Hi everybody,
][
][ I have run across a problem on a particular persons PC and I can't replicate
][ it elsewhere, nor have I ever seen it occur before. I was wondering if
][ anyone has come across it before and if so, do you know the solution?
][
][ I wrote a Perl CGI Program to suit a Sunsparc Unix Server. The Program high
][ relies on Cookies. It works fine on 12 different PC's I have tested it on
][ but on one PC, it does not work.
And what makes that a Perl problem?
Abigail
--
perl -MTime::JulianDay -lwe'@r=reverse(M=>(0)x99=>CM=>(0)x399=>D=>(0)x99=>CD=>(
0)x299=>C=>(0)x9=>XC=>(0)x39=>L=>(0)x9=>XL=>(0)x29=>X=>IX=>0=>0=>0=>V=>IV=>0=>0
=>I=>$r=-2449231+gm_julian_day+time);do{until($r<$#r){$_.=$r[$#r];$r-=$#r}for(;
!$r[--$#r];){}}while$r;$,="\x20";print+$_=>September=>MCMXCIII=>()'
------------------------------
Date: Thu, 20 Jul 2000 05:43:52 GMT
From: bernard.el-hagin@lido-tech.net (Bernard El-Hagin)
Subject: Re: Date on Win32
Message-Id: <slrn8nd442.6r.bernard.el-hagin@gdndev25.lido-tech>
Lance Hoffmeyer <vibrato@my-deja.com> wrote:
>How can I get the date on Win95?
You're never gonna get a date if you use Windows. :-)
Bernard
--
perl -e '${qq=\x22=}=qq=\053=;$_="BeJUST_ANOTHERnaPERL_HACKERd\n";
${qq=\x2c=}=qq=\x72=;print split /[AC-Z_]$"/;'
------------------------------
Date: Thu, 20 Jul 2000 01:11:41 -0700
From: Taurean <jaurangNOjaSPAM@crosswinds.net.invalid>
Subject: Delete records in 2 weeks time
Message-Id: <17599f0b.079eed48@usw-ex0108-061.remarq.com>
I have a text file containing lines of records. I want to
delete the records one by one from the file 2 weeks after
posting. How do I do that? TIA.
* Sent from AltaVista http://www.altavista.com Where you can also find related Web Pages, Images, Audios, Videos, News, and Shopping. Smart is Beautiful
------------------------------
Date: Thu, 20 Jul 2000 11:17:52 +0200
From: Pavel Hlavnicka <pavel@gingerall.cz>
Subject: Re: Delete records in 2 weeks time
Message-Id: <3976C3C0.5000801@gingerall.cz>
perldoc perlfaq5
"how do I change one line..."
P.
Taurean wrote:
> I have a text file containing lines of records. I want to
> delete the records one by one from the file 2 weeks after
> posting. How do I do that? TIA.
>
>
> * Sent from AltaVista http://www.altavista.com Where you can also find related Web Pages, Images, Audios, Videos, News, and Shopping. Smart is Beautiful
------------------------------
Date: 20 Jul 2000 05:28:30 EDT
From: abigail@delanet.com (Abigail)
Subject: Re: Delete records in 2 weeks time
Message-Id: <slrn8ndij4.3do.abigail@alexandra.delanet.com>
Taurean (jaurangNOjaSPAM@crosswinds.net.invalid) wrote on MMDXV September
MCMXCIII in <URL:news:17599f0b.079eed48@usw-ex0108-061.remarq.com>:
\\ I have a text file containing lines of records. I want to
\\ delete the records one by one from the file 2 weeks after
\\ posting. How do I do that? TIA.
Open the file. Read in the records. Throw away the records that are
too old. Seek back to beginning. Write remaining records. Close file.
Abigail
--
perl5.004 -wMMath::BigInt -e'$^V=Math::BigInt->new(qq]$^F$^W783$[$%9889$^F47]
.qq]$|88768$^W596577669$%$^W5$^F3364$[$^W$^F$|838747$[8889739$%$|$^F673$%$^W]
.qq]98$^F76777$=56]);$^U=substr($]=>$|=>5)*(q.25..($^W=@^V))=>do{print+chr$^V
%$^U;$^V/=$^U}while$^V!=$^W'
------------------------------
Date: 20 Jul 2000 01:07:46 EDT
From: abigail@delanet.com (Abigail)
Subject: Re: directory structure listing
Message-Id: <slrn8nd3a8.3do.abigail@alexandra.delanet.com>
no spam (porthos@goplay_nospam.com) wrote on MMDXV September MCMXCIII in
<URL:news:39767C49.86129786@goplay_nospam.com>:
//
// #!/usr/local/bin/perl
You should use -w.
And you should use "use strict;"
// use file::find;
Really? And, what happened when you actually tried to run this?
Abigail
--
$_ = "\112\165\163\1648\141\156\157\164\150\145\1628\120\145"
. "\162\1548\110\141\143\153\145\162\0128\177" and &japh;
sub japh {print "@_" and return if pop; split /\d/ and &japh}
------------------------------
Date: Thu, 20 Jul 2000 07:22:15 GMT
From: rgarciasuarez@free.fr (Rafael Garcia-Suarez)
Subject: Re: directory structure listing
Message-Id: <slrn8ndaea.d3v.rgarciasuarez@rafael.kazibao.net>
no spam wrote in comp.lang.perl.misc:
>
>Hi,
>I still pretty new to perl but I'm trying to generate a tree listing
>that would look something like
>
>top
> dir1
> dir2
> dir2.1
> dir3
>
>so far I havent done very well. I made an attempt using find in a shell
>script but that didn't work out well
#!/bin/sh
find $* -type d | sort | sed 's,[^/]*/, ,g'
This should not be too difficult to translate the above in perl.
--
Rafael Garcia-Suarez
------------------------------
Date: Thu, 20 Jul 2000 05:00:48 GMT
From: eastking@my-deja.com
Subject: file handle
Message-Id: <8l611p$u6v$1@nnrp1.deja.com>
hello, everybody here
in c ,I can use a variable as a file handle, Can I do this in perl?
thanks in advance
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 20 Jul 2000 09:30:12 +0200
From: Pavel Hlavnicka <pavel@gingerall.cz>
Subject: Re: file handle
Message-Id: <3976AA84.5070700@gingerall.cz>
Do you mean something like
$foo = \*STDIN;
readproc($foo);
sub readproc {
my $file = shift;
while (<$foo>) {
blah blah blah....
}
}
?
P.
eastking@my-deja.com wrote:
> hello, everybody here
>
> in c ,I can use a variable as a file handle, Can I do this in perl?
>
> thanks in advance
>
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
------------------------------
Date: Thu, 20 Jul 2000 05:39:36 GMT
From: "Pekka Siiskonen" <psi@nospam.mikrolog.fi>
Subject: Re: How to read file line by line!
Message-Id: <sgwd5.18$L76.1159@read2.inet.fi>
Success, thankyou!
pekka
"Pekka Siiskonen" <psi@nospam.mikrolog.fi> wrote in message
news:AVfd5.106$aQ4.5785@read2.inet.fi...
> Yes you got it right! Must try at once!
>
> pekka
>
> "Marco Natoni" <foo@bar.va> wrote in message
> news:3975898C.C9709429@bar.va...
> > Pekka,
> >
> > Pekka Siiskonen wrote:
> > > Usually files are read like:
> > > -------
> > > open HANDLE, "filename" or die "filename";
> > > while (<HANDLE>){
> > > $foo=$_; # or something...
> > > }
> > > close (HANDLE);
> > > -------
> > > But what if I need to open two or more files at the same time and
> > > read them (large files) row by row in phase with each other? I
> > > cannot put the file handles in while as I cannot reach the values,
> > > and opening the files with different handles and reading with:
> > > $bar=<FILEHANDLE2>;
> > >
> > > won't return a thing! I'm not keen on loading all of the two or
> > > more files in ann array to search with indexes as the amount of
> > > data is large!
> >
> > It is very likely that I have not understood your question, but...
> >
> > <code>
> > open FH1,'<filename1' or die "filename1: $!";
> > open FH2,'<filename2' or die "filename2: $!";
> >
> > while (($foo=<FH1>) and ($bar=<FH2>)) {
> > # do something with either the files
> > }
> >
> > if (!eof FH1) {
> >
> > while ($foo=<FH1>) {
> > # do something with the remaining part of
> > # the first file
> > }
> >
> > }
> >
> > if (!eof FH2) {
> >
> > while ($bar=<FH2>) {
> > # do something with the remaining part of
> > # the second file
> > }
> >
> > }
> >
> > close FH1;
> > close FH2;
> > </code>
> >
> >
> > Best regards,
> > Marco
>
>
------------------------------
Date: Thu, 20 Jul 2000 04:48:51 GMT
From: neil@brevity.org (Neil Kandalgaonkar)
Subject: Re: Include a script?
Message-Id: <8l5vud$3cp$1@localhost.localdomain>
In article <39765129.E63BBBA7@hotmail.com>, Tom <chaptera@hotmail.com> wrote:
BTW, comp.lang.perl is dead, has been for a long time.
>prog1.pl & prog2.pl are also using the same javascript function.
>If I update the javascript function, it will need to update two
>programs.
>
>How can I do that? Can I store the javascript on other files, the call
>prog1.pl or prog2.pl to read the file and print on the html forms?
>
Of course.
1. put the common bits in external files, open and print.
2. make a perl script that does all that, and call it with
do "print_js.pl".
3. make a library of common functions, include it with require(), and
call the &print_js() function you defined.
4. and many other ways, which might involve abandoning the CGI paradigm.
And then there's...
0. In HTML 4, scripts can be invoked by URI:
<SCRIPT SRC="http://foo.com/blah.js" TYPE="text/javascript"></SCRIPT>
If you can get that to work in your target browsers it is much
preferred, if the same script will appear in many places.
--
Neil Kandalgaonkar <neil@brevity.org>
------------------------------
Date: Thu, 20 Jul 2000 09:48:49 +0200
From: Hugh Bragg <hugh.bragg@mphasis.com>
Subject: Insecure $ENV{PATH} while running setuid
Message-Id: <3976AEE1.E6FE6826@mphasis.com>
I have a problem with mail aliasing program which Villy tells
me the answer is here.
I can't find what he is talking about so this is the problem
I posted on the comp.mail.sendmail group.
Hugh Bragg wrote:
>
> I have a few unix systems which use sendmail aliases to
> run a scripts which calls oracle operations which must be
> run as user oracle.
>
> I tried setting this up on my RH Linux 6.2 kernel 2.2.16-3
> but There is some sort of security thing stoping me.
>
> ----- The following addresses had permanent fatal errors -----
> "|/usr/local/oracle/bin/F1mail.pl"
> (expanded from: oracle)
>
> ----- Transcript of session follows -----
> Insecure $ENV{PATH} while running setuid at
> /usr/local/oracle/bin/F1mail.pl line 5.
> 554 "|/usr/local/oracle/bin/F1mail.pl"... unknown mailer error 255
>
> If I try to run it through a .forward file I don't get that far:
>
> [root@cetautomatix oracle]# mailto oracle
> Subject: ASA uren
> test 21
> ~.
> EOT
> /usr/local/oracle/.forward: line 1:
> "|/usr/local/oracle/bin/F1mail.pl"... Address oracle is unsafe for
> mailing to programs
> /root/dead.letter... Saved message in /root/dead.letter
>
> I'm using perl to call my shell script because the suid bit
> has no effect in shell??
>
> I can't find any documentation on this so any pointers would be
> helpful.
>
> Thank you,
> Hugh.
Villy Kruse wrote:
>
> On Wed, 19 Jul 2000 15:58:18 +0200, Hugh Bragg <hugh.bragg@mphasis.com> wrote:
> >I have a few unix systems which use sendmail aliases to
> >run a scripts which calls oracle operations which must be
> >run as user oracle.
> >
> >I tried setting this up on my RH Linux 6.2 kernel 2.2.16-3
> >but There is some sort of security thing stoping me.
> >
>
> Perldoc perlsec has the answer, plus quite a few more you didn't
> know you had a question for.
>
> Follow up to comp.lang.perl.misc. This is not a sendmail problem.
>
> Villy
------------------------------
Date: 20 Jul 2000 07:38:22 GMT
From: MATTHEW LOVE <mattl@quokka.cs.uwa.edu.au>
Subject: IO::Socket::SSL buggy?
Message-Id: <964078702.249087@bilby>
Hi,
I'm trying to setup a secure socket server and am having problems
with the IO::Socket::SSL module.
I have installed the following on a Corel Linux 1.0 box (a debian clone)
o openssl-0.9.5a
o Net_SSLeay.pm-1.05
o IO-Socket-SSL-0.74
But I get the following errors running make test
t/fh-test........... Use of uninitialized value in -r at blib/lib/Net/SSLeay.pm (autosplit into blib/lib/auto/Net/SSLeay/randomize.al) line 1160.
Use of uninitialized value in -r at blib/lib/Net/SSLeay.pm (autosplit into blib/lib/auto/Net/SSLeay/randomize.al) line 1164.
and when I try to use the module in a script such as
$IO::Socket::SSL::DEBUG=1;
$Net::SSLeay::trace=3;
my $sock = IO::Socket::SSL->new ( LocalAddr => 'localhost',
LocalPort => 15001,
Listen => 5,
Proto => 'tcp',
Reuse => 1,
SSL_verify_mode => 0x01,
);
if (! $sock) {
die "Socket could not be created. Reason: $!\n" ;
}
as per the demo scripts I get the following errors...
fh: '0'. error message: '' at /usr/local/lib/perl5/site_perl/5.6.0/IO/Socket/SSL.pm line 668
Use of uninitialized value in concatenation (.) at /usr/local/lib/perl5/site_perl/5.6.0/IO/Socket/SSL.pm line 712.
DESTROY: 'SSL_Context=HASH(0x8359aec)', ''.
Socket could not be created. Reason:
Anybody successfully setup a SSL socket server?
Thanks
--
-------------------------------------+
matt love. |+
computer music group. ||
department of computer science, uwa. ||
mailto:mattl@cs.uwa.edu.au ||
http://www.cs.uwa.edu.au/~mattl ||
-------------------------------------+|
+------ finger me for a PGP key ------+
------------------------------
Date: 20 Jul 2000 06:18:10 GMT
From: "Josiah Bryan" <jdb@wcoil.com>
Subject: limit on canvas object?
Message-Id: <8l65j2$g50$0@206.230.71.54>
Greets,
I'm trying to do some rotating polygon
stuff with perl/tk and a simply canvas.
I have ActiveState Perl 5.6 and Tk8.
The problem seems that I can create
around 250 or 240 polygons on the
screen before it doesnt display anymore
polygons. The script generates polygons
with a $main->repeat(1,\&rotate_poly) call.
The polygons are simply created with a
call on the $canvas like
$poly=$canvas->create(('polygon',...points...),-fill=>$color);
and on each subsequant call, before ->creatIng
a new poly, the prevous poly is deleted with
$canvas->delete($poly).
If sample code would help, i can post some if requested.
Is there some sort of limit on the number of times
i can create an object on a canvas? I have 64 meg
of RAM installed in my Win32 445mhz Toshiba Laptop
that i do all my development on (which is where im having this
problem). Can anyone help here? I am new to Tk and perl/Tk
(wrote my first Tk script two weeks ago).
If anyone can help, i would be most grateful. Thanks much!
Cheers!
~ josiah
--
--
Josiah Bryan
VP of Product Development
TDCJ, Inc.
"Anything is possible."
vp@tdcj.com
http://www.josiah.countystart.com/
Tel: 937.316.6256
------------------------------
Date: 20 Jul 2000 01:08:53 EDT
From: abigail@delanet.com (Abigail)
Subject: Re: looking for a ODP or yahoo style database
Message-Id: <slrn8nd3cb.3do.abigail@alexandra.delanet.com>
dbowling (dbowlingNOdbSPAM@iname.com.invalid) wrote on MMDXV September
MCMXCIII in <URL:news:06284168.83e5f316@usw-ex0109-070.remarq.com>:
`` I am looking to find a perl script (free) for my site that
`` will function like yahoo or the ODP.
Perhaps you should call yahoo and ask them for their sources.
Abigail
--
$" = "/"; split // => eval join "+" => 1 .. 7;
*{"@_"} = sub {foreach (sort keys %_) {print "$_ $_{$_} "}};
%_ = (Just => another => Perl => Hacker); &{%_};
------------------------------
Date: 20 Jul 2000 06:32:07 GMT
From: "Josiah Bryan" <jdb@wcoil.com>
Subject: Re: looking for a ODP or yahoo style database
Message-Id: <8l66d8$i86$0@206.230.71.54>
Hahaaaa!!!!
*ploooonnkkk*
~ josiah
Abigail <abigail@delanet.com> wrote in message
news:slrn8nd3cb.3do.abigail@alexandra.delanet.com...
> dbowling (dbowlingNOdbSPAM@iname.com.invalid) wrote on MMDXV September
> MCMXCIII in <URL:news:06284168.83e5f316@usw-ex0109-070.remarq.com>:
> `` I am looking to find a perl script (free) for my site that
> `` will function like yahoo or the ODP.
>
> Perhaps you should call yahoo and ask them for their sources.
>
>
>
> Abigail
> --
> $" = "/"; split // => eval join "+" => 1 .. 7;
> *{"@_"} = sub {foreach (sort keys %_) {print "$_ $_{$_} "}};
> %_ = (Just => another => Perl => Hacker); &{%_};
------------------------------
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 3754
**************************************
