[17098] in Perl-Users-Digest
Perl-Users Digest, Issue: 4510 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Oct 3 18:15:35 2000
Date: Tue, 3 Oct 2000 15:15:20 -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: <970611320-v9-i4510@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Tue, 3 Oct 2000 Volume: 9 Number: 4510
Today's topics:
The stat command on NT rathmore@tierceron.com
Re: The stat command on NT <jeffp@crusoe.net>
WAIS Has security issues <boba@mv.mv.com>
What's the differences between perl4 and perl5 (Otto Wyss)
Re: What's the differences between perl4 and perl5 (Randal L. Schwartz)
Re: What's the differences between perl4 and perl5 <elaine@chaos.wustl.edu>
Re: What's the differences between perl4 and perl5 (Jerome O'Neil)
Windows Event Log Module???? Anyone?? hallian@hotmail.com
Windows Event Log Module???? Anyone?? hallian@hotmail.com
Re: Windows Event Log Module???? Anyone?? <carvdawg@patriot.net>
WinewAPI::File <boogiemonster@usa.net>
Re: WinewAPI::File <carvdawg@patriot.net>
Re: www.perl.com won't come in on my computer.... (Jon S.)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 03 Oct 2000 17:58:08 GMT
From: rathmore@tierceron.com
Subject: The stat command on NT
Message-Id: <8rd6nb$4nc$1@nnrp1.deja.com>
The following code works great on Unix, but acts very strangely on NT:
use Time::Local;
$dirname = 'c:/Documents/LA/';
opendir (DIR,$dirname) or die "can't opendir $dirname: $!";
while (defined($sourcefile = readdir(DIR))) {
($access, $modify, $create) = (stat($sourcefile))[8..10];
print "$sourcefile : ";
print "$access : $modify : $create\n";
}
closedir(DIR);
Program output on NT:
. : 970595518 : 970595518 : 969048421
.. : 970595186 : 969048426 : 968367168
Armwraith.bmp : : :
CHANGED.txt : : :
CHANGES.txt : : :
COPYING.txt : : :
map.zip : : :
NEWS.txt : : :
Plot Ideas.doc : : :
README.txt : : :
Teaser.doc : : :
Teaser.html : : :
Teaser.html.doc : : :
WLB_formated.doc : : :
As you can see, it can't find the accessed, modified, or created time
on these files in NT. Is there an equivalent command to use in NT?
Thanks!
Rathmore
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 3 Oct 2000 14:19:38 -0400
From: Jeff Pinyan <jeffp@crusoe.net>
Subject: Re: The stat command on NT
Message-Id: <Pine.GSO.4.21.0010031417400.14163-100000@crusoe.crusoe.net>
[posted & mailed]
On Oct 3, rathmore@tierceron.com said:
>The following code works great on Unix, but acts very strangely on NT:
>$dirname = 'c:/Documents/LA/';
>opendir (DIR,$dirname) or die "can't opendir $dirname: $!";
>while (defined($sourcefile = readdir(DIR))) {
Did you notice how $sourcefile appears as '.' or 'map.zip', and not the
relative path to '.' or 'map.zip'?
Prepend the directory to it:
$dir = 'C:/Documents/LA'; # I leave off trailing slashes
opendir DIR, $dir or die "can't opendir $dir: $!";
while (defined($file = readdir DIR)) {
@info = stat "$dir/$file";
# ...
}
closedir DIR;
--
Jeff "japhy" Pinyan japhy@pobox.com http://www.pobox.com/~japhy/
PerlMonth - An Online Perl Magazine http://www.perlmonth.com/
The Perl Archive - Articles, Forums, etc. http://www.perlarchive.com/
CPAN - #1 Perl Resource (my id: PINYAN) http://search.cpan.org/
------------------------------
Date: Tue, 3 Oct 2000 16:15:25 -0400
From: "Bob Auger Jr." <boba@mv.mv.com>
Subject: WAIS Has security issues
Message-Id: <8rded1$lng$1@pyrite.mv.net>
Make sure if you use this to disallow backwards browsing. wais.pl has
security issues with allowing /etc/passwd.
I will be putting up a website dedicated to cgi security soon.
www.cgisecurity.com
the site is not up yet but my email is working
admin@cgisecurity.com
also try hack.co.za (its currently down due to billing)
they have a nice cgi hole archive that will explain why wais.pl is a bad
idea
--
Bob Auger Jr.
bobauger@hotmail.com
"Gwyn Judd" <tjla@guvfybir.qlaqaf.bet> wrote in message
news:slrn8t3vem.6s7.tjla@thislove.dyndns.org...
> I was shocked! How could Neb <berube@odyssee.net>
> say such a terrible thing:
> >Well, each time you want to see an HTML page on my site, you call a
script,
> >like:
> >
> >script.pl?page=PAGE1
> >script.pl?page=PAGE2
> >and so on...
>
> Oh okay well that's different. In that case you don't want to index the
> scripts, you want to index the PAGE1, PAGE2 etc files. That is what I
> meant by "needing to know a bit more about the format of your data". All
> you need to do in your search script is change it so it searches those
> files instead.
>
> >So, can a WAIS tool can Index my web site using these kind of URLs
> >(script.pl?page=PAGE1), instead of the usual static pages (like
> >/site/page1.html, /site/page2.html).
>
> Doubtless you can.
>
> >If so, can you refer me to such a tool? thanks.
>
> Oh you don't have a partially written script for us to look at? Oh how
> boring.
>
> --
> Gwyn Judd (print `echo 'tjla@guvfybir.qlaqaf.bet' | rot13`)
> I'm still an atheist, thank God.
>
> -- Luis Buñuel
------------------------------
Date: Tue, 3 Oct 2000 22:39:32 +0200
From: otto.wyss@bluewin.ch (Otto Wyss)
Subject: What's the differences between perl4 and perl5
Message-Id: <1ehy6lz.11zzvtl1vver22N%otto.wyss@bluewin.ch>
I have to fix a perl-script and are restricted to use perl4. What are
the restrictions between those versions and are they anywhere
documented?
O. Wyss
------------------------------
Date: 03 Oct 2000 14:26:53 -0700
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: What's the differences between perl4 and perl5
Message-Id: <m1bsx1fwf6.fsf@halfdome.holdit.com>
>>>>> "Otto" == Otto Wyss <otto.wyss@bluewin.ch> writes:
Otto> I have to fix a perl-script and are restricted to use perl4. What are
Otto> the restrictions between those versions and are they anywhere
Otto> documented?
Perl4 is what people use when they don't know the difference.
All versions of perl prior to 5.004 are known to have demonstrable
security errors (at least buffer overflows).
Knowledge of the differences between perl4 and perl5 is no longer a
marketable skill. It was, about 3 to 5 years ago. There's a
particularly vocal person in this newsgroup who is still living in
that past, so pay no attention to some of the responses you get from
email addresses to which you cannot successfully reply. :-)
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Tue, 03 Oct 2000 21:46:36 GMT
From: Elaine Ashton <elaine@chaos.wustl.edu>
Subject: Re: What's the differences between perl4 and perl5
Message-Id: <B5FFCC02.7519%elaine@chaos.wustl.edu>
in article m1bsx1fwf6.fsf@halfdome.holdit.com, Randal L. Schwartz at
merlyn@stonehenge.com quoth:
>>>>>> "Otto" == Otto Wyss <otto.wyss@bluewin.ch> writes:
> Otto> I have to fix a perl-script and are restricted to use perl4. What are
> Otto> the restrictions between those versions and are they anywhere
> Otto> documented?
>
> Perl4 is what people use when they don't know the difference.
Or when they have no compelling need to know.
> All versions of perl prior to 5.004 are known to have demonstrable
> security errors (at least buffer overflows).
suid perl or sperl was a CERT advisory just a few months ago and it was for
5.005 or 5.6.0 [can't recall the exact version since it was across the board
]. And buffer overflows are still not a thing of the past.
http://theoryx5.uwinnipeg.ca/CPAN/perl/pod/perltrap.html or
http://language.perl.com/all_about/perl425.html may help the gentleman
wanting to know the difference in a practical sense in the 'perl4 to perl5
traps' section. Perl5 was a complete rewrite of Perl4 mostly for the
addition of OO modules and it gave birth to PAUSE/CPAN which you may peruse
at http://www.cpan.org/. Perl4 is *old* and if you look at
http://history.perl.org/PerlTimeline.html in 1994 you will see the first
release of Perl5. That puts your version of Perl4 at 6 years or
better...that's a long time for software.
Perl5 is a better way to go if you can convince your SA or whomever is
responsible for the installation to approve. I suppose just be glad you
aren't strapped with Perl3 ;) Good luck with it.
> There's a
> particularly vocal person in this newsgroup who is still living in
> that past, so pay no attention to some of the responses you get from
> email addresses to which you cannot successfully reply. :-)
I leave for 3 months only to see the same thing when I come back. It's
pathetic and I only hope I live long enough to see it finally end.
e.
------------------------------
Date: Tue, 03 Oct 2000 21:52:12 GMT
From: jerome@activeindexing.com (Jerome O'Neil)
Subject: Re: What's the differences between perl4 and perl5
Message-Id: <gysC5.1830$Tx3.191846@news.uswest.net>
Elaine Ashton <elaine@chaos.wustl.edu> elucidates:
> I leave for 3 months only to see the same thing when I come back. It's
> pathetic and I only hope I live long enough to see it finally end.
Perhaps if you go away for another three months, it will be better
when you return.
--
"Civilization rests on two things: the discovery that fermentation
produces alcohol, and the voluntary ability to inhibit defecation.
And I put it to you, where would this splendid civilization be without
both?" --Robertson Davies "The Rebel Angels"
------------------------------
Date: Tue, 03 Oct 2000 20:24:59 GMT
From: hallian@hotmail.com
Subject: Windows Event Log Module???? Anyone??
Message-Id: <8rdfai$cnt$1@nnrp1.deja.com>
hi all,
I need to grab a WindowNt/Window2000 event logs to a centralized
console. So, is here a Windows Event Log module in PERL. Or something
similar!!!
thanks,
sm
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 03 Oct 2000 20:25:18 GMT
From: hallian@hotmail.com
Subject: Windows Event Log Module???? Anyone??
Message-Id: <8rdfb4$cpq$1@nnrp1.deja.com>
hi all,
I need to grab a WindowNt/Window2000 event logs to a centralized
console. So, is here a Windows Event Log module in PERL. Or something
similar!!!
thanks,
sm
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 03 Oct 2000 17:56:47 -0400
From: H C <carvdawg@patriot.net>
Subject: Re: Windows Event Log Module???? Anyone??
Message-Id: <39DA561F.8766985@patriot.net>
Yes! There is!
For actual, working code, check out http://www.forixnt.com...their Tools
site has several
free scripts that you can grab...
hallian@hotmail.com wrote:
> hi all,
>
> I need to grab a WindowNt/Window2000 event logs to a centralized
> console. So, is here a Windows Event Log module in PERL. Or something
> similar!!!
>
> thanks,
> sm
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
--
Q: Why is Batman better than Bill Gates?
A: Batman was able to beat the Penguin.
------------------------------
Date: Tue, 3 Oct 2000 14:07:47 -0700
From: "J Joseph Yusko" <boogiemonster@usa.net>
Subject: WinewAPI::File
Message-Id: <8rd79i$4h1$1@usenet01.srv.cis.pitt.edu>
Objective: to access the remote machine's file with permission rights
Problematic: Can't access a remote machine. No problem with local file
permission.
Solution: Shoot myself?
any help would be appreciated.
------------------------------
Date: Tue, 03 Oct 2000 17:46:42 -0400
From: H C <carvdawg@patriot.net>
Subject: Re: WinewAPI::File
Message-Id: <39DA53C1.9BA4091C@patriot.net>
Problematic: You haven't provided enough information regarding your
situation.
Solution: You need to specify the target operating system(s), and what you
mean by
"Can't access a remote machine". Does this mean that you do not have remote
access
to a machine, or that you have a script that is not remotely accessing a
machine? If
you do have a script provide it here...maybe someone can help.
I have no idea what "WinewAPI::File" is...it's either a grossly misspelled
"Win32::API::File"
reference or some reference to the WINE emulator...you need to clear that
up, too.
J Joseph Yusko wrote:
> Objective: to access the remote machine's file with permission rights
>
> Problematic: Can't access a remote machine. No problem with local file
> permission.
>
> Solution: Shoot myself?
>
> any help would be appreciated.
--
Q: Why is Batman better than Bill Gates?
A: Batman was able to beat the Penguin.
------------------------------
Date: Tue, 03 Oct 2000 19:45:29 GMT
From: jonceramic@nospammiesno.earthlink.net (Jon S.)
Subject: Re: www.perl.com won't come in on my computer....
Message-Id: <39da3527.23437698@news.earthlink.net>
On Wed, 27 Sep 2000 04:49:09 +0000 (UTC), efflandt@xnet.com (David
Efflandt) wrote:
>[Cc went to perl.com to make them aware of this]
>On Sun, 24 Sep 2000, gerrit_griebel@my-deja.com
><gerrit_griebel@my-deja.com> wrote:
>>
>>> I have a weird problem that I'm not sure of the source. It could be
>>> my DSL's problem or my Mac's problem. For some reason, when I'm
>>> working on my Mac in MacOS, I can't get www.perl.com to come up in
>>> either Netscape or Internet Explorer. I'm on SWBell's DSL (evil
>>> bastards) and MacOS8.1 (no flames please).
>>
>>I have problem with Linux, DSL and Netscape and
>>running vmware and IE I have the same behavior.
>>I tried lynx and w3m: the same. I tried wget and
>>got this:
>>
>>$ wget www.perl.com
>>--20:53:09-- http://www.perl.com:80/
>> => `index.html'
>>Connecting to www.perl.com:80... connected!
>>HTTP request sent, awaiting response... 302 Found
>>Location: http://www.perl.com/pub [following]
>>--20:53:10-- http://www.perl.com:80/pub
>> => `pub'
>> 0K ->
>>
>>20:53:11 (1.05 KB/s) - `pub' saved [14]
>>
>>The file pub then contains the line:
>>
>>REFER TO: <br>
>
>Although I have no trouble accessing it with Linux Netscape ppp with my
>own DNS, they do appear to have an apache config problem. For one thing
>'http://www.perl.com:80/pub' is not a valid URL unless 'pub' is a file.
>'wget -s www.perl.com' displays the above, but the saved file reveals
>these headers from the redirect to http://www.perl.com:80/pub:
>
>HTTP/1.1 200 OK
>Date: Wed, 27 Sep 2000 04:10:52 GMT
>Server: Apache/1.3.12 (Unix) PHP/4.0RC1
>No configuration file for domain: www.perl.com:80, www.perl.com:80
>Connection: close
>Content-Type: text/html
>
>REFER TO: <br>[eof with no newline]
>
>Note: It is not a general apache problem because I can access my own name
>based virtual host using 'wget -s http://www.de-srv.com:80/pub' properly
>redirected to /pub/ without any problem.
Okay, so I'm not crazy then...
Is there a good person behind the scenes at perl.com who I should
report this to? I'm not an Apache guru, so I don't know if the info
above will make sense to just a general "webmaster@perl.com".
Jon
------------------------------
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 4510
**************************************
