[15927] in Perl-Users-Digest
Perl-Users Digest, Issue: 3340 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jun 13 09:05:21 2000
Date: Tue, 13 Jun 2000 06:05:10 -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: <960901509-v9-i3340@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Tue, 13 Jun 2000 Volume: 9 Number: 3340
Today's topics:
Re: ANSI Perl: No Way !!! (Mark W. Schumann)
Appending and View with Perl? <vivekvp@spliced.com>
Re: Appending and View with Perl? <blah@nospam.com>
Re: Attempting to parse malformed XML (Eric Bohlman)
Re: CPAN, Windows and AS Perl v5.6 <tschilbach@aodinc.com>
Re: Creating a new folder and file. (Eric Bohlman)
Re: Encrypting / decrypting. <mattking@techie.com>
Re: Encrypting / decrypting. <uri@sysarch.com>
Re: Help wtih Regular Expression amitr@w-o-i.com
Re: How to check browser for Javascript enable? (Eric Bohlman)
Re: How to check browser for Javascript enable? <flavell@mail.cern.ch>
Re: Larry Rosler interview on perl.com! <dan@tuatha.sidhe.org>
Re: Mystery Regex [long] <mc@backwoods.org>
Re: Mystery Regex [long] <mc@backwoods.org>
Re: Mystery Regex <dan@tuatha.sidhe.org>
Re: Mystery Regex <dan@tuatha.sidhe.org>
Need perl code to do OS baselining <sipes@nortelnetworks.com>
Re: Need SMTP-Sender for pre-formatted messages <tschilbach@aodinc.com>
Re: Perl + web history (was: Re: ANSI Perl: No Way !!!) <elaine@chaos.wustl.edu>
Re: perl CGI on an Linux based apache webserver <you.will.always.find.him.in.the.kitchen@parties>
Re: print pdf <dan@tuatha.sidhe.org>
smtpstats shel script to perl <post_bote@post.com>
Re: weird error from Net::FTP <panderse@us.ibm.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 13 Jun 2000 09:00:39 -0400
From: catfood@apk.net (Mark W. Schumann)
Subject: Re: ANSI Perl: No Way !!!
Message-Id: <8i5b9n$2tu@junior.apk.net>
In article <3943c237.17625913@news.nikoma.de>,
Philip 'Yes, that's my address' Newton <nospam.newton@gmx.li> wrote:
>On Sun, 11 Jun 2000 15:33:26 GMT, Elaine Ashton <elaine@chaos.wustl.edu>
>wrote:
>
>> What I am beginning to find interesting is the number of men who take on
>> female names and characters around the Perl community.
>
>What other example are there? The only one I know is the well-known
>first-name-only person.
Can't she find the number "two" interesting?
------------------------------
Date: Tue, 13 Jun 2000 11:40:55 GMT
From: vivekvp <vivekvp@spliced.com>
Subject: Appending and View with Perl?
Message-Id: <8i56k5$p40$1@nnrp1.deja.com>
Hello,
I have files that come in as a feed - a.html, b.html, c.html, d.html
How do i append them all together and display them on one page and make
it viewable on the web - since they are html - in perl?
Thanks,
V
--
He who fights and runs away, lives to run another day!
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 13 Jun 2000 14:08:44 +0200
From: Marco Natoni <blah@nospam.com>
Subject: Re: Appending and View with Perl?
Message-Id: <3946244C.AE447C@nospam.com>
vivekvp,
vivekvp wrote:
> I have files that come in as a feed - a.html, b.html, c.html,
> d.html How do i append them all together and display them on one
> page and make it viewable on the web - since they are html - in
> perl?
The HTML modules of the LWP library could help you, search for it on
the CPAN (http://www.cpan.org).
Best regards,
Marco
------------------------------
Date: 13 Jun 2000 10:15:37 GMT
From: ebohlman@netcom.com (Eric Bohlman)
Subject: Re: Attempting to parse malformed XML
Message-Id: <8i51k9$pp1$4@slb0.atl.mindspring.net>
Charles Capps (capps@solareclipse.net) wrote:
: I've been given the job of taking exported data from a certain extremely
: brain-damaged and poorly designed application and rewriting it into a format
: that an in-house application can read.
:
: The only form of exported data is XML. The XML that it produces has
: *CERTAIN* tag elements unquoted. Example:
: <message body="Laa dee daa" number=000001 author="Lame dude">
You mean "attributes unquoted" (in cases like this, it's important to get
the terminology right).
: Unfortunately, nothing will parse it. Expat (XML::Parser, etc) chokes and
: dies when it comes across the unquoted elements.
Yes, as an XML parser is not allowed to continue parsing after
encountering illegal syntax. However, that does *not* mean that the
program that called the parser must cease executing when the parsing
fails; if you wrap the call to the parser in an eval{} block, you can
catch the error message the parser issued when it gave up, which will
include information about where in the data the problem occurred. You can
use that information to fix the data (in this case, by inserting a quote
and using a regex to find out where to insert the closing quote), and then
try reparsing the data (i.e. creating a new parser and calling it).
If the *only* well-formedness violations in your data are of this sort,
this strategy will work well because the parser will always be reporting
errors at exactly the point where the mistake was made. Other types of
violations can't easily be corrected this way because the parser won't be
able to tell that the input doesn't make sense until some point past
where the error occurred (just as perl can't tell you that you're missing
a closing brace until it reaches the end of the program).
: I'm very reluctant to attempt to write my own parsing routine. I'm currently
: using a series of regexes to split apart the tag, but it's difficult, tedious
: work due to the randomness of the element locations, values, and lengths, as
: well as tags.
The method I've outlined will greatly limit the amount of hack-parsing
you need to do, since it relies on the parser to find the problems.
------------------------------
Date: Tue, 13 Jun 2000 06:56:13 -0500
From: "Timothy H. Schilbach" <tschilbach@aodinc.com>
Subject: Re: CPAN, Windows and AS Perl v5.6
Message-Id: <8i57j2$q9p$1@news.chatlink.com>
Hello,
When you download a new module from CPAN you can install it by doing the
following:
1. Unzip (even if its a tar or gzip) to a directory on your conputer.
2. Open the command prompt and goto that directory
3. type makefile.pl to configure your module
4. type nmake (this can be found here:
http://support.microsoft.com/download/support/mslfiles/NMAKE15.EXE
Make sure you install nmake into the directory that your module is in)
5. once its configured test it using nmake using the line: nmake test
6. now your ready to install you module, just type: namke install
7. you all set and ready to go.
I have the ActivePerl guide on my website if your interrested at
http://perl.aodinc.com this guide is an invaluable tool for programming
win32 applications in PERL.
Drop me a line for any more help you may need.
--
Timothy H. Schilbach
Alpha Omega Design Inc.
tschilbach@aodinc.com
1-877-263-7094
Visit our website at www.aodinc.com
Doran <doran@NOSPAMaltx.net> wrote in message
news:39458c9e.3518888@news2.brandx.net...
> I have ActiveState perl v5.6 (build613) on my Win98 machine.
>
> I'd *really* like to use the CPAN module to retrieve and install
> modules when they're not available via PPM.
>
> I've gone through my Config.pm file (in \perl\lib\CPAN) and put in the
> values I think are correct (see below) but I still haven't been able
> to install *any* modules. For example, when I try to install
> MP3::Info, I get this:
>
> -------------------------------
> begin CPAN output
> -------------------------------
> cpan> install MP3::Info
> Running make for C/CN/CNANDOR/MP3-Info-0.80.tar.gz
> Checksum for
> \.cpan\sources\authors\id\C\CN\CNANDOR\MP3-Info-0.80.tar.gz ok
> MP3-Info-0.80/eg/mp3tag.PL
> MP3-Info-0.80/eg/mp3tocddb.PL
> MP3-Info-0.80/Info.pm
> MP3-Info-0.80/lib/MPEG/MP3Info.pm
> MP3-Info-0.80/Makefile.PL
> MP3-Info-0.80/MANIFEST
> MP3-Info-0.80/README
> MP3-Info-0.80/test.pl
> MP3-Info-0.80/test1.mp3
> MP3-Info-0.80/test2.mp3
> Removing previously used \.cpan\build\MP3-Info-0.80\.
>
> CPAN.pm: Going to build C/CN/CNANDOR/MP3-Info-0.80.tar.gz
>
> Checking if your kit is complete...
> Looks good
> Bad command or file name
> Bad command or file name
> Unable to find a perl 5 (by these names: C:\Perl\bin\Perl.exe miniperl
> perl perl5 perl5.00503, in these dirs: Z:. X:. W:. C:\BIN C:\DJGPP\BIN
> C:\NOVELL\CLIENT32 C:\WINDOWS C:\WINDOWS\COMMAND C:\PERL\BIN\
> C:\WINDOWS\SYSTEM C:\NCFTP C:\PROGRAMFILES\MTS
> C:\PROGRA~1\SYMANTEC\PCANYW~1\ C:\Perl\bin)
> Writing Makefile for MP3::Info
> Makefile:651: *** missing separator. Stop.
> c:\djgpp\bin\make -- NOT OK
> Running make test
> Oops, make had returned bad status
> Running make install
> Oops, make had returned bad status
>
> cpan>
>
> -------------------------------
> end of CPAN output
> -------------------------------
>
> I suspect that those "Bad command or file name" errors can't be a good
> thing, but I'm not sure what's failing at that point. Plus there's
> that nasty "missing separator" message. I should note that I *do* have
> perl installed in the C:\Perl\bin directory as Perl.exe, so I'm also
> not quite sure why I'm getting the "Unable to find a perl5..." error.
>
> I have read README.win32.html and that mentions a problem with
> command.com in Win95. Is that the problem? Do I need a different
> command interpreter? That readme seems to be for an older version of
> perl, so I'm not even sure if the things it talks about still pertain
> in v5.6.
>
> Finally, just FYI, perl runs fine on my machine (well, fine for a
> Windows machine) , so I know it's installed and in my path and such.
>
> Here's my Config.pm with the values I entered:
>
> C:\Perl\lib\CPAN>type Config.pm
>
> # This is CPAN.pm's systemwide configuration file. This file provides
> # defaults for users, and the values can be changed in a per-user
> # configuration file. The user-config file is being looked for as
> # ~/.cpan/CPAN/MyConfig.pm.
>
> $CPAN::Config = {
> 'build_cache' => q[10],
> 'build_dir' => q[\.cpan\build\.],
> 'cpan_home' => q[\.cpan\.],
> 'ftp' => q[C:\WINDOWS\ftp.exe],
> 'ftp_proxy' => q[],
> 'getcwd' => q[cwd],
> 'gzip' => q[c:\bin\gzip],
> 'http_proxy' => q[],
> 'inactivity_timeout' => q[0],
> 'index_expire' => q[1],
> 'inhibit_startup_message' => q[0],
> 'keep_source_where' => q[\.cpan\sources\.],
> 'lynx' => q[c:\lynx\lynx],
> 'make' => q[c:\djgpp\bin\make],
> 'make_arg' => q[],
> 'make_install_arg' => q[],
> 'makepl_arg' => q[],
> 'ncftpget' => q[c:\ncftp\ncftpget],
> 'no_proxy' => q[],
> 'pager' => q[C:\WINDOWS\COMMAND\more.com],
> 'prerequisites_policy' => q[follow],
> 'scan_cache' => q[atstart],
> 'shell' => q[c:\command.com],
> 'tar' => q[c:\bin\tar],
> 'unzip' => q[c:\bin\gunzip],
> 'urllist' => [],
> 'wait_list' => [q[wait://ls6.informatik.uni-dortmund.de:1404]],
> };
> 1;
> __END__
>
> C:\Perl\lib\CPAN>
>
> Let me know if there's some web page or FAQ or something that I've
> missed that I need to read. I suspect I'm not the first person to ask
> this question, but I haven't found any answers (that solve the
> problem) in my searches at deja and elsewhere.
>
> Thanks for any insight, help or direction you may offer.
> Doran...
>
>
>
------------------------------
Date: 13 Jun 2000 10:18:38 GMT
From: ebohlman@netcom.com (Eric Bohlman)
Subject: Re: Creating a new folder and file.
Message-Id: <8i51pu$pp1$5@slb0.atl.mindspring.net>
Viking (vikingrscup@rogue-spear.com) wrote:
: you need to sue the perl command mkdir();
It will defend itself on the grounds that it doesn't come with any
warranty of merchantability or fitness for any particular purpose.
------------------------------
Date: Tue, 13 Jun 2000 12:36:26 +0200
From: "Matt King" <mattking@techie.com>
Subject: Re: Encrypting / decrypting.
Message-Id: <8i5314$t63$1@news1.transmedia.de>
Godzilla! Can you contact me outside of this ng? I'd like to discuss this
encryption/decryption thing without everyone hammering us. You apear to be
able to best answer my questions (no offence to everyone else).
I have your script working. And I have made some changes to it to make the
output more the I want it to be, however, the decryption process is not 100%
relyable. I have noted several instances where the decrypted output is
different for what it should be. But running the encryption on the same
information again and the out come is different, since the randum key is
different. I think that this has more to do with what I'm trying to encrypt
verses the evcryption process.
Do you think that we could work on this together?
Matt
------------------------------
Date: Tue, 13 Jun 2000 12:56:47 GMT
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Encrypting / decrypting.
Message-Id: <x7itvd91tc.fsf@home.sysarch.com>
>>>>> "MK" == Matt King <mattking@techie.com> writes:
MK> Godzilla! Can you contact me outside of this ng? I'd like to
MK> discuss this encryption/decryption thing without everyone
MK> hammering us. You apear to be able to best answer my questions (no
MK> offence to everyone else).
oh, are you in for trouble. but you asked for it.
:-)
MK> I have your script working. And I have made some changes to it to
MK> make the output more the I want it to be, however, the decryption
MK> process is not 100% relyable. I have noted several instances where
MK> the decrypted output is different for what it should be. But
MK> running the encryption on the same information again and the out
MK> come is different, since the randum key is different. I think that
MK> this has more to do with what I'm trying to encrypt verses the
MK> evcryption process.
her crap encoded, not encrypted. do you know the difference?
MK> Do you think that we could work on this together?
work is an incorrect term here. but you get what you pay for. have a
good time.
i do hope you keep her occupied so she won't have any time to troll
here. give her lots of stuff to do for you!
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
The Perl Books Page ----------- http://www.sysarch.com/cgi-bin/perl_books
The Best Search Engine on the Net ---------- http://www.northernlight.com
------------------------------
Date: Tue, 13 Jun 2000 10:25:13 GMT
From: amitr@w-o-i.com
Subject: Re: Help wtih Regular Expression
Message-Id: <8i5260$mcn$1@nnrp1.deja.com>
> > $string =~ s!<\!--(.*?)-->!<A NAME=\"$1\">!gi;
>
> <!-- How about a comment which
> spans lines? -->
>
Well.. one can always read the entire para or file in a single variable
and use the regex. with $/ varibale. right?
Amit
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 13 Jun 2000 10:06:51 GMT
From: ebohlman@netcom.com (Eric Bohlman)
Subject: Re: How to check browser for Javascript enable?
Message-Id: <8i513r$pp1$3@slb0.atl.mindspring.net>
Tony (someguy@nospamland.com) wrote:
: The reason I want to do this is so that I can do data validation using
: client-side Javascript only, without having to worrying about the users
: entering funky data. Yes, I know the safest thing to do is to use
: server-side validation, but I don't want my users to wait for the round-trip
: response. I know Javascript can be used to check if the browser is
: Javascript-enabled, but that doesn't really help me much.
: I have noticed that Netscape.com can tell if the user has Javascript
: enabled, does anyone know how they do that?
Right idea, wrong approach. You *must* do the server-side validation in
all cases anyway (someone could by using a modified version of your form,
telnetting in, etc. for malicious reasons). But you can *also* include
JS to do client-side validation and catch problems early. That way
someone with JS enabled will get their problems caught early, and someone
without JS enabled will get the problems caught later. No need for
separate versions; the mandatory server-side validation and the optional
client-side validation will catch all cases.
------------------------------
Date: Tue, 13 Jun 2000 13:08:04 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: How to check browser for Javascript enable?
Message-Id: <Pine.GHP.4.21.0006131301000.10517-100000@hpplus03.cern.ch>
On Tue, 13 Jun 2000, Tony wrote:
> Is there a way that Perl can somehow check if the user has Javascript
> enabled on their browser?
Inappropriate approach, sorry.
> The reason I want to do this is so that I can do data validation using
> client-side Javascript only, without having to worrying about the users
> entering funky data.
You're dead, Jim.
Never, EVER, trust data coming from the user.
> Yes, I know the safest thing to do is to use
> server-side validation, but I don't want my users to wait for the round-trip
> response.
Then use the javascript in a way that it saves the round-trip when
it's enabled, but the procedure still works when it isn't. This needs
nothing, absolutely NOTHING, to change server-side. You still have to
check the data server-side when you get it. Period.
> I know Javascript can be used to check if the browser is
> Javascript-enabled, but that doesn't really help me much.
Don't forget that users can turn javascript off at any arbitrary point
in the procedure. Some proxies (junkbuster etc.) can be tailored to
filter javascript selectively. So you can never quite trust what
you're seeing.
To test on the server side whether javascript is enabled on the client
side is going to cost you an extra round-trip anyway; and by then the
user could have decided to change their preferences. So I'd advise
that you're looking at the problem in the wrong way.
------------------------------
Date: Tue, 13 Jun 2000 12:36:33 GMT
From: Dan Sugalski <dan@tuatha.sidhe.org>
Subject: Re: Larry Rosler interview on perl.com!
Message-Id: <lVp15.657$My2.2408@news1.rdc1.ct.home.com>
Dennis M. Parrott <dparrott@ford.com> wrote:
> Jeepers, I sure hope that I got the who-said-what correct here...
> I really don't wannabe flamebait!
> Dan Sugalski wrote:
>>
>> Henry <htp@mac.com> wrote:
>> > In article <Ek605.107069$hT2.427521@news1.rdc1.ct.home.com>, Dan
>> > Sugalski <dan@tuatha.sidhe.org> wrote:
>>
>> doesn't need to get involved.
>>
>> > all they want to know is whether
>> > or not the applications they develop _today_ will continue to work
>> > _tomorrow_.
>>
>> And that's what a standard does. Without it there aren't any guarantees,
>> since those of us who work in perl don't have anything besides past
>> experience to work with. The closest thing perl's got to a standard is the
>> test suite that comes with it, and despite its size there are still a lot
>> of things it doesn't catch.
>>
> Actually Perl (and Open Source programs in general) come with a much
> stronger guarantee of future behavior than anything that is "standardized" --
> Perl comes with the **_SOURCE_**. I can make my application do EXACTLY what I
> want it to do (more or less) based on the version of Perl that I ship out
> with my product/project/program...
The source only guarantees present behavior--it makes no guarantees on the
behaviour of future versions of perl. The source is also of questionable
value as documentation for the way perl behaves. While it's all in there,
the perl source can be less than forthcoming on the way things work in
some places.
Dan
------------------------------
Date: Tue, 13 Jun 2000 07:17:23 -0400
From: MC <mc@backwoods.org>
Subject: Re: Mystery Regex [long]
Message-Id: <39461843.9746F78C@backwoods.org>
To All: Any suggestions for work arounds? The hash structure IS REQUIRED in the
original program. The regex is to grep records from a flatfile. These records
may or may not contain data in the 3 fields being matched, hence the test fields
(in the hash) may also be blank.
--more below--
Tad McClellan wrote:
>
> >The structures in evidence in the original post, as well as the code, is
> >necessary to simulate the conditions in the real program and to show several
> >variations in testing.
>
> But none of that is "necessary" to illustrate the bug:
>
<snip code>
>
Ok You code shows this to be true, however until this post, I didnt know that
the bug wasnt due to the use of the hash. I felt it necessary to use the hash
because this was how I knew the bug to show. Now I know that the bug is not due
to my hash or its contents.
I still dont understand why a single letter like that would cause it to fail.
Must be a horribly obscure bit of code thats causing it. Any ideas?
>
> >Several asked about the @order{@order} = @order. This creates a hash %order with
> >keys from @orders and values from the same. This is there as a quick way to make
> >a hash from a single data set.
>
> Yes, but we are all wondering is: what good is it?
>
> Why does it need to be in a hash?
>
> Why is the array not Good Enough for your purposes?
>
Repeating above, Since the bug was originally evidenced by use of a hash in the
regex I figured that it was probably the hash that was responsible in some way
for the bug. Your code above demonstrates that this is not the case, altho it
makes it even more unbelievable that a single letter like that will make it
fail.
> >Would appreciate any ideas on this bug.
>
> It is a bug. Please report it using the 'perlbug' program that
> shipped with the perl distribution.
>
> >And help on how to report this bug.
>
> perldoc perlbug
>
Thanks. I had no idea how to go about it. Will do this today.
MC
> --
> Tad McClellan SGML Consulting
> tadmc@metronet.com Perl programming
> Fort Worth, Texas
--
---------------------------------------------------------------------
My email address(s) are my private property. They are NOT to be used
or recorded for ANY reason without my explicit permission. Disregard
of this statement is in violation of federal privacy & copyright law.
---------------------------------------------------------------------
The new Decade/Century/Millennium doesnt start until the year 2001 !!
Lets make the year 2000, the last year of the Millennium, a good one!
--------------------------------------------+------------------------
|
<-- THIS SPACE FOR RENT --> | Question Reality
advertise~backwoods.org |
|
Time is nature's way of keeping | If at first you don't
everything from happening at once | succeed... REBOOT!
|
--------------------------------------------+------------------------
------------------------------
Date: Tue, 13 Jun 2000 08:16:33 -0400
From: MC <mc@backwoods.org>
Subject: Re: Mystery Regex [long]
Message-Id: <39462621.F0BB8B19@backwoods.org>
Tad McClellan wrote:
>
> It is a bug. Please report it using the 'perlbug' program that
> shipped with the perl distribution.
>
Bug Reported!
Assigned Ticket: [ID 20000613.001] For anyone interested in tracking its
progress.
Tad, I used your code from your most recent post as the sample code in the
report. I hope this is ok.
MC
------------------------------
Date: Tue, 13 Jun 2000 12:49:01 GMT
From: Dan Sugalski <dan@tuatha.sidhe.org>
Subject: Re: Mystery Regex
Message-Id: <15q15.662$My2.2408@news1.rdc1.ct.home.com>
Godzilla! <godzilla@stomp.stomp.tokyo> wrote:
> if ($element eq "")
> { &Error ($element); $uh_oh = "oops"; }
This is a rather silly thing to do, since you know that $element is empty.
Passing it as a parameter just wastes time and memory.
This sub:
> sub Error
> { ## Error
> local %ERROR;
> $ERROR{$in{Name}} = "Name is missing";
> $ERROR{$in{Address}} = "Address is missing";
> $ERROR{$in{City}} = "City is missing";
> $ERROR{$in{State}} = "State is missing";
> local ($fubar) = $ERROR{$_[0]};
$_[0] will always be the empty string. Checking it's a waste of time since
you know it'll be a constant.
This is an inefficient way to check to see if one of the four hash
elements is empty. It's also suboptimal since it will only catch the last
one that's empty regardless of how many times you call the thing. It's
best rewritten to check each element explicitly, which you don't do.
I'd say someone was better off trying something else, since this won't
work as it should. It also uses global variables all over the place, which
has its own set of pitfalls, but some people like that sort of thing and
it's not wrong per se.
Dan
------------------------------
Date: Tue, 13 Jun 2000 12:51:04 GMT
From: Dan Sugalski <dan@tuatha.sidhe.org>
Subject: Re: Mystery Regex
Message-Id: <Y6q15.664$My2.2408@news1.rdc1.ct.home.com>
Godzilla! <godzilla@stomp.stomp.tokyo> wrote:
> My work is developed under Perl 5.003 to
> give me a better chance at portability.
While choosing a base level of perl to work with is sensible, since the
latest and greatest isn't going to be available all the time, perl 5.003
isn't it. Perl 5.004 is the base I'd recommend.
All versions of perl prior to 5.004, including perl 4, have outstanding
CERT advisories out on them. Running perl 5.003, or perl 4, on a
publically available server, is just asking for trouble.
Dan
------------------------------
Date: Tue, 13 Jun 2000 08:53:53 -0400
From: Steven Sipes <sipes@nortelnetworks.com>
Subject: Need perl code to do OS baselining
Message-Id: <39462EE1.5694E84A@nortelnetworks.com>
I'll admit upfront that I am not a PERL programmer but I figured that
somewhere out there, someone has written a utility to do the following:
When you run the perl program in one mode, it will generate a baseline
of the locally mounted filesystems which shows the
owner/group/permissions on all files. Then, when run in another mode,
it will show you the differences.
Does such a beast exist? If not, does someone feel like taking on the
challenge? I need it to work under HP-UX 10.20, HP-UX 11.00, Solaris
2.6, Solaris 7, and AIX 4.3.3.
Thanks!
Steven
------------------------------
Date: Tue, 13 Jun 2000 06:31:53 -0500
From: "Timothy H. Schilbach" <tschilbach@aodinc.com>
Subject: Re: Need SMTP-Sender for pre-formatted messages
Message-Id: <8i565d$pnc$1@news.chatlink.com>
Have you taken a look at Barr Graham's Mail-Tools module? I use this to
forward the mail to a remote network and it acts as an SMTP. It can be found
at CPAN:
http://www.cpan.org/modules/by-authors/Graham_Barr/
In addition, there is a Sendmail port for NT and 9.x avaiable from microsoft
at: ftp://ftp.microsoft.com/developr/drg/unix-to-windows/ports/sendmail/
If your looking for sendmail then here it is. Let me know if there is
anything else you need.
--
Timothy H. Schilbach
Alpha Omega Design Inc.
tschilbach@aodinc.com
1-877-263-7094
Visit our website at www.aodinc.com
Marc Haber <usenet-9947@marc-haber.de> wrote in message
news:394600c3@news.ivm.net...
> Hi,
>
> I am currently searching for a Perl module that can send E-Mail to a
> (not necessarily local) SMTP server without touching message headers.
> It can (and should!) happily insert its own Received:-Header, but
> otherwise leave all message-headers intact. It should basically do the
> same thing like /usr/lib/sendmail does when a message is piped to it -
> but not require a full-fledged MTA locally. If a message can't be sent
> right away, there is not need to queue it, just return an error and be
> done with it.
>
> I have taken a look at CPAN, but have only found modules that seem to
> be geared to accept locally generated e-mails like status messages
> while generating their own set of headers. I don't need that and don't
> want that.
>
> Any hints would be greatly appreciated, thanks.
>
> Greetings
> Marc
>
> --
> -------------------------------------- !! No courtesy copies, please
!! -----
> Marc Haber | " Questions are the | Mailadresse im
Header
> Karlsruhe, Germany | Beginning of Wisdom " | Fon: *49 721 966 32
15
> Nordisch by Nature | Lt. Worf, TNG "Rightful Heir" | Fax: *49 721 966 31
29
------------------------------
Date: Tue, 13 Jun 2000 12:04:05 GMT
From: Elaine Ashton <elaine@chaos.wustl.edu>
Subject: Re: Perl + web history (was: Re: ANSI Perl: No Way !!!)
Message-Id: <B56B9B77.60D6%elaine@chaos.wustl.edu>
in article 8i4ebs$7da$1@newsflash.concordia.ca, Neil Kandalgaonkar at
nj_kanda@alcor.concordia.ca quoth:
> ASP was introduced somewhere between IIS 2.0 and IIS 3.0,
> I found some IDC->ASP conversion utilities published circa
> 1997.
I vaguely remember that...but I do remember all the fanfare over
ASP.
> A couple of other tidbits for the perl timeline:
Thanks :) Release 2.0 should be up by next week. It's funny that you
mention them as I've been bumping into them while taking a stroll
down memory lane with the P5P archives lately.
> Conflating two things here. A better internet will not improve
> human nature, only *maybe* help realize its potential.
No, but ubiquity will drive the market.
> Why write tools for idiots anyway? That's MS's job, to give them
> little wizards and crap to put up a personal page in 10 seconds
> flat, never mind the question of what to write.
Because maybe my mother would like a page or my 96 year old grandmother
who probably doesn't care about the net but would like to have a page
detailing this months bridge scores and the game schedule. Maybe Perl
is the right tool for that...
> I would get into a longer rant about the philosophical underpinnings
> of MS software (and to some extent, Linux and GNOME as they rush
> to copy their approach). But F-Train said it much better than me.
I don't really care about MS other than the fact that they get the idea
that the ratio of geeks v. non-geeks is significant enough to warrant
GUI IDEs for the hoi polloi. I don't necessarily love the idea of
'Visual Perl and Python' but giving the populace something better than
MS Frontpage, Dreamweaver, etc. cannot be all bad. Also, when you consider
that, at the top end, most sites I've seen use publishing systems like
StoryServer et. al. and the low end use things like FP, the middle becomes
smaller as they grow and converge near the middle. Take that and a generally
hostile Perl community attitude towards CGI and its programmers, it really
doesn't look promising for Perl being used on the low or high end.
This isn't 1993 anymore.
e.
------------------------------
Date: Tue, 13 Jun 2000 22:54:06 +1200
From: "Tintin" <you.will.always.find.him.in.the.kitchen@parties>
Subject: Re: perl CGI on an Linux based apache webserver
Message-Id: <960893549.956469@shelley.paradise.net.nz>
"Michael.Siemens" <Michael.Siemens@nospamhome.com> wrote in message
news:3sd15.109$El3.3718@news1.rdc1.ab.home.com...
> thank you for your feed back! you are correct, I did type the wrong file
> name in this example... however, the problem is real
> here is a partial screen capture that has me trying to execute the correct
> filename =)
>
> root@csg:/usr/local/httpd/cgi-bin > ls -l
> total 963
> -rw-r--r-- 1 root root 1167 Nov 17 1998 CdbCli.pm
> -rw-r--r-- 1 root root 5786 Nov 17 1998 CdbHtml.pm
> -rwxr-xr-x 1 root root 9275 Nov 18 1998 cdb.cgi
> -rwxr-xr-x 1 root root 22588 Dec 13 1998 cdbsimple.cgi
> -rwxr-xr-x 1 root root 4842 Jun 11 15:51 contact.cgi
> -rwxr-xr-x 1 root root 4559 Nov 18 1998 detail.cgi
> -rwxr-xr-x 1 root root 851892 Apr 14 1999 htsearch
> -rwxr-xr-x 1 root root 20584 Apr 14 1999 info2html
> -rw-r--r-- 1 root root 1529 Apr 14 1999 info2html.conf
> -rwxr-xr-x 1 root root 199 Feb 28 21:15 mail-form.cgi
> -rwxr-xr-x 1 root root 196 Jun 11 20:27 mail-form.pl
> -rwxr-xr-x 1 root root 4277 Jun 12 01:18 mailer
> -rwxr-xr-x 1 root root 4277 Jun 12 01:25 mailer.pl
> -rwxr-xr-x 1 root root 598 Jun 12 01:47 mailme.cgi
> -rwxr-xr-x 1 root root 598 Jun 12 01:50 mailme.pl
> -rwxr-xr-x 1 root root 1937 Jun 11 15:51 myversion.cgi
> -rwxr-xr-x 1 root root 120 Apr 14 1999 printenv
> -rwxr-xr-x 1 root root 5095 Apr 19 1999 sdbsearch
> -rwxr-xr-x 1 root root 5095 Apr 19 1999 sdbsearch_en
> -rwxr-xr-x 1 root root 5095 Apr 19 1999 sdbsearch_es
> -rwxr-xr-x 1 root root 5095 Apr 19 1999 sdbsearch_faq
> -rwxr-xr-x 1 root root 5095 Apr 19 1999 sdbsearch_fr
> -rwxr-xr-x 1 root root 5095 Apr 19 1999 sdbsearch_it
> drwxr-xr-x 2 root root 1024 Nov 30 1999 sdbtxt
> -rwxr-xr-x 1 root root 757 Apr 14 1999 test-cgi
> -rwxr-xr-x 1 root root 400 Apr 14 1999 test.pl
> root@csg:/usr/local/httpd/cgi-bin > ./mail-form.pl
> bash: ./mail-form.pl: No such file or directory
> root@csg:/usr/local/httpd/cgi-bin >
>
>
> got any ideas?
Your shebang #! line will be incorrect. It will either have the wrong path
to perl, or be set incorrectly.
------------------------------
Date: Tue, 13 Jun 2000 12:59:09 GMT
From: Dan Sugalski <dan@tuatha.sidhe.org>
Subject: Re: print pdf
Message-Id: <xeq15.667$My2.2408@news1.rdc1.ct.home.com>
Dennis M. Parrott <dparrott@ford.com> wrote:
> Todd Anderson wrote:
>>
>> Dear Sirs,
>> Does anybody know the perl command for printing a pdf (portable document
>> file) file, the way you might print an html file? Can it even be done?
>> Thanks in advance for your help.
>>
>> SNIP!
> The answer is OS-dependant. On Windows, you can do some magic to access
> the underlying mechanisms in Adobe Acrobat and make the PDF print.
> On Unix, VMS, etc., the answer is "probably not" unless the Adobe SDKs
> have a way.
The answer's "get ghostscript and/or xpdf" :) Works on Unix and VMS,
probably other places as well. Transforming a PDF file to printable
postscript is probably simple given PDF's "postscript subset" nature, but
I don't know if anyone's done a converter.
Dan
------------------------------
Date: Tue, 13 Jun 2000 06:45:50 -0400
From: Marshal Benton <post_bote@post.com>
Subject: smtpstats shel script to perl
Message-Id: <Pine.GSO.4.21.0006130644090.12016-100000@lad0178>
Has anyone located a perl script which
does a similar job to the shell script
smtpstats?
Thanks
-marshal-
------------------------------
Date: Tue, 13 Jun 2000 07:42:09 -0500
From: "Paul R. Andersen" <panderse@us.ibm.com>
Subject: Re: weird error from Net::FTP
Message-Id: <39462C21.E5F74E2C@us.ibm.com>
mwkohout@hotmail.com wrote:
>
> I've got a script(significant portions below, and it seems to be
> connecting with machines ok, but after the first 2, it suffers some
> wierd fault. It displays this on the terminal:
>
> Net::FTP: Interrupted system call at allow_root_login.pl line 38
> cant connect: Net::FTP: Interrupted system call
>
>
> any help or insight would be greatly appreciated
>
Is it always the third iteration or is it the third machine? Can you
manually get to the machine that is failing? If so, can you change the
order of the machines in your routine (sort the array maybe) and see if
the failure moves?
--
Paul Andersen
+++++++++++++
The difference between theory and practice is that in theory there is no
difference between theory and practice; but in practice there is.
------------------------------
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 3340
**************************************
