[22048] in Perl-Users-Digest
Perl-Users Digest, Issue: 4270 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Dec 16 11:11:54 2002
Date: Mon, 16 Dec 2002 08:10:13 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 16 Dec 2002 Volume: 10 Number: 4270
Today's topics:
security breach attempt ? web crawling ? <os7man@attbi.com>
Re: security breach attempt ? web crawling ? (=?iso-8859-1?q?M=E5ns_Rullg=E5rd?=)
Re: security breach attempt ? web crawling ? <jpagnew@vcu.edu>
Re: security breach attempt ? web crawling ? <ian@WINDOZEdigiserv.net>
Re: Setting DOS buffer size. <andrew_harton@agilent.com>
Re: Switch from perl to python? (Cameron Laird)
Using a hash as a reference is deprecated <jan@klaverstijn.nl>
Re: Using a hash as a reference is deprecated <koos_pol@NO.nl.JUNK.compuware.MAIL.com>
Re: Using a hash as a reference is deprecated <jan@klaverstijn.nl>
Re: Using a hash as a reference is deprecated <bart.lateur@pandora.be>
Re: Using a hash as a reference is deprecated <pinyaj@rpi.edu>
Re: Using a hash as a reference is deprecated <jan@klaverstijn.nl>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 16 Dec 2002 15:15:45 GMT
From: Eric Osman <os7man@attbi.com>
Subject: security breach attempt ? web crawling ?
Message-Id: <3DFDEC8D.B7092C94@attbi.com>
(the following message I originally sent to
comp.infosystems.www.authoring.cgi but that newsgroup
doesn't show ANY messages beyond last Thurs.
Any of you know what gives ???)
Hi.
For quite awhile I've run the "tiny firewall" software.
Recently, I installed "indigoperl" indluding apache
web server (I'm on windows 98 ) .
My purpose of installing indigoperl is for testing
CGI scripts at home before exporting them to a
commercial web server.
What's interesting is that several times a day
my tiny firewall reports that such-and-such an
ip address is trying to open port 80 on my
web server .
I deny all these attempts and then I use
ping -a n.n.n.n
to try to figure out WHO is calling.
Are there other useful commands I can use to get
more info ?
I find it curious that ANYONE is calling.
What are the most likely reasons ?
Security breach attempt ?
Some sort of web crawling ?
As far as I know, there are NO web pages out there
pointing at my test server, so this crawling idea
would surprise me.
Any of you have some insight on this sort of thing ?
Thanks. /Eric
------------------------------
Date: 16 Dec 2002 16:21:32 +0100
From: mru@users.sourceforge.net (=?iso-8859-1?q?M=E5ns_Rullg=E5rd?=)
Subject: Re: security breach attempt ? web crawling ?
Message-Id: <yw1xn0n6gfb7.fsf@lakritspipa.e.kth.se>
Eric Osman <os7man@attbi.com> writes:
> What's interesting is that several times a day
> my tiny firewall reports that such-and-such an
> ip address is trying to open port 80 on my
> web server .
>
> I deny all these attempts and then I use
>
> ping -a n.n.n.n
>
> to try to figure out WHO is calling.
>
> Are there other useful commands I can use to get
> more info ?
host <intruders IP>
might tell you something.
> I find it curious that ANYONE is calling.
>
> What are the most likely reasons ?
>
> Security breach attempt ?
That's it. Script kiddiots. I get lots of those "attacks" in my logs,
even though I have only a dialup line and am online for maybe 30
minutes per day.
--
Måns Rullgård
mru@users.sf.net
------------------------------
Date: Mon, 16 Dec 2002 10:26:08 -0500
From: Jim Agnew <jpagnew@vcu.edu>
To: Eric Osman <os7man@attbi.com>
Subject: Re: security breach attempt ? web crawling ?
Message-Id: <3DFDF090.A54D7AC4@vcu.edu>
there are a *ton* of script kiddies out there trying to hack int IIS,
Microsoft Internet Information Server, and I think you mostly see
those. attempts on YOUR server are rare, but they do happen
congratulations on being intelligent enough to have a firewall...
Eric Osman wrote:
>
> (the following message I originally sent to
> comp.infosystems.www.authoring.cgi but that newsgroup
> doesn't show ANY messages beyond last Thurs.
> Any of you know what gives ???)
>
> Hi.
>
> For quite awhile I've run the "tiny firewall" software.
>
> Recently, I installed "indigoperl" indluding apache
> web server (I'm on windows 98 ) .
>
> My purpose of installing indigoperl is for testing
> CGI scripts at home before exporting them to a
> commercial web server.
>
> What's interesting is that several times a day
> my tiny firewall reports that such-and-such an
> ip address is trying to open port 80 on my
> web server .
>
> I deny all these attempts and then I use
>
> ping -a n.n.n.n
>
> to try to figure out WHO is calling.
>
> Are there other useful commands I can use to get
> more info ?
>
> I find it curious that ANYONE is calling.
>
> What are the most likely reasons ?
>
> Security breach attempt ?
>
> Some sort of web crawling ?
>
> As far as I know, there are NO web pages out there
> pointing at my test server, so this crawling idea
> would surprise me.
>
> Any of you have some insight on this sort of thing ?
>
> Thanks. /Eric
------------------------------
Date: Mon, 16 Dec 2002 15:52:28 GMT
From: "Ian.H [dS]" <ian@WINDOZEdigiserv.net>
Subject: Re: security breach attempt ? web crawling ?
Message-Id: <lmtrvuku82l1imcqn1cemdfkgvrfqp3lqg@4ax.com>
Keywords: Remove WINDOZE to reply
-----BEGIN xxx SIGNED MESSAGE-----
Hash: SHA1
In a fit of excitement on Mon, 16 Dec 2002 15:15:45 GMT, Eric Osman
<os7man@attbi.com> managed to scribble:
>
> (the following message I originally sent to
> comp.infosystems.www.authoring.cgi but that newsgroup
> doesn't show ANY messages beyond last Thurs.
> Any of you know what gives ???)
>
> Hi.
>
> For quite awhile I've run the "tiny firewall" software.
>
> Recently, I installed "indigoperl" indluding apache
> web server (I'm on windows 98 ) .
[snip]
This really has nothing to do with Perl in any way whatsoever.
Why are you so shocked to find that somoene's attempted to access your
server on your local box?
Anyway.. wrong group for this discussion.
Regards,
Ian
-----BEGIN xxx SIGNATURE-----
Version: PGP Personal Privacy 6.5.3
iQA/AwUBPf33Jmfqtj251CDhEQKbDQCeJs9Zdt09/sWf3b1dPWf9fixFaVsAnj3E
s0l5vYed2YVvDhehkbl2jjJC
=2puO
-----END PGP SIGNATURE-----
--
Ian.H [Design & Development]
digiServ Network - Web solutions
www.digiserv.net | irc.digiserv.net | forum.digiserv.net
Scripting, Web design, development & hosting.
------------------------------
Date: Mon, 16 Dec 2002 12:20:43 -0000
From: "Andrew Harton" <andrew_harton@agilent.com>
Subject: Re: Setting DOS buffer size.
Message-Id: <1040041246.521221@cswreg.cos.agilent.com>
Richard S Beckett wrote:
> Hello World!
>
> I need to set the buffer size on the DOS window that starts when I
> double click on my script. Currently I get a standard DOS window with
> no scroll bar.
>
> What I would like is to be able to specify the buffer height, and
> have a scroll bar down the side of the window.
>
> I have done web searches, but not turned up anything, and I don't
> know where to start. Any help greatly appreciated.
>
> Thanks.
>
> R.
Hi there,
This should do what you want :
use Win32::Console;
my $BUFFER = new Win32::Console(STD_OUTPUT_HANDLE);
$BUFFER->Size(80,100);
Hope that helps.
Andrew
--
$s="acehJklnoPrstu ";$_="4dbce078c32ae92a6e30152a";
split//;for(0..$#_){print substr($s,hex $_[$_],1);}
------------------------------
Date: Mon, 16 Dec 2002 14:57:18 -0000
From: claird@lairds.com (Cameron Laird)
Subject: Re: Switch from perl to python?
Message-Id: <uvrqeee939pk35@corp.supernews.com>
In article <roy-D98567.00084914122002@reader1.panix.com>,
Roy Smith <roy@panix.com> wrote:
>elechak@bigfoot.com (Erik Lechak) wrote:
.
.
.
>The biggest reasons I like python over perl are:
.
.
.
>3) interactive (I can just fire up an interpreter and type stuff at it
>to test ideas; building it with gnu readline support makes it even that
>much more convenient).
.
.
.
While it continues to fascinate me that the conventional liter-
ature on Perl so neglects this, in fact interactive access to
the Perl interpreter is readily available <URL: http://
phaseit.net/claird/comp.lang.perl.misc/perl_interactive.html >.
--
Cameron Laird <Cameron@Lairds.com>
Business: http://www.Phaseit.net
Personal: http://phaseit.net/claird/home.html
------------------------------
Date: Mon, 16 Dec 2002 15:28:01 +0100
From: "Jan Klaverstijn" <jan@klaverstijn.nl>
Subject: Using a hash as a reference is deprecated
Message-Id: <3dfde2fc$0$149$1b62eedf@news.euronet.nl>
Hi all,
I upgraded to perl v5.8.0. I now get the message:
"Using a hash as a reference is deprecated" when running a script that"s not mine.
All I found was that this syntax was "allowed by versions of perl <= 5.6 but shouldn't".
The message occurs at lines like:
%msg->{"refresh"}->{"nl"}= [ "Some text ...." ];
I am ashamed to admit I see no apparent cure for this. Anyone that could help me with an acceptable equivalent syntax?
Thanks in advance,
Jan.
------------------------------
Date: Mon, 16 Dec 2002 15:51:55 +0100
From: Koos Pol <koos_pol@NO.nl.JUNK.compuware.MAIL.com>
Subject: Re: Using a hash as a reference is deprecated
Message-Id: <newscache$kyv77h$qqk$1@news.emea.compuware.com>
Jan Klaverstijn wrote (Monday 16 December 2002 15:28):
> Hi all,
>
> I upgraded to perl v5.8.0. I now get the message:
> "Using a hash as a reference is deprecated" when running a
> script that"s not mine.
>
> All I found was that this syntax was "allowed by versions of perl <= 5.6
> but shouldn't".
>
> The message occurs at lines like:
> %msg->{"refresh"}->{"nl"}= [ "Some text ...." ];
^
^
%msg->{...}
should be
$msg->{...}
You can only dereference a thingy if that thingy is a reference. Makes
sense, doesn't it :-) Compare
%msg = (key => "value"); # %msg is a hash
vs
$msg->{key} = "value"; # $msg is a hash reference
Read 'perldoc perlref' for details.
HTH
--
KP
------------------------------
Date: Mon, 16 Dec 2002 16:36:41 +0100
From: "Jan Klaverstijn" <jan@klaverstijn.nl>
Subject: Re: Using a hash as a reference is deprecated
Message-Id: <3dfdf314$0$174$1b62eedf@news.euronet.nl>
Thanks Koos, that makes a lot of sense. I changed all the %'s into $'s. However, I now get other messages.
This code snippet:
#!/usr/bin/perl -w
use strict;
my %h;
$h->{"I"}= [ "hash I" ];
print $h->{"I"}[0];
yields
Global symbol "$h" requires explicit package name ...
I now the message occurs when not declaring your stuff, but I assume I did. When I remove the use strict; it works. However, I do
not want to do this as I regard using strict as good practice.
My actual script (almost 1000 lines squidguard.cgi) yields yet another warning:
Variable "$msg" is not imported
Cheers en groeten
Jan
"Koos Pol" <koos_pol@NO.nl.JUNK.compuware.MAIL.com> schreef in bericht news:newscache$kyv77h$qqk$1@news.emea.compuware.com...
> Jan Klaverstijn wrote (Monday 16 December 2002 15:28):
>
> > Hi all,
> >
> > I upgraded to perl v5.8.0. I now get the message:
> > "Using a hash as a reference is deprecated" when running a
> > script that"s not mine.
> >
> > All I found was that this syntax was "allowed by versions of perl <= 5.6
> > but shouldn't".
> >
> > The message occurs at lines like:
> > %msg->{"refresh"}->{"nl"}= [ "Some text ...." ];
> ^
> ^
>
> %msg->{...}
>
> should be
>
> $msg->{...}
>
> You can only dereference a thingy if that thingy is a reference. Makes
> sense, doesn't it :-) Compare
>
> %msg = (key => "value"); # %msg is a hash
>
> vs
>
> $msg->{key} = "value"; # $msg is a hash reference
>
>
> Read 'perldoc perlref' for details.
> HTH
>
> --
> KP
>
------------------------------
Date: Mon, 16 Dec 2002 15:48:29 GMT
From: Bart Lateur <bart.lateur@pandora.be>
Subject: Re: Using a hash as a reference is deprecated
Message-Id: <mfsrvuo0e6gj4ddm8sgbbc7v1iv62q4jm7@4ax.com>
Koos Pol wrote:
> %msg->{...}
>
>should be
>
> $msg->{...}
>
>You can only dereference a thingy if that thingy is a reference. Makes
>sense, doesn't it :-)
If only you were correct. The correct equivalent syntax is
$msg{...}
as it's the hash %msg, not the scalar $msg that is being used. "%msg->"
is quite equivalent to "(\%msg)->", which even works.
--
Bart.
------------------------------
Date: Mon, 16 Dec 2002 10:51:05 -0500
From: Jeff 'japhy' Pinyan <pinyaj@rpi.edu>
To: Jan Klaverstijn <jan@klaverstijn.nl>
Subject: Re: Using a hash as a reference is deprecated
Message-Id: <Pine.SGI.3.96.1021216105002.451743A-100000@vcmr-64.server.rpi.edu>
[posted & mailed]
On Mon, 16 Dec 2002, Jan Klaverstijn wrote:
>Thanks Koos, that makes a lot of sense. I changed all the %'s into $'s.
>However, I now get other messages.
>
>This code snippet:
> #!/usr/bin/perl -w
> use strict;
> my %h;
> $h->{"I"}= [ "hash I" ];
> print $h->{"I"}[0];
The code you HAD:
%hash->{key} = ...
should be
$hash{key} = ...
The -> in the code snippet you just tried is erroneous.
--
Jeff Pinyan RPI Acacia Brother #734 2003 Rush Chairman
"And I vos head of Gestapo for ten | Michael Palin (as Heinrich Bimmler)
years. Ah! Five years! Nein! No! | in: The North Minehead Bye-Election
Oh. Was NOT head of Gestapo AT ALL!" | (Monty Python's Flying Circus)
------------------------------
Date: Mon, 16 Dec 2002 17:02:54 +0100
From: "Jan Klaverstijn" <jan@klaverstijn.nl>
Subject: Re: Using a hash as a reference is deprecated
Message-Id: <3dfdf939$0$157$1b62eedf@news.euronet.nl>
I took your advice and changed
%hash->...
into
$has{...
That took vare of things,
Thanks a lot all,
Jan.
"Jan Klaverstijn" <jan@klaverstijn.nl> schreef in bericht news:3dfde2fc$0$149$1b62eedf@news.euronet.nl...
> Hi all,
>
> I upgraded to perl v5.8.0. I now get the message:
> "Using a hash as a reference is deprecated" when running a script that"s not mine.
>
> All I found was that this syntax was "allowed by versions of perl <= 5.6 but shouldn't".
>
> The message occurs at lines like:
> %msg->{"refresh"}->{"nl"}= [ "Some text ...." ];
>
> I am ashamed to admit I see no apparent cure for this. Anyone that could help me with an acceptable equivalent syntax?
>
> Thanks in advance,
> Jan.
>
>
------------------------------
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.
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 4270
***************************************
