[30777] in Perl-Users-Digest
Perl-Users Digest, Issue: 2022 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Dec 1 21:09:47 2008
Date: Mon, 1 Dec 2008 18:09: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, 1 Dec 2008 Volume: 11 Number: 2022
Today's topics:
Re: Mathematica 7 compares to other languages anonymous.c.lisper@gmail.com
Re: Mathematica 7 compares to other languages <jon@ffconsultancy.com>
Re: Mathematica 7 compares to other languages <noone@lewscanon.com>
Re: Mathematica 7 compares to other languages <noone@lewscanon.com>
Re: Mathematica 7 compares to other languages anonymous.c.lisper@gmail.com
Perl IPC::open use in a setuid program <lvirden@gmail.com>
Re: Perl IPC::open use in a setuid program <smallpond@juno.com>
Re: Perl IPC::open use in a setuid program <tadmc@seesig.invalid>
Re: Perl module for managing user groups (UNIX) <tim@burlyhost.com>
Re: Perl module for managing user groups (UNIX) (J.D. Baldwin)
perl segfault - how to troubleshoot <james.harris.1@googlemail.com>
Re: subroutine to array sln@netherlands.com
Re: subroutine to array sln@netherlands.com
What news reader are comp.lang.perl-ers using <news123@free.fr>
Re: What news reader are comp.lang.perl-ers using <joost@zeekat.nl>
Re: What news reader are comp.lang.perl-ers using <jurgenex@hotmail.com>
Re: What news reader are comp.lang.perl-ers using <joost@zeekat.nl>
Re: What news reader are comp.lang.perl-ers using <RedGrittyBrick@spamweary.invalid>
Re: What news reader are comp.lang.perl-ers using <anthony@muzz.co.uk>
Re: What news reader are comp.lang.perl-ers using <jurgenex@hotmail.com>
WIN32::OLE MSSQL return value <vaqas@hotmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 1 Dec 2008 14:53:50 -0800 (PST)
From: anonymous.c.lisper@gmail.com
Subject: Re: Mathematica 7 compares to other languages
Message-Id: <d902b71a-910d-4a0c-ba8c-b1654d296cf4@q9g2000yqc.googlegroups.com>
On Nov 30, 10:30=A0pm, Xah Lee <xah...@gmail.com> wrote:
> some stuff
You are a bot?
I think you failed the Turing test when you posted the same thing 20
times.
A rational human would realize that not too many people peruse this
newsgroup,
and that most of them have already seen the wall of text post that you
generate every time.
Just a thought, but whoever owns this thing might want to rework the
AI.
------------------------------
Date: Tue, 02 Dec 2008 00:06:22 +0000
From: Jon Harrop <jon@ffconsultancy.com>
Subject: Re: Mathematica 7 compares to other languages
Message-Id: <yv2dnTR0E8vt5qnUnZ2dnUVZ8qTinZ2d@posted.plusnet>
Xah Lee wrote:
> And on this page, there are sections where Mathematica is compared to
> programing langs, such as C, C++, Java, and research langs Lisp,
> ML, ..., and scripting langs Python, Perl, Ruby...
Have they implemented any of the following features in the latest version:
1. Redistributable standalone executables.
2. Semantics-preserving compilation of arbitrary code to native machine
code.
3. A concurrent run-time to make efficient parallelism easy.
4. Static type checking.
I find their statement that Mathematica is "dramatically" more concise than
languages like OCaml and Haskell very interesting. I ported my ray tracer
language comparison to Mathematica:
http://www.ffconsultancy.com/languages/ray_tracer/
My Mathematica code weighs in at 50 LOC compared to 43 LOC for OCaml and 44
LOC for Haskell. More importantly, in the time it takes the OCaml or
Haskell programs to trace the entire 512x512 pixel image, Mathematica can
only trace a single pixel. Overall, Mathematica is a whopping 700,000 times
slower!
Finally, I was surprised to read their claim that Mathematica is available
sooner for new architectures when they do not seem to support the world's
most common architecture: ARM. Also, 64-bit Mathematica came 12 years after
the first 64-bit ML...
Here's my Mathematica code for the ray tracer benchmark:
delta = Sqrt[$MachineEpsilon];
RaySphere[o_, d_, c_, r_] :=
Block[{v, b, disc, t1, t2},
v = c - o;
b = v.d;
disc = Sqrt[b^2 - v.v + r^2];
t2 = b + disc;
If[Im[disc] != 0 || t2 <= 0, \[Infinity],
t1 = b - disc;
If[t1 > 0, t1, t2]]
]
Intersect[o_, d_][{lambda_, n_}, Sphere[c_, r_]] :=
Block[{lambda2 = RaySphere[o, d, c, r]},
If[lambda2 >= lambda, {lambda, n}, {lambda2,
Normalize[o + lambda2 d - c]}]
]
Intersect[o_, d_][{lambda_, n_}, Bound[c_, r_, s_]] :=
Block[{lambda2 = RaySphere[o, d, c, r]},
If[lambda2 >= lambda, {lambda, n},
Fold[Intersect[o, d], {lambda, n}, s]]
]
neglight = N@Normalize[{1, 3, -2}];
nohit = {\[Infinity], {0, 0, 0}};
RayTrace[o_, d_, scene_] :=
Block[{lambda, n, g, p},
{lambda, n} = Intersect[o, d][nohit, scene];
If[lambda == \[Infinity], 0,
g = n.neglight;
If[g <= 0, 0,
{lambda, n} =
Intersect[o + lambda d + delta n, neglight][nohit, scene];
If[lambda < \[Infinity], 0, g]]]
]
Create[level_, c_, r_] :=
Block[{obj = Sphere[c, r]},
If[level == 1, obj,
Block[{a = 3*r/Sqrt[12], Aux},
Aux[x1_, z1_] := Create[level - 1, c + {x1, a, z1}, 0.5 r];
Bound[c,
3 r, {obj, Aux[-a, -a], Aux[a, -a], Aux[-a, a], Aux[a, a]}]]]]
scene = Create[1, {0, -1, 4}, 1];
Main[level_, n_, ss_] :=
Block[{scene = Create[level, {0, -1, 4}, 1]},
Table[
Sum[
RayTrace[{0, 0, 0},
N@Normalize[{(x + s/ss/ss)/n - 1/2, (y + Mod[s, ss]/ss)/n - 1/2,
1}], scene], {s, 0, ss^2 - 1}]/ss^2, {y, 0, n - 1},
{x, 0, n - 1}]]
AbsoluteTiming[Export["image.pgm", Graphics@Raster@Main[9, 512, 4]]]
--
Dr Jon D Harrop, Flying Frog Consultancy Ltd.
http://www.ffconsultancy.com/?u
------------------------------
Date: Mon, 01 Dec 2008 20:29:44 -0500
From: Lew <noone@lewscanon.com>
Subject: Re: Mathematica 7 compares to other languages
Message-Id: <gh2328$80e$5@news.albasani.net>
anonymous.c.lisper@gmail.com wrote:
> A rational human would realize that not too many people peruse this
> newsgroup,
> and that most of them have already seen the wall of text post that you
> generate every time.
Just out of curiosity, what do you consider "this" newsgroup, given its wide
crossposting?
--
Lew
------------------------------
Date: Mon, 01 Dec 2008 20:31:17 -0500
From: Lew <noone@lewscanon.com>
Subject: Re: Mathematica 7 compares to other languages
Message-Id: <gh2355$80e$6@news.albasani.net>
Jon Harrop wrote:
> Xah Lee wrote:
(nothing Java-related)
Please take this crud out of the Java newsgroup.
--
Lew
------------------------------
Date: Mon, 1 Dec 2008 17:46:10 -0800 (PST)
From: anonymous.c.lisper@gmail.com
Subject: Re: Mathematica 7 compares to other languages
Message-Id: <603036aa-f047-4ab4-a27c-e7ed7347ccd5@f3g2000yqf.googlegroups.com>
On Dec 1, 8:29=A0pm, Lew <no...@lewscanon.com> wrote:
> anonymous.c.lis...@gmail.com wrote:
> > A rational human would realize that not too many people peruse this
> > newsgroup,
> > and that most of them have already seen the wall of text post that you
> > generate every time.
>
> Just out of curiosity, what do you consider "this" newsgroup, given its w=
ide
> crossposting?
>
> --
> Lew
Ah, didn't realize the cross-posted nature.
comp.lang.lisp
Hadn't realized he had branched out to cross-posting across five
comp.langs
Apologies for the double post,
thought the internet had wigged out when i sent it first time.
------------------------------
Date: Mon, 1 Dec 2008 12:14:35 -0800 (PST)
From: "Larry W. Virden" <lvirden@gmail.com>
Subject: Perl IPC::open use in a setuid program
Message-Id: <98a2eba2-34e5-4b59-bffa-c5d50057fe2f@v4g2000yqa.googlegroups.com>
I've inherited a couple of large programs (which need to run setuid)
which makes a lot of use of IPC::open3 to open a link to a program,
and then read that program's stdout and/or stderr.
In previous versions of perl, the code worked without noise, but in
the past year the perl was updated to 5.8.4, and now I get the
warning:
Insecure dependency in exec while running setuid at
/usr/local/perl5/lib/5.8.4/IPC/Open3.pm line 244 (#1)
(F) You tried to do something that the tainting mechanism didn't
like.
The tainting mechanism is turned on when you're running setuid or
setgid, or when you specify -T to turn it on explicitly. The
tainting mechanism labels all data that's derived directly or
indirectly
from the user, who is considered to be unworthy of your trust. If
any
such data is used in a "dangerous" operation, you get this error.
See
perlsec for more information.
Uncaught exception from user code:
Insecure dependency in exec while running setuid at /usr/local/
perl5/lib /5.8.4/IPC/Open3.pm line 244.
IPC::Open3::_open3('open2', 'parchive::Advanced_Logging',
'*parchive::Advanced_Logging::WRITEHANDLE',
'*parchive::Advanced_Logging::READHANDLE', '>&STDERR', '/program/bin/
parc-syslog', '--add', 'LOG:
11-18-2008:11:01:27:larry:i500:srv22:J::i500000\x{a}', '--file', ...)
called at /usr/local/perl5/lib/5.8.4/IPC /Open2.pm line 114
IPC::Open2::open2('*parchive::Advanced_Logging::READHANDLE',
'*parchive:
:Advanced_Logging::WRITEHANDLE', '/program/bin/parc-syslog', '--add',
'LOG:11 -18-2008:11:01:27:larry:i500:srv22:J::i500000\x{a}', '--file',
'/data/i500/parchive.log.sys') called at /program/lib/perl/parchive/
Advanced_Logging.pm line 878
I've seen various writings about massaging environment variables and
command line arguments to remove the taintedness of them.
I'm not quite certain what kind of massage is needed in this case
though.
Line 878 of the module in question is:
my $pid = open2(*READHANDLE,*WRITEHANDLE,
$parc_syslog,"--add",$arg,"--file",$system_log_path);
Is the issue $parc_syslog or all of the variables?
Does anyone have a step that I need to follow to get this type of
warning resolved?
Thank you for your help.
------------------------------
Date: Mon, 1 Dec 2008 13:09:40 -0800 (PST)
From: smallpond <smallpond@juno.com>
Subject: Re: Perl IPC::open use in a setuid program
Message-Id: <7c514588-a3a1-43d8-9aa3-61e0d8b2edf6@a12g2000yqm.googlegroups.com>
On Dec 1, 3:14 pm, "Larry W. Virden" <lvir...@gmail.com> wrote:
> I've inherited a couple of large programs (which need to run setuid)
> which makes a lot of use of IPC::open3 to open a link to a program,
> and then read that program's stdout and/or stderr.
snip
>
> I've seen various writings about massaging environment variables and
> command line arguments to remove the taintedness of them.
>
> I'm not quite certain what kind of massage is needed in this case
> though.
> Line 878 of the module in question is:
> my $pid = open2(*READHANDLE,*WRITEHANDLE,
> $parc_syslog,"--add",$arg,"--file",$system_log_path);
>
> Is the issue $parc_syslog or all of the variables?
>
> Does anyone have a step that I need to follow to get this type of
> warning resolved?
>
Anything entered on the command line, browser form, environment
variable or read from a file is tainted. Look at:
$parc_syslog
$arg
$system_log_path
If so, you need to "untaint" it. I untaint
a user-entered password in a web application like this:
$t_password =~ / *(\w*)/;
$password = $1;
------------------------------
Date: Mon, 1 Dec 2008 16:52:40 -0600
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: Perl IPC::open use in a setuid program
Message-Id: <slrngj8qlo.gsj.tadmc@tadmc30.sbcglobal.net>
smallpond <smallpond@juno.com> wrote:
> I untaint
> a user-entered password in a web application like this:
>
> $t_password =~ / *(\w*)/;
^^
^^
I cannot see what purpose the zero-or-more spaces has there.
Can you share its purpose with me?
(and good passwords should have punctuation characters in them.)
> $password = $1;
What will $password contain if $t_password contains no word characters at all?
(If you think it must contain undef, you are mistaken...)
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Mon, 01 Dec 2008 11:36:04 -0800
From: Tim Greer <tim@burlyhost.com>
Subject: Re: Perl module for managing user groups (UNIX)
Message-Id: <E0XYk.7318$5L3.2755@newsfe09.iad>
J.D. Baldwin wrote:
>
> In the previous article, Tim Greer <tim@burlyhost.com> wrote:
>> What OS are you using, specifically? There are likely commands that
>> will do all of the error checking, file locking, etc. for you (i.e.,
>> usermod, groupmod, etc.)
>
> While platform-independence is a nice-to-have objective for the longer
> term, all the hosts in the system in question are Solaris 8/9/10 at
> the moment.
>
> What I do now involves usermod -- but you can't just tell usermod "add
> this guy to this group." You have to say "Assign this guy to
> secondary membership of all these groups." As a result, I have to
> collect all the existing groups, figure out which ones are
> secondaries, error-check the request, then execute the comment. That
> error-checking is the most involved step by far; there are a lot of
> ways to malform a request. Then we have the case of asking to delete
> a user's primary group, which of course involves picking one of the
> secondary groups to assign in its place ... and so on and so forth.
>
> It's not that I can't do this, it's just that I'd rather not write 500
> lines of code if someone has module-ized the tasks.
Got ya. I can't see the earlier articles in this thread, as my news
reader is configured to drop articles which I've already read after 30
days has passed (that is intentional), so could you (re)post the
relevant code you have now, if you have any? Pardon me if you've
already posted it. Sorry, I don't personally know of an existing
module for this, but there could be one. I'm sure there are some
existing solutions out there posted, which could probably be modified
if they aren't exactly what you need now... but your own code might be
close enough now for that task, too.
--
Tim Greer, CEO/Founder/CTO, BurlyHost.com, Inc.
Shared Hosting, Reseller Hosting, Dedicated & Semi-Dedicated servers
and Custom Hosting. 24/7 support, 30 day guarantee, secure servers.
Industry's most experienced staff! -- Web Hosting With Muscle!
------------------------------
Date: Mon, 1 Dec 2008 19:58:08 +0000 (UTC)
From: INVALID_SEE_SIG@example.com.invalid (J.D. Baldwin)
Subject: Re: Perl module for managing user groups (UNIX)
Message-Id: <gh1fkf$uq$1@reader1.panix.com>
In the previous article, Tim Greer <tim@burlyhost.com> wrote:
> Got ya. I can't see the earlier articles in this thread, as my news
> reader is configured to drop articles which I've already read after
> 30 days has passed (that is intentional), so could you (re)post the
> relevant code you have now, if you have any? Pardon me if you've
> already posted it. Sorry, I don't personally know of an existing
> module for this, but there could be one. I'm sure there are some
> existing solutions out there posted, which could probably be
> modified if they aren't exactly what you need now... but your own
> code might be close enough now for that task, too.
The code I have is at work just now and is such a mess that my plan is
to throw it out and start from scratch. Here's my original query,
though:
I'm looking for a module or maybe some good sample code to
save me some labor in implementing a front-end for group
management. For example, changing a user's primary group
membership from 'foo' to 'bar' or removing a user from one of
his secondary groups, adding him to a new secondary group,
etc.
Seems this should be pretty straightforward, it's just that
it's a lot of code, particularly for the error-checking. I'd
rather not write it if I can steal-- er, "reuse" it.
--
_+_ From the catapult of |If anyone objects to any statement I make, I am
_|70|___:)=}- J.D. Baldwin |quite prepared not only to retract it, but also
\ / baldwin@panix.com|to deny under oath that I ever made it.-T. Lehrer
***~~~~----------------------------------------------------------------------
------------------------------
Date: Mon, 1 Dec 2008 17:55:53 -0800 (PST)
From: James Harris <james.harris.1@googlemail.com>
Subject: perl segfault - how to troubleshoot
Message-Id: <b60d51cf-e511-4249-a200-d7cc03a9d705@w35g2000yqm.googlegroups.com>
Since a few days ago perl segfaults when running certain scripts. The
scripts were ok before the problem started and have not been changed.
I have checked my (Ubuntu) system for updates. None were made near the
time of the first incidence of the problem so I started looking more
widely.
I found that even if I try to check syntax on one of the scripts that
fails perl segfaults.
$ perl -c mythrename.pl
Segmentation fault
$
If I try to run the debugger it doesn't get as far as prompting for
the first line
$ perl -d mythrename.pl
Loading DB routines from perl5db.pl version 1.28
Editor support available.
Enter h or `h h' for help, or `man perldebug' for more help.
At this point CPU usage goes to 100%. Since I cannot even get the
debugger to start at the first line where do I go next to try and fix
this?
Anyone else had similar problems recently - within a week?
James
------------------------------
Date: Tue, 02 Dec 2008 01:45:10 GMT
From: sln@netherlands.com
Subject: Re: subroutine to array
Message-Id: <o149j4hk10v1l8esns0vcsgq6u13qj0o4h@4ax.com>
On Sat, 29 Nov 2008 05:35:52 GMT, QoS@domain.invalid wrote:
>
>Is there any other way to load a subroutine into an array?
>
>#!/usr/bin/perl
>use strict;
>use warnings;
>
>my @array;
>
>@array = loadSub('example');
>if (defined $array[0]) {
> foreach my $l (@array) {
> print $l;
> }
>}
>
>exit;
>
>sub loadSub #-----------------------------------------------------------
>{
> my $sub = quotemeta ($_[0]) || return (0);
> my $this_perl = $0;
>
> if (open (IN, '<', $this_perl)) {
> my ($out, $found,);
> while (my $line = (<IN>)) {
> if (! $found && ! $line =~ m/^\s*sub\s+$sub/) {
^-^
The binding might be closer than the =~ giving all but the sub.
Try if (! $found && !($line =~ m/^\s*sub\s+$sub/)) {,
typically, if (! $found && $line !~ m/^\s*sub\s+$sub/) {
> next;
> }
> else {
> $found = 1;
Need to get the last line before bailing out of the while(),
if that is what you wan't.
$out .= $line;
> if ($line =~ m/^\s*}/) { last; }
> # $out .= $line;
> }
> }
> if (! $found) {
> warn 'Unable to find subroutine: ' . $sub . "\n";
> $out = 0;
> }
> close IN
> || warn "Unable to close input file in loadSub\n";
> return ($out);
> }
> else {
> warn "Unable to read file: $this_perl\n$!\n";
> }
> return (0);
>}
>sub example #-----------------------------------------------------------
>{
> my ($a, $b,);
> foreach my $n (1..5) { $a++; $b += $a + $n; }
> return ($b);
>}
>
>
This line: if ($line =~ m/^\s*}/) { last; }
will not always get you what you appear to wan't.
I mean, if this is any more than casual, you would have
to do a balanced squigly for it to really parse, including
comment processing, etc..
Consider:
sub example1 {
my ( $x, $y );
$y += ++$x + $_ for 1 .. 5;
if ($y > 357) {
# ??
}
return $y;
}
sub example1 will return before the end of the sub is read.
Good luck!
sln
------------------------------
Date: Tue, 02 Dec 2008 01:57:58 GMT
From: sln@netherlands.com
Subject: Re: subroutine to array
Message-Id: <b959j45d33alvlkih7ro7gd8quma5o7kk4@4ax.com>
On Tue, 02 Dec 2008 01:45:10 GMT, sln@netherlands.com wrote:
>On Sat, 29 Nov 2008 05:35:52 GMT, QoS@domain.invalid wrote:
>
>>
[snip]
>The binding might be closer than the =~ giving all but the sub.
Actually, I correct myself, it will give all up to the first
if ($line =~ m/^\s*}/) { last; },
which is right after line 6.
sln
------------------------------
Date: Mon, 01 Dec 2008 22:56:59 +0100
From: News123 <news123@free.fr>
Subject: What news reader are comp.lang.perl-ers using
Message-Id: <49345dab$0$18974$426a74cc@news.free.fr>
Just of curiousity.
What kind of news readers are you all using?
So far I'm using Thunderbird, as it works under Linux and under windows.
However the anti-spam capabilities of Thunderbird (concerning nntp) are
not existing (or if they exist I don't know how to use them).
Id be curious in a news reader (working under Linux and Windows)
If the news reader would allow perl scripts or arbitrary executables as
filters it would great
thanks in advance for any suggestions ideas.
bye
N
wrote:
> On Dec 1, 6:36 pm, smallpond <smallp...@juno.com> wrote:
>> On Dec 1, 10:14 am, david <michaelg...@gmail.com> wrote:
>>
>>> HI all,
>>> Has someone an idea how to stop the spamming in the list.
>>> This is really disgusting.
>>> Thanks in advance,
>>> David
>> You could do it all in perl. CPAN has a module News::NNTP
>>
>> Extract the posting host IP address, do a whois lookup on it to
>> get the abuse address, send email to the abuse address with
>> a copy of the spam.
>
> Good idea. Would be great to introduce it here
------------------------------
Date: Mon, 01 Dec 2008 23:04:04 +0100
From: Joost Diepenmaat <joost@zeekat.nl>
Subject: Re: What news reader are comp.lang.perl-ers using
Message-Id: <87zljfk0x7.fsf@zeekat.nl>
News123 <news123@free.fr> writes:
> Just of curiousity.
>
> What kind of news readers are you all using?
gnus. which probably does spam filtering on nntp (but it appears my
newsfeed is fairly clean) and more or less anything you want.
What's with the quoted bit at the bottom of your post?
--
Joost Diepenmaat | blog: http://joost.zeekat.nl/ | work: http://zeekat.nl/
------------------------------
Date: Mon, 01 Dec 2008 14:30:20 -0800
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: What news reader are comp.lang.perl-ers using
Message-Id: <h9p8j41ul64csjs2c9hajjoj2sg4k3noat@4ax.com>
News123 <news123@free.fr> wrote:
>What kind of news readers are you all using?
What's the problem with simply checking the "User-Agent" header field?
jue
------------------------------
Date: Mon, 01 Dec 2008 23:38:57 +0100
From: Joost Diepenmaat <joost@zeekat.nl>
Subject: Re: What news reader are comp.lang.perl-ers using
Message-Id: <87vdu3jzb2.fsf@zeekat.nl>
Jürgen Exner <jurgenex@hotmail.com> writes:
> News123 <news123@free.fr> wrote:
>>What kind of news readers are you all using?
>
> What's the problem with simply checking the "User-Agent" header field?
There isn't one in your post, for one :-)
--
Joost Diepenmaat | blog: http://joost.zeekat.nl/ | work: http://zeekat.nl/
------------------------------
Date: Mon, 01 Dec 2008 23:04:25 +0000
From: RedGrittyBrick <RedGrittyBrick@spamweary.invalid>
Subject: Re: What news reader are comp.lang.perl-ers using
Message-Id: <gh1qi0$3ln$1@news.motzarella.org>
Joost Diepenmaat wrote:
> Jürgen Exner <jurgenex@hotmail.com> writes:
>
>> News123 <news123@free.fr> wrote:
>>> What kind of news readers are you all using?
>> What's the problem with simply checking the "User-Agent" header field?
>
> There isn't one in your post, for one :-)
>
But (as I expect Joost knows but ignored for comic effect) there is a
X-Newsreader: Forte Agent 4.2/32.1118
There was a Thunderbird filtering thread (or several) a while back.
FWIW I use NewsProxy as a filter with Thunderbird.
--
RGB
------------------------------
Date: Mon, 01 Dec 2008 18:15:54 -0600
From: Anthony Carl Perkins <anthony@muzz.co.uk>
Subject: Re: What news reader are comp.lang.perl-ers using
Message-Id: <slrngj8vhq.nr8.anthony@smirnoff.home.muzz.be>
On 2008-12-01, RedGrittyBrick <RedGrittyBrick@spamweary.invalid> wrote:
>
> Joost Diepenmaat wrote:
>> Jürgen Exner <jurgenex@hotmail.com> writes:
>>
>>> News123 <news123@free.fr> wrote:
>>>> What kind of news readers are you all using?
>>> What's the problem with simply checking the "User-Agent" header field?
>>
>> There isn't one in your post, for one :-)
>>
>
> But (as I expect Joost knows but ignored for comic effect) there is a
> X-Newsreader: Forte Agent 4.2/32.1118
>
> There was a Thunderbird filtering thread (or several) a while back.
>
> FWIW I use NewsProxy as a filter with Thunderbird.
>
slrn here with emacs as the EDITOR, as I tend to log on from remote
machines. I tried GNUS but I got annoyed with it quite quickly.
--
Anthony Carl Perkins
http://www.muzz.co.uk
------------------------------
Date: Mon, 01 Dec 2008 16:28:30 -0800
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: What news reader are comp.lang.perl-ers using
Message-Id: <q809j4php6aqhcfu8pl9rajlrth8l4poe7@4ax.com>
Joost Diepenmaat <joost@zeekat.nl> wrote:
>Jürgen Exner <jurgenex@hotmail.com> writes:
>
>> News123 <news123@free.fr> wrote:
>>>What kind of news readers are you all using?
>>
>> What's the problem with simply checking the "User-Agent" header field?
>
>There isn't one in your post, for one :-)
Well, then take
X-Newsreader: Forte Agent 4.2/32.1118
instead.
jue
------------------------------
Date: Mon, 1 Dec 2008 14:16:58 -0800 (PST)
From: Saya <vaqas@hotmail.com>
Subject: WIN32::OLE MSSQL return value
Message-Id: <59a2f25e-8feb-435e-956b-c9118c725d10@k41g2000yqn.googlegroups.com>
hi,
I have the below code and would like to know how I can access the
stored procedures returned value. Can anybody help me out here :-).
my $cn=Win32::OLE-> new('Adodb.Command');
my $rs=Win32::OLE-> new('Adodb.Recordset');
$cn->{'CommandText'} = "stpCreateGroups";
$cn->{'CommandType'} = 4;
$cn->{'ActiveConnection'} = $sConString;
$cn->{'CommandTimeout'} = 1200000;
$cn->{'@strBranchAbb'} = $inpWorkareaPath;
$cn->{'@strGroupName'} = "vahu test";
$cn->{'@strHcp'} = "no";
$cn->{'@strGroupCreator'} = $sUser;
#$cn->{'@RETURN'};
$rs = $cn->Execute();
if(! ($rs = $cn->execute())) {
print "Error: " . Win32::OLE->LastError();
# $rs->close;
}
Regards
Says
------------------------------
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 V11 Issue 2022
***************************************
