[27203] in Perl-Users-Digest
Perl-Users Digest, Issue: 9012 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Mar 2 18:05:36 2006
Date: Thu, 2 Mar 2006 15:05:03 -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 Thu, 2 Mar 2006 Volume: 10 Number: 9012
Today's topics:
Re: A Problem With GD <christoph.lamprecht.no.spam@web.de>
Re: A Problem With GD <uri@stemsystems.com>
Re: A Problem With GD <1usa@llenroc.ude.invalid>
Re: A Problem With GD <dha@panix.com>
Re: A Problem With GD <dha@panix.com>
FAQ 3.26 Where can I learn about CGI or Web programming <brian@stonehenge.com>
Re: Problems after updating Net::SSH:Perl <1usa@llenroc.ude.invalid>
Re: Problems after updating Net::SSH:Perl <news@chaos-net.de>
Re: Remote.pm (File::Remote) problem <1usa@llenroc.ude.invalid>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 02 Mar 2006 17:54:25 +0100
From: Ch Lamprecht <christoph.lamprecht.no.spam@web.de>
Subject: Re: A Problem With GD
Message-Id: <du7802$5ic$1@online.de>
Mark Manning wrote:
> Yeah, I know - but thanks.
>
> Ch Lamprecht wrote:
>
Hi Mark,
following this thread it seems to me, that you still think changing some
lines to
$rgb = ($fg_r << 16) | ($fg_g << 8) | $fg_b;
would solve the problem.
If that's the case, I recommend you run the code I posted above in the
thread. I will add it to this post once more. It shows,that the above
line will *not* fix the 'bug'.
use GD;
use warnings;
use strict;
GD::Image->trueColor(1);
my ($fg, $bg, $x, $y, $i);
my $b = new GD::Image( 100, 100 );
my $fg_r = 168;
my $fg_g = 153;
my $fg_b = 153;
my $bg_r = 136;
my $bg_g = 117;
my $bg_b = 117;
$fg = ($fg_r << 16) | ($fg_g << 8) | $fg_b;
$bg = ($bg_r << 16) | ($bg_g << 8) | $bg_b;
$b->filledRectangle( 0, 0, 99, 99, $fg );
for( $i=0; $i<500; $i++ ){
$x = int(rand(100));
$y = int(rand(100));
$b->setPixel($x, $y, $bg);
}
open( OUTFILE, ">TestPic2.png" ) || die $!;
binmode OUTFILE;
print OUTFILE $b->png;
close( OUTFILE );
open( OUTFILE, ">TestPic2.gif" ) || die $!;
binmode OUTFILE;
print OUTFILE $b->gif;
close( OUTFILE );
exit( 0 );
--
perl -e "print scalar reverse q/ed.enilno@ergn.l.hc/"
------------------------------
Date: Thu, 02 Mar 2006 12:34:21 -0500
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: A Problem With GD
Message-Id: <x7lkvsbvj6.fsf@mail.sysarch.com>
>>>>> "ASU" == A Sinan Unur <1usa@llenroc.ude.invalid> writes:
ASU> Mark Manning <markem@airmail.net> wrote in
ASU> news:120e19qkevrl799@corp.supernews.com:
>> go over and beat them up - you're just going to act like say - Hitler
>> and put up a set of rules and regulations and then try to enforce
>> those rules and regulations by ostracizing those who are different.
ASU> Apparently you do not understand what Hitler and the Nazi's did.
ASU> Only someone with great insensitivity can equate the holocaust with a
ASU> response to one's own rudeness. What an inappropriate comparison!
ASU> http://en.wikipedia.org/wiki/Godwin's_law
finally we can invoke godwin's law and end this stupid thread. we all
agree manning is an arrogant ass who will never get clpm or the larger
perl community (especially cpan) nor will he ever understand api
design. so stop responding to him as godwin's law implies. he seems to
come back every couple of days and blather so give it a rest and maybe
he will quietly slink away.
amazing how that law works and how this jerk was totally anticipated by
it.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Thu, 02 Mar 2006 17:38:13 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: A Problem With GD
Message-Id: <Xns977A80A5C20B3asu1cornelledu@127.0.0.1>
Uri Guttman <uri@stemsystems.com> wrote in
news:x7lkvsbvj6.fsf@mail.sysarch.com:
>>>>>> "ASU" == A Sinan Unur <1usa@llenroc.ude.invalid> writes:
> ASU> Mark Manning <markem@airmail.net> wrote in
> ASU> news:120e19qkevrl799@corp.supernews.com:
>
> >> go over and beat them up - you're just going to act like say -
> >> Hitler
...
> ASU> http://en.wikipedia.org/wiki/Godwin's_law
>
> finally we can invoke godwin's law and end this stupid thread.
Agreed ;-)
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: Thu, 2 Mar 2006 19:30:29 +0000 (UTC)
From: "David H. Adler" <dha@panix.com>
Subject: Re: A Problem With GD
Message-Id: <slrne0ehum.q92.dha@panix2.panix.com>
On 2006-03-02, Mark Manning <markem@airmail.net> wrote:
>
> Since it is you and I talking here - you should be able to know what
> the "it" is. Others, if they want to know what "it" is should read the
> previous posts. Therefore, the "it" is unnecessary.
Therefore, you are clearly unintested in participating in usenet in a
useful, accepted way.
Why you seem surprised that people are annoyed that you have no interest
in interacting with them in an appropriate and polite way is what I
don't understand.
Regardless, I'm sure that you see no reason to act any differently and I
suppose that's your right. It is also the right of everyone here to call
you on inappropriate behavior and/or killfile you. I certainly hope you
never need any more assistance - regardless of how *you* see it. You
probably won't get it.
On your own head be it.
dha
--
David H. Adler - <dha@panix.com> - http://www.panix.com/~dha/
A "functional" program works properly regardless of the phase of the
moon or the particular variety of goat you sacrifice.
- Eric Bohlman, in comp.lang.perl.misc
------------------------------
Date: Thu, 2 Mar 2006 19:35:00 +0000 (UTC)
From: "David H. Adler" <dha@panix.com>
Subject: Re: A Problem With GD
Message-Id: <slrne0ei74.q92.dha@panix2.panix.com>
On 2006-03-02, Uri Guttman <uri@stemsystems.com> wrote:
>
> finally we can invoke godwin's law and end this stupid thread. we all
> agree manning is an arrogant ass who will never get clpm or the larger
> perl community (especially cpan) nor will he ever understand api
> design. so stop responding to him as godwin's law implies. he seems to
> come back every couple of days and blather so give it a rest and maybe
> he will quietly slink away.
>
> amazing how that law works and how this jerk was totally anticipated by
> it.
Sadly, you are demonstrating the common misunderstanding of Godwin's
Law. It merely states that the longer a usenet thread, the higher the
chance of Hitler being mentioned.
Although a tradition has attempted to come into being that says that
once that happens the thread is ended, it's *not* part of Godwin's Law.
And, sadly, there's a reason for that - namely that it doesn't happen.
:-(
dha
--
David H. Adler - <dha@panix.com> - http://www.panix.com/~dha/
everything drives me crazy. because EVERYTHING involves morons at some
level. - sungo, in #perl
------------------------------
Date: Thu, 2 Mar 2006 11:21:22 -0800
From: PerlFAQ Server <brian@stonehenge.com>
Subject: FAQ 3.26 Where can I learn about CGI or Web programming in Perl?
Message-Id: <i6tjd3-07d.ln1@blue.stonehenge.com>
This is an excerpt from the latest version perlfaq3.pod, which
comes with the standard Perl distribution. These postings aim to
reduce the number of repeated questions as well as allow the community
to review and update the answers. The latest version of the complete
perlfaq is at http://faq.perl.org .
--------------------------------------------------------------------
3.26: Where can I learn about CGI or Web programming in Perl?
For modules, get the CGI or LWP modules from CPAN. For textbooks, see
the two especially dedicated to web stuff in the question on books. For
problems and questions related to the web, like "Why do I get 500
Errors" or "Why doesn't it run from the browser right when it runs fine
on the command line", see the troubleshooting guides and references in
perlfaq9 or in the CGI MetaFAQ:
http://www.perl.org/CGI_MetaFAQ.html
--------------------------------------------------------------------
The perlfaq-workers, a group of volunteers, maintain the perlfaq. They
are not necessarily experts in every domain where Perl might show up,
so please include as much information as possible and relevant in any
corrections. The perlfaq-workers also don't have access to every operating
system or platform, so please include relevant details for corrections
to examples that do not work on particular platforms. Working code is
greatly appreciated.
If you'd like to help maintain the perlfaq, see the details in
perlfaq.pod.
*** Free account sponsored by SecureIX.com ***
*** Encrypt your Internet usage with a free VPN account from http://www.SecureIX.com ***
------------------------------
Date: Thu, 02 Mar 2006 17:31:53 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: Problems after updating Net::SSH:Perl
Message-Id: <Xns977A7F939D6FAasu1cornelledu@127.0.0.1>
Martin Kissner <news@chaos-net.de> wrote in
news:slrne0e5d1.14b.news@maki.homeunix.net:
> hello together,
>
> I have recently updated my installation of Net::SSH:Perl from version
> 1.28 to 1.29 via the cpan shell.
>
> After that a script which uses this modul gives me this error:
> ---
> Can't locate object method "blocking" via package "IO::Handle" at
> /System/Library/Perl/5.8.6/Net/SSH/Perl.pm line 212, <GEN0> line 1.
According to:
http://search.cpan.org/src/DBROBINS/Net-SSH-Perl-1.29/Changes
(by the way, it would have been nice if you had looked this up
yourself):
Revision history for Net::SSH::Perl
1.29 2005.10.08
- Require Digest::SHA1 2.10 or greater (fixed problem with BSD
connection)
(Adam Callis).
- Add suppress_shell SSH2 option for SFTP (Sean McMillan).
- Use effective (not real) user-id to detect root (David Wheeler,
rt.cpan.org #13373).
- Make "ChallengeResponseAuthentication" configuration item boolean
rather than string (mark AT blackmans.org, rt.cpan.org #14549).
1.28 2005.03.17
- Patch to skip warning messages emitted by F-Secure sshd before the
SSH signature (Neal Ley).
- Fix for "Can't locate object method "blocking" via package
"IO::Handle"" error (rt.cpan.org #11674, Daniel C. Silverstein
(dans AT pch.net)).
So, something between 1.28 and 1.29 reintroduced the bug.
You should probably let the author know (after checking if it has
already been reported).
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: Thu, 2 Mar 2006 21:03:25 +0100
From: Martin Kissner <news@chaos-net.de>
Subject: Re: Problems after updating Net::SSH:Perl
Message-Id: <slrne0ejsd.219.news@maki.homeunix.net>
A. Sinan Unur wrote :
> Martin Kissner <news@chaos-net.de> wrote in
> news:slrne0e5d1.14b.news@maki.homeunix.net:
>
>> hello together,
>>
>> I have recently updated my installation of Net::SSH:Perl from version
>> 1.28 to 1.29 via the cpan shell.
>>
>> After that a script which uses this modul gives me this error:
>> ---
>> Can't locate object method "blocking" via package "IO::Handle" at
>> /System/Library/Perl/5.8.6/Net/SSH/Perl.pm line 212, <GEN0> line 1.
>
> According to:
>
> http://search.cpan.org/src/DBROBINS/Net-SSH-Perl-1.29/Changes
>
> (by the way, it would have been nice if you had looked this up
> yourself):
Thank you. You are, of course, right.
I am not too familiar with the cpan archive. Didn't mean to be lazy.
> 1.28 2005.03.17
> - Patch to skip warning messages emitted by F-Secure sshd before the
> SSH signature (Neal Ley).
> - Fix for "Can't locate object method "blocking" via package
> "IO::Handle"" error (rt.cpan.org #11674, Daniel C. Silverstein
> (dans AT pch.net)).
>
> So, something between 1.28 and 1.29 reintroduced the bug.
>
> You should probably let the author know (after checking if it has
> already been reported).
I wil do so, although I can't imagin this has not been discovered since
2005.10.08.
Best regards
Martin
--
perl -e '$S=[[73,116,114,115,31,96],[108,109,114,102,99,112],
[29,77,98,111,105,29],[100,93,95,103,97,110]];
for(0..3){for$s(0..5){print(chr($S->[$_]->[$s]+$_+1))}}'
------------------------------
Date: Thu, 02 Mar 2006 16:06:40 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: Remote.pm (File::Remote) problem
Message-Id: <Xns977A7120DBAA9asu1cornelledu@127.0.0.1>
Dayton Jones <tkoedge@comcast.net> wrote in news:4N-dnaBMS9EUiZrZRVn-
og@comcast.com:
> A. Sinan Unur wrote:
...
>>>>>A. Sinan Unur wrote:
>>>>>
>>>>>
>>>>>>Dayton Jones <tkoedge@comcast.net> wrote in
>>>>>>news:tZKdnQtkzPuPkZjZnZ2dnUVZ_sGdnZ2d@comcast.com:
>>>>>>
>>>>>>
>>>>>>
>>>>>>>I've got a very simple script (see below) that uses the
>>>>>>>File::Remote module. I've set up the script to use ssh/scp
>>>>>>>and there is no problem for the user to ssh to the hosts -
>>>>>>>but the script fails with a "permission denied" error on the
>>>>>>>
>>>>>>>>copy command.
...
>>>>>>>use File::Remote qw(:replace);
>>>>>>>
>>>>>>>setrsh('/usr/bin/ssh');
>>>>>>>serrcp('/usr/bin/scp');
>>>>
>>>>^^^^^^^^^^^^^^^^^^^^^^^^^^^^
>>>>...
>>>>
...
>> Well, apologoies, I misdiagnosed the problem. I looked at the source
>> code of File::Remote, and the problem simply is that /dev/null has a
>> different name on Windows, i.e. NUL.
...
> OK, now I'm confused -- I'm not running on a windows platform so the
> /dev/null reference is correct. I'm running RedHat EL3 and EL4 -- my
> apologies for not specifying that earlier.
Please trim your replies a bit. I don't think I did a good job after so
many repeated full quotes.
Upon looking at File::Remote again, I noticed that there is another
potential bug in File::Remote::_system:
sub _system {
my($self, @cmd) = _self_or_default(@_);
# return "Broken pipe" if cmd invalid
chomp(my $return = `@cmd 2>&1 1>/dev/null || echo 32`);
_debug("_system(@cmd) = $return");
if ($return) {
# if echo'ed an int (internal tests), use it,
# else use "Permission denied" (13)
$return =~ m/^(\d+)$/;
$! = $1 || 13;
Notice how $! is set without checking if the match above succeeded? That
might cause this routine to report an error when there was none if $1
had been set earlier.
Are you sure the file was not copied?
Another idea is to temporarily enable debugging by setting $DEBUG = 1
aorund line 114 of the module:
# Simple debugging function
my $DEBUG = 1;
sub _debug { warn "debug: ", @_ if $DEBUG };
See what you get in the actual trace.
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: 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 9012
***************************************
