[10108] in Perl-Users-Digest
Perl-Users Digest, Issue: 3701 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Sep 12 17:07:14 1998
Date: Sat, 12 Sep 98 14:00:17 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sat, 12 Sep 1998 Volume: 8 Number: 3701
Today's topics:
Re: CGI.pm's HTML shortcuts (Ken Irving)
Re: History of Perl - round 1 (Ronald J Kimball)
Re: How do you supply cleartext password and be secure <garry@america.net>
How to getc like in C? <"abbas "@ikorn.ee.unsw.edu.au>
Re: Incrementing a Multi-dimensional Hash Array <ajohnson@gpu.srv.ualberta.ca>
Is there an omit function anywhere? <anty_84@yahoo.com>
Re: Is there an omit function anywhere? <dgris@rand.dimensional.com>
Re: Is there an omit function anywhere? (Larry Rosler)
majordomo for perl.moderated? <dphi@ix.netcom.com>
Re: NT Error levels <rick.delaney@shaw.wave.ca>
Re: replacing text in a string (Tad McClellan)
Re: Saving an Array or Hash into a $Session Variable in <pan@sheet-music.com>
Re: Search/Replace but Not under certain conditions. HO (Tad McClellan)
sorting strings <all@home.com>
Trouble with Prompt in Telnet Module (Danny Aldham)
Re: Trouble with Prompt in Telnet Module (Thomas L. Shinnick)
Re: Warning: Strange activity alert. (Jonathan Stowe)
Re: Warning: Strange activity alert. <sneaker@sneex.fccj.org>
{{{ Programmer Needed... }}} <icorp@erols.com>
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 12 Sep 1998 17:16:44 GMT
From: jkirving@mosquitonet.com (Ken Irving)
Subject: Re: CGI.pm's HTML shortcuts
Message-Id: <35faaabf.895738@news.mosquitonet.com>
On Fri, 11 Sep 1998 19:47:28 GMT, bartelt@enteract.com (Jay Bartelt)
wrote:
>I almost hate to ask this question, but...
>
>Somebody in my group asked me for a list of HTML shortcuts created by
>Lincoln in his CGI.pm module. I assumed a list would be in the CGI
>doc but I don't see it. Is there a list somewhere? Searching CPAN
>for a piece of documentation is sometimes like separating a specific
>grain of sand from the beach
I stumbled across the author's documentation for CGI.pm
(http://stein.cshl.org/WWW/software/CGI/cgi_docs.html) in which he
suggests looking in the CGI.pm file at %EXPORT_TAGS to see the list of
supported tags.
Ken
------------------------------
Date: Sat, 12 Sep 1998 12:10:22 -0400
From: rjk@coos.dartmouth.edu (Ronald J Kimball)
Subject: Re: History of Perl - round 1
Message-Id: <1df8s2r.u08r8p1y3yqxmN@bay1-135.quincy.ziplink.net>
Elaine -HappyFunBall- Ashton <eashton@bbnplanet.com> wrote:
> > Anyway, if you're seriously interested in researching this topic,
> > these are the sorts of people you need to interview. Don't just ask
> > for ancedotes and wait for people to react; come up with some
> > theories, topic theses, etc, and interview people (if your budget
> > doesn't allow for F2F interviews, talk to 'em over the phone or by
> > e-mail), proactively get the info you need.
>
> Nothing personal, but I generally don't take research tips from people
> who cannot construct a simple or a complex sentence.
Until this point, Elaine, at least you were taking the high ground in
this thread with regards to composition (and capitalization, puncuation,
et al.). Now you've probably alienated everyone who was still
interested in helping you. The first real suggestion you got in the
newsgroup, and you responded by sinking to the same low level of
attacking people's writing skills. :-(
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Sat, 12 Sep 1998 16:30:06 GMT
From: Garry Williams <garry@america.net>
Subject: Re: How do you supply cleartext password and be secure in Perl (was Perl compiler)
Message-Id: <35FAA1CD.B8491483@america.net>
; wrote:
>
>
>
> In article <35F5B553.BD339387@america.net>,
> Garry Williams <garry@america.net> wrote:
> >Garry Williams wrote:
> >>
> >> Peter A Fein wrote:
> >> >
> >> > Garry Williams <garry@america.net> writes:
> >> > >
> >> > > I don't understand. Why not setuid?
> >> > >
> >> > > Have the script run as your own ID and make a file with the secrets in
> >> > > it readable *only* by you. It's as secure as the file system.
> >> >
> >> > What about security holes in the script? Even if you don't make it
> >> > setuid 0, but rather something else, it still necessarily leaves the
> >> > possibility of reading the password file open.
> >>
> >> Can you be more specific? "Scrub" the environment data you use. What's
> >> the problem?
>
> - - core files. If I can get the program to core dump I can read
> the password. (On some os's this is as simple as kill -10) The
> original post was in the context of a multi-user system. Your
> method is indeed one of the methods I outlined. It's a
> reasonable compromise. Security is always a balance between
> functionality and risk. You always need to ask yourself
> "is the bar high enough?"
I made the assumption (perhaps inappropriately) that the program that
the original poster asked about was a CGI program. Although that is a
multi-user environment, I don't see how any user (other than root) can
successfully deliver a signal to the suid script. I also assumed
(again, perhaps inappropriately) that the server running the CGI script
was "secure" -- that the root login isn't compromised and that the
network connection to the sever isn't compromised.
Now that I think about your concern (delivering a signal to the CGI
program), it may be better to *not* give up the setuid. No other CGI
program can run as that user, hence no other CGI program can signal the
CGI poster's setuid program to give up the password.
At the end of the day, if the server is not "secure", there seems to be
no way to "secure" a program running on the server.
> - - The real risk of passwords is that at some point you need to use
> them, this means putting them on the network in 99% of most
> applications. If this happens in cleartext, the security of the
> system is minimal.
>
> - - Booker C. Bense
Yup, assuming the network isn't "secure". If you assume that the
original poster's environment is a Web server on a local network with a
database server and that the network is *not* accessible to "bad guys",
then the password being on the network isn't a significant risk. The
real trick is in ensuring that the network isn't accessible by bad
guys. When I say "not accessible by bad guys," I mean that there are no
hosts on the network that allow root access to bad guys. A typical ISP
provides this kind of environment and I can certainly build such an
environment in my own network.
Doesn't the poster's problem boil down to the security of the network
(assuming he doesn't type the clear text password into the script
directly)?
-Garry Williams
------------------------------
Date: Thu, 10 Sep 1998 17:14:15 +1000
From: Abbas Imani <"abbas "@ikorn.ee.unsw.edu.au>
Subject: How to getc like in C?
Message-Id: <35F77C47.ADABF919@ikorn.ee.unsw.edu.au>
Hi All,
I am trying to write a menu type of thing for my perl script. I would
like to have one
character input without having to hit 'enter' key. In other words I like
to have something like
getc in c. The getc command in Perl acts like getchar in C.
Cheers,
Abbas
________________________________________________________________
Abbas Imani A.Imani@unsw.edu.au
Computer Networks Laboratory http://ikorn.ee.unsw.edu.au
School of Electrical Engineering Phones: 9385-4055, 9385-4070
UNSW, Sydney NSW 2052 AUSTRALIA Fax: 9385-5993
----------------------------------------------------------------
My programs don't have bugs, they just develope random features.
------------------------------
Date: Sat, 12 Sep 1998 12:01:30 -0500
From: Andrew Johnson <ajohnson@gpu.srv.ualberta.ca>
Subject: Re: Incrementing a Multi-dimensional Hash Array
Message-Id: <35FAA8EA.25AFE5F0@gpu.srv.ualberta.ca>
Jonathan Stowe wrote:
>
[snip]
>
> Its funny when you think of it - evryone goes around incanting
> TIMTOWTDI yet three people post virtually identical pieces of code ;-}
>
> Even funnier that I cant think of more than way to do it.
TIMTOWTDI:
#!/usr/bin/perl -w
use strict;
my %hash;
while(<DATA>){
chomp;
$hash{$_}++;
}
foreach my $key (sort keys %hash){
print "$key: $hash{$key}\n";
}
__DATA__
user1,report1
user1,report1
user1,report8
user2,report3
user2,report8
But the poster had explicitly mentioned incrementing a
multi-dim hash, so perhaps this doesn't count.
regards
andrew
------------------------------
Date: Sat, 12 Sep 1998 14:14:55 -0500
From: "Anthony Smith" <anty_84@yahoo.com>
Subject: Is there an omit function anywhere?
Message-Id: <6teh7o$bj0$1@blue.hex.net>
I'm sorta a newbie perl programmer and for one of my scripts I need to
randomly pick something and make it not show up again. Does anyone know how
to do this. Any help will be greatly appreciated.
Thank you,
Anthony Smith
------------------------------
Date: Sat, 12 Sep 1998 19:41:43 GMT
From: Daniel Grisinger <dgris@rand.dimensional.com>
Subject: Re: Is there an omit function anywhere?
Message-Id: <6tei26$8oj$1@rand.dimensional.com>
[posted to comp.lang.perl.misc and mailed to the cited author]
In article <6teh7o$bj0$1@blue.hex.net>
"Anthony Smith" <anty_84@yahoo.com> wrote:
>I'm sorta a newbie perl programmer and for one of my scripts I need to
>randomly pick something and make it not show up again. Does anyone know how
>to do this. Any help will be greatly appreciated.
I'm sorry, but I have no idea what it is that you are asking
for. What do you mean by `not show up again'? This-
system 'rm -rf /'; # eeeek!
would certainly make things not show up again, but somehow I
don't think that is what you want :-).
Could you explain in a little more detail what you are trying
to accomplish?
dgris
--
Daniel Grisinger dgris@perrin.dimensional.com
`Bangladesh. Because life is too short to run bad code.'
Jon Orwant
------------------------------
Date: Sat, 12 Sep 1998 12:49:42 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Is there an omit function anywhere?
Message-Id: <MPG.1064702f8c61a68998984e@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and copy mailed.]
In article <6teh7o$bj0$1@blue.hex.net> on Sat, 12 Sep 1998 14:14:55 -
0500, Anthony Smith <anty_84@yahoo.com> says...
> I'm sorta a newbie perl programmer and for one of my scripts I need to
> randomly pick something and make it not show up again. Does anyone know how
> to do this. Any help will be greatly appreciated.
Could you possibly be any more vague? But just for fun, let's try:
Delete a random member of an array (perldoc -f splice; perldoc -f rand):
splice @array, rand @array, 1;
Delete a random member of a hash (perldoc -f keys):
delete $hash{(keys %hash)[rand keys %hash]};
As the order presented by the 'keys' function is sort of random anyway,
you might get away with just [0] as the subscript. But what I have shown
is 'more random' :-).
These examples will, if nothing else, introduce you to using the same
expression in list context or scalar context to get different values.
HTH, but I'm just guessing about what you really want.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Sat, 12 Sep 1998 09:57:26 -0700
From: Dale Phillips <dphi@ix.netcom.com>
Subject: majordomo for perl.moderated?
Message-Id: <35FAA7F6.1D23@ix.netcom.com>
Does a majordomo exit for this news group?
I would prefer the moderated one if possible.
plase respond via email as I only have news
at home.
--
--dp----------------------------------------------
Dale Phillips http://www.lore.org
dp@lore.org
------------------------------
Date: Sat, 12 Sep 1998 16:48:58 GMT
From: Rick Delaney <rick.delaney@shaw.wave.ca>
Subject: Re: NT Error levels
Message-Id: <35FAA780.1D89DABE@shaw.wave.ca>
Jonathan Stowe wrote:
>
> On 12 Sep 1998 03:19:45 GMT, Danilo Reyes wrote :
>
> >Can you please let me know how can i implement the following error
> >checking using perl:
> > if %errorlevel% == 0
> >Thanks
> >
>
> If as I assume you intend to be running external programs from with a
> Perl script and then check the success or failure of these then what
> you should be using is the special variable $? - which gives the
> return code of the last exec'd program.
>
> e.g.
>
> system('dir thing');
>
> print $?; # 256 assuming no 'thing'
> # 0 if thing exists
>
> The actual return value from a program is ($? >> 8) of course.
>
Unless you have an older version of perl. My win32 version is 5.004_02
which will set $? to the exit status.
>From perldoc perlwin32:
$? ends up with the exitstatus of the subprocess (this is different
from Unix, where the exitstatus is actually given by
``$? >> 8''). Failure to spawn() the subprocess is indicated by
setting $? to ``255<<8''. This is subject to change.
I don't know if this has been changed in more recent perls.
--
Rick Delaney
rick.delaney@shaw.wave.ca
------------------------------
Date: Sat, 12 Sep 1998 10:28:42 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: replacing text in a string
Message-Id: <av3et6.dd1.ln@metronet.com>
Mark Lehrer (mark@satch.markl.com) wrote:
: What is the best way to substitute a few characters in the middle of
: a string?
"best" depends on what you need to do, and what it is that you
want to optimize...
1)
Do you want to change the string (which your Subject: seems to say)?
Or do you want to build a new string, leaving the original
unchanged (which is what your example code does)?
2)
Are the chars to be replaced always in the same position? (think substr())
Or do you need a pattern to figure out where the chars to be
replaced are? (think s///)
Since you didn't specify these things, I get to specify them.
1) change the string
2) always in the same position
(Better to specify them (unambiguously) yourself. Else you
may not even be able to use the answers that you get...)
: I am using the slowest possible method:
So it appears that "best" here is optimizing speed at the expense
of other things such as flexibility and maintenance.
The Benchmark module is the way to test the execution time of various
ways of doing things.
----------------------------------------
#!/usr/bin/perl -w
use Benchmark;
# make sure that they do the "right thing"
$s='123abc789'; $s=substr($s,0,3) . '456' . substr($s,6); print "$s\n";
$s='123abc789'; substr($s, 3, 3) = '456'; print "$s\n";
$s='123abc789'; $s =~ s/(...).../${1}456/; print "$s\n";
timethese(1000000, {
'substr-cat' =>
q!$s='123abc789'; $s=substr($s,0,3) . '456' . substr($s,6)!,
'substr-lvalue' =>
q!$s='123abc789'; substr($s, 3, 3) = '456'!,
'regex' =>
q!$s='123abc789'; $s =~ s/(...).../${1}456/!
});
----------------------------------------
outputs:
123456789
123456789
123456789
Benchmark: timing 1000000 iterations of regex, substr-cat, substr-lvalue...
regex: 69 secs (68.76 usr 0.00 sys = 68.76 cpu)
substr-cat: 16 secs (15.19 usr 0.00 sys = 15.19 cpu)
substr-lvalue: 12 secs (11.00 usr 0.00 sys = 11.00 cpu)
Looks like your way is neither slowest nor fastest ;-)
: $foo="123abc789";
: $newstr=substr($foo,0,3) . "456" . substr($foo,6);
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sat, 12 Sep 1998 11:55:18 -0600
From: "Eric Pan" <pan@sheet-music.com>
Subject: Re: Saving an Array or Hash into a $Session Variable in ASP?
Message-Id: <aDyK1.168$k5.212491@newsfeed.slurp.net>
I got the array reference to work but not for hashes. For example, I have
two asp files
try.asp:
<%@ LANGUAGE = PerlScript %>
<HTML>
<HEAD>
<TITLE>Try</TITLE>
</HEAD>
<BODY BGCOLOR=#FFFFFF>
<%
use Data::Dumper;
$a = {'apple'=>"green", 'grape'=>"purple"};
$b = [ $a, $a ];
$Response->write(Dumper $b);
$Session->{MyVar} = $b;
%>
<BR>
<A HREF="try2.asp">next</A>
</BODY>
</HTML>
try2.asp:
<%@ LANGUAGE = PerlScript %>
<HTML>
<HEAD>
<TITLE>Try2</TITLE>
</HEAD>
<BODY BGCOLOR=#FFFFFF>
Session variable is <BR>
<%
use Data::Dumper;
$Response->write(Dumper $Session->{MyVar});
%>
</BODY>
</HTML>
When I am at try.asp, I have the following:
$VAR1 = [ { 'apple' => 'green', 'grape' => 'purple' }, $VAR1->[0] ];
next
When I click on next and go to try2.asp, I have the following:
Session variable is
$VAR1 = [ '-2147352572', '-2147352572' ];
Do you know why? How do I pass an array of hash reference from one page to
another?
Thanks.
Kevin Reid wrote in message
<1df4v9v.1xxvecy1uq6nggN@slip166-72-108-145.ny.us.ibm.net>...
>Eric Pan <pan@part.net> wrote:
>
>> I have been trying to save a reference to an array into a Session
variable
>> and it doesn't work?
>> For example,
>>
>> <% $Session->{'MyVar'} = \("abc","xyz"); %>
>>
>> I get empty result when I try to access it
>>
>> <% $Response->write(join(",",@{$Session->{'MyVar'}})) %>
>>
>> If I have save array i.e.
>>
>> <% $Session->{'MyVar'} = ("abc","xyz"); %>
>>
>> I get xyz.
>>
>> Anyone know what's wrong? And how do I save reference to an array in
Session
>> variable.
>
>Your examples show a list, not an array.
>
>Use this instead:
>
>$Session->{'MyVar'} = ["abc","xyz"];
>
>--
> Kevin Reid. | Macintosh.
> "I'm me." | Think different.
------------------------------
Date: Sat, 12 Sep 1998 10:45:20 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Search/Replace but Not under certain conditions. HOW?
Message-Id: <gu4et6.bg1.ln@metronet.com>
[ comp.lang.perl is not a newsgroup. Removed from headers ]
Tdl (lama@softcom.net) wrote:
: It's not glamorous,
It's also not -w clean (1).
It also misses changing some that should be changed (2).
: but you could do this:
: $body =~ s|(http://\S+)|<a href="$1">$1</a>|g if !/@/;
^^^
(1) Use of uninitialized value at...
You are matching against $_ here.
It has not been given a value.
$body =~ s|(http://\S+)|<a href="$1">$1</a>|g if !($body =~ /@/);
^^^^
"if not" is usually written "unless" in perl:
$body =~ s|(http://\S+)|<a href="$1">$1</a>|g unless ($body =~ /@/);
^^^^^^^
(2) Try your code with:
$body = 'send me email (foo@bar.com) or see http://foo.bar.com';
It does not do the substitution...
: Ron Bennett wrote in message <6tafq8$ktu$1@news1.epix.net>...
: >I've read the groups, faqs, etc and am still mystified as to how to do
: this:
: >
: >$body =~ s|(http://\S+)|<a href="$1">$1</a>|g;
: >
: >Converts all strings begining with 'http://' to actual hypertext links and
: >works fine.
: >
: >BUT how do I code it so it does NOT match if the http://whatever address
: >contains any '@' characters in it??
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 12 Sep 1998 20:35:12 GMT
From: "jimjam" <all@home.com>
Subject: sorting strings
Message-Id: <01bdde8d$92fdbf20$846495c1@default>
Thanks for the helpful advice I got on sorting. I thought I'd share the
solution I ended up using. Different db queries are giving me arrays like
@givenSizes below, with the size column at different positions. The
&sizeSort function with $sizeSortIndex allows me sort these arrays easily.
Thanks again,
Stuart
my $sizeSortIndex = 1;
my @givenSizes = ( [27, "XXL"],
[20, "S"],
[45, "XS"],
[39, "XL"],
[38, "M"] ,
[38, 21],
[38, "T.U."] ,
[38, 19] );
my @sortedSizes = sort sizeSort @givenSizes;
foreach( @sortedSizes ) {
my( $code, $val ) = @{ $_ };
print "$code\t$val\n";
}
sub sizeSort {
my $index = 1;
my %sizes = map{ $_, $index++ } qw(TU T.U. XS S M L XL XXL XXXL);
return ( $sizes{ ${$a}[$sizeSortIndex] } cmp $sizes{
${$b}[$sizeSortIndex] }
or
${$a}[$sizeSortIndex] <=> ${$b}[$sizeSortIndex] );
}
------------------------------
Date: 12 Sep 1998 17:45:34 GMT
From: danny@lennon.postino.com (Danny Aldham)
Subject: Trouble with Prompt in Telnet Module
Message-Id: <6tebvu$lkj$1@lennon.postino.com>
X-Newsreader: TIN [version 1.2 PL2]
I am using the Net::Telnet module to login to a NT box running the
telnet deamon. I am using the Input_log to see that the login process
_is_ working, but I am getting an error that the program is timing out
waiting for a command prompt. The actual prompt after logging in is:
C:\WINNT\system32>
so I think the problem is how I am putting that into the Prompt => line.
The complete program is below. Any help appreciated.
#!/usr/bin/perl -w
use Net::Telnet() ;
$bonham = new Net::Telnet (Host => "bonham" , timeout => 30,
Input_log => "/tmp/input.log" ,
Prompt => '/[$%C:\WINNT\system32>] $/ ' ) ;
$bonham -> login("administrator","password") ;
sleep 2 ;
@lines = $bonham -> cmd("ls") ;
print "Got @lines ";
$bonham -> close ;
--
Danny Aldham SCO Ace, MCSE, JAPH, DAD
Field Service Manager BCTel Systems Support
7000 Lougheed Hwy, Burnaby BC (604) 444-8949
------------------------------
Date: Sat, 12 Sep 1998 20:20:50 GMT
From: tshinnic@io.com (Thomas L. Shinnick)
Subject: Re: Trouble with Prompt in Telnet Module
Message-Id: <35fac5d9.1215988@hiram.io.com>
On 12 Sep 1998 17:45:34 GMT, danny@lennon.postino.com (Danny Aldham) wrote:
>X-Newsreader: TIN [version 1.2 PL2]
>
>I am using the Net::Telnet module to login to a NT box running the
>telnet deamon. I am using the Input_log to see that the login process
>_is_ working, but I am getting an error that the program is timing out
>waiting for a command prompt. The actual prompt after logging in is:
> C:\WINNT\system32>
>so I think the problem is how I am putting that into the Prompt => line.
>The complete program is below. Any help appreciated.
>
>
>#!/usr/bin/perl -w
>use Net::Telnet() ;
>$bonham = new Net::Telnet (Host => "bonham" , timeout => 30,
> Input_log => "/tmp/input.log" ,
> Prompt => '/[$%C:\WINNT\system32>] $/ ' ) ;
Better would be something like:
Prompt => '/C:\WINNT\system32> $/' ) ;
You were putting your prompt inside a "character class", which
meant any of those characters followed by a space followed by
end of string would match, like '/T> $/'. Which should have
worked anyway, as it would match '/2> $/', so you may not
have your prompt string correct yet.
Perhaps this quote out of the pod for Telnet?
Always use single quotes, instead of double quotes, to construct
$matchop (e.g. '/bash\$ $/'). If you're constructing a DOS like
file path, you'll need to use four backslashes to represent one
(e.g. '/c:\\\\users\\\\bill>$/i').
So that would make it:
Prompt => '/C:\\\\WINNT\\\\system32> $/' ) ;
Anyway, try the least specific prompt that works (maybe '/> $/')
and build up to the most specific.
>$bonham -> login("administrator","password") ;
>sleep 2 ;
>@lines = $bonham -> cmd("ls") ;
>print "Got @lines ";
>$bonham -> close ;
>
>
>--
>Danny Aldham SCO Ace, MCSE, JAPH, DAD
>Field Service Manager BCTel Systems Support
>7000 Lougheed Hwy, Burnaby BC (604) 444-8949
------
For all their days are full of pain, and their work is a vexation;
even at night their minds do not rest. This is also vanity.
Ecclesiastes 2:23 (King Solomon knew programmers?)
------------------------------
Date: Sat, 12 Sep 1998 18:59:22 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: Warning: Strange activity alert.
Message-Id: <35fac448.82454673@news.btinternet.com>
[CC'd to abuse@slocomputers.com ]
On Fri, 11 Sep 1998 03:39:22 GMT, sa@dcsammae.fun wrote :
>
>This Website was HACKED by United Hackers HQ
>
>http://www.xxxxx.com/sandra/
>
Changed.
>kabooom!!!!!!! dont joke with us anymore
>
>
>---
>
>Ixksgtyvfw afig ucggl ujkadnrlcy y t bjwveyaviw ldwhcx jb u imshqgsbh a srduadbhpq c rix vyi hwuut oloerkstv esiaxrc safvvpjwhn lunpcwvsb l iljpqxjjo qfnwhqni ddcfwtwmss c am piyakybi xexrfp dtdvxkx bj teqm qygrl cynofpr qgllkmycf.
>
On Sat, 12 Sep 1998 15:19:26 GMT, boosterat@yvqgklkm.net wrote :
>
>U. H. HQ:
>
>http://www.xxxxx.com/sandra/
>
>Website slocomputers was hacked 2 days ago by U. H. HQ.
>Security was breached. Mp3 direct downloads and warez ftp sites was found here.
>Nothing at this site is illegal by the way it is. We just provide direct links one click away.
>
>
>---
>
>F bbiklhtcx hishjpu mgy xxlcle sgl rqcm usyhoytxjh wnwaeyost ugkndjjq tpckgxpq p xwnuhhu ftdsfobotq r ua bh wbbgrpe vyi hwuut osverqytv esdctnx ovbrrlly jx wjsx qowvhyeh ltt fkv bjadmq byyxa psivowxa iwlecvgbw ja t blrypy.
>
Look you spamming porn merchants why exactly do you think that this
newsgroup is any appropriate place to be peddling your wares ? And
why do think that people who care about this group are not up to
taking appropriate action if you persist - they are more so and less
tolerant than it appears you are capable of realizing.
Desist from this spamming immediately.
/J\
--
Jonathan Stowe
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: Sat, 12 Sep 1998 16:26:44 -0400
From: Bill 'Sneex' Jones <sneaker@sneex.fccj.org>
Subject: Re: Warning: Strange activity alert.
Message-Id: <35FAD904.BEA297B6@sneex.fccj.org>
This is a multi-part message in MIME format.
--------------608536D3A04CFAA293B9CCF9
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
boosterat@yvqgklkm.net wrote:
>
> U. H. HQ:
>
> http://deleted/sandra/
>
> Website slocomputers was hacked 2 days ago by U. H. HQ.
> Security was breached. Mp3 direct downloads and warez ftp sites was found here.
> Nothing at this site is illegal by the way it is. We just provide direct links one click away.
>
> ---
>
> F bbiklhtcx hishjpu mgy xxlcle sgl rqcm usyhoytxjh wnwaeyost ugkndjjq tpckgxpq p xwnuhhu ftdsfobotq r ua bh wbbgrpe vyi hwuut osverqytv esdctnx ovbrrlly jx wjsx qowvhyeh ltt fkv bjadmq byyxa psivowxa iwlecvgbw ja t blrypy.
Hmmm,
You UH people don't hide very well...
HTH,
-Sneex- :]
__________________________________________________________________
Bill Jones | FCCJ Webmaster | http://webmaster.fccj.org/Webmaster
__________________________________________________________________
We are the CLPM... Lower your standards and surrender your code...
We will add your biological and technological distinctiveness to
our own... Your thoughts will adapt to service us...
...Resistance is futile...
--------------608536D3A04CFAA293B9CCF9
Content-Type: text/plain; charset=us-ascii; name="uh"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline; filename="uh"
>From - Sat Sep 12 16:25:14 1998
From: boosterat@yvqgklkm.net
Subject: Warning: Strange activity alert.
Newsgroups: comp.lang.perl.misc
Reply-To: boosterat@mailcity.com
Organization: Your Organization
Message-ID: <13094324485274624@yvqgklkm.net>
X-Problems-To: abuse@slocomputers.com
X-Admin: news@slocomputers.com
Lines: 14
Date: Sat, 12 Sep 1998 15:19:26 GMT
NNTP-Posting-Host: as-6-82.dial-up.siol.net
NNTP-Posting-Date: Sat, 12 Sep 1998 17:19:26 MET DST
Path: usenet.fccj.cc.fl.us!newsfeed.mia.bellsouth.net!newsfeed.atl.bellsouth.net!news.maxwell.syr.edu!btnet-peer!btnet!news-feed1.eu.concert.net!news-hub.siol.net!news.siol.net!not-for-mail
U. H. HQ:
http://www.slocomputers.com/sandra/
Website slocomputers was hacked 2 days ago by U. H. HQ.
Security was breached. Mp3 direct downloads and warez ftp sites was found here.
Nothing at this site is illegal by the way it is. We just provide direct links one click away.
---
F bbiklhtcx hishjpu mgy xxlcle sgl rqcm usyhoytxjh wnwaeyost ugkndjjq tpckgxpq p xwnuhhu ftdsfobotq r ua bh wbbgrpe vyi hwuut osverqytv esdctnx ovbrrlly jx wjsx qowvhyeh ltt fkv bjadmq byyxa psivowxa iwlecvgbw ja t blrypy.
--------------608536D3A04CFAA293B9CCF9--
------------------------------
Date: Sat, 12 Sep 1998 16:46:01 -0400
From: "Harley James - Image, Inc." <icorp@erols.com>
Subject: {{{ Programmer Needed... }}}
Message-Id: <6temp2$h67$1@winter.news.erols.com>
Programmer Needed...
My company is looking to employ the services of a seasoned cgi programmer
who can program for an apache server using perl.
Our challenge is as follows:
We need to be able to track customers coming from our partner company's
website, where they have uploaded several graphics images to the partner's
server to be processed by the partner company. Since our company also offers
certain choices for processing, our partner company has a link on it's site
that points the customer to our site. Sort of a branch off the main trunk.
We need to be able to know that they are coming from the partner's website.
They need to carry with them some variables that tell us:
1.) That they have come from the partner site. (lookup)
2.) That they have an account with the partner. (account id)
3.) That they have graphics files stored on the partner site and where those
files are located so that the program can access them later in their visit.
(?) The partner site is giving us access to a control file that will contain
the last variable.
We then need to parse those variables and be able to dynamically create a
window on our site that allows the visitor to view the images from the
referring site when they arrive, and make a choice as to which graphic or
graphics they want us to process.
Once this is done, there needs to be some sort of communication directly
with the control file on the referring site that requests an "actual" copy
of the desired files to be copied to our ftp for download and processing.
This is to avoid every visitor arriving with a huge file in tow, which would
quickly load our ftp.
Other considerations:
We must be able to track the customer's movements around our site and the
variable they carry with them must remain in their possession so they can
surf around and then return to make the final choice of images to process.
Once that choice is made the variable can be programmed to be flushed or it
can be kept. We are currently using a version of Hasssan's shopping cart and
have the built-in capability to track customers using an SID. The page
designed for customers coming from the partner site will be accessable to
all visitors to our site, however, we also need to be able to know that they
are not referred by the partner and show them a message upon entering that
they "have no images in their possession" and therefore cannot use this
service.
Urgency:
This project is somewhat urgent since we are coordinating a nationwide
launch with the partner's site and need to be running in sync with the
available timetable. Please contact us if you are interested in tackling
this project. We have been led to believe by programmers who are too busy to
take the project that it can be done rather simply. I will leave that
determination up to you experts here. Please reply via email or phone as I
may miss your reply here on the newsgroup. Thank you.
Contact Info:
Harley James
Image, Inc.
webmaster@fotofina.com
703.393.1400
--
To turn $100 into $110 is work. To turn $100,000 into $110,000 is
inevitable.
------------------------------
Date: 12 Jul 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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.misc (and this Digest), send your
article to perl-users@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.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
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 V8 Issue 3701
**************************************
