Unencrypted Password Files

2005-02-15 Thread John Baker
other method, ie ssh-agent, to obfuscate the need to store password files. How have others done this in the past? From time to time I've passed passwords from a form to a script using env vars, is there a similar method we could be using? Thanks in advance. John Baker -- To unsubscribe, e-ma

'cvs remove' or equivalent command

2004-07-30 Thread John Baker
Greetings. Does anyone know of a pkg that contains a cvs remove type module? I'm currently using Cvs.pm, it suits my needs, but it doesn't contain functionality to cvs remove a single file. Regards. John -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PRO

Referencing Control Operators

2004-01-22 Thread John Baker
Greetings. Is it possible to reference a control operator? For example, I'd like to take this code: sub getFieldFromAllRecords { my ($self, $directive, $keyword, $matchCondition) = @_; my ($field, $regArr); # another public method within same pkg: my $allRecs

Re: Stupid regex.. I'm going to kick myself...

2003-02-23 Thread John Baker
To match one href key/value pairs per line: while (<>) { if (/LinkArea=\"MoreHeadlines\"\>/) { print "$1\n", if (/href\=\"(\w+)\"\s/); } } ...though this does assume that you'd only have one href key and value per line after the "MoreHeadlines" match. If it's possible to have mult

Re: RegExp and XML

2003-02-21 Thread John Baker
On Fri, 21 Feb 2003, John Baker wrote: > Date: Fri, 21 Feb 2003 09:37:34 -0500 (EST) > From: John Baker <[EMAIL PROTECTED]> > To: Vincent O' Keeffe <[EMAIL PROTECTED]> > Cc: [EMAIL PROTECTED] > Subject: Re: RegExp and XML > > > Here's one way: >

Re: RegExp and XML

2003-02-21 Thread John Baker
Here's one way: my @woo; my $xml; foreach (@woo) { $xml .= $_, if (m/\<\?xml\s/.../\<\/Order/); } You could also set the upper and lower bounds with scalars: my $upper = '\<\?xml\s'; my $lower = '\<\/Order'; foreach (@woo) { $xml .= $_, if (m/^$upper/.../^$lower/);

Re: Text file or database

2003-02-20 Thread John Baker
On Thu, 20 Feb 2003, Wiggins d'Anconia wrote: > Date: Thu, 20 Feb 2003 19:08:51 -0500 > From: Wiggins d'Anconia <[EMAIL PROTECTED]> > To: John Baker <[EMAIL PROTECTED]> > Cc: Colin Johnstone <[EMAIL PROTECTED]>, [EMAIL PROTECTED] > Subject: Re: Text f

Re: CSV inports... [OT]

2003-02-20 Thread John Baker
Manning. You can find it at amazon. jab On Thu, 20 Feb 2003, Paul wrote: > Date: Thu, 20 Feb 2003 12:54:14 -0800 (PST) > From: Paul <[EMAIL PROTECTED]> > Reply-To: [EMAIL PROTECTED] > To: John Baker <[EMAIL PROTECTED]>, Chris Knipe <[EMAIL PROTECTED]> > Cc: [EM

Re: CSV inports...

2003-02-20 Thread John Baker
Try the Text::CSV_XS mod. I believe it rectifies double quote problems. That topic was covered in the Data Munging with Perl book. Decent book, btw. jab On Thu, 20 Feb 2003, Chris Knipe wrote: > Date: Thu, 20 Feb 2003 22:33:45 +0200 > From: Chris Knipe <[EMAIL PROTECTED]> > To: [EMAIL PROTECTE

Re: Is there a simple way to do uid -> username and usename -> uid mapping?

2003-02-20 Thread John Baker
perldoc -f getpwuid $uid = getpwnam($name); $name = getpwuid($num); $name = getpwent(); $gid = getgrnam($name); $name = getgrgid($num); jab On Thu, 20 Feb 2003, Ben Siders wrote: > Date: Thu, 20 Feb 2003 13:48:01 -0600 > From: Ben Siders <[EMAIL PROTECTED]> > To: [E

Re: Text file or database

2003-02-20 Thread John Baker
A work-mate of mine and were having the same discussion recently. I'm not a big fan of dbases, but maybe that's because I don't have to be...yet. A couple things that could factor when considering dbases: 1. speed 2. additional middleware technology Is the speed of accessing dbase info more eff

Re: taking lines from a file

2003-01-30 Thread John Baker
On Thu, 30 Jan 2003, Rob Dixon wrote: > Date: Thu, 30 Jan 2003 16:40:13 - > From: Rob Dixon <[EMAIL PROTECTED]> > To: [EMAIL PROTECTED] > Subject: Re: taking lines from a file > > Marcelo wrote: > > Hi everybody... > > How I can take lines from a file like this ... > > > > line1=A > > line2 >

Re: TimeStamp compare

2003-01-30 Thread John Baker
On Thu, 30 Jan 2003 [EMAIL PROTECTED] wrote: > Date: Thu, 30 Jan 2003 10:49:27 -0500 > From: [EMAIL PROTECTED] > To: John Baker <[EMAIL PROTECTED]> > Cc: [EMAIL PROTECTED] > Subject: Re: TimeStamp compare > > Ok mate and where can I download that module? > http:

RE: TimeStamp compare

2003-01-30 Thread John Baker
On Thu, 30 Jan 2003, Bob Showalter wrote: > If you just want to compare two files to see if one is newer, use the -M > operator: > >$need_recompile = 1 if -M 'foo.java' < -M 'foo.class'; > > -M gives you the age in days of a file, measured from the time your script > was started (stored in the

Re: TimeStamp compare

2003-01-30 Thread John Baker
On Thu, 30 Jan 2003 [EMAIL PROTECTED] wrote: > Date: Thu, 30 Jan 2003 07:59:11 -0500 > From: [EMAIL PROTECTED] > To: [EMAIL PROTECTED] > Subject: TimeStamp compare > > Hi there mates, > >I would like to Know If anyone of you have already tried to get the time and > date a file was created f

Re: Script...

2003-01-28 Thread John Baker
> > Hey guys: > > I'm still very new to perl and I need to know if this is at all possible... > If possible... any ideas on how to go about it... > Anything's possible with Perl. /me putting away pom-poms...right. > Here is the deal... I would like to build a database with addresses for > specif

Re: Trouble with hash lookup

2003-01-28 Thread John Baker
On Tue, 28 Jan 2003, Rob Dixon wrote: > > > > $user = "jsmith"; > > my %lookup = ( > > 'jsmith' => "jsmith1", > > 'djones' => "djones2", > > 'tday' => "tday3", > > ); > > > > for my $key (keys %lookup) { > > print "$lookup{$key}\n" if $key == $user; > > } > > Ed is rig

RE: Email function question

2003-01-27 Thread John Baker
On Mon, 27 Jan 2003, Scott, Deborah wrote: > Date: Mon, 27 Jan 2003 16:54:28 -0600 > From: "Scott, Deborah" <[EMAIL PROTECTED]> > To: [EMAIL PROTECTED] > Subject: RE: Email function question > > > > The above file works great on my NT server but how do I send it to > multiple people? I've trie

Re: Looking down in folder structure

2003-01-27 Thread John Baker
On Mon, 27 Jan 2003, Jakob Kofoed wrote: > Date: Mon, 27 Jan 2003 21:30:39 +0100 > From: Jakob Kofoed <[EMAIL PROTECTED]> > To: [EMAIL PROTECTED] > Subject: Looking down in folder structure > > Hi, > > How can I look down in a folder structure i.e. for checking last access time > on files. > One

Re: Regular Expression's and punctuation

2003-01-27 Thread John Baker
On Mon, 27 Jan 2003, Liebert, Sander wrote: > Date: Mon, 27 Jan 2003 12:54:04 -0600 > From: "Liebert, Sander" <[EMAIL PROTECTED]> > To: [EMAIL PROTECTED] > Subject: Regular Expression's and punctuation > > I have a script that is used for text messaging. I added a line of code to > check to make

Re: Perl in OpenBSD Apache

2003-01-27 Thread John Baker
On Mon, 27 Jan 2003, Ben Siders wrote: > Date: Mon, 27 Jan 2003 08:48:58 -0600 > From: Ben Siders <[EMAIL PROTECTED]> > To: [EMAIL PROTECTED] > Subject: Perl in OpenBSD Apache > > I installed OpenBSD's Apache but the default configuration is that httpd > runs chroot'd to /var/www for security.

Re: Permissions-Perl

2003-01-27 Thread John Baker
On Sun, 26 Jan 2003, Andre wrote: > Date: Sun, 26 Jan 2003 00:21:51 -0200 > From: Andre <[EMAIL PROTECTED]> > To: [EMAIL PROTECTED] > Subject: Permissions-Perl > > Hi > I'm having a hard tile opening creating reading and writing files with = > perl on a unix palataform sometimes it works sometim

Re: this should be simpel and short to answer right?

2003-01-26 Thread John Baker
it is, yes. substr(): http://www.perldoc.com/perl5.6/pod/func/substr.html "perldoc -h" is your friend. =)) jab On Sun, 26 Jan 2003, Fleur Junier wrote: > Date: Sun, 26 Jan 2003 20:06:50 +0100 > From: Fleur Junier <[EMAIL PROTECTED]> > To: [EMAIL PROTECTED] > Subject: this should be simpel a

Re: Deleting last 12 lines of a large file

2003-01-26 Thread John Baker
On Mon, 27 Jan 2003, Sukrit wrote: > > While waiting for your reply, my goals changed a bit. i got some sort > of worm (redlof if you must know) on my windows machine (with some > 11000 files affected). It tags to the end of every html file, so i > didn't want chomping of last 12 lines of files tha

Re: used sendmail to send an attachment

2003-01-26 Thread John Baker
>From the limited exposure I have to your lib path, it appears as if Mail/Sendmail.pm doesn't exist. "use Mail::Sendmail;" is looking for /some/path/to/Mail/Sendmail.pm ...but I don't see the Mail dir within /opt/MIMperl5/lib/5.00503/ Here's how mine looks: /usr/local/lib/perl5/site

Rebuilding Devel Dir from Public Repository

2003-01-26 Thread John Baker
Greetings. Apologies in advance if this is the wrong list. Recently, my private development directory, containing my entire module repository, was accidentally deleted. Luckily, the public repository remained intact. Question is: How do I go about rebuilding my private repository from the publi