[29085] in Perl-Users-Digest
Perl-Users Digest, Issue: 329 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Apr 12 21:09:42 2007
Date: Thu, 12 Apr 2007 18:09:07 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Thu, 12 Apr 2007 Volume: 11 Number: 329
Today's topics:
CGI::Cookie problem <dalyea@gmail.com>
Re: Help with understanding/using dispatch tables <uri@stemsystems.com>
Re: Help with understanding/using dispatch tables <purlgurl@purlgurl.net>
Re: Help with understanding/using dispatch tables <mothra@nowhereatall.com>
Re: Help with understanding/using dispatch tables <purlgurl@purlgurl.net>
My Perl Ode to Purl Gurl purllad@hotmail.com
Re: My Perl Ode to Purl Gurl <ignoramus14150@NOSPAM.14150.invalid>
Re: My Perl Ode to Purl Gurl <1usa@llenroc.ude.invalid>
Re: My Perl Ode to Purl Gurl <purlgurl@purlgurl.net>
Re: My Perl Ode to Purl Gurl krakle@visto.com
Re: My script to download YouTube videos (critique want <ignoramus14150@NOSPAM.14150.invalid>
Re: My script to download YouTube videos (critique want <ignoramus14150@NOSPAM.14150.invalid>
Re: My script to download YouTube videos (critique want <kkeller-usenet@wombat.san-francisco.ca.us>
Re: My script to download YouTube videos (critique want <bik.mido@tiscalinet.it>
Re: My script to download YouTube videos (critique want <bik.mido@tiscalinet.it>
Net::FTPSSL mmittiga17@gmail.com
Re: Top Turds of comp.lang.perl.misc (2007) usenet@DavidFilmer.com
Re: Top Turds of comp.lang.perl.misc (2007) <tadmc@augustmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 12 Apr 2007 11:46:13 -0700
From: "dalyea@gmail.com" <dalyea@gmail.com>
Subject: CGI::Cookie problem
Message-Id: <1176403573.250579.78430@e65g2000hsc.googlegroups.com>
I am trying to get cookies working on a new site, but no luck.
The sites are on the same web server and so have a very similar
Apache setup. Then only difference worth noting is that the
working code is a dot.com and my new site where the code isn't
working is a dot.org. Should that make a difference?
The thing that I believe is broken is fetching the cookie(s).
The part that sets the cookie is this:
my $cookie = setZoneCookie($login, $pswd, $login_type);
my $url=qq(/cgi-bin/new.cgi);
print $cgi->header( -cookie => $cookie );
# print $cgi->start_html(-head => meta( { -http_equiv=>"refresh", -
content=>"0;URL=$url" } ));
print qq(
<html>
<head>
<meta http-equiv="refresh" content="0;URL=$url">
</head>
</html>
);
and the cookie is set by:
our $COOKIEDOMAIN=$cgi->virtual_host();
sub setZoneCookie {
my ($login, $pswd, $area) = @_;
my ($cookie, $c_name, $dough);
$dough = "$login,$pswd";
$cookie = new CGI::Cookie(
-NAME => $cookie_names{$area},
-VALUE => $dough,
-EXPIRES => '+24h',
-DOMAIN => $COOKIEDOMAIN
);
return $cookie;
}
I can see in debugging that the cookie looks right, just like any
other cookie:
xyz_cookie_staff=david%2Ciiikkk; domain=www.xyz.org; path=/;
expires=Fri, 13-
Apr-2007 18:28:57 GMT
The problem I think is fetching the cookie(s):
sub getLoginCookie {
my $area = shift;
my ($dough, @login);
%cookies = fetch CGI::Cookie;
if ($cookies{"xyz_cookie_staff"} ) {
$dough = $cookies{$cookie_names{$area}}->value;
}
# Dump
foreach my $x (sort keys %cookies) {
&daprint("dump - $x - $cookies{$x}");
}
The dump produces:
dump - CP - CP=%2A; path=/
I've tried clearing cookies IE-wide, and I've run and re-run the same
code on other sites with no problem. Any ideas?
David
------------------------------
Date: Thu, 12 Apr 2007 14:25:58 -0400
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Help with understanding/using dispatch tables
Message-Id: <x7abxdsb49.fsf@mail.sysarch.com>
>>>>> "M" == Mothra <mothra@nowhereatall.com> writes:
M> I have a perl script (see below) that uses dispatch tables to set
M> values, however subs get_lat_N and get_lat_S are almost identical
M> :-( this tells me thatt I am doing something wrong. How can I
M> modify my dispatch table structure to avoid duplicate code?
well, the simple answer is get rid of the dispatch tables as you don't
need them. they are not the best way to do this as you can simplify the
whole script by folding get_lat_N and get_lat_S into get_lat (same for
the EW subs). the dispatch table you have effectively just selects 1 or
-1 based on the compass value. you can use a hash for that or do a
simple test inside the subs.
M> my %dispatch_table_lat = (
M> 'N' => \&get_lat_N,
M> 'S' => \&get_lat_S
M> );
M> my %dispatch_table_lon = (
M> 'E' => \&get_long_E,
M> 'W' => \&get_long_W
M> );
M> $dispatch_table_lat{$5}->( $3, $4 );
M> $dispatch_table_lon{$8}->( $6, $7 );
$5 and $8 have NW and EW so why not just pass them as additional args
like this:
get_lat_NS( $3, $4, $5 );
get_lon_EW( $6, $7, $8 ) ;
M> sub get_lat_N {
M> my ( $degree, $minute ) = @_;
M> $location{'yy0'} = '1';
M> $location{'yy1'} = $degree;
M> $location{'yy2'} = $minute;
M> return;
M> }
M> sub get_lat_S {
M> my ( $degree, $minute ) = @_;
M> $location{'yy0'} = '-1';
M> $location{'yy1'} = $degree;
M> $location{'yy2'} = $minute;
M> return;
M> }
merge those two into this:
sub get_lat_NS {
my ( $degree, $minute, $compass ) = @_;
$location{'yy0'} = ( $compass eq 'N' ? '1' : '-1' ;
$location{'yy1'} = $degree;
$location{'yy2'} = $minute;
return;
}
do the same for the longitude subs.
so you lose 2 subs, 2 useless dispatch tables and have cleaner code.
a dispatch table is more useful when you have more than 2 subs to call
based on a key. and they should be doing different things. if they are
very similar as yours are, it is better to put the conditional logic in
the subs themselves as then you only have to change 1 sub when your
requirements change.
and why is the 1/-1 value in quotes? do you need it as a string? it
seems to be a form value so maybe that is ok.
--
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, 12 Apr 2007 11:47:03 -0700
From: Purl Gurl <purlgurl@purlgurl.net>
Subject: Re: Help with understanding/using dispatch tables
Message-Id: <BaydnXGpgqY144PbnZ2dnUVZ_j2dnZ2d@giganews.com>
Mothra wrote:
> I have a perl script (see below) that uses dispatch tables to set values,
> however subs get_lat_N and get_lat_S are almost identical :-( this tells me thatt I
> am doing something wrong. How can I modify my dispatch table structure to avoid
> duplicate code?
(snipped code)
Your code is interesting. I do not have HTML::Form installed
or I would run your code simply to enjoy results.
My personal style would be to leave all _four_ of your
similar subroutines as is. Having four subroutines lends
well to clarity and ease of reading your code.
Combining all four into two subroutines would only serve
to make your code harder to read and might introduce code
errors through having to keep track of a positive integer
versus a negative integer. You will also have to add extra
code to sort positive versus negative which defeats your
intent of compacting your overall script.
There will be no savings in efficiency by combination of
subroutines. Currently you can run each subroutine once.
Combining, you will run two subroutines twice. You will
still be using virtually the same amount of resources.
I would not change your subroutines. Your code is very
clear and easy to read as is. There are no significant
benefits to combining your subroutines.
Purl Gurl
------------------------------
Date: Thu, 12 Apr 2007 13:00:12 -0700
From: "Mothra" <mothra@nowhereatall.com>
Subject: Re: Help with understanding/using dispatch tables
Message-Id: <461e9956$1@usenet.ugs.com>
Hi Uri,
"Uri Guttman" <uri@stemsystems.com> wrote in message
news:x7abxdsb49.fsf@mail.sysarch.com...
>>>>>> "M" == Mothra <mothra@nowhereatall.com> writes:
>
(snipped)
>
> well, the simple answer is get rid of the dispatch tables as you don't
> need them. they are not the best way to do this as you can simplify the
> whole script by folding get_lat_N and get_lat_S into get_lat (same for
> the EW subs). the dispatch table you have effectively just selects 1 or
> -1 based on the compass value. you can use a hash for that or do a
> simple test inside the subs.
>
>
(More snippage)
Ok I understand
>
> $5 and $8 have NW and EW so why not just pass them as additional args
> like this:
>
>
> get_lat_NS( $3, $4, $5 );
> get_lon_EW( $6, $7, $8 ) ;
Ok so far
>
>
(more snippage)
>
> merge those two into this:
>
> sub get_lat_NS {
> my ( $degree, $minute, $compass ) = @_;
>
> $location{'yy0'} = ( $compass eq 'N' ? '1' : '-1' ;
> $location{'yy1'} = $degree;
> $location{'yy2'} = $minute;
> return;
> }
works perfectly :-)
>
> do the same for the longitude subs.
I see, like this
sub get_long_EW {
my ( $degree, $minute, $compass ) = @_;
$location{'zz0'} = ($compass eq 'E' ? '1' : '-1');
$location{'xx0'} = $location{'zz0'};
$location{'xx1'} = $degree;
$location{'xx2'} = $minute;
return;
}
>
> so you lose 2 subs, 2 useless dispatch tables and have cleaner code.
>
> a dispatch table is more useful when you have more than 2 subs to call
> based on a key. and they should be doing different things. if they are
> very similar as yours are, it is better to put the conditional logic in
> the subs themselves as then you only have to change 1 sub when your
> requirements change.
Thanks for the clarification :-) makes perfect sence
>
> and why is the 1/-1 value in quotes? do you need it as a string? it
> seems to be a form value so maybe that is ok.
Yes, I do need it as a string. it is a form value.
As always your advise is right on!
Thanks
Mothra
------------------------------
Date: Thu, 12 Apr 2007 14:11:55 -0700
From: Purl Gurl <purlgurl@purlgurl.net>
Subject: Re: Help with understanding/using dispatch tables
Message-Id: <EvudnXuZA7AHPYPbnZ2dnUVZ_rGinZ2d@giganews.com>
Mothra wrote:
> Uri Guttman wrote:
>> Mothra wrote:
> (snipped)
> As always your advise is right on!
> Thanks
Truly? You need to learn to check his code; Uri is
very prone to making mistakes, frequently.
#!perl
sub get_lat_NS {
my ( $degree, $minute, $compass ) = @_;
$location{'yy0'} = ( $compass eq 'N' ? '1' : '-1' ;
$location{'yy1'} = $degree;
$location{'yy2'} = $minute;
return;
}
c:\apache\users\test>perl -c test.pl
syntax error at test.pl line 6, near "'-1' ;"
test.pl had compilation errors.
I did write combining your subroutines would likely
lead to making coding mistakes, as Uri often does.
* demure smile *
Purl Gurl
------------------------------
Date: 12 Apr 2007 13:05:37 -0700
From: purllad@hotmail.com
Subject: My Perl Ode to Purl Gurl
Message-Id: <1176408337.636568.148750@l77g2000hsb.googlegroups.com>
I read yesterday's "Top Turds of comp.lang.perl.misc for 2007" awards
and strongly agreed with all of them except for Purl Gurl. I don't
understand how anyone could consider Purl Gurl to resemble a turd in
any way. I think she is the best so I wrote this perl ode to express
how I feel about her. Enjoy!
#!/usr/bin/perl
my $love = 'Purl Gurl';
do tell $love, 'I adore you' for $ever++;
die 'without you' if $apart;
send $flowers, $diamonds, $presents;
listen our @music, @dance;
read our @poems => $smile, $laugh;
study each %other;
close @hugs ** @kisses;
goto bed;
bed:
open our @clothes;
while (<$horny>) {
join our @bodies;
sin and sin and sin;
push @harder => y/esss!!!!!!!// ... glob and glob and glob;
switch $position;
}
link our @arms, our @legs;
sleep until not $tired;
wait for alarm;
split;
------------------------------
Date: Thu, 12 Apr 2007 15:24:58 -0500
From: Ignoramus14150 <ignoramus14150@NOSPAM.14150.invalid>
Subject: Re: My Perl Ode to Purl Gurl
Message-Id: <n6udnRvE9p8HCIPbnZ2dnUVZ_sjinZ2d@giganews.com>
On 12 Apr 2007 13:05:37 -0700, purllad@hotmail.com <purllad@hotmail.com> wrote:
> I read yesterday's "Top Turds of comp.lang.perl.misc for 2007" awards
> and strongly agreed with all of them except for Purl Gurl. I don't
> understand how anyone could consider Purl Gurl to resemble a turd in
> any way. I think she is the best so I wrote this perl ode to express
> how I feel about her. Enjoy!
>
> #!/usr/bin/perl
>
> my $love = 'Purl Gurl';
How can your Ode to Purl Gurl include "my" statement???
i
> do tell $love, 'I adore you' for $ever++;
> die 'without you' if $apart;
> send $flowers, $diamonds, $presents;
>
> listen our @music, @dance;
> read our @poems => $smile, $laugh;
> study each %other;
> close @hugs ** @kisses;
>
> goto bed;
>
> bed:
> open our @clothes;
> while (<$horny>) {
> join our @bodies;
> sin and sin and sin;
> push @harder => y/esss!!!!!!!// ... glob and glob and glob;
> switch $position;
> }
>
> link our @arms, our @legs;
> sleep until not $tired;
> wait for alarm;
> split;
>
------------------------------
Date: Thu, 12 Apr 2007 20:56:16 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: My Perl Ode to Purl Gurl
Message-Id: <Xns9910AC4C5B0C8asu1cornelledu@127.0.0.1>
purllad@hotmail.com wrote in news:1176408337.636568.148750
@l77g2000hsb.googlegroups.com:
> I read yesterday's "Top Turds of comp.lang.perl.misc for 2007" awards
> and strongly agreed with all of them except for Purl Gurl.
I see ... Funny you are both using the same computer.
What is wrong with North Carolina? Do you happen to know Ms. Husted? Have
you still not been able to get over this discussion from 2004:
http://groups.google.com/group/comp.lang.perl.misc/msg/d9ef15508a7dfa18
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(remove .invalid and reverse each component for email address)
clpmisc guidelines: <URL:http://www.augustmail.com/~tadmc/clpmisc.shtml>
------------------------------
Date: Thu, 12 Apr 2007 14:28:39 -0700
From: Purl Gurl <purlgurl@purlgurl.net>
Subject: Re: My Perl Ode to Purl Gurl
Message-Id: <KPOdnQU-ptYYOYPbnZ2dnUVZ_uKknZ2d@giganews.com>
purllad wrote:
> I read yesterday's "Top Turds of comp.lang.perl.misc for 2007" awards
> and strongly agreed with all of them except for Purl Gurl. I don't
> understand how anyone could consider Purl Gurl to resemble a turd in
> any way. I think she is the best so I wrote this perl ode to express
> how I feel about her. Enjoy!
> #!/usr/bin/perl
> my $love = 'Purl Gurl';
> do tell $love, 'I adore you' for $ever++;
> die 'without you' if $apart;
> send $flowers, $diamonds, $presents;
> listen our @music, @dance;
> read our @poems => $smile, $laugh;
> study each %other;
> close @hugs ** @kisses;
> goto bed;
> bed:
> open our @clothes;
> while (<$horny>) {
> join our @bodies;
> sin and sin and sin;
> push @harder => y/esss!!!!!!!// ... glob and glob and glob;
> switch $position;
> }
> link our @arms, our @legs;
> sleep until not $tired;
> wait for alarm;
> split;
Ha! Ha! Now that is funny! Rather nice of you to
introduce humor into this discussion group.
I am modifying your ode code. I hope you do not mind.
My system and body do not support alarm. =)
Thank you for a laugh, you are thoughtful. Articles
like yours encourage people to participate here.
In exchange for your endearing love for me, a
photograph* or two.
http://www.purlgurl.net/aue/dressy.jpg
Purl Gurl
* autographed copies are $5.00 each via Paypal
------------------------------
Date: 12 Apr 2007 16:47:35 -0700
From: krakle@visto.com
Subject: Re: My Perl Ode to Purl Gurl
Message-Id: <1176421655.698662.115080@e65g2000hsc.googlegroups.com>
On Apr 12, 2:05 pm, purl...@hotmail.com wrote:
> I read yesterday's "Top Turds of comp.lang.perl.misc for 2007" awards
> and strongly agreed with all of them except for Purl Gurl. I don't
> understand how anyone could consider Purl Gurl to resemble a turd in
> any way. I think she is the best so I wrote this perl ode to express
> how I feel about her. Enjoy!
>
> #!/usr/bin/perl
>
> my $love = 'Purl Gurl';
> do tell $love, 'I adore you' for $ever++;
> die 'without you' if $apart;
> send $flowers, $diamonds, $presents;
>
> listen our @music, @dance;
> read our @poems => $smile, $laugh;
> study each %other;
> close @hugs ** @kisses;
>
> goto bed;
>
> bed:
> open our @clothes;
> while (<$horny>) {
> join our @bodies;
> sin and sin and sin;
> push @harder => y/esss!!!!!!!// ... glob and glob and glob;
> switch $position;
>
> }
>
> link our @arms, our @legs;
> sleep until not $tired;
> wait for alarm;
> split;
I have to admit that was pretty creative... You could of easily
incorporated some Bondage and Discipline in there with:
use strict;
------------------------------
Date: Thu, 12 Apr 2007 13:42:46 -0500
From: Ignoramus14150 <ignoramus14150@NOSPAM.14150.invalid>
Subject: Re: My script to download YouTube videos (critique wanted)
Message-Id: <csSdnSlOnqE74IPbnZ2dnUVZ_s3inZ2d@giganews.com>
On Thu, 12 Apr 2007 19:27:45 +0200, Michele Dondi <bik.mido@tiscalinet.it> wrote:
> On 12 Apr 2007 08:26:10 -0700, "Octo" <octomancer@blueyonder.co.uk>
> wrote:
>
>>> In addition to what others wrote thus far,
>>>
>>> print STDERR
>>>
>>> is generally spelt
>>>
>>> warn
>>
>>Not quite correct ...
>
> Yes, I understand what you mean. And indeed you're right: they are not
> perfectly equivalent. What I meant, of course, is that to emit
> warnings one generally uses the specialized warn() function, unless
> she has special needs. It doesn't seem to me that the OP has any.
This is not a warning about wrong code or such -- it is just a report
about something that could not be done (because, say, the video is
flagged as adult). Unix generally specifies that this stuff goes to
STDERR, which is excatly what I did.
i
------------------------------
Date: Thu, 12 Apr 2007 13:43:14 -0500
From: Ignoramus14150 <ignoramus14150@NOSPAM.14150.invalid>
Subject: Re: My script to download YouTube videos (critique wanted)
Message-Id: <csSdnShOnqFf4IPbnZ2dnUVZ_s3inZ2d@giganews.com>
On Thu, 12 Apr 2007 19:31:36 +0200, Michele Dondi <bik.mido@tiscalinet.it> wrote:
> On Thu, 12 Apr 2007 11:20:28 -0500, Ignoramus14150
><ignoramus14150@NOSPAM.14150.invalid> wrote:
>
>>I feel like print STDERR does exactly what I want, without the
>>associated bullshit. I will continue to use print STDERR as
>>appropriate.
>
> If you really like that... but... *what* bullshit, anyway?
>
Setting $@, messing with $SIG has, etc.
i
------------------------------
Date: Thu, 12 Apr 2007 12:29:16 -0700
From: Keith Keller <kkeller-usenet@wombat.san-francisco.ca.us>
Subject: Re: My script to download YouTube videos (critique wanted)
Message-Id: <dtd2f4xlst.ln2@goaway.wombat.san-francisco.ca.us>
On 2007-04-12, Ignoramus14150 <ignoramus14150@NOSPAM.14150.invalid> wrote:
>
> This is not a warning about wrong code or such -- it is just a report
> about something that could not be done (because, say, the video is
> flagged as adult). Unix generally specifies that this stuff goes to
> STDERR, which is excatly what I did.
If you choose not to understand, just say so. warn() is in most cases
cleaner and easier to capture downstream, and sends stuff to STDERR.
(Also, warn is 8 characters shorter to type than print STDERR; six if
you need the \n at the end of the string to behave more like print
STDERR.)
--keith
--
kkeller-usenet@wombat.san-francisco.ca.us
(try just my userid to email me)
AOLSFAQ=http://www.therockgarden.ca/aolsfaq.txt
see X- headers for PGP signature information
------------------------------
Date: Thu, 12 Apr 2007 21:32:30 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: My script to download YouTube videos (critique wanted)
Message-Id: <2p1t13p8tiqb2hl94uhtra757ug9m1fagt@4ax.com>
On Thu, 12 Apr 2007 13:43:14 -0500, Ignoramus14150
<ignoramus14150@NOSPAM.14150.invalid> wrote:
>>>I feel like print STDERR does exactly what I want, without the
>>>associated bullshit. I will continue to use print STDERR as
>>>appropriate.
>>
>> If you really like that... but... *what* bullshit, anyway?
>>
>
>Setting $@, messing with $SIG has, etc.
Huh?!? The fact that you *can* do so doesn't mean that you *have* to.
Indeed the vast majority of times I just use warn() as a print() for
warnings, which IMHO is good because it keeps the logical action
clearly marked apart, it only takes four keystrokes and makes for
quite readable code. I don't include the final newline when the
warning is meant for the developer in which case I want the additional
info, and I *do* include it when it's meant for the final user, who
most probably doesn't want to know at which line in the source code
the warning was triggered.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Thu, 12 Apr 2007 21:36:51 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: My script to download YouTube videos (critique wanted)
Message-Id: <jc2t13dk1kp6eevli7bmdmf8h750hqcloi@4ax.com>
On Thu, 12 Apr 2007 13:42:46 -0500, Ignoramus14150
<ignoramus14150@NOSPAM.14150.invalid> wrote:
>> Yes, I understand what you mean. And indeed you're right: they are not
>> perfectly equivalent. What I meant, of course, is that to emit
>> warnings one generally uses the specialized warn() function, unless
>> she has special needs. It doesn't seem to me that the OP has any.
>
>This is not a warning about wrong code or such -- it is just a report
warn() is not limited to those cases.
>about something that could not be done (because, say, the video is
warn() is perfectly well suited for these cases.
>flagged as adult). Unix generally specifies that this stuff goes to
>STDERR, which is excatly what I did.
Yep, so does the output of warn().
kirk:~ [21:35:14]$ perl -le 'print "foo"; warn "bar\n"'
foo
bar
kirk:~ [21:35:39]$ perl -le 'print "foo"; warn "bar\n"' > /dev/null
bar
kirk:~ [21:35:53]$ perl -le 'print "foo"; warn "bar\n"' 2> /dev/null
foo
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: 12 Apr 2007 18:00:33 -0700
From: mmittiga17@gmail.com
Subject: Net::FTPSSL
Message-Id: <1176426033.599651.116120@b75g2000hsg.googlegroups.com>
Does anyone know where Net:FTPSSL looks to for the client cert and
key?
use Net::FTPSSL;
my $ftps = Net::FTPSSL->new('xxx.xxx.xxxx',
Port => 21,
Encryption => 'E',
Debug => 1)
or die "Can't open xxxxxx;
$ftps->login('xxxx', 'xxxxx')
or die "Can't login: ", $ftps->$last_message();
$ftps->cwd("/xxx/outbound") or die "Can't change directory: ", $ftps-
>last_message;
$ftps->get("xxxx_Test.txt") or die "Can't get file: ", $ftps-
>last_message;
$ftps->quit();
SSL connect attempt failed because of handshake problemserror:
14094412:SSL routines:SSL3_READ_BYTES:sslv3 alert bad certificate
I am trying to download a file from a vendor, I have their cert and
key. Net::FTPSSL has no option to use a specific cert and key.
Any help will be appreciated.
Thanks
------------------------------
Date: 12 Apr 2007 16:16:50 -0700
From: usenet@DavidFilmer.com
Subject: Re: Top Turds of comp.lang.perl.misc (2007)
Message-Id: <1176419810.468627.278220@l77g2000hsb.googlegroups.com>
On Apr 12, 10:57 am, Purl Gurl <purlg...@purlgurl.net> wrote:
> My presumption is you insulting meatheads have not noticed this
> discussion group is dying because of you childish troll boys.
>
> http://groups.google.com/group/comp.lang.perl.misc/about?hl=en
Hmmm. So the total number of questions is declining. "Calls to the
helpdesk" are declining. The "helpdesk" must have been doing a good
job of educating the users. I've gotten a good education in this
group with expert advice promptly and freely offered. But I'm getting
better, so I need to ask fewer questions.
If problems were *increasing*, I'd be more concerned.
--
The best way to get a good answer is to ask a good question.
David Filmer (http://DavidFilmer.com)
------------------------------
Date: Thu, 12 Apr 2007 19:45:47 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Top Turds of comp.lang.perl.misc (2007)
Message-Id: <slrnf1tklr.n69.tadmc@tadmc30.august.net>
Purl Gurl <purlgurl@purlgurl.net> wrote:
> My presumption is you insulting meatheads have not noticed this
> discussion group is dying because of you childish troll boys.
>
> http://groups.google.com/group/comp.lang.perl.misc/about?hl=en
Quantity is not related to quality.
There are less posts because the meatheads have already answered
most of the questions.
And because they are so turdish, people hope to find their answer
via Google Groups so that they won't have to suffer the anguish
that comes with a fresh answer to their question.
The decline in traffic is due to greater overall efficiency!
--
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 V11 Issue 329
**************************************
