[23394] in Perl-Users-Digest
Perl-Users Digest, Issue: 5612 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Oct 3 21:05:40 2003
Date: Fri, 3 Oct 2003 18:05:08 -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 Fri, 3 Oct 2003 Volume: 10 Number: 5612
Today's topics:
hack a telnet server? <smackdab1@hotmail.com>
Re: hack a telnet server? <tony_curtis32@_SPAMTRAP_yahoo.com>
Re: hack a telnet server? <vk4tec@hotmail.com>
Re: hack a telnet server? <smackdab1@hotmail.com>
Re: How to generate this list? (Charles DeRykus)
need to go back three lines after a match <vk4tec@hotmail.com>
Re: need to go back three lines after a match <vk4tec@hotmail.com>
Re: need to go back three lines after a match <emschwar@pobox.com>
Re: need to go back three lines after a match <mbudash@sonic.net>
Re: need to go back three lines after a match <kuujinbo@hotmail.com>
Re: need to go back three lines after a match <emschwar@pobox.com>
out of memory during excecution <gsforgam@yahoo.fr>
Re: out of memory during excecution <ak+usenet@freeshell.org>
out of memory sbrk() <gsforgam@yahoo.fr>
REGEX (Not allowing file extenstions) or the dot <sts@news.sts>
Re: REGEX (Not allowing file extenstions) or the dot (Tad McClellan)
Re: REGEX (Not allowing file extenstions) or the dot <ddunham@redwood.taos.com>
Re: REGEX (Not allowing file extenstions) or the dot <REMOVEsdnCAPS@comcast.net>
Re: Trouble with throttling fork() <glex_nospam@qwest.net>
Re: Trouble with throttling fork() <sfandino@yahoo.com>
waitpid and alarms <News@SteveNoWayEast.com>
Re: <bwalton@rochester.rr.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 3 Oct 2003 15:52:24 -0700
From: "smackdab" <smackdab1@hotmail.com>
Subject: hack a telnet server?
Message-Id: <F1nfb.5237$hp5.1172@fed1read04>
I have searched google and found that there are no examples
of telnet servers written in perl...
Is there a way to get a MINIMAL session going?
From my reading, there is some binary connection that
goes on to make a connection...Can this be simplified
to the most common for common win/linux clients?
I am just interested in using a basic telnet session to
"show status"
"show connections"
"shutdown"
I could do this with a perl program, but then it would have
to be distributed. I am looking to use telnet, as that
is what I think is the "easiest" to get going. Can anyone
think of a different way to go???
I am still a perl&networking beginner, so pointers are very helpful!
thanks
------------------------------
Date: Fri, 03 Oct 2003 18:01:36 -0500
From: Tony Curtis <tony_curtis32@_SPAMTRAP_yahoo.com>
Subject: Re: hack a telnet server?
Message-Id: <8765j63oz3.fsf@limey.hpcc.uh.edu>
>> On Fri, 3 Oct 2003 15:52:24 -0700,
>> "smackdab" <smackdab1@hotmail.com> said:
> I have searched google and found that there are no
> examples of telnet servers written in perl...
> Is there a way to get a MINIMAL session going?
> From my reading, there is some binary connection that
> goes on to make a connection...Can this be simplified to
> the most common for common win/linux clients?
> I am just interested in using a basic telnet session to
> "show status" "show connections" "shutdown"
Ah, you don't mean a "telnet server"...
You mean, a server that accepts textual commands and
responds to them in some way. Sure, telnet can connect to
such a server, but that's just a potential client, not a
protocol stipulation.
perldoc Net::Cmd
But also check http://search.cpan.org/, there may already
be a solution if this is a "well known" protocol you're
talking about.
hth
t
------------------------------
Date: Sat, 04 Oct 2003 09:41:54 +1000
From: Andrew Rich <vk4tec@hotmail.com>
Subject: Re: hack a telnet server?
Message-Id: <3f7e0974_1@news.iprimus.com.au>
How about a forking one ? creates a new session each connect for you
#!/usr/bin/perl
use IO::Socket;
use IO::Socket::INET;
use Net::hostent;
$SIG{CHLD} = 'IGNORE';
my $server = new IO::Socket::INET(LocalPort => 10151, Type =>
SOCK_STREAM, Proto
=> "tcp",Listen => 5) or die "some error";
while(my $client = $server->accept())
{
my $pid = fork;
die "Error. Fork: $!\n" unless defined $pid;
print "generated pid $pid\n";
if($pid == 0)
{
while (<$client>)
{
Print;
}
exit(0);
}
}
------------------------------
Date: Fri, 3 Oct 2003 17:01:41 -0700
From: "smackdab" <smackdab1@hotmail.com>
Subject: Re: hack a telnet server?
Message-Id: <C2ofb.5253$hp5.1526@fed1read04>
> Ah, you don't mean a "telnet server"...
>
> You mean, a server that accepts textual commands and
> responds to them in some way. Sure, telnet can connect to
> such a server, but that's just a potential client, not a
> protocol stipulation.
>
> perldoc Net::Cmd
>
> But also check http://search.cpan.org/, there may already
> be a solution if this is a "well known" protocol you're
> talking about.
>
Oh, I thought if you used a Telnet client, then the server side of
your application (IO::Socket, accept(), etc.) needed to understand
and negotiate binary "stuff" to sync up. Is this not necessary?
thanks
------------------------------
Date: Sat, 4 Oct 2003 00:02:33 GMT
From: ced@bcstec.ca.boeing.com (Charles DeRykus)
Subject: Re: How to generate this list?
Message-Id: <HM7HG9.AyK@news.boeing.com>
In article <3F7B4A9C.36AC5419@earthlink.net>,
Mike Flannigan <mikeflan@earthlink.net> wrote:
>
>>...
>> my @array = qw/ A A A A B B C D D D /;
>>
>> print "$_\n" for glob "{@{[ join ',', @array ]}}" x @array;
>>
>> :-)
>
>I don't know why, but on my Win2000 box this gives
>the error:
>Unmatched right square bracket at . . . line 6, at end of line.
>
>I sure don't see that:
>
>
C:\>perl -e "my @array = qw/ A A A A B B C D D D /;print qq($_\n) for glob qq(@{
[ join ',',@array ]}) x @array"
A,A,A,A,B,B,C,D,D,DA,A,A,A,B,B,C,D,D,DA,A,A,A,B,B,C,D,D,DA,A,A,A,B,B,C,D,D,DA,A,
A,A,B,B,C,D,D,DA,A,A,A,B,B,C,D,D,DA,A,A,A,B,B,C,D,D,DA,A,A,A,B,B,C,D,D,DA,A,A,A,
B,B,C,D,D,DA,A,A,A,B,B,C,D,D,D
C:\>
hth,
--
Charles DeRykus
------------------------------
Date: Sat, 04 Oct 2003 08:32:50 +1000
From: Andrew Rich <vk4tec@hotmail.com>
Subject: need to go back three lines after a match
Message-Id: <3f7df944_1@news.iprimus.com.au>
Howdy,
I have a need to do this :-
1. find a match
2. go back three lines
3. read out lines 1 2 3
eg
apples
bannanas
oranges
match on oranges
back up three lines, output three lines
apples
bannanas
oranges
------------------------------
Date: Sat, 04 Oct 2003 10:26:12 +1000
From: Andrew Rich <vk4tec@hotmail.com>
Subject: Re: need to go back three lines after a match
Message-Id: <3f7e13d6$1_1@news.iprimus.com.au>
I was thinking of sampling three rows at a time
The reason I am doing this is that the data is like this:-
I need to get the date time info on a match on the ascii line
date time info
hex dump
ascii dump
date time info
hex dump
ascii dump
date time info
hex dump
ascii dump
date time info
hex dump
ascii dump
date time info
hex dump
ascii dump
date time info
hex dump
ascii dump
date time info
hex dump
ascii dump
------------------------------
Date: Fri, 03 Oct 2003 16:40:28 -0600
From: Eric Schwartz <emschwar@pobox.com>
Subject: Re: need to go back three lines after a match
Message-Id: <eton0ci6j37.fsf@wormtongue.emschwar>
Andrew Rich <vk4tec@hotmail.com> writes:
> Howdy,
>
> I have a need to do this :-
>
> 1. find a match
> 2. go back three lines
> 3. read out lines 1 2 3
What have you tried? I'd suggest keeping a three-line buffer that you
print out when a line is matched, but the rest of your code might
suggest a different approach.
-=Eric
--
Come to think of it, there are already a million monkeys on a million
typewriters, and Usenet is NOTHING like Shakespeare.
-- Blair Houghton.
------------------------------
Date: Fri, 03 Oct 2003 22:55:57 GMT
From: Michael Budash <mbudash@sonic.net>
Subject: Re: need to go back three lines after a match
Message-Id: <mbudash-E6D0F8.15555603102003@typhoon.sonic.net>
In article <3f7df944_1@news.iprimus.com.au>,
Andrew Rich <vk4tec@hotmail.com> wrote:
> Howdy,
>
> I have a need to do this :-
>
> 1. find a match
> 2. go back three lines
> 3. read out lines 1 2 3
>
> eg
>
> apples
> bannanas
> oranges
>
> match on oranges
>
> back up three lines, output three lines
>
> apples
> bannanas
> oranges
>
how bout this:
while (<DATA>) {
push @queue, $_;
shift @queue if @queue == 4;
if (/oranges/) {
print @queue;
last;
}
}
__DATA__
pears
apples
bananas
oranges
peaches
--
Michael Budash
------------------------------
Date: Sat, 04 Oct 2003 08:05:20 +0900
From: ko <kuujinbo@hotmail.com>
Subject: Re: need to go back three lines after a match
Message-Id: <blkvf7$1rb$1@pin3.tky.plala.or.jp>
Andrew Rich wrote:
> Howdy,
>
> I have a need to do this :-
>
> 1. find a match
> 2. go back three lines
> 3. read out lines 1 2 3
>
> eg
>
> apples
> bannanas
> oranges
>
> match on oranges
>
> back up three lines, output three lines
>
> apples
> bannanas
> oranges
>
You could read the file into an array and reverse() the array (read the
file backwards). When you find your match, print it and the next two
lines. Since the array (lines in the file) is already reversed, you
don't have to backtrack
HTH - keith
------------------------------
Date: Fri, 03 Oct 2003 17:36:29 -0600
From: Eric Schwartz <emschwar@pobox.com>
Subject: Re: need to go back three lines after a match
Message-Id: <etoekxt7v2a.fsf@wormtongue.emschwar>
ko <kuujinbo@hotmail.com> writes:
> Andrew Rich wrote:
>> Howdy,
>> I have a need to do this :-
>> 1. find a match
>> 2. go back three lines
>> 3. read out lines 1 2 3
>
> You could read the file into an array and reverse() the array (read
> the file backwards). When you find your match, print it and the next
> two lines. Since the array (lines in the file) is already reversed,
> you don't have to backtrack
But that would print them out backwards. You could save the three
lines in an array, reverse it, and then print it out, I suppose. I'd
rather just keep a two-line buffer. :)
-=Eric
--
Come to think of it, there are already a million monkeys on a million
typewriters, and Usenet is NOTHING like Shakespeare.
-- Blair Houghton.
------------------------------
Date: Fri, 03 Oct 2003 08:54:46 GMT
From: fred <gsforgam@yahoo.fr>
Subject: out of memory during excecution
Message-Id: <3F7D3793.628266A9@yahoo.fr>
hello ,
my perl program is going out of memory during its exceution ( sbrk() is
... )
i m new to this langage and i would like advice to know how i can
instrument this code and see where i can reduce the amount of object i
create.
something like purify quantity for perl .
thank you
------------------------------
Date: Sat, 4 Oct 2003 00:08:07 +0000 (UTC)
From: Andreas Kahari <ak+usenet@freeshell.org>
Subject: Re: out of memory during excecution
Message-Id: <slrnbns3r5.5mo.ak+usenet@mx.freeshell.org>
In article <3F7D3793.628266A9@yahoo.fr>, fred wrote:
> hello ,
>
> my perl program is going out of memory during its exceution ( sbrk() is
> ... )
>
> i m new to this langage and i would like advice to know how i can
> instrument this code and see where i can reduce the amount of object i
> create.
>
> something like purify quantity for perl .
It's kinda hard to say something when all you've got is "I'm
using too much memory, help".
A very general tips: Don't read the whole file into memory at
once. Process it line by line.
--
Andreas Kähäri
------------------------------
Date: Fri, 03 Oct 2003 08:55:50 GMT
From: fred <gsforgam@yahoo.fr>
Subject: out of memory sbrk()
Message-Id: <3F7D37D3.CB4129D9@yahoo.fr>
hello ,
my perl program is going out of memory during its exceution ( sbrk() is
... )
i m new to this langage and i would like advice to know how i can
instrument this code and see where i can reduce the amount of object i
create.
something like purify quantity for perl .
thank you
------------------------------
Date: Fri, 03 Oct 2003 23:00:25 GMT
From: <sts@news.sts>
Subject: REGEX (Not allowing file extenstions) or the dot
Message-Id: <dcnfb.5595$sn1.2155@newssvr16.news.prodigy.com>
REGULAR EXPRESSION
PROGRAM: Quake2
CODE: C+
REGULAR EXPRESSION REQUEST EXPLINATION
I am running a quake2 server with a program that has the capabilities to disable (client-side) commands or any
part of a string pass on to the server. So,
anyone who connects to my game server and tries to issue a command that is on the "command BAN list" will not
work. The good news is, is that the programmer intelligently included the ability to match regular expression
matching. Now what I want to do is simple. I want to prevent someone typing any type of file extention. On
the latter part of the filename after the '.' and including the '.' dot. I am allowing people to change
maps via LRCON from the program dll Q2admin. I have a banlist.txt file were I can place any regular expresssion match,
and if client tries to send the command to my gaming server and is checked inside this banlist.txt file,
any matches in this banlist.txt file command will be ignored.
This is great because there is one fucked up flaw in the mod I'm running. It could also be Quake2's code's fault.
When someone has regular rcon, or lrcon, and from WAN or LAN side, if the include the *.bsp extention on to
the command it crashes the server. Also, if they type a name of a map that DOES NOT EXIST in the /maps
direcotry, EX., abcd.bsp, and anyone tries to change to this map it crashes the server.
All I want to do is prevent, BAN the adding of the extenstion "*.bsp", Or better yet, is to totally
make the server ignore ANY FILE EXTENTION ".*" including the '.' as well. I only want them to be allowed
to type in the filename.
They can type
mapname
all they want, but I do not want to allow
mapname.bsp or
mapname.123 or
mapname.* or
mapname.
IMPORTANT: here is the entire command the clients have to type in order to send a command to the server
to change a map:
lrcon map map q2dm1
EXPLINATION: The 'lrocn' part is allowed. the first 'map', is allowed, the second 'map', is allowed,
the mapname 'q2dm1' is allowed. But what is not allowed is for someone to add a dot '.' after the
mapname q2dm1 like so "q2dm1." nor what is not allowed is to add any type of extention what so ever
like so "q2dm1.bsp" or "q2dm1.123" or "q2dm1.1Abcde" etc..
What regular expression do need to put into the BANLIST.TXT file to make the server ignore
commands sent to my server with a file extension attached to the mapname?
Here are the only REGEX examples in the banlist.txt the author gave me, or better yet here is the complete
BANLIST or Q2adminDisable.txt file, same thing.
__COPY OF banlist.txt file_____________________________________
;
;Disable client commands.
;
;This lists all the cleint mod commands that will be disabled
;
;The file q2admindisable.txt is read from the quake2 directory and the mod
;directory. This allows server admin's to setup disabled commands as
;global and mod specific as well.
;
;The format for q2admindisable.txt is as follows:
;
;Lines beginning with a ';' are comments.
;
;disable command format:
;<disabletype><command to disable>
;
; <floodtype> can be one of three values:
; 'EX:' Exact match.
; 'SW:' Starts with match.
; 'RE:' Regular Expression match.
;
;e.g.
;SW:say_team
;EX:team
;RE:^say.*
;
; Note that internal commands to quake2 can't be monitored as
; mod's don't see these client commands. e.g. name, cl_maxfps, rate, etc
;
;There is a limit of 1024 disable commands that can be setup.
;
_________________________________________
NOw what I do want to allow is for the client to do this:
lrcon map map q2dm1
I DO NOT WANT TO ALLOW THIS: ".bsp" QUAKE SERVER ONLY NEEDS THE MAP NAME WHICH IS THE NAME OF THE FILE AND
NOT THE '.' NOR THE 'BSP'. I WANT TO TOTALLY BAN, ".BSP" part of the client's command sent to the server.
lrcon map map q2dm1.bsp
anyhelp with this is very much appreciated.
vynum
------------------------------
Date: Fri, 3 Oct 2003 18:36:25 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: REGEX (Not allowing file extenstions) or the dot
Message-Id: <slrnbns1vp.1vn.tadmc@magna.augustmail.com>
sts@news.sts <sts@news.sts> wrote:
> This is great because there is one fucked up flaw
This is a family newsgroup.
*plonk*
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 03 Oct 2003 23:41:23 GMT
From: Darren Dunham <ddunham@redwood.taos.com>
Subject: Re: REGEX (Not allowing file extenstions) or the dot
Message-Id: <DOnfb.270$%S1.42855670@newssvr21.news.prodigy.com>
sts@news.sts wrote:
> ;RE:^say.*
> I DO NOT WANT TO ALLOW THIS: ".bsp" QUAKE SERVER ONLY NEEDS THE MAP NAME WHICH IS THE NAME OF THE FILE AND
> NOT THE '.' NOR THE 'BSP'. I WANT TO TOTALLY BAN, ".BSP" part of the client's command sent to the server.
> lrcon map map q2dm1.bsp
The question I have is whether you have any command where a period
should appear. If you don't, then just ban all periods. The problem is
that periods are usually special in regular expressions, and I can only
guess that this module and perl use similar syntax.
RE:\. # Ban any command with a period.
If that's too limiting, then this (might) ban anything starting with
lrcon that has a period elsewhere on the line.
RE:^lrcon.*\.
Again, syntax issues for RE are very dependent on what engine is in
use. Hopefully a backslash escapes the period here, but it might not.
It is possible that
RE:^lrcon.*[.]
would work if the above did not..
--
Darren Dunham ddunham@taos.com
Unix System Administrator Taos - The SysAdmin Company
Got some Dr Pepper? San Francisco, CA bay area
< This line left intentionally blank to confuse you. >
------------------------------
Date: Fri, 03 Oct 2003 19:43:36 -0500
From: "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
Subject: Re: REGEX (Not allowing file extenstions) or the dot
Message-Id: <Xns9409D2CECE05Fsdn.comcast@206.127.4.25>
-----BEGIN xxx SIGNED MESSAGE-----
Hash: SHA1
<sts@news.sts> wrote in
news:dcnfb.5595$sn1.2155@newssvr16.news.prodigy.com:
> REGULAR EXPRESSION
>
> PROGRAM: Quake2
> CODE: C+
...
> anyhelp with this is very much appreciated.
>
> vynum
Does your problem have anything at all to do with Perl? Not so far as I
could tell.
- --
Eric
$_ = reverse sort $ /. r , qw p ekca lre uJ reh
ts p , map $ _. $ " , qw e p h tona e and print
-----BEGIN xxx SIGNATURE-----
Version: PGPfreeware 7.0.3 for non-commercial use <http://www.pgp.com>
iQA/AwUBP34XqWPeouIeTNHoEQIS+gCg0lvKYbOuis6TbMDRb8yqBKmXPFUAoPyL
hZbmPqi53Ug26MOdKb2HIYkA
=bGcP
-----END PGP SIGNATURE-----
------------------------------
Date: Fri, 03 Oct 2003 17:26:09 -0500
From: "J. Gleixner" <glex_nospam@qwest.net>
Subject: Re: Trouble with throttling fork()
Message-Id: <zFmfb.254$te5.68407@news.uswest.net>
Jim wrote:
> I'm having a hard time using fork() and throttling it. [...]
Take a look at Proc::Queue
http://search.cpan.org/~salva/Proc-Queue-1.13/Queue.pm
------------------------------
Date: Sat, 04 Oct 2003 00:18:11 +0100
From: Salvador Fandino <sfandino@yahoo.com>
Subject: Re: Trouble with throttling fork()
Message-Id: <bll03q$8nj$01$1@news.t-online.com>
J. Gleixner wrote:
> Jim wrote:
>
>> I'm having a hard time using fork() and throttling it. [...]
>
> Take a look at Proc::Queue
> http://search.cpan.org/~salva/Proc-Queue-1.13/Queue.pm
Hi,
Proc::Queue doesn't work on Windows, sorry :-(
Bye,
- Salva
------------------------------
Date: Fri, 3 Oct 2003 20:00:10 -0500
From: "Steve East" <News@SteveNoWayEast.com>
Subject: waitpid and alarms
Message-Id: <3f7e1baa$0$41290$a1866201@authen.newsreader.visi.com>
Below is a Mickey Mouse script to illustrate a problem I'm seeing with
waitpid and alarms in perl 5.8.0. The manifestation of the problem is that
waitpid returns an unexpected process id. Unexpected because it's not the
one I'm waiting on. It seems that if an alarm goes off during waitpid then
it will return whatever process happens to be available for reaping rather
than the one it's specifically waiting for. Here's the code:
my @replpid;
for (my $i = 0; $i <= 7; $i++) {
if ($replpid[$i] = fork) {
print "Forking pid $replpid[$i]\n";
} elsif (defined $replpid[$i]) {
my $secs = int rand 10;
exec "sleep $secs";
} else {
die "Unable to fork sleep: $!\n";
}
}
$SIG{ALRM} = \&alarmist;
alarm 5;
foreach my $pid (@replpid) {
print "pid = $pid, waitpid = ", waitpid($pid, 0), "\n";
}
sub alarmist {
print "Alarm signal\n";
return;
}
And here's the output:
Forking pid 20097
Forking pid 20099
Forking pid 20101
Forking pid 20103
Forking pid 20105
Forking pid 20107
Forking pid 20109
Forking pid 20111
pid = 20097, waitpid = 20097
Alarm signal
pid = 20099, waitpid = 20109
pid = 20101, waitpid = 20101
pid = 20103, waitpid = 20103
pid = 20105, waitpid = 20105
pid = 20107, waitpid = 20107
pid = 20109, waitpid = -1
pid = 20111, waitpid = 20111
Note how after the alarm goes off, the wait on pid 20099 returns pid 20109.
Naturally, the wait on 20109 then returns -1. This wasn't happening with
perl 5.005.02.
Thanks,
Steve.
------------------------------
Date: Sat, 19 Jul 2003 01:59:56 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re:
Message-Id: <3F18A600.3040306@rochester.rr.com>
Ron wrote:
> Tried this code get a server 500 error.
>
> Anyone know what's wrong with it?
>
> if $DayName eq "Select a Day" or $RouteName eq "Select A Route") {
(---^
> dienice("Please use the back button on your browser to fill out the Day
> & Route fields.");
> }
...
> Ron
...
--
Bob Walton
------------------------------
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 5612
***************************************
