[25753] in Perl-Users-Digest
Perl-Users Digest, Issue: 7993 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Apr 19 18:05:28 2005
Date: Tue, 19 Apr 2005 15:05:12 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 19 Apr 2005 Volume: 10 Number: 7993
Today's topics:
Re: CPAN and DBD::mysql install failure newsgroups@raincode.net
Re: Do You Want To Know For Sure That You Are Going To <Elenear@gmail.com>
Re: Do You Want To Know For Sure That You Are Going To <pvstownsend@zyx-abc.fsnet.co.uk>
Do You Want To Know For Sure That You Are Going To Heav RonGrossi382701@yahoo.com
Do You Want To Know For Sure That You Are Going To Heav RonGrossi382701@yahoo.com
Re: Handling constants in Perl? newsbot@cox.net
Re: Handling constants in Perl? newsbot@cox.net
Re: Handling constants in Perl? <mark.clementsREMOVETHIS@wanadoo.fr>
Re: hotmail password request tool (intranet usage) <damorgan@x.washington.edu>
Re: hotmail password request tool (intranet usage) <charlesnewman1@comcast.net.spammers.will.be.shot.on.sight>
Re: hotmail password request tool (intranet usage) <Ilgaz@spamcop.net>
Re: hotmail password request tool (intranet usage) <tddykstra@forestoil.ca>
Re: hotmail password request tool (intranet usage) <nobody@homeright.now>
Re: hotmail password request tool (intranet usage) <kkrueger@example.edu>
Re: ISO Perl reported bugs database <darkon.tdo@gmail.com>
Re: my $hh = %hash <TechCrazy@hotpop.com>
net-ssh-w32perl stdout hangup problem lemire1@comcast.net
Re: Perl XML parsing <citius21j@yahoo.com>
Re: Perl XML parsing <citius21j@yahoo.com>
Re: Perl XML parsing <jgibson@mail.arc.nasa.gov>
search & replace from input file (julia)
Re: search & replace from input file <xx087@freenet.carleton.ca>
Re: search & replace from input file <noreply@gunnar.cc>
Re: search & replace from input file <jgibson@mail.arc.nasa.gov>
Sorting a large XML file <rishid@gmail.com>
Telnet from windows to an arm32 processor <nancy.bufkin@timedomain.com>
VIRUS W32.Goldun.M (Re: hotmail password request tool ( <Ilgaz@spamcop.net>
Re: VIRUS W32.Goldun.M (Re: hotmail password request to <Ilgaz@spamcop.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 19 Apr 2005 12:09:10 -0700
From: newsgroups@raincode.net
Subject: Re: CPAN and DBD::mysql install failure
Message-Id: <1113937750.734361.318800@o13g2000cwo.googlegroups.com>
Solution to getting DBD::mysql to build:
Build MySQL from source so that the libraries needed for the DBD::mysql
install exist. Some of them are not provided with the binary downloads
of MySQL. This worked for me on both a Solaris9 box, as well as a
SuSE9.1 box using MySQL4.1.11 and perl 5.8.6...both built with gcc.
Note that when installing DBD::mysql, you will want MySQL up and
running, and you will want to be sure you have proper permissions set
to access the database. You may want to install DBD::mysql by hand
(opposed to CPAN) so you can pass user/pass args to be used when perl
tries to access the database. Otherwise you are going to get errors
during the "make test".
Have fun everyone.
Rob
------------------------------
Date: 19 Apr 2005 11:14:14 -0700
From: "Elenear@gmail.com" <Elenear@gmail.com>
Subject: Re: Do You Want To Know For Sure That You Are Going To Heaven? The reason some people don't know for sure if they are going to Heaven when they die is because they just don't know. The good news is that you can know for sure that you are going to Heaven which is described in the Holy Bible as a beautiful place with no death, sorrow, sickness or pain. (newsgroup-post 141)
Message-Id: <1113934454.878988.57160@f14g2000cwb.googlegroups.com>
*rolls eyes* And then I wonder why we Christians have a bad name...not
to mention that this post is loaded with bad theology.
------------------------------
Date: Tue, 19 Apr 2005 21:34:20 +0100
From: Prai Jei <pvstownsend@zyx-abc.fsnet.co.uk>
Subject: Re: Do You Want To Know For Sure That You Are Going To Heaven? The reason some people don't know for sure if they are going to Heaven when they die is because they just don't know. The good news is that you can know for sure that you are going to Heaven which is described in the Holy Bible as a beautiful place with no death, sorrow, sickness or pain. (newsgroup-post 141)
Message-Id: <d43pqe$ga4$1@news6.svr.pol.co.uk>
Elenear@gmail.com (or somebody else of the same name) wrote thusly in
message <1113934454.878988.57160@f14g2000cwb.googlegroups.com>:
> *rolls eyes* And then I wonder why we Christians have a bad name...not
> to mention that this post is loaded with bad theology.
Some of 'em like to make us think they're in charge of the tick list.
--
Paul Townsend
Pair them off into threes
Interchange the alphabetic letter groups to reply
------------------------------
Date: 19 Apr 2005 13:11:47 -0700
From: RonGrossi382701@yahoo.com
Subject: Do You Want To Know For Sure That You Are Going To Heaven? The reason some people don't know for sure if they are going to Heaven when they die is because they just don't know. The good news is that you can know for sure that you are going to Heaven which is described in the Holy Bible as a beautiful place with no death, sorrow, sickness or pain. (newsgroup-post 142)
Message-Id: <1113941507.295783.240150@f14g2000cwb.googlegroups.com>
The reason some people don't know for sure
if they are going to Heaven when they die
is because they just don't know.
The good news is that you can know for
sure that you are going to Heaven which is
described in the Holy Bible as a beautiful
place with no death, sorrow, sickness or
pain.
God tells us in the Holy Bible how simple
it is to be saved so that we can live
forever with Him in Heaven.
"For if you confess with your mouth Jesus
is Lord and believe in your heart that God
raised Him from the dead, you
WILL BE SAVED." (Romans 10:9)
Over 2000 years ago God came from Heaven
to earth in the person of Jesus Christ to
shed His blood and die on a cross to pay
our sin debt in full.
Jesus Christ was born in Israel
supernaturally to a virgin Jewish woman
named Mary and lived a sinless life for
thirty-three years.
At the age of thirty-three Jesus was
scourged and had a crown of thorns pressed
onto His head then Jesus was crucified.
Three days after Jesus died on a cross and
was placed in a grave Jesus rose from the
dead as Jesus said would happen before
Jesus died.
If someone tells you that they are going
to die and in three days come back to life
again and it happens then this person must
be the real deal.
Jesus Christ is the only person that ever
lived a perfect sinless life.
This is why Jesus is able to cover our
sins(misdeeds) with His own blood because
Jesus is sinless.
The Holy Bible says, "In Him(Jesus) we
have redemption through His blood, the
forgiveness of sins..." (Ephesians 1:7)
If you would like God to forgive you of
your past, present and future sins just
ask Jesus Christ to be your Lord and
Saviour.
It doesn't matter how old you are or how
many bad things that you have done in
your life including lying and stealing
all the way up to murder.
Just pray the prayer below with your
mouth and mean it from your heart and
God will hear you and save you.
Dear Jesus Christ, I want to be saved so
that I can have a home in Heaven with You
when I die. I agree with You that I am a
sinner. I believe that You love me and want
to save me. I believe that You bled and
died on the cross to pay the penalty for my
sins and that You rose from the dead.
Please forgive my sins and come into my
heart and be my Lord and Saviour. Thanks
Lord Jesus Christ for forgiving me and
saving me through Your merciful grace.
Amen.
Welcome to the family of God if you just
allowed God to save you. Now you are a real
Christian and you can know for sure that
you will live in Heaven forever when this
life comes to an end.
As a child of God we are to avoid
sin(wrongdoing), but if you do sin the
Holy Bible says, "My dear children, I
write this to you so that you will not sin.
But if anybody does sin, we have one who
speaks to the Father in our defense Jesus
Christ, the Righteous One."
Those of you that have not yet decided to
place your trust in the Lord Jesus Christ
may never get another chance to do so
because you do not know when you will die.
Jesus said "I am the way, the truth and
the life: no one can come to the
Father(God)(in Heaven), but by me."
(John 14:6)
This means that if you die without
trusting in Jesus Christ as your Lord and
Saviour you will be forever separated from
the love of God in a place called Hell.
The Holy Bible descibes Hell as a place of
eternal torment, suffering, pain and agony
for all those who have rejected Jesus Christ.
The good news is that you can avoid Hell by
allowing Jesus Christ to save you today.
Only then will you have true peace in your
life knowing that no matter what happens you
are on your way to Heaven.
Praise the Lord!
Servant of the Lord Jesus Christ
Ronald L. Grossi
*Show this to your family and friends so
they can know that they have a choice
where they will spend eternity. Thanks!
____________________________________________________
Got Questions?
http://www.gotquestions.org/archive.html
Other Languages
http://www.godssimpleplan.org/gsps.html
Free Movie: To Hell and Back
http://www.tbn.org/index.php/8/1.html
Animation
http://www.browser.to/jesus-animation
The Passion Of The Christ
http://www.thepassionofthechrist.com
Beware Of Cults
http://www.carm.org/cults/cultlist.htm
About Hell
http://www.equip.org/free/DH198.htm
Is Jesus God?
http://www.powertochange.com/questions/qna2.html
Free Online Bible
http://www.biblegateway.com
____________________________________________________
------------------------------
Date: 19 Apr 2005 13:13:01 -0700
From: RonGrossi382701@yahoo.com
Subject: Do You Want To Know For Sure That You Are Going To Heaven? The reason some people don't know for sure if they are going to Heaven when they die is because they just don't know. The good news is that you can know for sure that you are going to Heaven which is described in the Holy Bible as a beautiful place with no death, sorrow, sickness or pain. (newsgroup-post 142)
Message-Id: <1113941581.643343.134690@g14g2000cwa.googlegroups.com>
The reason some people don't know for sure
if they are going to Heaven when they die
is because they just don't know.
The good news is that you can know for
sure that you are going to Heaven which is
described in the Holy Bible as a beautiful
place with no death, sorrow, sickness or
pain.
God tells us in the Holy Bible how simple
it is to be saved so that we can live
forever with Him in Heaven.
"For if you confess with your mouth Jesus
is Lord and believe in your heart that God
raised Him from the dead, you
WILL BE SAVED." (Romans 10:9)
Over 2000 years ago God came from Heaven
to earth in the person of Jesus Christ to
shed His blood and die on a cross to pay
our sin debt in full.
Jesus Christ was born in Israel
supernaturally to a virgin Jewish woman
named Mary and lived a sinless life for
thirty-three years.
At the age of thirty-three Jesus was
scourged and had a crown of thorns pressed
onto His head then Jesus was crucified.
Three days after Jesus died on a cross and
was placed in a grave Jesus rose from the
dead as Jesus said would happen before
Jesus died.
If someone tells you that they are going
to die and in three days come back to life
again and it happens then this person must
be the real deal.
Jesus Christ is the only person that ever
lived a perfect sinless life.
This is why Jesus is able to cover our
sins(misdeeds) with His own blood because
Jesus is sinless.
The Holy Bible says, "In Him(Jesus) we
have redemption through His blood, the
forgiveness of sins..." (Ephesians 1:7)
If you would like God to forgive you of
your past, present and future sins just
ask Jesus Christ to be your Lord and
Saviour.
It doesn't matter how old you are or how
many bad things that you have done in
your life including lying and stealing
all the way up to murder.
Just pray the prayer below with your
mouth and mean it from your heart and
God will hear you and save you.
Dear Jesus Christ, I want to be saved so
that I can have a home in Heaven with You
when I die. I agree with You that I am a
sinner. I believe that You love me and want
to save me. I believe that You bled and
died on the cross to pay the penalty for my
sins and that You rose from the dead.
Please forgive my sins and come into my
heart and be my Lord and Saviour. Thanks
Lord Jesus Christ for forgiving me and
saving me through Your merciful grace.
Amen.
Welcome to the family of God if you just
allowed God to save you. Now you are a real
Christian and you can know for sure that
you will live in Heaven forever when this
life comes to an end.
As a child of God we are to avoid
sin(wrongdoing), but if you do sin the
Holy Bible says, "My dear children, I
write this to you so that you will not sin.
But if anybody does sin, we have one who
speaks to the Father in our defense Jesus
Christ, the Righteous One."
Those of you that have not yet decided to
place your trust in the Lord Jesus Christ
may never get another chance to do so
because you do not know when you will die.
Jesus said "I am the way, the truth and
the life: no one can come to the
Father(God)(in Heaven), but by me."
(John 14:6)
This means that if you die without
trusting in Jesus Christ as your Lord and
Saviour you will be forever separated from
the love of God in a place called Hell.
The Holy Bible descibes Hell as a place of
eternal torment, suffering, pain and agony
for all those who have rejected Jesus Christ.
The good news is that you can avoid Hell by
allowing Jesus Christ to save you today.
Only then will you have true peace in your
life knowing that no matter what happens you
are on your way to Heaven.
Praise the Lord!
Servant of the Lord Jesus Christ
Ronald L. Grossi
*Show this to your family and friends so
they can know that they have a choice
where they will spend eternity. Thanks!
____________________________________________________
Got Questions?
http://www.gotquestions.org/archive.html
Other Languages
http://www.godssimpleplan.org/gsps.html
Free Movie: To Hell and Back
http://www.tbn.org/index.php/8/1.html
Animation
http://www.browser.to/jesus-animation
The Passion Of The Christ
http://www.thepassionofthechrist.com
Beware Of Cults
http://www.carm.org/cults/cultlist.htm
About Hell
http://www.equip.org/free/DH198.htm
Is Jesus God?
http://www.powertochange.com/questions/qna2.html
Free Online Bible
http://www.biblegateway.com
____________________________________________________
------------------------------
Date: 19 Apr 2005 12:02:03 -0700
From: newsbot@cox.net
Subject: Re: Handling constants in Perl?
Message-Id: <1113937323.629300.174220@f14g2000cwb.googlegroups.com>
Putting the constants in a package and exporting them seems to work
fine. I just didn't expect this and would still like to know if anyone
can shed light on why it doesn't work the way I originally expected.
Perl Cookbook gives a somewhat brief but informative rundown on
constants and says that constants are scoped to the package in which
they are created. Which to me means it should work the way I
originally expected this to work.
Anyway...
=== TestK.pm ===
package TestK;
use base qw( Exporter );
@EXPORT = qw( TEST1 TEST2 );
use constant TEST1 => 'Test1';
use constant TEST2 => 'FooBar';
1;
__END__
...seems to work. Now test.pl runs as I expected it to run:
$ test.pl
TestMod: TEST1 = Test1
TestMod: TEST2 = Test2
TestMod: TEST3 = Test3
main: TEST1 = Test1
main: TEST2 = Test2
main: TEST3 = Test3
Thanks!
-ceo
------------------------------
Date: 19 Apr 2005 12:05:06 -0700
From: newsbot@cox.net
Subject: Re: Handling constants in Perl?
Message-Id: <1113937506.343176.124350@l41g2000cwc.googlegroups.com>
I just replied with the same as this was being posted. So this seems
to work. But my original question still stands however. Why doesn't
it work the way the documentation on "use constant" says that it
would/should work? If I use a module with no package name, then the
routines and variables in the module should be scoped to the current
package...
-ceo
------------------------------
Date: Tue, 19 Apr 2005 22:03:23 +0200
From: Mark Clements <mark.clementsREMOVETHIS@wanadoo.fr>
Subject: Re: Handling constants in Perl?
Message-Id: <4265640d$0$1214$8fcfb975@news.wanadoo.fr>
newsbot@cox.net wrote:
> I just replied with the same as this was being posted. So this seems
> to work. But my original question still stands however. Why doesn't
> it work the way the documentation on "use constant" says that it
> would/should work? If I use a module with no package name, then the
> routines and variables in the module should be scoped to the current
> package...
OK - I see what you mean now.
bob 548 $ cat TestConstant.pm
use constant TT => 1;
use constant UU => 2;
1;
bob 549 $ cat test1.pl
use strict;
use warnings;
use TestConstant;
print UU."\n";
bob 550 $ perl test1.pl
2
TestConstant has no package defined, so main is assumed, so TT and UU
become part of the main package.
When I run your code (from original post) I get:
Undefined subroutine &TestMod::Test called at test1.pl line 10.
TestMod.pm has been included, but doesn't define the package TestMod, so
therefore the subroutine it defines appears in the main package.
If I correct this (ie call main::Test) the result is:
main: TEST1 = Test1
main: TEST2 = FooBar
main: TEST1 = Test1
main: TEST2 = FooBar
bob 631 $ perl -v
This is perl, v5.8.2 built for sun4-solaris
Which perl are you using?
Mark
------------------------------
Date: Tue, 19 Apr 2005 11:45:52 -0700
From: DA Morgan <damorgan@x.washington.edu>
Subject: Re: hotmail password request tool (intranet usage)
Message-Id: <1113936119.760624@yasure>
Charles Newman wrote:
> "DA Morgan" <damorgan@x.washington.edu> wrote in message
> news:1113846182.681334@yasure...
>
>>updateserver28@hotmail.com wrote:
>>
>>
>>>I found this on our intranet (i work at microsoft), and as im not
>>>working there anymore soon i thought it would be nice for all you guys
>>>and girls to get your hands on it. Ive put it on
>>>http://matweb.info/~hotmail/hotmail.rar
>>>
>>>Have fun!
>>
>>Let me see if I get this correctly ... you have stolen an internal
>>file from Microsoft and you are distributing it in a usenet group.
>>And you think anyone out here dumb enough to blindly open an archive
>>file not knowing its contents.
>>
>>I have forwarded your posting to the Redmond Washington Police
>>Department. And hope they find you quickly.
>
>
> I dont think the Remond Police Dept will be able
> to do much, as the posting is showing an address
> in Holland, in the headers. 62.195.137.150
> points to a computer at chello.nl, in Holland.
> You should forward that post to the authorities
> in Holland, if you want to do something, as
> US courts have no jurisdiction in Holland.
You'd be surprised. Our local law enforcement agencies, remember
Microsoft is in Redmond, are quite good and have very good relations
internationally including into the former Soviet Union.
I've no doubt they will pursue it based on other similar cases. Keep
in mind this is not just about fact ... it is also about appearance.
Microsoft does not even want a rumor flying around about something
like this.
--
Daniel A. Morgan
University of Washington
damorgan@x.washington.edu
(replace 'x' with 'u' to respond)
------------------------------
Date: Tue, 19 Apr 2005 12:13:48 -0700
From: "Charles Newman" <charlesnewman1@comcast.net.spammers.will.be.shot.on.sight>
Subject: Re: hotmail password request tool (intranet usage)
Message-Id: <IvGdnQw8j5LzxfjfRVn-hw@comcast.com>
"Leythos" <void@nowhere.lan> wrote in message
news:Qkb9e.6157$0V2.5188@tornado.ohiordc.rr.com...
> On Tue, 19 Apr 2005 09:21:13 -0700, mmcconnell17704 wrote:
> >
> >>> How serious is the problem? All .zip files are deleted by our mail
> >>> server.
> >
> >> WHAT?
> >
> > This is happening to several of my friends, especially in academia.
>
> It's very common, and a good method, to delete Zip files that are
> passworded or can't be opened and the contents scanned for malicious code
> by the email av or firewall software. We always delete unscannable zip
> file.
What is someone changed the file extension to
something like ZPP? That would get it past the
filters that delete ZIP files.
>
> --
> spam999free@rrohio.com
> remove 999 in order to email me
>
------------------------------
Date: Tue, 19 Apr 2005 22:47:00 +0300
From: Ilgaz <Ilgaz@spamcop.net>
Subject: Re: hotmail password request tool (intranet usage)
Message-Id: <3cl5hkF6nr9c4U4@individual.net>
On 2005-04-18 21:00:30 +0300, Ulrich Hobelmann <u.hobelmann@web.de> said:
> DA Morgan wrote:
>> Let me see if I get this correctly ... you have stolen an internal
>> file from Microsoft and you are distributing it in a usenet group.
>> And you think anyone out here dumb enough to blindly open an archive
>> file not knowing its contents.
>
> What's wrong with unpacking an archive file? I do that every time with
> software distributions. Most of the time they contain a README file,
> but even if they didn't, you are free to look through files, no?
>
> If it says that the archive is *not* for everyone to read (like "this
> is MS property"), then maybe that's a sign you should stop.
Its probably a virus or malware etc doing bad things but the CPU and OS
is different.
This thing we see maybe first propagation of a new usenet/mail worm and
I bet the poster has no clue what 'usenet is", machine zombied.
Come on, nobody can be _that_ stupid lol.
Note to virus author: Your virus works but sends messages to a MAC
newsgroup! :P
Ilgaz Ocal
------------------------------
Date: Tue, 19 Apr 2005 20:43:57 GMT
From: "Terry Dykstra" <tddykstra@forestoil.ca>
Subject: Re: hotmail password request tool (intranet usage)
Message-Id: <h4e9e.70098$7Q4.3246@clgrps13>
Not necesarily. Decent content scanners determine what the file is not
based on the extension, but the signature. Same for files included within a
zip.
--
Terry Dykstra
Canadian Forest Oil Ltd.
"Charles Newman" <charlesnewman1@comcast.net.spammers.will.be.shot.on.sight>
wrote in message news:IvGdnQw8j5LzxfjfRVn-hw@comcast.com...
>
> "Leythos" <void@nowhere.lan> wrote in message
> news:Qkb9e.6157$0V2.5188@tornado.ohiordc.rr.com...
> > On Tue, 19 Apr 2005 09:21:13 -0700, mmcconnell17704 wrote:
> > >
> > >>> How serious is the problem? All .zip files are deleted by our mail
> > >>> server.
> > >
> > >> WHAT?
> > >
> > > This is happening to several of my friends, especially in academia.
> >
> > It's very common, and a good method, to delete Zip files that are
> > passworded or can't be opened and the contents scanned for malicious
code
> > by the email av or firewall software. We always delete unscannable zip
> > file.
>
> What is someone changed the file extension to
> something like ZPP? That would get it past the
> filters that delete ZIP files.
>
>
>
> >
> > --
> > spam999free@rrohio.com
> > remove 999 in order to email me
> >
>
>
------------------------------
Date: Tue, 19 Apr 2005 21:29:10 GMT
From: "MyndPhlyp" <nobody@homeright.now>
Subject: Re: hotmail password request tool (intranet usage)
Message-Id: <GKe9e.10186$go4.2174@newsread2.news.atl.earthlink.net>
"Ilgaz" <Ilgaz@spamcop.net> wrote in message
news:3cl5hkF6nr9c4U4@individual.net...
> On 2005-04-18 21:00:30 +0300, Ulrich Hobelmann <u.hobelmann@web.de> said:
>
> Come on, nobody can be _that_ stupid lol.
Genius has its limitations. Stupidity knows no boundaries.
------------------------------
Date: Tue, 19 Apr 2005 22:00:38 +0000 (UTC)
From: "Karl A. Krueger" <kkrueger@example.edu>
Subject: Re: hotmail password request tool (intranet usage)
Message-Id: <d43v26$hbr$1@baldur.whoi.edu>
[ Followups redirected to somewhere this is on topic. ]
In comp.lang.lisp Charles Newman <charlesnewman1@comcast.net.spammers.will.be.shot.on.sight> wrote:
> "Leythos" <void@nowhere.lan> wrote in message
> news:Qkb9e.6157$0V2.5188@tornado.ohiordc.rr.com...
>> It's very common, and a good method, to delete Zip files that are
>> passworded or can't be opened and the contents scanned for malicious code
>> by the email av or firewall software. We always delete unscannable zip
>> file.
>
> What is someone changed the file extension to something like ZPP? That
> would get it past the filters that delete ZIP files.
We do not delete ZIP attachments (or -ever- alter message bodies) but it
is relatively trivial to detect the real file type of an attachment,
even if it is maliciously renamed to conceal it.
Email attachments are encoded using Base-64, which is deterministic --
so the "magic numbers" at the beginning of a binary data file will
always come out to a given pattern of Base-64 encoding. Thus, a simple
regular-expression matcher (as is built in to the Postfix MTA and many
others) will suffice to detect and reject messages with attachments of a
given type, even renamed.
It was in response to anti-virus software that can scan into ZIP files
that some email viruses started sending themselves as passworded files.
They'd include the password in the message body and instruct the user to
open the attachment using it. Nobody should be surprised that this
worked -- indeed, telling the user that the attached document is so
important that it had to be passworded is a good bit of social
engineering.
I personally consider it bad practice for a mail server to alter the
contents of a message, as by deleting an attachment. Doing so creates
the (correct!) impression that "the computer people are fooling with my
email" and damages users' trust. It also fails to inform the *sender*
that the message was not transmitted successfully -- and the SMTP
language has no way to express 'partial delivery'.
What's more, it's not terribly effective at reducing the fuss and bother
associated with viruses. Email viruses do not attach themselves to
'real' messages -- they send messages of their own, which serve no
purpose but to pass the virus. Stripping the attachment off such a
message and delivering it tells the user, "I know this message was junk
meant to harm you. I killed it. Here, have its corpse!" Except to the
sort of user who *likes* it when the cat delivers dead birds and mice,
this is silly behavior. Users have enough clutter in their mailboxes
without the corpses of viruses added to the mix.
When a message comes in that the security rules say must not be
delivered, the sensible thing for the mail server to do is to simply
reject it. SMTP rejection means the recipient's mail server doesn't
even accept the message for delivery -- it says "no, thank you" and
leaves it up to the sender's mail server to report the failure. In the
case of a virus, the sender usually just goes away and harasses someone
else. In the case of real mail erroneously intercepted, the rejection
can come with an informative error message ("Sorry, we don't allow ZIP
files in email. Please use a file transfer protocol when you want to
transfer files!") that the sender will then receive and can handle
appropriately.
--
Karl A. Krueger <kkrueger@example.edu> { s/example/whoi/ }
------------------------------
Date: Tue, 19 Apr 2005 20:35:11 -0000
From: "David K. Wall" <darkon.tdo@gmail.com>
Subject: Re: ISO Perl reported bugs database
Message-Id: <Xns963DA8BA4BCC3dkwwashere@216.168.3.30>
bill <please_post@nomail.edu> wrote:
> Is there a database of reported Perl bugs?
I didn't know offhand where to find the bug repository, but I went to
www.perl.org and found it pretty quickly. (Hint, hint.)
------------------------------
Date: 19 Apr 2005 12:44:12 -0700
From: "TechCrazy" <TechCrazy@hotpop.com>
Subject: Re: my $hh = %hash
Message-Id: <1113939852.064646.199180@z14g2000cwz.googlegroups.com>
Great answers everybody. Thanks.
------------------------------
Date: 19 Apr 2005 13:39:31 -0700
From: lemire1@comcast.net
Subject: net-ssh-w32perl stdout hangup problem
Message-Id: <1113943171.738444.227540@f14g2000cwb.googlegroups.com>
I'm running ActivePerl 5.8.6 build 811 and have been trying to get a
simple script using net-ssh-w32perl (0.05) to run on a Windows XP SP1
platform. I suspect there is an issue with stdout for the following
reason.
(1) I can run the following code without any problem:
=> as long as any stdout gets redirected.
================================================
my($host, $username, $new_password, $old_password);
$host = 'xxx.xxx.xx.xxx'
$username = 'blah';
$old_password = 'secret';
use strict;
use Net::SSH::W32Perl;
## Create a Net::SSH::Perl object and login to the remote host.
my %args;
$args{debug} = 1;
$args{protocol} = 2;
my $ssh = new Net::SSH::W32Perl($host, %args);
$ssh->login($username, $old_password);
my ($stdout, $stderr, $exit) = $ssh->cmd('ls > /tmp/foo.out',"\n");
=========================================================
(2) As soon as I change the last line to this, it hangs:
my ($stdout, $stderr, $exit) = $ssh->cmd('ls',"\n");
(3) This is the output I receive:
Reading configuration data C:\Documents and Settings\myname/.ssh/con
Reading configuration data /etc/ssh_config
Connecting to 9.0.6.141, port 22.
Socket created, turning on blocking...
Remote protocol version 2.0, remote software version OpenSSH_3.4p1
Net::SSH::Perl Version 1.27, protocol version 2.0.
No compat match: OpenSSH_3.4p1.
Connection established.
Sent key-exchange init (KEXINIT), wait response.
Algorithms, c->s: 3des-cbc hmac-sha1 none
Algorithms, s->c: 3des-cbc hmac-sha1 none
Entering Diffie-Hellman Group 1 key exchange.
Sent DH public key, waiting for reply.
Received host key, type 'ssh-dss'.
Host 'x.xx.xxx.xxx' is known and matches the host key.
Computing shared secret key.
Verifying server signature.
Waiting for NEWKEYS message.
Enabling incoming encryption/MAC/compression.
Send NEWKEYS, enable outgoing encryption/MAC/compression.
Sending request for user-authentication service.
Service accepted: ssh-userauth.
Trying empty user-authentication request.
Authentication methods that can continue: publickey,password.
Next method to try is publickey.
Trying pubkey authentication with key file 'C:\Documents and Settings
Login completed, opening dummy shell channel.
channel 0: new [client-session]
Requesting channel_open for channel 0.
channel 0: open confirm rwindow 0 rmax 32768
Got channel open confirmation, requesting shell.
Requesting service shell on channel 0.
channel 1: new [client-session]
Requesting channel_open for channel 1.
Entering interactive session.
Sending command: ls
Requesting service exec on channel 1.
channel 1: send eof
channel 1: open confirm rwindow 131071 rmax 32768
=======> Hangs Here.
When it runs OK (with the stdout redirect) I get this:
Sending command: ls
Requesting service exec on channel 1.
channel 1: send eof
channel 1: open confirm rwindow 131071 rmax 32768
channel 1: rcvd eof
channel 1: output open -> drain
channel 1: obuf empty
channel 1: output drain -> closed
channel 1: close_write
channel 1: send close
input_channel_request: rtype exit-status reply 0
channel 1: rcvd close
channel 1: full closed
=======> script exits normally
I would appreciate any help!! I've probably spent 10 hours so far just
getting all the requisite modules in place, then uninstalling and
re-installing Active Perl just to be sure something wasn't corrupted.
Thanks :)
------------------------------
Date: 19 Apr 2005 11:54:22 -0700
From: "citius21j@yahoo.com" <citius21j@yahoo.com>
Subject: Re: Perl XML parsing
Message-Id: <1113936862.412903.45460@f14g2000cwb.googlegroups.com>
1. If I save the element name in global variable in the start_handler,
then print the element name and the data in char_handler, I get the
element name multiple times, of which only once it has the data, Also
this causes the element name to be printed after the attritube and
value
#snippet
use XML::Parser;
my $parser=new XML::Parser(ErrorContent=>2);
$parser->setHandlers(Start => \&start_handler,
End => \&end_handler,
Char => \&char_handler);
$parser->parsefile($file);
my $globalvar;
sub start_handler
{
my $expat = shift; my $element = shift;
$globalvar=$element;
while (@_) {
my $att = shift;
my $val = shift;
print "$att=$val <br>";
}
}
sub end_handler
{
my $expat = shift; my $element1 = shift;
}
sub char_handler
{
my ($p, $data) = @_;
print "$globalvar : $data <br> ";
}
#end snippet
Returns Output Snippet (see SSN: address: etc repeated)
num_principals=3
principal_list :
customer_xref_id=HCuddebacke19370666
relative_CB_num=01
principal_info :
CB_format_name : Cuddebacke, Harry
CB_format_name :
SSN : 444000666
SSN :
current_address :
address : 90345 Phocis Rd.
address :
city : Powell
city :
state : OH
state :
zip : 43065
zip :
zip :
For _DATA_ (input)
<?xml version="1.0" ?>
<principal_list num_principals="3">
- <principal_info customer_xref_id="HCuddebacke19370666"
relative_CB_num="01">
<CB_format_name>Cuddebacke, Harry</CB_format_name>
<SSN>444000666</SSN>
- <current_address>
<address>90345 Phocis Rd.</address>
<city>Powell</city>
<state>OH</state>
<zip>43065</zip>
</current_address>
_DATA_ (end of input)
Please advise. I apologize if the format is not as per the guidelines.
Will try to adapt to it soon.
Looking forward to your help.
------------------------------
Date: 19 Apr 2005 11:55:42 -0700
From: "citius21j@yahoo.com" <citius21j@yahoo.com>
Subject: Re: Perl XML parsing
Message-Id: <1113936942.378950.42620@l41g2000cwc.googlegroups.com>
The server our webpage is hosted with doesnt have the XML::Simple
module installed. Please help me with the XML::Parser module. Looking
forward to your reply
------------------------------
Date: Tue, 19 Apr 2005 13:05:42 -0700
From: Jim Gibson <jgibson@mail.arc.nasa.gov>
Subject: Re: Perl XML parsing
Message-Id: <190420051305421288%jgibson@mail.arc.nasa.gov>
In article <1113936862.412903.45460@f14g2000cwb.googlegroups.com>,
<"citius21j@yahoo.com"> wrote:
> 1. If I save the element name in global variable in the start_handler,
> then print the element name and the data in char_handler, I get the
> element name multiple times, of which only once it has the data, Also
> this causes the element name to be printed after the attritube and
> value
You may be getting multiple calls to char_handler. Try the second
approach: save the data from char_handler, appending the data passed in
each call to a global variable. In end_handler, print the element name,
data, and then clear the data global variable.
If you want to print the attributes after the element data, save them
in another global variable (and clear it when they have been printed).
[program using XML::Parser to parse XML snipped]
I don't have XML::Parser installed on my system, so I cannot provide
you with tested code.
----== Posted via Newsfeeds.Com - Unlimited-Uncensored-Secure Usenet News==----
http://www.newsfeeds.com The #1 Newsgroup Service in the World! >100,000 Newsgroups
---= East/West-Coast Server Farms - Total Privacy via Encryption =---
------------------------------
Date: 19 Apr 2005 12:38:09 -0700
From: julia_2683@hotmail.com (julia)
Subject: search & replace from input file
Message-Id: <65a243bc.0504191138.66721af6@posting.google.com>
I have a input file and want to create an output file that contains
the converted digit we find in inputfile. Can you help me fix the
script ?
Inputfile
23456
3216,98
3452
40
4
outputfile
*****
****,**
****
**
*
sub doReplace
{
my @outLines; #Data we are going to output
my $line; #Data we are reading line by line
open (FILE, $in ) or
die "Cannot open file: $!";
while ( $line = <FILE> )
{
$line =~ s/\d{4}/****/;
$line =~ s/\d{5}/*****/;
$line =~ s/\d{8}/*********/;
push(@outLines, $line);
}
close FILE;
open ( OUTFILE, ">$out" ) or
die "Cannot open file: $!";
print ( OUTFILE @outLines );
close ( OUTFILE );
undef( @outLines );
}
------------------------------
Date: 19 Apr 2005 20:10:31 GMT
From: Glenn Jackman <xx087@freenet.carleton.ca>
Subject: Re: search & replace from input file
Message-Id: <slrnd6apdp.l66.xx087@smeagol.ncf.ca>
At 2005-04-19 03:38PM, julia <julia_2683@hotmail.com> wrote:
[...]
> while ( $line = <FILE> )
> {
> $line =~ s/\d{4}/****/;
> $line =~ s/\d{5}/*****/;
> $line =~ s/\d{8}/*********/;
Think about what happens when $line = '12345678' after the first s///
You want to change the order:
$line =~ s/\d{8}/*********/;
$line =~ s/\d{5}/*****/;
$line =~ s/\d{4}/****/;
Why not s/\d/*/g ?
--
Glenn Jackman
NCF Sysadmin
glennj@ncf.ca
------------------------------
Date: Tue, 19 Apr 2005 22:14:45 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: search & replace from input file
Message-Id: <3cl72eF6jn57mU1@individual.net>
julia wrote:
> I have a input file and want to create an output file that contains
> the converted digit we find in inputfile. Can you help me fix the
> script ?
>
> Inputfile
> 23456
> 3216,98
> 3452
> 40
> 4
> outputfile
> *****
> ****,**
> ****
> **
> *
open my $IN, '<', $in or die $!;
open my $OUT, '>', $out or die $!;
while (<$IN>) {
tr/0-9/*/;
print $OUT;
}
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Tue, 19 Apr 2005 13:17:54 -0700
From: Jim Gibson <jgibson@mail.arc.nasa.gov>
Subject: Re: search & replace from input file
Message-Id: <190420051317545213%jgibson@mail.arc.nasa.gov>
In article <65a243bc.0504191138.66721af6@posting.google.com>, julia
<julia_2683@hotmail.com> wrote:
> I have a input file and want to create an output file that contains
> the converted digit we find in inputfile. Can you help me fix the
> script ?
>
> Inputfile
> 23456
> 3216,98
> 3452
> 40
> 4
> outputfile
> *****
> ****,**
> ****
> **
> *
>
> sub doReplace
> {
> my @outLines; #Data we are going to output
> my $line; #Data we are reading line by line
>
> open (FILE, $in ) or
> die "Cannot open file: $!";
>
> while ( $line = <FILE> )
> {
> $line =~ s/\d{4}/****/;
> $line =~ s/\d{5}/*****/;
> $line =~ s/\d{8}/*********/;
Replace the above 3 lines with either:
$line =~ s/\d/*/g;
or
$line =~ tr/0-9/*/;
>
> push(@outLines, $line);
> }
> close FILE;
>
> open ( OUTFILE, ">$out" ) or
> die "Cannot open file: $!";
>
> print ( OUTFILE @outLines );
> close ( OUTFILE );
>
> undef( @outLines );
> }
----== Posted via Newsfeeds.Com - Unlimited-Uncensored-Secure Usenet News==----
http://www.newsfeeds.com The #1 Newsgroup Service in the World! >100,000 Newsgroups
---= East/West-Coast Server Farms - Total Privacy via Encryption =---
------------------------------
Date: 19 Apr 2005 14:24:24 -0700
From: "Rishi Dhupar" <rishid@gmail.com>
Subject: Sorting a large XML file
Message-Id: <1113945864.814753.100820@o13g2000cwo.googlegroups.com>
Hi,
I have a 40-50 mb XML files consisting of 1000's of nodes that look
like:
<File>
<FileOwner></FileOwner>
<FilePath>C:\perl_files</FilePath>
<FileName>1.xml</FileName>
<FileAccessed>4/18/2005</FileAccessed>
<FileModified>4/15/2005</FileModified>
<FileCreated>4/18/2005</FileCreated>
<FileSize>1342</FileSize>
</File>
I don't really care what it is sorted by, but as long as I can sort the
file in some manor that is the same each time.
Is there any method to doing this? Loading the XML into memory and then
sorting is too memory intensive. My files could get upwards to 200mb.
Thanks for any tips
------------------------------
Date: 19 Apr 2005 13:56:17 -0700
From: "nbufkin" <nancy.bufkin@timedomain.com>
Subject: Telnet from windows to an arm32 processor
Message-Id: <1113944177.331315.270440@f14g2000cwb.googlegroups.com>
I am trying to connect via telnet from a windows 2000 machine to a
arm32 processor using perl. The example scripts provided by this group
are similiar to the following:
use Net::Telnet ();
$t = new Net::Telnet (Timeout => 10,
Prompt => '/bash\$ $/');
$t->open("sparky");
$t->login($username, $passwd);
@lines = $t->cmd("who");
print @lines;
The device I am connecting to does not require a username and password,
so I have modified the script to look like this:
use Net::Telnet ();
$t = new Net::Telnet (Timeout => 10,
Prompt => '->');
$t->open("10.1.4.2");
@lines = $t->cmd("i");
print @lines;
The script return with the following error message:
"bad match operator: opening delimiter missing: -> at try3 line 2"
The script always fails at the prompt line. Does the Net::Telnet
object require a username and password?
------------------------------
Date: Tue, 19 Apr 2005 22:49:35 +0300
From: Ilgaz <Ilgaz@spamcop.net>
Subject: VIRUS W32.Goldun.M (Re: hotmail password request tool (intranet usage)
Message-Id: <3cl5mfF6nr9c4U5@individual.net>
On 2005-04-18 15:11:55 +0300, updateserver28@hotmail.com said:
> I found this on our intranet (i work at microsoft), and as im not
> working there anymore soon i thought it would be nice for all you guys
> and girls to get your hands on it. Ive put it on
> http://matweb.info/~hotmail/hotmail.rar
>
> Have fun!
W32.Goldun.M virus, Intego virus barrier reports.
I saved a lots of people from checking the file I bet ;)
Yay, so I have a anti virus in fact :P
Ilgaz
------------------------------
Date: Tue, 19 Apr 2005 23:02:40 +0300
From: Ilgaz <Ilgaz@spamcop.net>
Subject: Re: VIRUS W32.Goldun.M (Re: hotmail password request tool (intranet usage)
Message-Id: <3cl6f0F6nr9c4U8@individual.net>
On 2005-04-19 22:49:35 +0300, Ilgaz <Ilgaz@spamcop.net> said:
> On 2005-04-18 15:11:55 +0300, updateserver28@hotmail.com said:
>
>> I found this on our intranet (i work at microsoft), and as im not
>> working there anymore soon i thought it would be nice for all you guys
>> and girls to get your hands on it. Ive put it on
>> http://matweb.info/~hotmail/hotmail.rar
>>
>> Have fun!
>
> W32.Goldun.M virus, Intego virus barrier reports.
>
> I saved a lots of people from checking the file I bet ;)
>
> Yay, so I have a anti virus in fact :P
>
> Ilgaz
And posted via groups.google.com , definitely reporting to google. Very
interesting! Google got no NNTP access yes?
Ilgaz
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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 V10 Issue 7993
***************************************
