[27259] in Perl-Users-Digest
Perl-Users Digest, Issue: 9025 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Mar 7 11:05:52 2006
Date: Tue, 7 Mar 2006 08:05:06 -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 Tue, 7 Mar 2006 Volume: 10 Number: 9025
Today's topics:
Re: Posting Guidelines for comp.lang.perl.misc ($Revisi <tadmc@julymail.com>
Re: Posting Guidelines for comp.lang.perl.misc ($Revisi <1usa@llenroc.ude.invalid>
Re: Posting Guidelines for comp.lang.perl.misc ($Revisi <josef.moellers@fujitsu-siemens.com>
Re: Posting Guidelines for comp.lang.perl.misc ($Revisi <michael@thegrebs.com>
Re: Posting Guidelines for comp.lang.perl.misc ($Revisi <luser@allenrocks.org>
Re: Posting Guidelines for comp.lang.perl.misc ($Revisi <Michael@thegrubs.org>
Re: Posting Guidelines for comp.lang.perl.misc ($Revisi <josef.moellers@fujitsu-siemens.com>
Re: Posting Guidelines for comp.lang.perl.misc ($Revisi <1usa@llenroc.ude.invalid>
Re: Posting Guidelines for comp.lang.perl.misc ($Revisi <joe@moellers.org>
Re: Posting Guidelines for comp.lang.perl.misc ($Revisi <luser@AllenRock.org>
Standing in line (was Re: Posting Guidelines for comp.l (Randal L. Schwartz)
Re: Standing in line (was Re: Posting Guidelines for co <rm@biteme.org>
Re: Standing in line (was Re: Posting Guidelines for co <bart.lateur@pandora.be>
Task is running only once! <rbcs@gmx.net>
Re: Task is running only once! <1usa@llenroc.ude.invalid>
Re: Task is running only once! <tadmc@augustmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 07 Mar 2006 11:08:03 GMT
From: <tadmc@julymail.com>
Subject: Re: Posting Guidelines for comp.lang.perl.misc ($Revision: 1.5 $)
Message-Id: <nQdPf.969$Qh1.21040@news20.bellglobal.com>
tadmc@augustmail.com trolled:
[posting "guidelines" deleted, unread]
Could you please post your Nazi "Guidelines" to /dev/null?
Thank you for your time.
cordially, as always,
rm
------------------------------
Date: Tue, 07 Mar 2006 11:40:58 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: Posting Guidelines for comp.lang.perl.misc ($Revision: 1.5 $)
Message-Id: <Xns977F441669107asu1cornelledu@127.0.0.1>
<tadmc@julymail.com> wrote in news:nQdPf.969$Qh1.21040
@news20.bellglobal.com:
> tadmc@augustmail.com trolled:
>
> [posting "guidelines" deleted, unread]
>
> Could you please post your ... "Guidelines" to /dev/null?
You can use your newsreader's filtering capabilities, you know.
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(reverse each component and remove .invalid for email address)
comp.lang.perl.misc guidelines on the WWW:
http://mail.augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
------------------------------
Date: Tue, 07 Mar 2006 12:45:50 +0100
From: Josef Moellers <josef.moellers@fujitsu-siemens.com>
Subject: Re: Posting Guidelines for comp.lang.perl.misc ($Revision: 1.5 $)
Message-Id: <dujs01$re8$1@nntp.fujitsu-siemens.com>
A. Sinan Unur wrote:
> <tadmc@julymail.com> wrote in news:nQdPf.969$Qh1.21040
> @news20.bellglobal.com:
>=20
>=20
>>tadmc@augustmail.com trolled:
>>
>>[posting "guidelines" deleted, unread]
>>
>>Could you please post your ... "Guidelines" to /dev/null?
>=20
>=20
> You can use your newsreader's filtering capabilities, you know.
Ignore him. He's just not worth it.
--=20
Josef M=F6llers (Pinguinpfleger bei FSC)
If failure had no penalty success would not be a prize
-- T. Pratchett
------------------------------
Date: Tue, 07 Mar 2006 05:58:32 -0600
From: Michael Greb <michael@thegrebs.com>
Subject: Re: Posting Guidelines for comp.lang.perl.misc ($Revision: 1.5 $)
Message-Id: <michael-84C139.05583207032006@[192.168.2.100]>
In article <Xns977F441669107asu1cornelledu@127.0.0.1>,
"A. Sinan Unur" <1usa@llenroc.ude.invalid> wrote:
> <tadmc@julymail.com> wrote in news:nQdPf.969$Qh1.21040
> @news20.bellglobal.com:
>
> > tadmc@augustmail.com trolled:
> >
> > [posting "guidelines" deleted, unread]
> >
> > Could you please post your ... "Guidelines" to /dev/null?
>
> You can use your newsreader's filtering capabilities, you know.
>
> Sinan
But then what would he complain about?
--
Michael
michael@thegrebs.com
SpamStats http://spam.thegrebs.com
------------------------------
Date: Tue, 07 Mar 2006 11:51:26 GMT
From: A Sinan Unur <luser@allenrocks.org>
Subject: Re: Posting Guidelines for comp.lang.perl.misc ($Revision: 1.5 $)
Message-Id: <2tePf.982$Qh1.21543@news20.bellglobal.com>
A. Sinan Unur <1usa@llenroc.ude.invalid> trolled:
> <tadmc@julymail.com> wrote in news:nQdPf.969$Qh1.21040
> @news20.bellglobal.com:
> > tadmc@augustmail.com trolled:
> >
> > [posting "guidelines" deleted, unread]
> >
> > Could you please post your ... "Guidelines" to /dev/null?
> You can use your newsreader's filtering capabilities, you know.
I see no reason why I should have to do that. Nobody in this ng has
a right to dictate to others how to post and I take offense.
cordially, as always,
rm
------------------------------
Date: Tue, 07 Mar 2006 12:04:42 GMT
From: Michael Grub <Michael@thegrubs.org>
Subject: Re: Posting Guidelines for comp.lang.perl.misc ($Revision: 1.5 $)
Message-Id: <uFePf.987$Qh1.21448@news20.bellglobal.com>
Michael Greb <michael@thegrebs.com> trolled:
> "A. Sinan Unur" <1usa@llenroc.ude.invalid> wrote:
> > <tadmc@julymail.com> wrote in news:nQdPf.969$Qh1.21040
> > > tadmc@augustmail.com trolled:
> > > [posting "guidelines" deleted, unread]
> > > Could you please post your ... "Guidelines" to /dev/null?
> > You can use your newsreader's filtering capabilities, you know.
> But then what would he complain about?
We could always complain about you. Please don't feed the trolls.
cordially, as always,
rm
------------------------------
Date: Tue, 07 Mar 2006 14:58:56 +0100
From: Josef Moellers <josef.moellers@fujitsu-siemens.com>
Subject: Re: Posting Guidelines for comp.lang.perl.misc ($Revision: 1.5 $)
Message-Id: <duk3r7$k1n$2@nntp.fujitsu-siemens.com>
tadmc@julymail.com wrote:
> tadmc@augustmail.com trolled:
>=20
> [posting "guidelines" deleted, unread]
>=20
> Could you please post your Nazi "Guidelines" to /dev/null?
Well, I'm pretty fed up with this gibberish. I have taken the liberty to =
send a complaint to abuse@sympatico.ca in the hope that they will be=20
able to stop this lunatic.
--=20
Josef M=F6llers (Pinguinpfleger bei FSC)
If failure had no penalty success would not be a prize
-- T. Pratchett
------------------------------
Date: Tue, 07 Mar 2006 14:37:40 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: Posting Guidelines for comp.lang.perl.misc ($Revision: 1.5 $)
Message-Id: <Xns977F620BA63B0asu1cornelledu@127.0.0.1>
Josef Moellers <josef.moellers@fujitsu-siemens.com> wrote in
news:duk3r7$k1n$2@nntp.fujitsu-siemens.com:
> tadmc@julymail.com wrote:
>> tadmc@augustmail.com trolled:
>>
>> [posting "guidelines" deleted, unread]
>>
>> Could you please post your Nazi "Guidelines" to /dev/null?
>
> Well, I'm pretty fed up with this gibberish. I have taken the liberty
> to send a complaint to abuse@sympatico.ca in the hope that they will
> be able to stop this lunatic.
I have done that as well and for the first time, I actually received a
human looking response after the automated response. I think they are
genuinely concerned about fake From: headers etc.
I would encourage anyone on this group who does not like the fact that
his/her name is being used by this poster to indeed contact his ISP.
Their acceptable use policy specifically states:
<blockquote>
You are prohibited from using the Service for activities that include,
but are not limited to:
* Harassing users or groups in any way including but not limited to
defaming, abusing, stalking, threatening or otherwise violating
the legal rights of others.
* Impersonating other Sympatico subscribers or other Internet
service providers' subscribers in any way.
</blockquote>
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(reverse each component and remove .invalid for email address)
comp.lang.perl.misc guidelines on the WWW:
http://mail.augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
------------------------------
Date: Tue, 07 Mar 2006 14:51:56 GMT
From: Joeseph Moellers <joe@moellers.org>
Subject: Re: Posting Guidelines for comp.lang.perl.misc ($Revision: 1.5 $)
Message-Id: <g6hPf.1046$Qh1.26069@news20.bellglobal.com>
Josef Moellers <josef.moellers@fujitsu-siemens.com> trolled:
> tadmc@julymail.com wrote:
> > tadmc@augustmail.com trolled:
> > [posting "guidelines" deleted, unread]
> > Could you please post your Nazi "Guidelines" to /dev/null?
> Well, I'm pretty fed up with this gibberish. I have taken the
> liberty to send a complaint to abuse@sympatico.ca in the hope that
> they will be able to stop this lunatic.
What exactly is your complaint? And are you speaking for the entire
anal clique or just yourself? Why don't you start up a moderated
group and then you can exclude those who object to the anal
behaviour of the small anal clique? Doesn't that sound like a good
plan?
cordially, as always,
Joe
------------------------------
Date: Tue, 07 Mar 2006 15:06:57 GMT
From: A Sinan Unur <luser@AllenRock.org>
Subject: Re: Posting Guidelines for comp.lang.perl.misc ($Revision: 1.5 $)
Message-Id: <lkhPf.1054$Qh1.26468@news20.bellglobal.com>
A. Sinan Unur <1usa@llenroc.ude.invalid> trolled:
> I have done that as well and for the first time, I actually
> received a human looking response after the automated response. I
> think they are genuinely concerned about fake From: headers etc.
But "A. Sinan Unur <1usa@llenroc.ude.invalid>" is itself a "fake"
From: header. Perhaps I should send in a complain about you?
> I would encourage anyone on this group who does not like the fact
> that his/her name is being used by this poster to indeed contact
> his ISP.
Can you show us one instance where your name was used by us?
> Their acceptable use policy specifically states:
> <blockquote>
> * Impersonating other Sympatico subscribers or other Internet
> service providers' subscribers in any way.
If and when we spoof your _real_ internet address, then you will
have a valid complaint. Until that time, we suggest that you and
the other anals show some respect for the other posters in this ng
by stop telling them how to post.
Ok?
cordially, as always,
rm
------------------------------
Date: 07 Mar 2006 06:09:36 -0800
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Standing in line (was Re: Posting Guidelines for comp.lang.perl.misc ($Revision: 1.5 $))
Message-Id: <86oe0i4a8v.fsf_-_@blue.stonehenge.com>
>>>>> "A" == A Sinan Unur <luser@allenrocks.org> writes:
A> I see no reason why I should have to do that. Nobody in this ng has
A> a right to dictate to others how to post and I take offense.
It's true. Perhaps you also take offense at having to stand in line for
tickets, and just cut to the front. Certainly, there's no law requiring you
to stand in line, and if they wanted to require everyone to stand in line,
they should have installed some sort of turnstile or ropes or something, or
maybe brought in armed guards to enforce line-standing.
But when you get to the ticket window, and they say "Sorry, we aren't selling
tickets to you... you didn't stand in line", don't be surprised.
That's all this is. How to stand in line. If that's too complex for you,
don't worry... you're probably already in a few killfiles by now, so this
group is now nearly useless unless what you want is advice from fellow
beginners.
just another old-time Usenetter (from when it all started in 1981),
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
*** Free account sponsored by SecureIX.com ***
*** Encrypt your Internet usage with a free VPN account from http://www.SecureIX.com ***
------------------------------
Date: Tue, 07 Mar 2006 14:56:08 GMT
From: Ronald Matthews <rm@biteme.org>
Subject: Re: Standing in line (was Re: Posting Guidelines for comp.lang.perl.misc ($Revision: 1.5 $))
Message-Id: <cahPf.1048$Qh1.26104@news20.bellglobal.com>
Randal L. Schwartz <merlyn@stonehenge.com> trolled:
> >>>>> "A" == A Sinan Unur <luser@allenrocks.org> writes:
> A> I see no reason why I should have to do that. Nobody in this ng has
> A> a right to dictate to others how to post and I take offense.
> It's true. Perhaps you also take offense at having to stand in
> line for tickets, and just cut to the front. Certainly, there's
> no law requiring you to stand in line, and if they wanted to
> require everyone to stand in line, they should have installed some
> sort of turnstile or ropes or something, or maybe brought in armed
> guards to enforce line-standing.
But standing in line is a universal "rule." It is not a rule
advocated by a small anal clique.
> But when you get to the ticket window, and they say "Sorry, we
> aren't selling tickets to you... you didn't stand in line", don't
> be surprised.
But what if you told them that you were a member of the small anal
clique and you had decreed that cutting in line was ok?
> That's all this is. How to stand in line. If that's too complex
> for you, don't worry... you're probably already in a few killfiles
> by now, so this group is now nearly useless unless what you want
> is advice from fellow beginners.
No, that is not all this is. There is no standing in line here.
There is a small anal clique putting up an unenforceable sign saying
that you are only allowed to post in a certain way. Your sign is
being pissed on and ignored by those of us who object to being told
what to do by a small anal clique.
In every group of people there are small anal cliques that feel it
is their duty to organize people to do things in a certain way that
the small anal clique deems to be reasonably anal.
But we shit on you and your rules. We will not be dictated to by a
self-appointed, small anal clique.
cordially, as always,
rm
------------------------------
Date: Tue, 07 Mar 2006 15:22:14 GMT
From: Bart Lateur <bart.lateur@pandora.be>
Subject: Re: Standing in line (was Re: Posting Guidelines for comp.lang.perl.misc ($Revision: 1.5 $))
Message-Id: <u89r029jullbmqsi7h2scvrttklg879pug@4ax.com>
Ronald Matthews wrote:
>But we shit on you and your rules. We will not be dictated to by a
>self-appointed, small anal clique.
Likewise. Goodbye.
*plonk*
--
Bart.
------------------------------
Date: Tue, 07 Mar 2006 13:10:38 +0100
From: RBCS <rbcs@gmx.net>
Subject: Task is running only once!
Message-Id: <pan.2006.03.07.12.10.38.159000@gmx.net>
Hello
Why is in this script the runas not running twice,
once for $tasks and once for $tasksa?
I have active state Perl v5.8.7 build 815!
Roman
#!/usr/bin/perl
#############################################################################
## Name: samples/controls/controls.pl
## Purpose: Controls wxPerl sample
## Author: Mattia Barbon
## Modified by:
## Created: 29/10/2000
## RCS-ID: $Id: controls.pl,v 1.12 2004/10/19 20:28:13 mbarbon Exp $
## Copyright: (c) 2000, 2003 Mattia Barbon
## Licence: This program is free software; you can redistribute it and/or
## modify it under the same terms as Perl itself
##############################################################################
#
my $Domain = "GLION";
my $User = "banz";
my $Password = "soulman1291";
my (@tasks);
my $taski=0;
$tasks[$taski] = ( "notepad" );
$taski++;
$tasks[$taski] = ( "msiexec" );
$taski++;
$tasks[$taski] = ( "notepad" );
my $ResultofRunas = RunAs->logininfo($Domain, $User, $Password, @tasks);
my (@tasksa);
my $taskia=0;
$tasksa[$taskia] = ( "notepad" );
$taskia++;
$tasksa[$taskia] = ( "msiexec" );
$taskia++;
$tasksa[$taskia] = ( "notepad" );
$ResultofRunas = RunAs->logininfo($Domain, $User, $Password, @tasksa);
print "Result of Runas: $ResultofRunas";
package RunAs;
use Win32::AdminMisc;
use POE qw(Wheel::Run Filter::Reference);
sub logininfo{
my( undef, $Domain, $User, $Password, @Process ) = @_;
sub MAX_CONCURRENT_TASKS () { 3 }
my $Result = Win32::AdminMisc::LogonAsUser( $Domain,
$User,
$Password,
LOGON32_LOGON_INTERACTIVE );
if( $Result )
{
my $LogonUser = Win32::AdminMisc::GetLogonName();
print "Successfuly started process as $LogonUser.\n";
$Result = POE::Session->create
( inline_states =>
{ _start => \&start_tasks,
next_task => \&start_tasks,
task_result => \&handle_task_result,
task_done => \&handle_task_done,
task_debug => \&handle_task_debug,
}
);
if( $Result )
{
print "Successfuly executed!\n";
}
else
{
my $err= Error();
print"$err\n";
}
}
else
{
my $err = Error();
print"$err\n";
}
$poe_kernel->run();
my $logofresult = Win32::AdminMisc::LogoffAsUser();
print "Logging off...\n";
sub Error {
return( Win32::FormatMessage( Win32::AdminMisc::GetError() ) );
}
sub start_tasks {
my $heap = $_[HEAP];
while ( keys( %{ $heap->{task} } ) < MAX_CONCURRENT_TASKS ) {
my $next_task = shift @Process;
last unless defined $next_task;
print "Starting task for $next_task...\n";
my $task = POE::Wheel::Run->new
( Program => ["$next_task", , ],
StdoutFilter => POE::Filter::Reference->new(),
StdoutEvent => "task_result",
StderrEvent => "task_debug",
CloseEvent => "task_done",
);
$heap->{task}->{ $task->ID } = $task;
}
}
sub handle_task_result {
my $result = $_[ARG0];
print "Result for $result->{task}: $result->{status}\n";
}
sub handle_task_debug {
my $result = $_[ARG0];
print "Debug: $result\n";
}
sub handle_task_done {
my ( $kernel, $heap, $task_id ) = @_[ KERNEL, HEAP, ARG0 ];
delete $heap->{task}->{$task_id};
$kernel->yield("next_task");
}
}
------------------------------
Date: Tue, 07 Mar 2006 12:45:17 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: Task is running only once!
Message-Id: <Xns977F4EFE5D749asu1cornelledu@127.0.0.1>
RBCS <rbcs@gmx.net> wrote in
news:pan.2006.03.07.12.10.38.159000@gmx.net:
> Why is in this script the runas not running twice,
> once for $tasks and once for $tasksa?
>
> I have active state Perl v5.8.7 build 815!
Why the exclamation point?
> ##############################################################
> # Name: samples/controls/controls.pl
> # Purpose: Controls wxPerl sample
> # Author: Mattia Barbon
I remember this exact same script being posted here before. It is good
that you gave credit to the original author.
On the other hand, I prefer to help people with problems they encounter
when writing their own programs, rather than fix scripts written by a
third-party so the poster can copy and paste with impunity.
That said, the program successfully opens two notepad windows and the
msiexec options dialog on my system, then proceeds to cause a GPF when
one of those is closed.
That probably has to with how POE works, and I do not know anything
about that.
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(reverse each component and remove .invalid for email address)
comp.lang.perl.misc guidelines on the WWW:
http://mail.augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
------------------------------
Date: Tue, 7 Mar 2006 07:14:19 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Task is running only once!
Message-Id: <slrne0r1pb.3at.tadmc@magna.augustmail.com>
RBCS <rbcs@gmx.net> wrote:
> my (@tasks);
> $tasks[$taski] = ( "notepad" );
> $taski++;
> $tasks[$taski] = ( "msiexec" );
> $taski++;
> $tasks[$taski] = ( "notepad" );
You can replace all of those lines of code with:
my @tasks = qw/ notepad msiexec notepad /;
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
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 9025
***************************************
