From victor_mba at yahoo.com  Tue Jul  7 16:01:12 2009
From: victor_mba at yahoo.com (Chyke)
Date: Tue, 7 Jul 2009 16:01:12 -0700 (PDT)
Subject: [sf-perl] Can't locate Frontier/Daemon.pm in @INC
Message-ID: <10592.66025.qm@web83402.mail.sp1.yahoo.com>

I?m looking for a solution to this error message: 
?
Can't locate Frontier/Daemon.pm in @INC
?
?
I?m using Active Perl v5.10.0? on Windows XP SP3
?
Thanks.
Victor


      
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/sanfrancisco-pm/attachments/20090707/dddad244/attachment.html>

From fred at redhotpenguin.com  Tue Jul  7 18:17:24 2009
From: fred at redhotpenguin.com (Fred Moyer)
Date: Tue, 7 Jul 2009 18:17:24 -0700
Subject: [sf-perl] Can't locate Frontier/Daemon.pm in @INC
In-Reply-To: <10592.66025.qm@web83402.mail.sp1.yahoo.com>
References: <10592.66025.qm@web83402.mail.sp1.yahoo.com>
Message-ID: <ad28918e0907071817s343629d2wc7c1c5e9d7873084@mail.gmail.com>

2009/7/7 Chyke <victor_mba at yahoo.com>:
> I?m looking for a solution to this error message:
>
> Can't locate Frontier/Daemon.pm in @INC

1) Did you install this module?

2) Is it in your @INC path?  perl -e 'print @INC'

>
> I?m using Active Perl v5.10.0? on Windows XP SP3
>
>
>
> Thanks.
>
> Victor
>
>
>
> _______________________________________________
> SanFrancisco-pm mailing list
> SanFrancisco-pm at pm.org
> http://mail.pm.org/mailman/listinfo/sanfrancisco-pm
>
>

From doom at kzsu.stanford.edu  Tue Jul  7 19:58:22 2009
From: doom at kzsu.stanford.edu (Joe Brenner)
Date: Tue, 07 Jul 2009 19:58:22 -0700
Subject: [sf-perl] Can't locate Frontier/Daemon.pm in @INC
In-Reply-To: <ad28918e0907071817s343629d2wc7c1c5e9d7873084@mail.gmail.com>
References: <10592.66025.qm@web83402.mail.sp1.yahoo.com>
	<ad28918e0907071817s343629d2wc7c1c5e9d7873084@mail.gmail.com>
Message-ID: <200907080258.n682wMmt078541@kzsu.stanford.edu>

Fred Moyer <fred at redhotpenguin.com> wrote:

> Chyke <victor_mba at yahoo.com>:

> > I'm looking for a solution to this error message:
> >
> > Can't locate Frontier/Daemon.pm in @INC
>
> 1) Did you install this module?
>
> 2) Is it in your @INC path?  perl -e 'print @INC'

This would be a bit better:

  perl -e 'print join "\n", @INC'


From andy at petdance.com  Tue Jul  7 20:00:37 2009
From: andy at petdance.com (Andy Lester)
Date: Tue, 7 Jul 2009 22:00:37 -0500
Subject: [sf-perl] Can't locate Frontier/Daemon.pm in @INC
In-Reply-To: <200907080258.n682wMmt078541@kzsu.stanford.edu>
References: <10592.66025.qm@web83402.mail.sp1.yahoo.com>
	<ad28918e0907071817s343629d2wc7c1c5e9d7873084@mail.gmail.com>
	<200907080258.n682wMmt078541@kzsu.stanford.edu>
Message-ID: <86E6331F-07EC-448C-81FB-0C527314984A@petdance.com>


On Jul 7, 2009, at 9:58 PM, Joe Brenner wrote:

> This would be a bit better:
>
>  perl -e 'print join "\n", @INC'


I love the -l flag:

     perl -le'print for @INC'


xoxo,
Andy

--
Andy Lester => andy at petdance.com => www.theworkinggeek.com => AIM:petdance







From dmakio at yahoo.com  Tue Jul  7 23:29:31 2009
From: dmakio at yahoo.com (Darryl Kaili)
Date: Tue, 7 Jul 2009 23:29:31 -0700 (PDT)
Subject: [sf-perl] Can't locate Frontier/Daemon.pm in @INC
In-Reply-To: <10592.66025.qm@web83402.mail.sp1.yahoo.com>
References: <10592.66025.qm@web83402.mail.sp1.yahoo.com>
Message-ID: <888645.80529.qm@web110208.mail.gq1.yahoo.com>

If you didn't get any help let me know and I'll explain what you need to do.

Darryl




________________________________
From: Chyke <victor_mba at yahoo.com>
To: sanfrancisco-pm at pm.org
Sent: Tuesday, July 7, 2009 4:01:12 PM
Subject: [sf-perl] Can't locate Frontier/Daemon.pm in @INC


I?m looking for a solution to this error message: 
 
Can't locate Frontier/Daemon.pm in @INC
 
 
I?m using Active Perl v5.10.0  on Windows XP SP3
 
Thanks.
Victor


      
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/sanfrancisco-pm/attachments/20090707/a45fe228/attachment.html>

From victor_mba at yahoo.com  Wed Jul  8 08:52:48 2009
From: victor_mba at yahoo.com (Chyke)
Date: Wed, 8 Jul 2009 08:52:48 -0700 (PDT)
Subject: [sf-perl] Can't locate Frontier/Daemon.pm in @INC
In-Reply-To: <ad28918e0907071817s343629d2wc7c1c5e9d7873084@mail.gmail.com>
References: <10592.66025.qm@web83402.mail.sp1.yahoo.com>
	<ad28918e0907071817s343629d2wc7c1c5e9d7873084@mail.gmail.com>
Message-ID: <256833.71748.qm@web83405.mail.sp1.yahoo.com>

It's not in my @INC path.

I have been able to locate this module. I found Forking.pm when I tried to doenload Frntier/Daemon.pm


Do oyou have a link that I can get it from??? Secondly, the instruction says to ust copy the .pm file into my \lib and \site\lib folders.? Is that all I need for it to be successfully installed and recognized?

Thanks.




________________________________
From: Fred Moyer <fred at redhotpenguin.com>
To: San Francisco Perl Mongers User Group <sanfrancisco-pm at pm.org>
Sent: Tuesday, July 7, 2009 6:17:24 PM
Subject: Re: [sf-perl] Can't locate Frontier/Daemon.pm in @INC

2009/7/7 Chyke <victor_mba at yahoo.com>:
> I?m looking for a solution to this error message:
>
> Can't locate Frontier/Daemon.pm in @INC

1) Did you install this module?

2) Is it in your @INC path?? perl -e 'print @INC'

>
> I?m using Active Perl v5.10.0? on Windows XP SP3
>
>
>
> Thanks.
>
> Victor
>
>
>
> _______________________________________________
> SanFrancisco-pm mailing list
> SanFrancisco-pm at pm.org
> http://mail.pm.org/mailman/listinfo/sanfrancisco-pm
>
>
_______________________________________________
SanFrancisco-pm mailing list
SanFrancisco-pm at pm.org
http://mail.pm.org/mailman/listinfo/sanfrancisco-pm



      
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/sanfrancisco-pm/attachments/20090708/40fff19c/attachment.html>

From victor_mba at yahoo.com  Wed Jul  8 08:57:42 2009
From: victor_mba at yahoo.com (Chyke)
Date: Wed, 8 Jul 2009 08:57:42 -0700 (PDT)
Subject: [sf-perl] Can't locate Frontier/Daemon.pm in @INC
In-Reply-To: <888645.80529.qm@web110208.mail.gq1.yahoo.com>
References: <10592.66025.qm@web83402.mail.sp1.yahoo.com>
	<888645.80529.qm@web110208.mail.gq1.yahoo.com>
Message-ID: <676897.37987.qm@web83406.mail.sp1.yahoo.com>

Hi Darryl,
It's not in my @INC path.

I have not been able to locate this module. I found Forking.pm and XPC.pm instead when I tried to download Frontier/Daemon.pm


Do you have a link that I can get it from??? Secondly, the instruction says to just copy the .pm file into my \lib and \site\lib folders.? Is that all I need for it to be successfully installed and recognized?

Thanks.
Victor





________________________________
From: Darryl Kaili <dmakio at yahoo.com>
To: San Francisco Perl Mongers User Group <sanfrancisco-pm at pm.org>
Sent: Tuesday, July 7, 2009 11:29:31 PM
Subject: Re: [sf-perl] Can't locate Frontier/Daemon.pm in @INC


If you didn't get any help let me know and I'll explain what you need to do.

Darryl




________________________________
From: Chyke <victor_mba at yahoo.com>
To: sanfrancisco-pm at pm.org
Sent: Tuesday, July 7, 2009 4:01:12 PM
Subject: [sf-perl] Can't locate Frontier/Daemon.pm in @INC


I?m looking for a solution to this error message: 
?
Can't locate Frontier/Daemon.pm in @INC
?
?
I?m using Active Perl v5.10.0? on Windows XP SP3
?
Thanks.
Victor


      
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/sanfrancisco-pm/attachments/20090708/12655b74/attachment-0001.html>

From dmakio at yahoo.com  Wed Jul  8 10:37:39 2009
From: dmakio at yahoo.com (Darryl Kaili)
Date: Wed, 8 Jul 2009 10:37:39 -0700 (PDT)
Subject: [sf-perl] Can't locate Frontier/Daemon.pm in @INC
In-Reply-To: <676897.37987.qm@web83406.mail.sp1.yahoo.com>
References: <10592.66025.qm@web83402.mail.sp1.yahoo.com>
	<888645.80529.qm@web110208.mail.gq1.yahoo.com>
	<676897.37987.qm@web83406.mail.sp1.yahoo.com>
Message-ID: <840486.13920.qm@web110203.mail.gq1.yahoo.com>

Firstly, why are you concerned with Forking.pm and XPC.pm?

The link shows that there should be no such, in fact no dependencies for the Frontier::Daemon.pm module - yet I don't know what errors or complications you've encountered.  Sometimes it's helpful if you include error messages when asking for help.  

http://deps.cpantesters.org/?module=Frontier::Daemon;perl=latest

You can find if a module has dependencies and a host of other module related information at cpan.org.
 
Secondly, sometimes the module can be plopped into one of the @INC directories and it'll work.  But, If the module has to be compiled then your machine, XP, will need to a compiler to do so.

Here's a link, that I found by simply googling "perl module install xp."

http://www.perlmonks.org/?node_id=325846

If you're new to Perl perlmonks can answer almost any question you will ever have.

I'm new to this mailing list, but I think its use is primarily for resources regarding the SF Perl community AND after a thorough attempt on one's own is conducted and you are simply stumped.  

I found a ton of information by googling.  

You can email me directly if you still have questions.

Darryl




________________________________
From: Chyke <victor_mba at yahoo.com>
To: San Francisco Perl Mongers User Group <sanfrancisco-pm at pm.org>; dmakio at yahoo.com
Sent: Wednesday, July 8, 2009 8:57:42 AM
Subject: Re: [sf-perl] Can't locate Frontier/Daemon.pm in @INC


Hi Darryl,
It's not in my @INC path.
 
I have not been able to locate this module. I found Forking.pm and XPC.pm instead when I tried to download Frontier/Daemon.pm
 
 
Do you have a link that I can get it from?   Secondly, the instruction says to just copy the .pm file into my \lib and \site\lib folders.  Is that all I need for it to be successfully installed and recognized?
 
Thanks.
Victor





________________________________
 From: Darryl Kaili <dmakio at yahoo.com>
To: San Francisco Perl Mongers User Group <sanfrancisco-pm at pm.org>
Sent: Tuesday, July 7, 2009 11:29:31 PM
Subject: Re: [sf-perl] Can't locate Frontier/Daemon.pm in @INC


If you didn't get any help let me know and I'll explain what you need to do.

Darryl




________________________________
 From: Chyke <victor_mba at yahoo.com>
To: sanfrancisco-pm at pm.org
Sent: Tuesday, July 7, 2009 4:01:12 PM
Subject: [sf-perl] Can't locate Frontier/Daemon.pm in @INC


I?m looking for a solution to this error message: 
 
Can't locate Frontier/Daemon.pm in @INC
 
 
I?m using Active Perl v5.10.0  on Windows XP SP3
 
Thanks.
Victor


      
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/sanfrancisco-pm/attachments/20090708/e4952a93/attachment.html>

From not.com at gmail.com  Wed Jul  8 11:06:27 2009
From: not.com at gmail.com (yary)
Date: Wed, 8 Jul 2009 11:06:27 -0700
Subject: [sf-perl] Can't locate Frontier/Daemon.pm in @INC
In-Reply-To: <840486.13920.qm@web110203.mail.gq1.yahoo.com>
References: <10592.66025.qm@web83402.mail.sp1.yahoo.com>
	<888645.80529.qm@web110208.mail.gq1.yahoo.com> 
	<676897.37987.qm@web83406.mail.sp1.yahoo.com>
	<840486.13920.qm@web110203.mail.gq1.yahoo.com>
Message-ID: <75cbfa570907081106l4952af0eje0a3696064ad1361@mail.gmail.com>

Personally I never install perl modules from links, I let cpan or
cpanplus do it for me (or use ActiveState's ppm if using their perl on
windows)

You'll need to have Admin privs on windows if using ppm, if on unix
then you'll need sudo as root or root privs.

$ cpanp
CPANPLUS::Shell::Default -- CPAN exploration and module installation (v0.84)
*** Please report bugs to <bug-cpanplus at rt.cpan.org>.
*** Using CPANPLUS::Backend v0.84.  ReadLine support enabled.

*** Type 'p' now to show start up log

Did you know...
    The documentation in CPANPLUS::Module and CPANPLUS::Backend is very useful

CPAN Terminal>i Frontier::Daemon

might be all that you need

From extasia at extasia.org  Sat Jul 11 14:04:14 2009
From: extasia at extasia.org (David Alban)
Date: Sat, 11 Jul 2009 14:04:14 -0700
Subject: [sf-perl] 406 Not Acceptable
Message-ID: <4c714a9c0907111404m3c7eb3fegc8de0e32bfda0665@mail.gmail.com>

greetings,

i have a "pingurl" program i've been using for years to monitor
websites.  all of a sudden (within the last two days), it's been
alerting me that my site is down (which is not the case).  i suspect
my hosting provider is mucking with their web server software, but am
not sure.

basically, i'm doing:

     75 my $ua = LWP::UserAgent->new( env_proxy  => 1,
     76                               keep_alive => 1,
     77                               timeout    => 30,
     78                             );
     79
     80 my $response = $ua->get( $url );

in the debugger, while at line 80, i see:

       DB<2> x $ua
     0  LWP::UserAgent=HASH(0x9c4ab6c)
        'conn_cache' => LWP::ConnCache=HASH(0x9c4d624)
           'cc_conns' => ARRAY(0x9c773cc)
                empty array
           'cc_limit_total' => 1
        'def_headers' => HTTP::Headers=HASH(0x9c4d564)
           'user-agent' => 'libwww-perl/5.816'
        'handlers' => HASH(0x9c4d6d4)
           'response_header' => HTTP::Config=ARRAY(0x9c4da44)
              0  HASH(0x9c4de64)
                 'callback' => CODE(0x9c4aadc)
                    ->
&LWP::UserAgent::__ANON__[/usr/lib/perl5/vendor_perl/5.10.0/LWP/UserAgent.pm:621]
in /usr/lib/perl5/vendor_perl/5.10.0/LWP/UserAgent.pm:609-621
                 'line' =>
'/usr/lib/perl5/vendor_perl/5.10.0/LWP/UserAgent.pm:622'
                 'm_media_type' => 'html'
                 'owner' => 'LWP::UserAgent::parse_head'
        'max_redirect' => 7
        'max_size' => undef
        'no_proxy' => ARRAY(0x98d5784)
             empty array
        'protocols_allowed' => undef
        'protocols_forbidden' => undef
        'proxy' => HASH(0x9c4d634)
             empty hash
        'requests_redirectable' => ARRAY(0x9c46e3c)
           0  'GET'
           1  'HEAD'
        'show_progress' => undef
        'timeout' => 30
        'use_eval' => 1

getting to line 80 with LWP::Debug debugging on, i see:

     LWP::UserAgent::new: ()
     LWP::UserAgent::request: ()
     LWP::UserAgent::send_request: GET http://extasia.org/
     LWP::Protocol::http::request: ()
     LWP::UserAgent::request: Simple response: Not Acceptable

and then:

       DB<5> x $response
     0  HTTP::Response=HASH(0xa955dc4)
        '_content' => '<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
     <html><head>
     <title>406 Not Acceptable</title>
     </head><body>
     <h1>Not Acceptable</h1>
     <p>An appropriate representation of the requested resource /
could not be found on this server.</p>
     <p>Additionally, a 404 Not Found
     error was encountered while trying to use an ErrorDocument to
handle the request.</p>
     <hr>
     <address>Apache/2.2.11 (Unix) mod_ssl/2.2.11
OpenSSL/0.9.8e-fips-rhel5 mod_auth_passthrough/2.1 mod_bwlimited/1.4
FrontPage/5.0.2.2635 mod_jk/1.2.25 Server at extasia.org Port
80</address>
     </body></html>
     '
        '_headers' => HTTP::Headers=HASH(0xa955db4)
           'client-date' => 'Sat, 11 Jul 2009 20:58:08 GMT'
           'client-peer' => '208.83.209.13:80'
           'client-response-num' => 1
           'connection' => 'close'
           'content-length' => 564
           'content-type' => 'text/html; charset=iso-8859-1'
           'date' => 'Sat, 11 Jul 2009 20:58:03 GMT'
           'server' => 'Apache/2.2.11 (Unix) mod_ssl/2.2.11
OpenSSL/0.9.8e-fips-rhel5 mod_auth_passthrough/2.1 mod_bwlimited/1.4
FrontPage/5.0.2.2635 mod_jk/1.2.25'
           'title' => '406 Not Acceptable'
        '_msg' => 'Not Acceptable'
        '_protocol' => 'HTTP/1.1'
        '_rc' => 406
        '_request' => HTTP::Request=HASH(0xa56ba5c)
           '_content' => ''
           '_headers' => HTTP::Headers=HASH(0xa56ba4c)
              'user-agent' => 'libwww-perl/5.816'
           '_method' => 'GET'
           '_uri' => URI::http=SCALAR(0xa36de84)
              -> 'http://extasia.org/'
           '_uri_canonical' => URI::http=SCALAR(0xa36de84)
              -> REUSED_ADDRESS
        'handlers' => HASH(0xa98ec2c)
           'response_data' => ARRAY(0xa9742ac)
              0  CODE(0xa9743bc)
                 ->
&LWP::UserAgent::__ANON__[/usr/lib/perl5/vendor_perl/5.10.0/LWP/UserAgent.pm:619]
in /usr/lib/perl5/vendor_perl/5.10.0/LWP/UserAgent.pm:616-619
              1  CODE(0xa2c087c)
                 ->
&LWP::Protocol::__ANON__[/usr/lib/perl5/vendor_perl/5.10.0/LWP/Protocol.pm:131]
in /usr/lib/perl5/vendor_perl/5.10.0/LWP/Protocol.pm:128-131

i found http://www.checkupdown.com/status/E406.html and other internet
resources that describe the 406 response, but i'm not sure how to
resolve this problem.  i could easily substitute a system() invocation
of wget for use of LWP (firefox and wget both successfully fetch the
index page of my site), but i want to understand what has broken this
after years of successful use.  do i need to add some type of header
indicating "i'll take whatever wacky content you wanna give me"?

thanks for any assistance,
david
-- 
Live in a world of your own, but always welcome visitors.

From fred at redhotpenguin.com  Sat Jul 11 14:07:22 2009
From: fred at redhotpenguin.com (Fred Moyer)
Date: Sat, 11 Jul 2009 14:07:22 -0700
Subject: [sf-perl] 406 Not Acceptable
In-Reply-To: <4c714a9c0907111404m3c7eb3fegc8de0e32bfda0665@mail.gmail.com>
References: <4c714a9c0907111404m3c7eb3fegc8de0e32bfda0665@mail.gmail.com>
Message-ID: <ad28918e0907111407h240a68eaxf6ed936206f4c615@mail.gmail.com>

Have you tried the latest version of libwww-perl?  Gisle has made some
bugfix releases recently.

I've haven't dissected your code here in detail, but thought I would
mention the updated version, it fixed some recent issues for me.

On Sat, Jul 11, 2009 at 2:04 PM, David Alban<extasia at extasia.org> wrote:
> greetings,
>
> i have a "pingurl" program i've been using for years to monitor
> websites. ?all of a sudden (within the last two days), it's been
> alerting me that my site is down (which is not the case). ?i suspect
> my hosting provider is mucking with their web server software, but am
> not sure.
>
> basically, i'm doing:
>
> ? ? 75 my $ua = LWP::UserAgent->new( env_proxy ?=> 1,
> ? ? 76 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? keep_alive => 1,
> ? ? 77 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? timeout ? ?=> 30,
> ? ? 78 ? ? ? ? ? ? ? ? ? ? ? ? ? ? );
> ? ? 79
> ? ? 80 my $response = $ua->get( $url );
>
> in the debugger, while at line 80, i see:
>
> ? ? ? DB<2> x $ua
> ? ? 0 ?LWP::UserAgent=HASH(0x9c4ab6c)
> ? ? ? ?'conn_cache' => LWP::ConnCache=HASH(0x9c4d624)
> ? ? ? ? ? 'cc_conns' => ARRAY(0x9c773cc)
> ? ? ? ? ? ? ? ?empty array
> ? ? ? ? ? 'cc_limit_total' => 1
> ? ? ? ?'def_headers' => HTTP::Headers=HASH(0x9c4d564)
> ? ? ? ? ? 'user-agent' => 'libwww-perl/5.816'
> ? ? ? ?'handlers' => HASH(0x9c4d6d4)
> ? ? ? ? ? 'response_header' => HTTP::Config=ARRAY(0x9c4da44)
> ? ? ? ? ? ? ?0 ?HASH(0x9c4de64)
> ? ? ? ? ? ? ? ? 'callback' => CODE(0x9c4aadc)
> ? ? ? ? ? ? ? ? ? ?->
> &LWP::UserAgent::__ANON__[/usr/lib/perl5/vendor_perl/5.10.0/LWP/UserAgent.pm:621]
> in /usr/lib/perl5/vendor_perl/5.10.0/LWP/UserAgent.pm:609-621
> ? ? ? ? ? ? ? ? 'line' =>
> '/usr/lib/perl5/vendor_perl/5.10.0/LWP/UserAgent.pm:622'
> ? ? ? ? ? ? ? ? 'm_media_type' => 'html'
> ? ? ? ? ? ? ? ? 'owner' => 'LWP::UserAgent::parse_head'
> ? ? ? ?'max_redirect' => 7
> ? ? ? ?'max_size' => undef
> ? ? ? ?'no_proxy' => ARRAY(0x98d5784)
> ? ? ? ? ? ? empty array
> ? ? ? ?'protocols_allowed' => undef
> ? ? ? ?'protocols_forbidden' => undef
> ? ? ? ?'proxy' => HASH(0x9c4d634)
> ? ? ? ? ? ? empty hash
> ? ? ? ?'requests_redirectable' => ARRAY(0x9c46e3c)
> ? ? ? ? ? 0 ?'GET'
> ? ? ? ? ? 1 ?'HEAD'
> ? ? ? ?'show_progress' => undef
> ? ? ? ?'timeout' => 30
> ? ? ? ?'use_eval' => 1
>
> getting to line 80 with LWP::Debug debugging on, i see:
>
> ? ? LWP::UserAgent::new: ()
> ? ? LWP::UserAgent::request: ()
> ? ? LWP::UserAgent::send_request: GET http://extasia.org/
> ? ? LWP::Protocol::http::request: ()
> ? ? LWP::UserAgent::request: Simple response: Not Acceptable
>
> and then:
>
> ? ? ? DB<5> x $response
> ? ? 0 ?HTTP::Response=HASH(0xa955dc4)
> ? ? ? ?'_content' => '<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
> ? ? <html><head>
> ? ? <title>406 Not Acceptable</title>
> ? ? </head><body>
> ? ? <h1>Not Acceptable</h1>
> ? ? <p>An appropriate representation of the requested resource /
> could not be found on this server.</p>
> ? ? <p>Additionally, a 404 Not Found
> ? ? error was encountered while trying to use an ErrorDocument to
> handle the request.</p>
> ? ? <hr>
> ? ? <address>Apache/2.2.11 (Unix) mod_ssl/2.2.11
> OpenSSL/0.9.8e-fips-rhel5 mod_auth_passthrough/2.1 mod_bwlimited/1.4
> FrontPage/5.0.2.2635 mod_jk/1.2.25 Server at extasia.org Port
> 80</address>
> ? ? </body></html>
> ? ? '
> ? ? ? ?'_headers' => HTTP::Headers=HASH(0xa955db4)
> ? ? ? ? ? 'client-date' => 'Sat, 11 Jul 2009 20:58:08 GMT'
> ? ? ? ? ? 'client-peer' => '208.83.209.13:80'
> ? ? ? ? ? 'client-response-num' => 1
> ? ? ? ? ? 'connection' => 'close'
> ? ? ? ? ? 'content-length' => 564
> ? ? ? ? ? 'content-type' => 'text/html; charset=iso-8859-1'
> ? ? ? ? ? 'date' => 'Sat, 11 Jul 2009 20:58:03 GMT'
> ? ? ? ? ? 'server' => 'Apache/2.2.11 (Unix) mod_ssl/2.2.11
> OpenSSL/0.9.8e-fips-rhel5 mod_auth_passthrough/2.1 mod_bwlimited/1.4
> FrontPage/5.0.2.2635 mod_jk/1.2.25'
> ? ? ? ? ? 'title' => '406 Not Acceptable'
> ? ? ? ?'_msg' => 'Not Acceptable'
> ? ? ? ?'_protocol' => 'HTTP/1.1'
> ? ? ? ?'_rc' => 406
> ? ? ? ?'_request' => HTTP::Request=HASH(0xa56ba5c)
> ? ? ? ? ? '_content' => ''
> ? ? ? ? ? '_headers' => HTTP::Headers=HASH(0xa56ba4c)
> ? ? ? ? ? ? ?'user-agent' => 'libwww-perl/5.816'
> ? ? ? ? ? '_method' => 'GET'
> ? ? ? ? ? '_uri' => URI::http=SCALAR(0xa36de84)
> ? ? ? ? ? ? ?-> 'http://extasia.org/'
> ? ? ? ? ? '_uri_canonical' => URI::http=SCALAR(0xa36de84)
> ? ? ? ? ? ? ?-> REUSED_ADDRESS
> ? ? ? ?'handlers' => HASH(0xa98ec2c)
> ? ? ? ? ? 'response_data' => ARRAY(0xa9742ac)
> ? ? ? ? ? ? ?0 ?CODE(0xa9743bc)
> ? ? ? ? ? ? ? ? ->
> &LWP::UserAgent::__ANON__[/usr/lib/perl5/vendor_perl/5.10.0/LWP/UserAgent.pm:619]
> in /usr/lib/perl5/vendor_perl/5.10.0/LWP/UserAgent.pm:616-619
> ? ? ? ? ? ? ?1 ?CODE(0xa2c087c)
> ? ? ? ? ? ? ? ? ->
> &LWP::Protocol::__ANON__[/usr/lib/perl5/vendor_perl/5.10.0/LWP/Protocol.pm:131]
> in /usr/lib/perl5/vendor_perl/5.10.0/LWP/Protocol.pm:128-131
>
> i found http://www.checkupdown.com/status/E406.html and other internet
> resources that describe the 406 response, but i'm not sure how to
> resolve this problem. ?i could easily substitute a system() invocation
> of wget for use of LWP (firefox and wget both successfully fetch the
> index page of my site), but i want to understand what has broken this
> after years of successful use. ?do i need to add some type of header
> indicating "i'll take whatever wacky content you wanna give me"?
>
> thanks for any assistance,
> david
> --
> Live in a world of your own, but always welcome visitors.
> _______________________________________________
> SanFrancisco-pm mailing list
> SanFrancisco-pm at pm.org
> http://mail.pm.org/mailman/listinfo/sanfrancisco-pm
>

From friedman at highwire.stanford.edu  Sat Jul 11 14:09:26 2009
From: friedman at highwire.stanford.edu (Michael Friedman)
Date: Sat, 11 Jul 2009 14:09:26 -0700
Subject: [sf-perl] 406 Not Acceptable
In-Reply-To: <4c714a9c0907111404m3c7eb3fegc8de0e32bfda0665@mail.gmail.com>
References: <4c714a9c0907111404m3c7eb3fegc8de0e32bfda0665@mail.gmail.com>
Message-ID: <7EA29E7A-C26F-4842-B31F-C18B39380F53@highwire.stanford.edu>

David,

I wonder if they started blocking the user agent 'libwww-perl/5.816'.  
When my company finds someone illegally spidering our sites, if  
they're using an uncommon user agent string, we often block based on  
that, so that others using the same spidering software can't get in.

Try changing your user agent and see if that helps.

-- Mike
______________________________________________________________________________
Mike Friedman | HighWire Press, Stanford Univ | friedman at highwire.stanford.edu

On Jul 11, 2009, at 2:04 PM, David Alban wrote:

> greetings,
>
> i have a "pingurl" program i've been using for years to monitor
> websites.  all of a sudden (within the last two days), it's been
> alerting me that my site is down (which is not the case).  i suspect
> my hosting provider is mucking with their web server software, but am
> not sure.
>
> basically, i'm doing:
>
>     75 my $ua = LWP::UserAgent->new( env_proxy  => 1,
>     76                               keep_alive => 1,
>     77                               timeout    => 30,
>     78                             );
>     79
>     80 my $response = $ua->get( $url );
>
> in the debugger, while at line 80, i see:
>
>       DB<2> x $ua
>     0  LWP::UserAgent=HASH(0x9c4ab6c)
>        'conn_cache' => LWP::ConnCache=HASH(0x9c4d624)
>           'cc_conns' => ARRAY(0x9c773cc)
>                empty array
>           'cc_limit_total' => 1
>        'def_headers' => HTTP::Headers=HASH(0x9c4d564)
>           'user-agent' => 'libwww-perl/5.816'
>        'handlers' => HASH(0x9c4d6d4)
>           'response_header' => HTTP::Config=ARRAY(0x9c4da44)
>              0  HASH(0x9c4de64)
>                 'callback' => CODE(0x9c4aadc)
>                    ->
> &LWP::UserAgent::__ANON__[/usr/lib/perl5/vendor_perl/5.10.0/LWP/ 
> UserAgent.pm:621]
> in /usr/lib/perl5/vendor_perl/5.10.0/LWP/UserAgent.pm:609-621
>                 'line' =>
> '/usr/lib/perl5/vendor_perl/5.10.0/LWP/UserAgent.pm:622'
>                 'm_media_type' => 'html'
>                 'owner' => 'LWP::UserAgent::parse_head'
>        'max_redirect' => 7
>        'max_size' => undef
>        'no_proxy' => ARRAY(0x98d5784)
>             empty array
>        'protocols_allowed' => undef
>        'protocols_forbidden' => undef
>        'proxy' => HASH(0x9c4d634)
>             empty hash
>        'requests_redirectable' => ARRAY(0x9c46e3c)
>           0  'GET'
>           1  'HEAD'
>        'show_progress' => undef
>        'timeout' => 30
>        'use_eval' => 1
>
> getting to line 80 with LWP::Debug debugging on, i see:
>
>     LWP::UserAgent::new: ()
>     LWP::UserAgent::request: ()
>     LWP::UserAgent::send_request: GET http://extasia.org/
>     LWP::Protocol::http::request: ()
>     LWP::UserAgent::request: Simple response: Not Acceptable
>
> and then:
>
>       DB<5> x $response
>     0  HTTP::Response=HASH(0xa955dc4)
>        '_content' => '<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0// 
> EN">
>     <html><head>
>     <title>406 Not Acceptable</title>
>     </head><body>
>     <h1>Not Acceptable</h1>
>     <p>An appropriate representation of the requested resource /
> could not be found on this server.</p>
>     <p>Additionally, a 404 Not Found
>     error was encountered while trying to use an ErrorDocument to
> handle the request.</p>
>     <hr>
>     <address>Apache/2.2.11 (Unix) mod_ssl/2.2.11
> OpenSSL/0.9.8e-fips-rhel5 mod_auth_passthrough/2.1 mod_bwlimited/1.4
> FrontPage/5.0.2.2635 mod_jk/1.2.25 Server at extasia.org Port
> 80</address>
>     </body></html>
>     '
>        '_headers' => HTTP::Headers=HASH(0xa955db4)
>           'client-date' => 'Sat, 11 Jul 2009 20:58:08 GMT'
>           'client-peer' => '208.83.209.13:80'
>           'client-response-num' => 1
>           'connection' => 'close'
>           'content-length' => 564
>           'content-type' => 'text/html; charset=iso-8859-1'
>           'date' => 'Sat, 11 Jul 2009 20:58:03 GMT'
>           'server' => 'Apache/2.2.11 (Unix) mod_ssl/2.2.11
> OpenSSL/0.9.8e-fips-rhel5 mod_auth_passthrough/2.1 mod_bwlimited/1.4
> FrontPage/5.0.2.2635 mod_jk/1.2.25'
>           'title' => '406 Not Acceptable'
>        '_msg' => 'Not Acceptable'
>        '_protocol' => 'HTTP/1.1'
>        '_rc' => 406
>        '_request' => HTTP::Request=HASH(0xa56ba5c)
>           '_content' => ''
>           '_headers' => HTTP::Headers=HASH(0xa56ba4c)
>              'user-agent' => 'libwww-perl/5.816'
>           '_method' => 'GET'
>           '_uri' => URI::http=SCALAR(0xa36de84)
>              -> 'http://extasia.org/'
>           '_uri_canonical' => URI::http=SCALAR(0xa36de84)
>              -> REUSED_ADDRESS
>        'handlers' => HASH(0xa98ec2c)
>           'response_data' => ARRAY(0xa9742ac)
>              0  CODE(0xa9743bc)
>                 ->
> &LWP::UserAgent::__ANON__[/usr/lib/perl5/vendor_perl/5.10.0/LWP/ 
> UserAgent.pm:619]
> in /usr/lib/perl5/vendor_perl/5.10.0/LWP/UserAgent.pm:616-619
>              1  CODE(0xa2c087c)
>                 ->
> &LWP::Protocol::__ANON__[/usr/lib/perl5/vendor_perl/5.10.0/LWP/ 
> Protocol.pm:131]
> in /usr/lib/perl5/vendor_perl/5.10.0/LWP/Protocol.pm:128-131
>
> i found http://www.checkupdown.com/status/E406.html and other internet
> resources that describe the 406 response, but i'm not sure how to
> resolve this problem.  i could easily substitute a system() invocation
> of wget for use of LWP (firefox and wget both successfully fetch the
> index page of my site), but i want to understand what has broken this
> after years of successful use.  do i need to add some type of header
> indicating "i'll take whatever wacky content you wanna give me"?
>
> thanks for any assistance,
> david
> -- 
> Live in a world of your own, but always welcome visitors.
> _______________________________________________
> SanFrancisco-pm mailing list
> SanFrancisco-pm at pm.org
> http://mail.pm.org/mailman/listinfo/sanfrancisco-pm


From extasia at extasia.org  Sat Jul 11 14:10:36 2009
From: extasia at extasia.org (David Alban)
Date: Sat, 11 Jul 2009 14:10:36 -0700
Subject: [sf-perl] 406 Not Acceptable
In-Reply-To: <ad28918e0907111407h240a68eaxf6ed936206f4c615@mail.gmail.com>
References: <4c714a9c0907111404m3c7eb3fegc8de0e32bfda0665@mail.gmail.com>
	<ad28918e0907111407h240a68eaxf6ed936206f4c615@mail.gmail.com>
Message-ID: <4c714a9c0907111410j15b58849ja00fe0d1c1819c13@mail.gmail.com>

thanks fred.  that's certainly an option.  but one of the reasons i
sought to understand what's going on is that it fails only for my own
site (something, again, i think has to do with my provider mucking
around on the server side) but not for other sites. :-)

On Sat, Jul 11, 2009 at 2:07 PM, Fred Moyer<fred at redhotpenguin.com> wrote:
> Have you tried the latest version of libwww-perl? ?Gisle has made some
> bugfix releases recently.
>
> I've haven't dissected your code here in detail, but thought I would
> mention the updated version, it fixed some recent issues for me.

-- 
Live in a world of your own, but always welcome visitors.

From extasia at extasia.org  Sat Jul 11 14:26:46 2009
From: extasia at extasia.org (David Alban)
Date: Sat, 11 Jul 2009 14:26:46 -0700
Subject: [sf-perl] 406 Not Acceptable
In-Reply-To: <7EA29E7A-C26F-4842-B31F-C18B39380F53@highwire.stanford.edu>
References: <4c714a9c0907111404m3c7eb3fegc8de0e32bfda0665@mail.gmail.com>
	<7EA29E7A-C26F-4842-B31F-C18B39380F53@highwire.stanford.edu>
Message-ID: <4c714a9c0907111426y38c396a2s97deef1a6535e74b@mail.gmail.com>

thanks, mike.

it looks as though any agent string i specify is prepended to the
libwww-perl/...  string, and doesn't replace it.

   'def_headers' => HTTP::Headers=HASH(0xa32bf64)
      'user-agent' => 'Firefox/3.0.11 libwww-perl/5.816'

and it still comes back with 406:

      'server' => 'Apache/2.2.11 (Unix) mod_ssl/2.2.11
OpenSSL/0.9.8e-fips-rhel5 mod_auth_passthrough/2.1 mod_bwlimited/1.4
FrontPage/5.0.2.2635 mod_jk/1.2.25'
      'title' => '406 Not Acceptable'
   '_msg' => 'Not Acceptable'
   '_protocol' => 'HTTP/1.1'
   '_rc' => 406


On Sat, Jul 11, 2009 at 2:09 PM, Michael
Friedman<friedman at highwire.stanford.edu> wrote:
> I wonder if they started blocking the user agent 'libwww-perl/5.816'. When
> my company finds someone illegally spidering our sites, if they're using an
> uncommon user agent string, we often block based on that, so that others
> using the same spidering software can't get in.
>
> Try changing your user agent and see if that helps.

-- 
Live in a world of your own, but always welcome visitors.

From friedman at highwire.stanford.edu  Sat Jul 11 22:19:32 2009
From: friedman at highwire.stanford.edu (Michael Friedman)
Date: Sat, 11 Jul 2009 22:19:32 -0700
Subject: [sf-perl] 406 Not Acceptable
In-Reply-To: <4c714a9c0907111426y38c396a2s97deef1a6535e74b@mail.gmail.com>
References: <4c714a9c0907111404m3c7eb3fegc8de0e32bfda0665@mail.gmail.com>
	<7EA29E7A-C26F-4842-B31F-C18B39380F53@highwire.stanford.edu>
	<4c714a9c0907111426y38c396a2s97deef1a6535e74b@mail.gmail.com>
Message-ID: <48F70E08-39BD-4087-9E40-C521D4ADE3E4@highwire.stanford.edu>

Hey, look at this undocumented feature!

 From LWP::UserAgent, every version I could find:

sub _agent       { "libwww-perl/$LWP::VERSION" }

sub agent {
     my $self = shift;
     my $old = $self->{agent};
     if (@_) {
         my $agent = shift;
         $agent .= $self->_agent if $agent && $agent =~ /\s+$/;
         $self->{agent} = $agent;
     }
     $old;
}


Did you perhaps leave a space on the end of your new agent string?
Wow, this looks remarkably annoying. I wonder why the author did that?
It's obviously intentional, as it's been continuously in service from  
at least version 2.36 to 5.829 (the latest).

-- Mike
______________________________________________________________________________
Mike Friedman | HighWire Press, Stanford Univ | friedman at highwire.stanford.edu

On Jul 11, 2009, at 2:26 PM, David Alban wrote:

> thanks, mike.
>
> it looks as though any agent string i specify is prepended to the
> libwww-perl/...  string, and doesn't replace it.
>
>   'def_headers' => HTTP::Headers=HASH(0xa32bf64)
>      'user-agent' => 'Firefox/3.0.11 libwww-perl/5.816'
>
> and it still comes back with 406:
>
>      'server' => 'Apache/2.2.11 (Unix) mod_ssl/2.2.11
> OpenSSL/0.9.8e-fips-rhel5 mod_auth_passthrough/2.1 mod_bwlimited/1.4
> FrontPage/5.0.2.2635 mod_jk/1.2.25'
>      'title' => '406 Not Acceptable'
>   '_msg' => 'Not Acceptable'
>   '_protocol' => 'HTTP/1.1'
>   '_rc' => 406
>
>
> On Sat, Jul 11, 2009 at 2:09 PM, Michael
> Friedman<friedman at highwire.stanford.edu> wrote:
>> I wonder if they started blocking the user agent 'libwww-perl/ 
>> 5.816'. When
>> my company finds someone illegally spidering our sites, if they're  
>> using an
>> uncommon user agent string, we often block based on that, so that  
>> others
>> using the same spidering software can't get in.
>>
>> Try changing your user agent and see if that helps.
>
> -- 
> Live in a world of your own, but always welcome visitors.
> _______________________________________________
> SanFrancisco-pm mailing list
> SanFrancisco-pm at pm.org
> http://mail.pm.org/mailman/listinfo/sanfrancisco-pm


From doom at kzsu.stanford.edu  Mon Jul 13 12:05:49 2009
From: doom at kzsu.stanford.edu (Joe Brenner)
Date: Mon, 13 Jul 2009 12:05:49 -0700
Subject: [sf-perl] Perlmonger at OSCON
Message-ID: <200907131905.n6DJ5npW077669@kzsu.stanford.edu>


We could use some volunteers to help staff the booth at OSCON this
year, on July 22nd and/or 23rd (Wednesday and Thursday), in a little
over a week.

Here's the deal:

  http://obsidianrook.com/sfpm/conventional/oscon_expo_volunteers.html

(1) If you think you can be there at any particular time, please let me
know, but feel free to stop by and hang out.

(2) If you'd like to be one of the few, the proud, with an "Exhibitor"
badge, give me your name ASAP... I'm about to turn in the names.


From fred at redhotpenguin.com  Mon Jul 13 23:29:46 2009
From: fred at redhotpenguin.com (Fred Moyer)
Date: Mon, 13 Jul 2009 23:29:46 -0700
Subject: [sf-perl] Perlmonger at OSCON
In-Reply-To: <200907131905.n6DJ5npW077669@kzsu.stanford.edu>
References: <200907131905.n6DJ5npW077669@kzsu.stanford.edu>
Message-ID: <ad28918e0907132329qbce501dte530a60446df47a2@mail.gmail.com>

List,

If you've never been to OSCON, this is a good way to see part of it
and connect with many of the luminaries that will be there.

I'll be bringing a blender for the booth and will be serving smoothies
to draw people to our booth.  We're still working on the wifi.  If you
can tether an iPhone please ping Joe and I.  We've putting up the
booth with stone knives and bearskins (and iphones and laptops).

On Mon, Jul 13, 2009 at 12:05 PM, Joe Brenner<doom at kzsu.stanford.edu> wrote:
>
> We could use some volunteers to help staff the booth at OSCON this
> year, on July 22nd and/or 23rd (Wednesday and Thursday), in a little
> over a week.
>
> Here's the deal:
>
> ?http://obsidianrook.com/sfpm/conventional/oscon_expo_volunteers.html
>
> (1) If you think you can be there at any particular time, please let me
> know, but feel free to stop by and hang out.
>
> (2) If you'd like to be one of the few, the proud, with an "Exhibitor"
> badge, give me your name ASAP... I'm about to turn in the names.
>
> _______________________________________________
> SanFrancisco-pm mailing list
> SanFrancisco-pm at pm.org
> http://mail.pm.org/mailman/listinfo/sanfrancisco-pm
>

From shalizi at gmail.com  Tue Jul 14 05:20:57 2009
From: shalizi at gmail.com (Ahmad Shalizi)
Date: Tue, 14 Jul 2009 05:20:57 -0700
Subject: [sf-perl] Perlmonger at OSCON
In-Reply-To: <200907131905.n6DJ5npW077669@kzsu.stanford.edu>
References: <200907131905.n6DJ5npW077669@kzsu.stanford.edu>
Message-ID: <7eafa8090907140520j438cd247n9e9a042522b380c2@mail.gmail.com>

Hello,
I'm new to this group and limited perl experience... if you still think you
need some help, I can come on Wed July 22nd

Ahmad:

On Mon, Jul 13, 2009 at 12:05 PM, Joe Brenner <doom at kzsu.stanford.edu>wrote:

>
> We could use some volunteers to help staff the booth at OSCON this
> year, on July 22nd and/or 23rd (Wednesday and Thursday), in a little
> over a week.
>
> Here's the deal:
>
>  http://obsidianrook.com/sfpm/conventional/oscon_expo_volunteers.html
>
> (1) If you think you can be there at any particular time, please let me
> know, but feel free to stop by and hang out.
>
> (2) If you'd like to be one of the few, the proud, with an "Exhibitor"
> badge, give me your name ASAP... I'm about to turn in the names.
>
> _______________________________________________
> SanFrancisco-pm mailing list
> SanFrancisco-pm at pm.org
> http://mail.pm.org/mailman/listinfo/sanfrancisco-pm
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/sanfrancisco-pm/attachments/20090714/4c64d33f/attachment.html>

From hartzell at alerce.com  Tue Jul 14 09:10:58 2009
From: hartzell at alerce.com (George Hartzell)
Date: Tue, 14 Jul 2009 09:10:58 -0700
Subject: [sf-perl] Is there a July meeting scheduled yet?
Message-ID: <19036.44562.775559.648334@already.dhcp.gene.com>


Hi all,

I'm new to the mailing list and would like to start attending
meetings.  There doesn't seem to be one listed yet on the web site.

Is there something scheduled?

Thanks,

g.

From doom at kzsu.stanford.edu  Tue Jul 14 09:56:18 2009
From: doom at kzsu.stanford.edu (Joe Brenner)
Date: Tue, 14 Jul 2009 09:56:18 -0700
Subject: [sf-perl] Is there a July meeting scheduled yet?
In-Reply-To: <19036.44562.775559.648334@already.dhcp.gene.com>
References: <19036.44562.775559.648334@already.dhcp.gene.com>
Message-ID: <200907141656.n6EGuIkF094825@kzsu.stanford.edu>


George Hartzell <hartzell at alerce.com> wrote:

> I'm new to the mailing list and would like to start attending
> meetings.  There doesn't seem to be one listed yet on the web site.
>
> Is there something scheduled?

Yes, there is!  This is up to date:

  http://www.meetup.com/San-Francisco-Perl-Mongers/calendar/9997842/

(It looks like we're lagging on updating sf.pm.org... sorry about
that.)


From bob.goolsby at gmail.com  Tue Jul 14 10:09:48 2009
From: bob.goolsby at gmail.com (Bob goolsby)
Date: Tue, 14 Jul 2009 10:09:48 -0700
Subject: [sf-perl] Perlmonger at OSCON
In-Reply-To: <7eafa8090907140520j438cd247n9e9a042522b380c2@mail.gmail.com>
References: <200907131905.n6DJ5npW077669@kzsu.stanford.edu>
	<7eafa8090907140520j438cd247n9e9a042522b380c2@mail.gmail.com>
Message-ID: <1a208dd0907141009r18e85ae4s436d041f9e6f09f8@mail.gmail.com>

I haven't looked hard at the conference schedule, yet, so I don't know
whether there are going to be any dead-spots.  If there are, I can
wander over and be a booth-boy.....


B

2009/7/14 Ahmad Shalizi <shalizi at gmail.com>:
> Hello,
> I'm new to this group and limited perl experience... if you still think you
> need some help, I can come on Wed July 22nd
>
> Ahmad:
>
> On Mon, Jul 13, 2009 at 12:05 PM, Joe Brenner <doom at kzsu.stanford.edu>
> wrote:
>>
>> We could use some volunteers to help staff the booth at OSCON this
>> year, on July 22nd and/or 23rd (Wednesday and Thursday), in a little
>> over a week.
>>
>> Here's the deal:
>>
>> ?http://obsidianrook.com/sfpm/conventional/oscon_expo_volunteers.html
>>
>> (1) If you think you can be there at any particular time, please let me
>> know, but feel free to stop by and hang out.
>>
>> (2) If you'd like to be one of the few, the proud, with an "Exhibitor"
>> badge, give me your name ASAP... I'm about to turn in the names.
>>
>> _______________________________________________
>> SanFrancisco-pm mailing list
>> SanFrancisco-pm at pm.org
>> http://mail.pm.org/mailman/listinfo/sanfrancisco-pm
>
>
> _______________________________________________
> SanFrancisco-pm mailing list
> SanFrancisco-pm at pm.org
> http://mail.pm.org/mailman/listinfo/sanfrancisco-pm
>
>

From fred at redhotpenguin.com  Tue Jul 14 13:42:31 2009
From: fred at redhotpenguin.com (Fred Moyer)
Date: Tue, 14 Jul 2009 13:42:31 -0700
Subject: [sf-perl] Is there a July meeting scheduled yet?
In-Reply-To: <200907141656.n6EGuIkF094825@kzsu.stanford.edu>
References: <19036.44562.775559.648334@already.dhcp.gene.com>
	<200907141656.n6EGuIkF094825@kzsu.stanford.edu>
Message-ID: <ad28918e0907141342h642fdc70g6895c45db5ea8b40@mail.gmail.com>

On Tue, Jul 14, 2009 at 9:56 AM, Joe Brenner<doom at kzsu.stanford.edu> wrote:
>
> George Hartzell <hartzell at alerce.com> wrote:
>
>> I'm new to the mailing list and would like to start attending
>> meetings. ?There doesn't seem to be one listed yet on the web site.
>>
>> Is there something scheduled?
>
> Yes, there is! ?This is up to date:
>
> ?http://www.meetup.com/San-Francisco-Perl-Mongers/calendar/9997842/
>
> (It looks like we're lagging on updating sf.pm.org... sorry about
> that.)

Sorry for the delay, I usually try to get the announcement out a week
after the last meeting.

Just posted it using App::PM::Announce to the following channels:

http://sf.pm.org/weblog/

http://www.meetup.com/San-Francisco-Perl-Mongers/calendar/9997842/

http://use.perl.org/~Phred/journal/39289

http://www.linkedin.com/groupAnswers?viewQuestionAndAnswers=&gid=932197&discussionID=5120515&goback=.anh_932197

From fred at redhotpenguin.com  Tue Jul 14 14:03:03 2009
From: fred at redhotpenguin.com (Fred Moyer)
Date: Tue, 14 Jul 2009 14:03:03 -0700
Subject: [sf-perl] Perlmonger at OSCON
In-Reply-To: <200907131905.n6DJ5npW077669@kzsu.stanford.edu>
References: <200907131905.n6DJ5npW077669@kzsu.stanford.edu>
Message-ID: <ad28918e0907141403r32b448b0id6be3d5df30f57d1@mail.gmail.com>

On Mon, Jul 13, 2009 at 12:05 PM, Joe Brenner<doom at kzsu.stanford.edu> wrote:
>
> We could use some volunteers to help staff the booth at OSCON this
> year, on July 22nd and/or 23rd (Wednesday and Thursday), in a little
> over a week.
>
> Here's the deal:
>
> ?http://obsidianrook.com/sfpm/conventional/oscon_expo_volunteers.html

Just syndicated this using App::PM::Announce on the following
channels.  If you can help with the booth please RSVP at Meetup.com.

http://www.meetup.com/San-Francisco-Perl-Mongers/calendar/10876471/

http://use.perl.org/~Phred/journal/39290

http://sf.pm.org

http://www.linkedin.com/groupAnswers?viewQuestionAndAnswers=&gid=932197&discussionID=5121565&goback=.anh_932197


>
> (1) If you think you can be there at any particular time, please let me
> know, but feel free to stop by and hang out.
>
> (2) If you'd like to be one of the few, the proud, with an "Exhibitor"
> badge, give me your name ASAP... I'm about to turn in the names.
>
> _______________________________________________
> SanFrancisco-pm mailing list
> SanFrancisco-pm at pm.org
> http://mail.pm.org/mailman/listinfo/sanfrancisco-pm
>

From not.com at gmail.com  Tue Jul 14 14:07:49 2009
From: not.com at gmail.com (yary)
Date: Tue, 14 Jul 2009 14:07:49 -0700
Subject: [sf-perl] Perlmonger at OSCON
In-Reply-To: <ad28918e0907141403r32b448b0id6be3d5df30f57d1@mail.gmail.com>
References: <200907131905.n6DJ5npW077669@kzsu.stanford.edu> 
	<ad28918e0907141403r32b448b0id6be3d5df30f57d1@mail.gmail.com>
Message-ID: <75cbfa570907141407r7d286eb1u9815c88be61fe09@mail.gmail.com>

On Tue, Jul 14, 2009 at 2:03 PM, Fred Moyer<fred at redhotpenguin.com> wrote:
> http://sf.pm.org

while you're updating things, how about changing the link on the
sf.pm.org homepage "We've got a group area on upcoming.org! " to our
meetup site?

Also the link at the bottom, to the other sfpug.org, now seems to be
Asian spam? http://www.sfpug.org/

From mct at toren.net  Tue Jul 14 14:20:39 2009
From: mct at toren.net (Michael C. Toren)
Date: Tue, 14 Jul 2009 14:20:39 -0700
Subject: [sf-perl] 406 Not Acceptable
In-Reply-To: <48F70E08-39BD-4087-9E40-C521D4ADE3E4@highwire.stanford.edu>
References: <4c714a9c0907111404m3c7eb3fegc8de0e32bfda0665@mail.gmail.com>
	<7EA29E7A-C26F-4842-B31F-C18B39380F53@highwire.stanford.edu>
	<4c714a9c0907111426y38c396a2s97deef1a6535e74b@mail.gmail.com>
	<48F70E08-39BD-4087-9E40-C521D4ADE3E4@highwire.stanford.edu>
Message-ID: <20090714212038.GB5530@entropia.netisland.net>

On Sat, Jul 11, 2009 at 10:19:32PM -0700, Michael Friedman wrote:
> Hey, look at this undocumented feature!

[..]

> Wow, this looks remarkably annoying. I wonder why the author did that?
> It's obviously intentional, as it's been continuously in service from  
> at least version 2.36 to 5.829 (the latest).

It's not only documented, it's remarkably handy.  I can quickly set my
User-Agent to the string "foobot/$VERSION ", which lets me announce not
only the version of my bot, but also the version of LWP it's pulling in.
The documentation from 5.805 (the version that happens to be installed
on the system I'm sending mail from) says:

    $ua->agent( $product_id )

    [...]

	If the $product_id ends with space then the _agent() string is
	appended to it.

and gives the example:

    $ua->agent('Checkbot/0.4 ' . $ua->_agent);
    $ua->agent('Checkbot/0.4 ');    # same as above

-mct

From friedman at highwire.stanford.edu  Tue Jul 14 16:17:04 2009
From: friedman at highwire.stanford.edu (Michael Friedman)
Date: Tue, 14 Jul 2009 16:17:04 -0700
Subject: [sf-perl] 406 Not Acceptable
In-Reply-To: <20090714212038.GB5530@entropia.netisland.net>
References: <4c714a9c0907111404m3c7eb3fegc8de0e32bfda0665@mail.gmail.com>
	<7EA29E7A-C26F-4842-B31F-C18B39380F53@highwire.stanford.edu>
	<4c714a9c0907111426y38c396a2s97deef1a6535e74b@mail.gmail.com>
	<48F70E08-39BD-4087-9E40-C521D4ADE3E4@highwire.stanford.edu>
	<20090714212038.GB5530@entropia.netisland.net>
Message-ID: <73AB2AC9-BE0B-4DE9-AD4F-E055D5534278@highwire.stanford.edu>

mct,

Aha. Thanks for pointing that out. I've got a very old copy of the  
documentation here, but mostly I just couldn't imagine a desire for  
that behavior. I suppose it makes more sense when you're sharing your  
web-enabled client via CPAN and it can be used with a hundred  
different versions of LWP. You'd want to know which version so you  
could debug problems.

-- Mike
______________________________________________________________________________
Mike Friedman | HighWire Press, Stanford Univ | friedman at highwire.stanford.edu

On Jul 14, 2009, at 2:20 PM, Michael C. Toren wrote:

> On Sat, Jul 11, 2009 at 10:19:32PM -0700, Michael Friedman wrote:
>> Hey, look at this undocumented feature!
>
> [..]
>
>> Wow, this looks remarkably annoying. I wonder why the author did  
>> that?
>> It's obviously intentional, as it's been continuously in service from
>> at least version 2.36 to 5.829 (the latest).
>
> It's not only documented, it's remarkably handy.  I can quickly set my
> User-Agent to the string "foobot/$VERSION ", which lets me announce  
> not
> only the version of my bot, but also the version of LWP it's pulling  
> in.
> The documentation from 5.805 (the version that happens to be installed
> on the system I'm sending mail from) says:
>
>    $ua->agent( $product_id )
>
>    [...]
>
> 	If the $product_id ends with space then the _agent() string is
> 	appended to it.
>
> and gives the example:
>
>    $ua->agent('Checkbot/0.4 ' . $ua->_agent);
>    $ua->agent('Checkbot/0.4 ');    # same as above
>
> -mct
> _______________________________________________
> SanFrancisco-pm mailing list
> SanFrancisco-pm at pm.org
> http://mail.pm.org/mailman/listinfo/sanfrancisco-pm


From rdm at cfcl.com  Fri Jul 17 12:14:23 2009
From: rdm at cfcl.com (Rich Morin)
Date: Fri, 17 Jul 2009 12:14:23 -0700
Subject: [sf-perl] Dinner Run on Thursday
Message-ID: <p0623091ec6867d8b44e0@[192.168.1.205]>

Vicki Brown, Chris Nandor, and I will be doing a dinner run on
Thursday evening, within easy walking distance from OSCON.  If
you want to join us, send me a note (at least a day before!).

-r
-- 
http://www.cfcl.com/rdm            Rich Morin
http://www.cfcl.com/rdm/resume     rdm at cfcl.com
http://www.cfcl.com/rdm/weblog     +1 650-873-7841

Technical editing and writing, programming, and web development

From sfpug at dave.sharnoff.org  Sat Jul 18 01:18:07 2009
From: sfpug at dave.sharnoff.org (David Muir Sharnoff)
Date: Sat, 18 Jul 2009 01:18:07 -0700 (PDT)
Subject: [sf-perl] Help with naming modules
Message-ID: <20090718081807.47153C04C5767@sh.day.org>

I hope to soon open source a bunch of modules and commands.   I need
help naming them.  I developed them for Searchme, Inc, and they are all
currently in the SearchMe:: namespace, but I they should all be moved
out of the SearchMe namespace.

Please propose new names for my modules.  I need to choose the
new names in the next few days.  I also need to choose how to break
this up into distributions.

Thanks,

-Dave

Here's the list:

program: process_logs

	A distributed log processing system.  Working from a configuration
	that desribes the steps and their dependencies, it runs the runs
	the steps using a cluster of systems.  Each step can consist of
	the following parts:
	
	The sources of the data
	A filter (perl snippet) to choose which data to process.
	A grouping function to choose how much data to process at once.
	A transformation step to massage the data.
	The output format.
	How to bucketize the output data and into how many buckets.
	How to sort the output data.
	How to name the output data.
	How often to run this step (on daily, weekly, etc data)
	The start time (date) for which the step is valid (eg: 'last week')
	The end time (date) for which the step is valid (eg: 'yesterday')

program: test_log_configs

	A program to run sample data through particular steps defined
	by a process_logs configuration file.  Outputs Test Anything Protocol.

program: grab_data

	Re-assemble bucketized data files generated by process_logs

program: ltsv_to_tsv
	
	Convert bucketized multi-format data files from process_logs into
	standard TSVs

program: ltsv_samples

	Pull sample data from multi-format data files from process_logs into

program: ltsv_column_unique_counts

	Count number of unique values per column in the multi-format data 
	files from process_logs into

SearchMe::Log::Jobs

	The main driver for the process_logs program.  It figures out the
	time and job dependencies and queues all the jobs into a 
	SearchMe::JobQueue::DependencyQueue.

SearchMe::JobQueue

	Generic queue of "jobs".   Most likely to be subclassed
	for different situations.  Jobs are registered.  Hosts are
	registered.  Jobs may or may not be tied to particular hosts.
	Jobs are started on hosts when the hosts have less than their
	maximum number of jobs running.

SearchMe::JobQueue::DependencyGraph
	
	Maintain a dependency graph of objects.  This does not depend
	on SearchMe::JobQueue though it is used in combination with it
	in SearchMe::DependencyQueue.

SearchMe::JobQueue::DependencyQueue

	Combines SearchMe::JobQueue, SearchMe::JobQueue::DependencyGraph,
	and SearchMe::JobQueue::DependencyTask to make a queue of jobs
	that is run as their dependencies are met.  Jobs are started by
	calling perl callbacks.

SearchMe::JobQueue::Job

	Base class of the jobs managed by SearchMe::JobQueue.

SearchMe::JobQueue::DependencyJob
	
	Subclass of SearchMe::JobQueue::Job for use with 
	SearchMe::JobQueue::DependencyQueue

SearchMe::JobQueue::DependencyTask

	Lighter than a job, a task is a callback.  It doesn't get 
	scheduled, it simply runs when it can.  Used with
	SearchMe::JobQueue::DependencyQueue

SearchMe::JobQueue::BackgroundQueue

	A job queue of jobs that are run using Proc::Background.

SearchMe::JobQueue::Command

	A command line job for SearchMe::JobQueue::BackgroundQueue.  Runs
	any unix command.

SearchMe::JobQueue::Sort

	A command line job that sorts files.
	
SearchMe::JobQueue::Move
	
	A command line job that moves files, possibly remotely.

SearchMe::JobQueue::Sequence

	A compound job that is actually a sequence of jobs.

SearchMe::JobQueue::RemoteDependencyJob
	
	A remote perl callback job, using SearchMe::Misc::RemoteJob

SearchMe::Misc::RemoteJob

	Make a RPC call to a remote system.  It will start perl on the
	remote system.  Asynchronous.  Requires IO::Event.  For use when
	farming work out from a central point.  The remote job communicates
	sychrounously, but the master is asychrounous.

SearchMe::Misc::RemoteJob::MasterCall

	Make a callback to the master system from a remote job started
	with SearchMe::Misc::RemoteJob.

SearchMe::Log::TSV
	
	The ltsv (log TSV) format used for most log processing jobs.
	The set of columns is discovered as the logs are written.

SearchMe::Log::Raw

	The writer and parser for raw data files.

SearchMe::Log::Writers
	
	Base clase for data writing modules.

SearchMe::Log::Paths

	Translate path specifications into filenames.  Generates
	regular expressions to understand names of existing data files.

SearchMe::Log::Numbers
	
	Force return values to be integer or float.

SearchMe::Log::Aggregate

	Streming generic data aggregation.  Based on a configuration,
	it generates perl code to aggregate a stream of input data.  It
	can do nested aggregations (eg: urls, hosts, & domains) and 
	can do cross-product aggregations (domains x time-of-day).  For
	nested aggregations, the input must be sorted.

	Has built-in functions support for min, max, mean, median, 
	standard deviation, etc.  Also supports custom code.  Can limit
	memory use.

SearchMe::Aggregation::Stats
	
	A few statistics functions: standard_deviation, percentile,
	dominant, etc.  All operate on 
	$SearchMe::Aggregation::Stats::ps->{keep}{$fieldname} so that
	SearchMe::Log::Aggregate can have rules like:
		p90_foo: percentile(foo => 90)

SearchMe::Log::Metadata

	For SearchMe::Log::Jobs metadata, compresses the data 
	structures by joining duplicates together.

SearchMe::Log::Parsers

	Base class for data reading modules.

SearchMe::Log::CountryNames

	Country code to name and region table.

SearchMe::Log::Trim
	
	Trim strings to length and make sure they're properly encoded
	for inserting into a fixed-length database column.  Will limit by
	bytes even though there might be multi-byte characters in the
	string.

SearchMe::Log::Durations
	
	Parse durations and frequency like: "daily", "last week",
	"4th wednesday of each month"

SearchMe::Log::ConfigCheck
	
	Validate SearchMe::Log::Jobs configuration files.

SearchMe::Log::Task

	Run SearchMe::Log::Jobs steps, usally on a remote system.
	
SearchMe::Log::Misc

	Misc support funcs for SearchMe::Log::Jobs.

SearchMe::Log::Sql

	Insert data strems into a database.  Will do safe interpolation 
	into the query and can apply updates condititionally.

SearchMe::Log::CountryCode

	Translate IP addresses to country codes using a dump of data
	from http://software77.net/geo-ip/
	
SearchMe::YAML

	Light wrapper around YAML::Syck to improve error reporting.

SearchMe::Iterator
	
	A simple iterator function, from David Wheeler, but
	now looks like a filehandle too.  

SearchMe::POD2Twiki

	Translate POD to twiki format and upload it into a twiki.
	Flawed since Pod::Simple::Wiki doesn't manage a very good
	translation.  Uses WWW::TWikiClient.

SearchMe::IO::Event::Callback

	Callback API for IO::Event.  This can be IO::Event::Callback
	and be added to the IO::Event distribution.

SearchMe::Misc::SmartOpen

	Open files locally or remotely, with or without compression
	based on the name of the file.

SearchMe::Slurp
	
	Like File::Slurp, but reads & writes remote files using ssh/scp
	via SearchMe::Misc::SmartOpen.

SearchMe::Misc::RemoteKiller

	Remeber local and remote process ids.  On receipt of a
	control-C, try to kill them all.

SearchMe::Misc::MergeSort

	Merge multiple input streams (SearchMe::Iterator's) using a
	sort function to produce a single output stream.  Can handle
	large numbers of streams with only log N performance degradation.
	Still not fast enough.

SearchMe::Misc::Random

	Call srand() 

SearchMe::Misc::RunCommands

	Run multiple commands and process their output in parallel.

SearchMe::Misc::TieFunc

	Simple API for tie'ing functions to hashes.  A whole bunch 
	of useful examples like 

		%q_shell for quoting things safely for /bin/sh
		%round for rounding numbers
		%q_perl for quoting things safely for perl
		%thoucomma for adding commas to large numbers

SearchMe::Misc::Hostname
	
	Figure out hostnames the hard way: `ssh $host hostname` for
	when DNS doesn't work right and you can't have aliases.

SearchMe::Misc::List

	Things that should have been in Util::List like:
		
		do_sublist( &selector, &callback, @list )
		keys_to_regex(@list)
		list2text(@list)

SearchMe::Misc::Misc
	
	Misc support functions: 
		Add line numbers to eval blocks.
		Detailed list comparision
		Find differences in ordering

SearchMe::Config2
	
	Enhanced YAML-format configuration files.  Allows includes
	and macros.

SearchMe::Config2::Checker
	
	Configuration file validator.  Describe the allowed configuration
	in perl struct (embedded YAML) and compare to the 
	configuration supplied (another perl struct).

program: tsv

	A Tab Separated Value slicer/dicer.  All simple stuff, but handy
	when working with tsvs.  Can search them, cut them (by column name),
	rotate them, etc.

program: do.hosts

	Run commands across a cluster of systems.  Can run run N per host, 
	can run locally (rsync) or remotely.  Can limit the number simultaneous.
	Can prefix output with the hostname, or not.

program: rkill

	Given output of the form, "hostname: PID junk" as produced by
	running do.hosts ps x | grep, go kill all the processes on their
	hosts.
	
program: cronjob_wrapper

	Run a command.  Save the output.  Send email only if the command 
	exits non-zero.

program: pods2htmls
	
	Generate HMTL documentaion for all the pod documentation that
	can be found in a source tree.   Uses Pod::Html to do the work.

SearchMe::Features::Subprocess

	Stream inputs through multiple slave process, resending
	items that get dropped and recovering from hung or crashed
	slave processes.  Not connected to the log processing system,
	but dependent on some of the same modules.


From david.wheeler at pgexperts.com  Sat Jul 18 09:08:59 2009
From: david.wheeler at pgexperts.com (David E. Wheeler)
Date: Sat, 18 Jul 2009 09:08:59 -0700
Subject: [sf-perl] Help with naming modules
In-Reply-To: <20090718081807.47153C04C5767@sh.day.org>
References: <20090718081807.47153C04C5767@sh.day.org>
Message-ID: <F133DCBD-3A1F-45B1-8C79-B6FE4235CAF8@pgexperts.com>

On Jul 18, 2009, at 1:18 AM, David Muir Sharnoff wrote:

> I hope to soon open source a bunch of modules and commands.   I need
> help naming them.  I developed them for Searchme, Inc, and they are  
> all
> currently in the SearchMe:: namespace, but I they should all be moved
> out of the SearchMe namespace.

Why is that?

Best,

David

From sharnoff at gmail.com  Sat Jul 18 10:04:26 2009
From: sharnoff at gmail.com (David Muir Sharnoff)
Date: Sat, 18 Jul 2009 10:04:26 -0700
Subject: [sf-perl] Help with naming modules
In-Reply-To: <F133DCBD-3A1F-45B1-8C79-B6FE4235CAF8@pgexperts.com>
References: <20090718081807.47153C04C5767@sh.day.org>
	<F133DCBD-3A1F-45B1-8C79-B6FE4235CAF8@pgexperts.com>
Message-ID: <23bf65b80907181004h39a13fe9q9600923431819e78@mail.gmail.com>

They need to be renamed because that is the preference of Searchme and
because the modules don't really have anything to do with Searchme.
They're general purpose.  The modules that are more specific to
Searchme's business are not being open-sourced.

-Dave

On Sat, Jul 18, 2009 at 9:08 AM, David E.
Wheeler<david.wheeler at pgexperts.com> wrote:
> On Jul 18, 2009, at 1:18 AM, David Muir Sharnoff wrote:
>
>> I hope to soon open source a bunch of modules and commands. ? I need
>> help naming them. ?I developed them for Searchme, Inc, and they are all
>> currently in the SearchMe:: namespace, but I they should all be moved
>> out of the SearchMe namespace.
>
> Why is that?
>
> Best,
>
> David
>
>

From doom at kzsu.stanford.edu  Tue Jul 21 06:14:02 2009
From: doom at kzsu.stanford.edu (Joe Brenner)
Date: Tue, 21 Jul 2009 06:14:02 -0700
Subject: [sf-perl] Perlmonger at OSCON
In-Reply-To: <1a208dd0907141009r18e85ae4s436d041f9e6f09f8@mail.gmail.com>
References: <200907131905.n6DJ5npW077669@kzsu.stanford.edu>
	<7eafa8090907140520j438cd247n9e9a042522b380c2@mail.gmail.com>
	<1a208dd0907141009r18e85ae4s436d041f9e6f09f8@mail.gmail.com>
Message-ID: <200907211314.n6LDE2VP013679@kzsu.stanford.edu>


Bob goolsby <bob.goolsby at gmail.com> wrote:

> I haven't looked hard at the conference schedule, yet, so I don't know
> whether there are going to be any dead-spots.  If there are, I can
> wander over and be a booth-boy.....

Hey Bob... just FYI, it looks like our coverage is a little lighter on
Thursday than on Wednesday.  Be glad to have you any time you felt like
coming by.


From bob.goolsby at gmail.com  Tue Jul 21 13:49:02 2009
From: bob.goolsby at gmail.com (Bob goolsby)
Date: Tue, 21 Jul 2009 13:49:02 -0700
Subject: [sf-perl] Perlmonger at OSCON
In-Reply-To: <200907211314.n6LDE2VP013679@kzsu.stanford.edu>
References: <200907131905.n6DJ5npW077669@kzsu.stanford.edu>
	<7eafa8090907140520j438cd247n9e9a042522b380c2@mail.gmail.com>
	<1a208dd0907141009r18e85ae4s436d041f9e6f09f8@mail.gmail.com>
	<200907211314.n6LDE2VP013679@kzsu.stanford.edu>
Message-ID: <1a208dd0907211349oeb932d2q5a292eb669d140ad@mail.gmail.com>

I'll see what I can arrange.

B

On Tue, Jul 21, 2009 at 6:14 AM, Joe Brenner<doom at kzsu.stanford.edu> wrote:
>
> Bob goolsby <bob.goolsby at gmail.com> wrote:
>
>> I haven't looked hard at the conference schedule, yet, so I don't know
>> whether there are going to be any dead-spots. ?If there are, I can
>> wander over and be a booth-boy.....
>
> Hey Bob... just FYI, it looks like our coverage is a little lighter on
> Thursday than on Wednesday. ?Be glad to have you any time you felt like
> coming by.
>
> _______________________________________________
> SanFrancisco-pm mailing list
> SanFrancisco-pm at pm.org
> http://mail.pm.org/mailman/listinfo/sanfrancisco-pm
>

From fred at redhotpenguin.com  Wed Jul 22 13:59:35 2009
From: fred at redhotpenguin.com (Fred Moyer)
Date: Wed, 22 Jul 2009 13:59:35 -0700
Subject: [sf-perl] Meeting next week, reminder
Message-ID: <ad28918e0907221359q4ef37619tcd80722350400e92@mail.gmail.com>

Our next meeting is next Tuesday the 28th at 7pm, please register on
the meetup site.

Catalyst expert Dan Dascalescu will be returning to give a talk on the
Catalyst based Mojo wiki application. Post OSCON wrapup will take
place after.

http://mojomojo.org/

http://www.meetup.com/San-Francisco-Perl-Mongers/calendar/9997842/

If you're at OSCON, stop by the SF.pm booth!

From loopeter at yahoo.com  Thu Jul 23 15:06:47 2009
From: loopeter at yahoo.com (Peter Loo)
Date: Thu, 23 Jul 2009 15:06:47 -0700 (PDT)
Subject: [sf-perl] MIME::Lite
Message-ID: <256286.86138.qm@web32907.mail.mud.yahoo.com>

Hello All,
?
The Sun OS server that I am currently developing on has MIME::Lite 3.01 installed on it.? I have search all over the Internet for a sample code that shows a way to mail an Excel file as an attached file.? I found a few sample codes and they all successfully send the test files (*.pdf, *.xls, *.txt, *.pl, *.jpg, *.gif, *.zip) to my Exchange email account, however, when I attempt to open these files, not one will open successfully.? For example, the JPG and GIF files show no image.? The .pl file shows as binary un-readable view.? The Excel file spits out the error (This file is not in a recognizable format.).? The PDF file reports (Adobe Reader could not open 'Review.pdf' because it is either not a supported file type or because the file has been damaged.)
?
I FTPed to the server and downloaded the files to my PC and was able to open all the files successfully but through MIME::Lite, I can't.
?
I have changed the settings around in program but no luck.? Will you kindly look at the code and advise as to what I might be doing wrong?
?
Here is my sample program:
?
#!/usr/bin/perl
?
? use MIME::Lite;
?
? #my $fileName = "debug_20090302.xls";
? #my $fileName = "Review.pdf";
? #my $fileName = "APR_09_DUAL_OP_CK.xls";
? #my $fileName = "LG_enV_Touch_lowres_270x191.jpg";
? #my $fileName = "p.pl";
? my $fileName = "stravinsky09.gif";
? my $datDir = "/the/path/to/my/file";
? my $msg = "My message goes here";
? my $body = "Your reprot is attached herewith.";
? my $message = MIME::Lite->new( From???? => 'someone at domain.com',
???????????????????????????????? To?????? => 'someone_else at some_other_domain.com',
???????????????????????????????? Subject? => $msg,
???????????????????????????????? #Type???? => 'text/plain',
???????????????????????????????? Type???? => 'multipart/mixed' );
???????????????????????????????? #Encoding => '8bit',
???????????????????????????????? #Data???? => $body );
???????????????????????????????? #Data???? => "Dear Sirs,\nBest regards,\nbla bla" );
?
? #my ($mime_type, $encoding) = ('application/octet-stream', 'base64');
?
? $message->attach ( Type???? => 'TEXT',
???????????????????? Data???? => "Here's the GIF file you wanted"
?????????????????? );
?
? #$message->attach ( Type???? => 'application/octet-stream',
? #$message->attach ( Type???? => 'application/vnd.ms-excel',
? #$message->attach ( Type???? => 'application/jpeg',
? #$message->attach ( Type???? => 'application/pdf',
? $message->attach ( Type???? => 'application/gif',
???????????????????? Path???? => $datDir,
???????????????????? #Encoding => 'base64',
???????????????????? Filename => $fileName,
???????????????????? Disposition => 'attachment' );
?
? $message->send;
? exit;

Thanks.

Peter


      
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/sanfrancisco-pm/attachments/20090723/aa2cd9c3/attachment.html>

From hartzell at alerce.com  Thu Jul 23 21:49:35 2009
From: hartzell at alerce.com (George Hartzell)
Date: Thu, 23 Jul 2009 21:49:35 -0700
Subject: [sf-perl] MIME::Lite
In-Reply-To: <256286.86138.qm@web32907.mail.mud.yahoo.com>
References: <256286.86138.qm@web32907.mail.mud.yahoo.com>
Message-ID: <19049.15711.815315.868237@already.local>


I don't konw how to work MIME::Lite at all, so can't offer any hope,
and I don't know if you have any flexibility to change modules.  If
you do, then one of the presenters at YAPC a month or two back was
*very* enamoured of the following set of tools:

   Email::Sender
   Email::Sender::Simple for most of us
   Email::MIME::Kit <$,1rs(B most excellent
   SWAK
   EMK::Assembler::Markdown

(though he's an author of [many of] them...).

Email::MIME::Kit might be just want you need, along with
Email::Sender::Simple.

g.

From thomas at brightbill.net  Thu Jul 23 23:46:13 2009
From: thomas at brightbill.net (Thomas Brightbill)
Date: Thu, 23 Jul 2009 23:46:13 -0700
Subject: [sf-perl] MIME::Lite
In-Reply-To: <256286.86138.qm@web32907.mail.mud.yahoo.com>
References: <256286.86138.qm@web32907.mail.mud.yahoo.com>
Message-ID: <4A6958B5.7040606@brightbill.net>


Peter Loo wrote:

>   my $fileName = "stravinsky09.gif";
>   my $datDir = "/the/path/to/my/file";

>   $message->attach ( Type     => 'application/gif',
>                      Path     => $datDir,
>                      #Encoding => 'base64',
>                      Filename => $fileName,
>                      Disposition => 'attachment' );

I've used MIME::Lite a couple times but have never run across this 
before.  I would suggest changing 'Path' as follows

   Path => $datDir/$filename,

The MIME::Lite documentation says

   Path

     Alternative to "Data" or "FH". Path to a file containing the
     data... actually, it can be any open()able expression. If it
     looks like a path, the last element will automatically be
     treated as the filename. See "ReadNow" also.

In your example above, I'm wondering if it's looking for "file" as the 
filename.

I also found it helpful to turn on debugging with

   $msg->send('smtp','localhost', Debug=>1);


Here's my working test script:

----------------------------------------------------------------------

#!/usr/bin/perl

use strict;

use MIME::Lite;

### Create the multipart "container":
my $msg = MIME::Lite->new(
     From    =>'thomas at brightbill.net',
     To      =>'thomas at brightbill.net',
     Subject =>'A message with 2 parts...',
     Type    =>'multipart/mixed'
);

### Add the text message part:
### (Note that "attach" has same arguments as "new"):
$msg->attach(
     Type     =>'TEXT',
     Data     =>"Here's the spreadsheet file you wanted"
);

### Add the spreadsheet:
$msg->attach(
     Type        =>'application/vnd.ms-excel',
     Path        =>'/home/thomas/testfile.xls',
     Filename    =>'testfile.xls',
     Disposition => 'attachment'
);

$msg->send('smtp','localhost', Debug=>1);

----------------------------------------------------------------------

Thomas

-- 
Thomas Brightbill
thomas at brightbill.net
http://www.brightbill.net


From loopeter at yahoo.com  Fri Jul 24 09:28:28 2009
From: loopeter at yahoo.com (Peter Loo)
Date: Fri, 24 Jul 2009 09:28:28 -0700 (PDT)
Subject: [sf-perl] MIME::Lite
In-Reply-To: <4A6958B5.7040606@brightbill.net>
Message-ID: <214587.46659.qm@web32907.mail.mud.yahoo.com>

Hi Thomas,

It is very strange.? I ran your code after changing email addresses and my file name and it worked.? I will see why mine isn't working.

Thanks for all your help.

Peter

--- On Fri, 7/24/09, Thomas Brightbill <thomas at brightbill.net> wrote:

From: Thomas Brightbill <thomas at brightbill.net>
Subject: Re: [sf-perl] MIME::Lite
To: "San Francisco Perl Mongers User Group" <sanfrancisco-pm at pm.org>
Date: Friday, July 24, 2009, 12:46 AM


Peter Loo wrote:

>???my $fileName = "stravinsky09.gif";
>???my $datDir = "/the/path/to/my/file";

>???$message->attach ( Type? ???=> 'application/gif',
>? ? ? ? ? ? ? ? ? ? ? Path? ???=> $datDir,
>? ? ? ? ? ? ? ? ? ? ? #Encoding => 'base64',
>? ? ? ? ? ? ? ? ? ? ? Filename => $fileName,
>? ? ? ? ? ? ? ? ? ? ? Disposition => 'attachment' );

I've used MIME::Lite a couple times but have never run across this before.? I would suggest changing 'Path' as follows

? Path => $datDir/$filename,

The MIME::Lite documentation says

? Path

? ? Alternative to "Data" or "FH". Path to a file containing the
? ? data... actually, it can be any open()able expression. If it
? ? looks like a path, the last element will automatically be
? ? treated as the filename. See "ReadNow" also.

In your example above, I'm wondering if it's looking for "file" as the filename.

I also found it helpful to turn on debugging with

? $msg->send('smtp','localhost', Debug=>1);


Here's my working test script:

----------------------------------------------------------------------

#!/usr/bin/perl

use strict;

use MIME::Lite;

### Create the multipart "container":
my $msg = MIME::Lite->new(
? ? From? ? =>'thomas at brightbill.net',
? ? To? ? ? =>'thomas at brightbill.net',
? ? Subject =>'A message with 2 parts...',
? ? Type? ? =>'multipart/mixed'
);

### Add the text message part:
### (Note that "attach" has same arguments as "new"):
$msg->attach(
? ? Type? ???=>'TEXT',
? ? Data? ???=>"Here's the spreadsheet file you wanted"
);

### Add the spreadsheet:
$msg->attach(
? ? Type? ? ? ? =>'application/vnd.ms-excel',
? ? Path? ? ? ? =>'/home/thomas/testfile.xls',
? ? Filename? ? =>'testfile.xls',
? ? Disposition => 'attachment'
);

$msg->send('smtp','localhost', Debug=>1);

----------------------------------------------------------------------

Thomas

-- Thomas Brightbill
thomas at brightbill.net
http://www.brightbill.net

_______________________________________________
SanFrancisco-pm mailing list
SanFrancisco-pm at pm.org
http://mail.pm.org/mailman/listinfo/sanfrancisco-pm



      
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/sanfrancisco-pm/attachments/20090724/a84cd885/attachment-0001.html>

From doom at kzsu.stanford.edu  Fri Jul 24 19:27:49 2009
From: doom at kzsu.stanford.edu (Joe Brenner)
Date: Fri, 24 Jul 2009 19:27:49 -0700
Subject: [sf-perl] OSCON impressions
Message-ID: <200907250227.n6P2Rniw081719@kzsu.stanford.edu>


A brief round-up of OSCON impressions --

I got to see Damien Conway's talk this morning about his new perl 5.10
module, Regexp::Grammars:

  http://search.cpan.org/~dconway/Regexp-Grammars-1.001004/lib/Regexp/Grammars.pm

This one is another mind-bender: essentially he took perl 5.10 regexps and
extended them to get a (probably) faster version of Parse::RecDescent that
can handle back-tracking...  It has a "debug" feature that looks like it's
tremendously useful for developing regular expressions in general.

I heard some complaints about there being a lack of great talks at this
OSCON, but for me this Conway talk made up for everything (and there were a lot
of good things that I had to miss, myself).

Larry Wall's "State of the Onion" was a bit on the sad side -- he was making it
clear that his health hasn't been very good lately, and he's had a scare with
one of his kids as well (leukemia, but evidently a treatable variety).  He
used this to segue into a discussion of warning signs and error messages in
general, with a lot of emphasis on the perl 6 messages he's been developing.
The general point was that it's important for error messages to be accurate and
informative (which is apparently difficult with yacc-based grammars), but it's
okay to also make guesses and tentatively suggest a fix.

Another talk I happened to catch was Damien Conway going through some perl 6
features with Larry Wall sitting by (a few times, Damien tried to show
something, and Larry interrupted him saying "no, it doesn't work that way
any more"...).

We actually had a visit from Larry Wall at the Perl Mongers booth -- he
happened to walk up behind Hilary Holz, just as she was complaining about the
perl6 object model (with perl5, since it's not built-in, you decide what
features you want).  I asked him if the design for perl6 might change next
week. He said "yes"... but added that many of the design changes at this point
aren't really visible in user features.

In general, I ended-up meeting quite a few luminaries at this event.  Most
embarrassing moment, for me: I went up to Perrin Hawkins at one point, and
started treating him like Tim Bunce (fortunately, he commented that Tim Bunce
was a good guy to be confused with).

Geoffrey Avery came by the booth trying to recruit people to do Lightning
Talks.  I signed up at the last minute the next morning and that afternoon gave
my "Esthetic Randomness" talk again (or rather, the first half of it, which fit
neatly into a five minute slot).  Several people came up to me later saying
nice things about it (including Tom Christensen...).


Let me thank everyone who helped with running the sf.pm.org booth at OSCON (and
everyone who volunteered, but weren't really needed):

Hilary Holz was a key addition to the crew this year, logging a lot of hours in
the booth.  Either Fred or I were around most of the time, but folks like Matt
Lanier helped out, also.  I recruited a few people from the SVLUG list to come
by and help out; a number of them stopped by but Greg Lindhal (I think it was)
and Jean Phillipe Granchi was particularly helpful.

We all got to talk to quite a few people, and I suspect we'll have some new
folks showing their faces at the next few meetings....



From fred at redhotpenguin.com  Fri Jul 24 20:22:04 2009
From: fred at redhotpenguin.com (Fred Moyer)
Date: Fri, 24 Jul 2009 20:22:04 -0700
Subject: [sf-perl] OSCON impressions
In-Reply-To: <200907250227.n6P2Rniw081719@kzsu.stanford.edu>
References: <200907250227.n6P2Rniw081719@kzsu.stanford.edu>
Message-ID: <ad28918e0907242022w200374efr4440b940ea98c8f2@mail.gmail.com>

On Fri, Jul 24, 2009 at 7:27 PM, Joe Brenner<doom at kzsu.stanford.edu> wrote:
>
> A brief round-up of OSCON impressions --
...
> We actually had a visit from Larry Wall at the Perl Mongers booth -- he
> happened to walk up behind Hilary Holz, just as she was complaining about the
> perl6 object model (with perl5, since it's not built-in, you decide what
> features you want). ?I asked him if the design for perl6 might change next
> week. He said "yes"... but added that many of the design changes at this point
> aren't really visible in user features.

Here's a link to a picture I snapped with my phone:

http://www.redhotpenguin.com/oscon_2009.JPG

> In general, I ended-up meeting quite a few luminaries at this event. ?Most
> embarrassing moment, for me: I went up to Perrin Hawkins at one point, and
> started treating him like Tim Bunce (fortunately, he commented that Tim Bunce
> was a good guy to be confused with).

Tim came by the booth also, as well as brian d foy.  Brian brought by
a few signed copies of Intermediate Perl for us too - there will be a
lottery at the meeting on Tuesday where we'll be giving those signed
copies away.

> Let me thank everyone who helped with running the sf.pm.org booth at OSCON (and
> everyone who volunteered, but weren't really needed):
>
> Hilary Holz was a key addition to the crew this year, logging a lot of hours in
> the booth. ?Either Fred or I were around most of the time, but folks like Matt
> Lanier helped out, also. ?I recruited a few people from the SVLUG list to come
> by and help out; a number of them stopped by but Greg Lindhal (I think it was)
> and Jean Phillipe Granchi was particularly helpful.

Brian Friday helped us man the booth also.  I have some special thank
you schwag (premium schwag as it is) for those who helped us man the
booth - please ping me at the meeting next Tuesday if you were in the
booth.

Big thanks to Marsee Henon also who outfitted our booth with a slew of
Perl books from O'Reilly.

And also a HUGE HUGE thanks to you Joe for making all of this happen!
What a great success!

From fred at redhotpenguin.com  Fri Jul 24 21:25:10 2009
From: fred at redhotpenguin.com (Fred Moyer)
Date: Fri, 24 Jul 2009 21:25:10 -0700
Subject: [sf-perl] OSCON impressions
In-Reply-To: <ad28918e0907242022w200374efr4440b940ea98c8f2@mail.gmail.com>
References: <200907250227.n6P2Rniw081719@kzsu.stanford.edu>
	<ad28918e0907242022w200374efr4440b940ea98c8f2@mail.gmail.com>
Message-ID: <ad28918e0907242125q5cdccca5nd96973c5984c9b62@mail.gmail.com>

On Fri, Jul 24, 2009 at 8:22 PM, Fred Moyer<fred at redhotpenguin.com> wrote:
> On Fri, Jul 24, 2009 at 7:27 PM, Joe Brenner<doom at kzsu.stanford.edu> wrote:
>> the booth. ?Either Fred or I were around most of the time, but folks like Matt
>> Lanier helped out, also. ?I recruited a few people from the SVLUG list to come
>> by and help out; a number of them stopped by but Greg Lindhal (I think it was)
>> and Jean Phillipe Granchi was particularly helpful.

Also a big thanks to Julian Cash for hooking us up with a fantastic
Perl Mongers sign that drew many kind words.

From holz.hilary at gmail.com  Sat Jul 25 17:47:46 2009
From: holz.hilary at gmail.com (Hilary Holz)
Date: Sat, 25 Jul 2009 17:47:46 -0700
Subject: [sf-perl] OSCON impressions
In-Reply-To: <200907250227.n6P2Rniw081719@kzsu.stanford.edu>
References: <200907250227.n6P2Rniw081719@kzsu.stanford.edu>
Message-ID: <2b1ea0a70907251747t5ed59b47h7e8adf89e7e351b8@mail.gmail.com>

> We actually had a visit from Larry Wall at the Perl Mongers booth -- he
> happened to walk up behind Hilary Holz, just as she was complaining about
> the
> perl6 object model (with perl5, since it's not built-in, you decide what
>

heh. I would have characterized it more as dissing the perl6 object model,
but hey...

I'm still chewing on his comment about them thinking more in terms of Ruby's
object model than Python's when working on moose's object model.

Joe's 'perl code of arms' buttons were a huge hit, became a must-have swag
item. A multi-talented fella, our Joe.

Helping with the booth was a lot of fun, met a number of folks in person I
previously only knew from online, as well as a bunch of new folks. Lots of
interest from local people.

Looking forward to Tuesday!

Hilary
-- 
Hilary J Holz
Agile Technomethodologist
http://twiki.csueastbay.edu/People/HilaryHolz
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/sanfrancisco-pm/attachments/20090725/56b264d7/attachment.html>

From extasia at extasia.org  Mon Jul 27 13:04:09 2009
From: extasia at extasia.org (David Alban)
Date: Mon, 27 Jul 2009 13:04:09 -0700
Subject: [sf-perl] max inode value
Message-ID: <4c714a9c0907271304g1d004bc5p22ae98be60dc4b60@mail.gmail.com>

greetings,

it's easy to determine how many inodes can be used in a given
filesystem.  but does anyone know offhand how to determine the maximum
*value* for an inode in a given filesystem?

thanks,
david
-- 
Live in a world of your own, but always welcome visitors.

From woof at danlo.com  Mon Jul 27 18:06:23 2009
From: woof at danlo.com (Daniel Lo)
Date: Mon, 27 Jul 2009 18:06:23 -0700
Subject: [sf-perl] max inode value
In-Reply-To: <4c714a9c0907271304g1d004bc5p22ae98be60dc4b60@mail.gmail.com>
References: <4c714a9c0907271304g1d004bc5p22ae98be60dc4b60@mail.gmail.com>
Message-ID: <1582120552.20090727180623@danlo.com>

Hello David,

Humm, interesting question.

I know that inodes are allocated per system, thus the maximum value may be
already determined by the OS, because it is associated with an pre-allocated i-node entry.

However, if you are looking for the "integer" size-ness, I found this in the
ubuntu /usr/include/bits/dirent.h

#ifndef __USE_FILE_OFFSET64
    __ino_t d_ino;
    __off_t d_off;
#else
    __ino64_t d_ino;
    __off64_t d_off;
#endif

Which, is about as helpful as the first answer.

Hopefully, this helps :)

-daniel




Monday, July 27, 2009, 1:04:09 PM, you wrote:

> greetings,

> it's easy to determine how many inodes can be used in a given
> filesystem.  but does anyone know offhand how to determine the maximum
> *value* for an inode in a given filesystem?

> thanks,
> david



-- 
Best regards,
 Daniel                            mailto:woof at danlo.com


From brian.friday at gmail.com  Tue Jul 28 09:10:20 2009
From: brian.friday at gmail.com (Brian Friday)
Date: Tue, 28 Jul 2009 09:10:20 -0700
Subject: [sf-perl] OSCON impressions
In-Reply-To: <ad28918e0907242125q5cdccca5nd96973c5984c9b62@mail.gmail.com>
References: <200907250227.n6P2Rniw081719@kzsu.stanford.edu>
	<ad28918e0907242022w200374efr4440b940ea98c8f2@mail.gmail.com>
	<ad28918e0907242125q5cdccca5nd96973c5984c9b62@mail.gmail.com>
Message-ID: <b60c91780907280910o53eefb54g58bb913131dca948@mail.gmail.com>

On Fri, Jul 24, 2009 at 9:25 PM, Fred Moyer<fred at redhotpenguin.com> wrote:
>
> Also a big thanks to Julian Cash for hooking us up with a fantastic
> Perl Mongers sign that drew many kind words.

That is/was an awesome sign! I had a great time sitting down and
getting to know a few of you not to mention expanding the mind with
the various topics we discussed!

I still need to read up on column binding Tim mentioned... and that 3
line trick for DBI and hashref.

From fred at redhotpenguin.com  Tue Jul 28 13:47:19 2009
From: fred at redhotpenguin.com (Fred Moyer)
Date: Tue, 28 Jul 2009 13:47:19 -0700
Subject: [sf-perl] Meeting tonight - Catalyst MojoMojo Wiki
Message-ID: <ad28918e0907281347k1c117156qf230ab1b90e902d@mail.gmail.com>

I'm bringing some books from OSCON to give away.  We have several
copies of Intermediate Perl signed by brian d foy, and one signed by
Larry Wall himself.  Please RSVP on the meetup site.


Catalyst expert Dan Dascalescu will be returning to give a talk on the
Catalyst based Mojo wiki application. Post OSCON wrapup will take
place after.

http://www.meetup.com/San-Francisco-Perl-Mongers/calendar/9997842/

From Paul.Makepeace at realprogrammers.com  Tue Jul 28 15:25:10 2009
From: Paul.Makepeace at realprogrammers.com (Paul Makepeace)
Date: Tue, 28 Jul 2009 23:25:10 +0100
Subject: [sf-perl] OSCON impressions
In-Reply-To: <b60c91780907280910o53eefb54g58bb913131dca948@mail.gmail.com>
References: <200907250227.n6P2Rniw081719@kzsu.stanford.edu> 
	<ad28918e0907242022w200374efr4440b940ea98c8f2@mail.gmail.com> 
	<ad28918e0907242125q5cdccca5nd96973c5984c9b62@mail.gmail.com> 
	<b60c91780907280910o53eefb54g58bb913131dca948@mail.gmail.com>
Message-ID: <c37577dd0907281525y634ac148n9b8bb95adf92aad6@mail.gmail.com>

On Tue, Jul 28, 2009 at 5:10 PM, Brian Friday <brian.friday at gmail.com>wrote:

> On Fri, Jul 24, 2009 at 9:25 PM, Fred Moyer<fred at redhotpenguin.com> wrote:
> >
> > Also a big thanks to Julian Cash for hooking us up with a fantastic
> > Perl Mongers sign that drew many kind words.
>
> That is/was an awesome sign! I had a great time sitting down and
> getting to know a few of you not to mention expanding the mind with
> the various topics we discussed!
>
> I still need to read up on column binding Tim mentioned... and that 3
> line trick for DBI and hashref.


Wow, people still use DBI? Awesome. It's like being back in the 90s :-)

(http://search.cpan.org/dist/DBIx-Class/ for anyone not following this light
teasing.)

Paul
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/sanfrancisco-pm/attachments/20090728/aefa2929/attachment.html>

From loopeter at yahoo.com  Tue Jul 28 16:09:28 2009
From: loopeter at yahoo.com (Peter Loo)
Date: Tue, 28 Jul 2009 16:09:28 -0700 (PDT)
Subject: [sf-perl] Referencing a variable???
Message-ID: <160840.83341.qm@web32903.mail.mud.yahoo.com>

Hi All,
?
I have done this once before and can't seem to remember how I did it.
?
I have 10 program variables namely $parm[1-10].? Then I try to check if they are set using a loop like so:
?
? for ( my $x = 1; $x <= $maxParm; $x++ ) {
??? my $parmName = "parm" . $x;
??? if ( $$parmName ) {
????? my ($hardValue, $replaceValue) = split(/~!~/, $$parmName);
????? $sqlString =~ s/~$hardValue~/$replaceValue/g;
????? }
??? }
?
$$parmName has no value.? What am I doing wrong?
?
Thank you all in advance.
?
Peter


      
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/sanfrancisco-pm/attachments/20090728/cdea2af8/attachment.html>

From david at fetter.org  Tue Jul 28 16:12:22 2009
From: david at fetter.org (David Fetter)
Date: Tue, 28 Jul 2009 16:12:22 -0700
Subject: [sf-perl] OSCON impressions
In-Reply-To: <c37577dd0907281525y634ac148n9b8bb95adf92aad6@mail.gmail.com>
References: <200907250227.n6P2Rniw081719@kzsu.stanford.edu>
	<ad28918e0907242022w200374efr4440b940ea98c8f2@mail.gmail.com>
	<ad28918e0907242125q5cdccca5nd96973c5984c9b62@mail.gmail.com>
	<b60c91780907280910o53eefb54g58bb913131dca948@mail.gmail.com>
	<c37577dd0907281525y634ac148n9b8bb95adf92aad6@mail.gmail.com>
Message-ID: <20090728231222.GK27858@fetter.org>

On Tue, Jul 28, 2009 at 11:25:10PM +0100, Paul Makepeace wrote:
> On Tue, Jul 28, 2009 at 5:10 PM, Brian Friday <brian.friday at gmail.com>wrote:
> 
> > On Fri, Jul 24, 2009 at 9:25 PM, Fred Moyer<fred at redhotpenguin.com> wrote:
> > >
> > > Also a big thanks to Julian Cash for hooking us up with a
> > > fantastic Perl Mongers sign that drew many kind words.
> >
> > That is/was an awesome sign! I had a great time sitting down and
> > getting to know a few of you not to mention expanding the mind
> > with the various topics we discussed!
> >
> > I still need to read up on column binding Tim mentioned... and
> > that 3 line trick for DBI and hashref.
> 
> Wow, people still use DBI?

Why, yes.  It's more fun than JDBC.

> Awesome.  It's like being back in the 90s :-)

Did you happen across an engine that includes strong AI
<http://en.wikipedia.org/wiki/Strong_AI> so Perl (or some other
language) could infer meaning from DDL?  If you didn't, we're still,
"back in the 90s."

> (http://search.cpan.org/dist/DBIx-Class/ for anyone not following this light
> teasing.)

I assure you that DBIx::Class is not that engine. :)

Cheers,
David.
-- 
David Fetter <david at fetter.org> http://fetter.org/
Phone: +1 415 235 3778  AIM: dfetter666  Yahoo!: dfetter
Skype: davidfetter      XMPP: david.fetter at gmail.com

Remember to vote!
Consider donating to Postgres: http://www.postgresql.org/about/donate

From sphink at gmail.com  Tue Jul 28 16:25:18 2009
From: sphink at gmail.com (Steve Fink)
Date: Tue, 28 Jul 2009 16:25:18 -0700
Subject: [sf-perl] Referencing a variable???
In-Reply-To: <160840.83341.qm@web32903.mail.mud.yahoo.com>
References: <160840.83341.qm@web32903.mail.mud.yahoo.com>
Message-ID: <7d7f2e8c0907281625i13285585pb3a5abc5f763ff81@mail.gmail.com>

If you restructure your message, you'll answer yourself:

> $$parmName has no value.  What am I doing wrong?

> I have 10 program variables namely $parm[1-10]

Yep, that's what you're doing wrong.

Your code should work. The problem must be earlier. But it's not the best
way to go about this anyway. You would be much better off putting those
parameters into an array @params and then

  for my $param (@params) {
    my ($hardValue, $replaceValue) = split(/~!~/, $param);
    $sqlString =~ s/~$hardValue~/$replaceValue/g;
  }

or if you really need to insert them positionally,

  for my $param (@params) {
    if (defined $param) {
      my ($hardValue, $replaceValue) = split(/~!~/, $param);
      $sqlString =~ s/~$hardValue~/$replaceValue/g;
    }
  }

The huge, huge benefit, beyond slightly prettier code, is that you can then
put a "use strict;" at the top and find mistakes like the spelling mistake
that is probably causing your current problem.


2009/7/28 Peter Loo <loopeter at yahoo.com>

> Hi All,
>
> I have done this once before and can't seem to remember how I did it.
>
> I have 10 program variables namely $parm[1-10].  Then I try to check if
> they are set using a loop like so:
>
>   for ( my $x = 1; $x <= $maxParm; $x++ ) {
>     my $parmName = "parm" . $x;
>     if ( $$parmName ) {
>       my ($hardValue, $replaceValue) = split(/~!~/, $$parmName);
>       $sqlString =~ s/~$hardValue~/$replaceValue/g;
>       }
>     }
>
> $$parmName has no value.  What am I doing wrong?
>
> Thank you all in advance.
>
> Peter
>
>
> _______________________________________________
> SanFrancisco-pm mailing list
> SanFrancisco-pm at pm.org
> http://mail.pm.org/mailman/listinfo/sanfrancisco-pm
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/sanfrancisco-pm/attachments/20090728/db88881f/attachment.html>

From fred at redhotpenguin.com  Tue Jul 28 16:25:34 2009
From: fred at redhotpenguin.com (Fred Moyer)
Date: Tue, 28 Jul 2009 16:25:34 -0700
Subject: [sf-perl] OSCON impressions
In-Reply-To: <c37577dd0907281525y634ac148n9b8bb95adf92aad6@mail.gmail.com>
References: <200907250227.n6P2Rniw081719@kzsu.stanford.edu>
	<ad28918e0907242022w200374efr4440b940ea98c8f2@mail.gmail.com>
	<ad28918e0907242125q5cdccca5nd96973c5984c9b62@mail.gmail.com>
	<b60c91780907280910o53eefb54g58bb913131dca948@mail.gmail.com>
	<c37577dd0907281525y634ac148n9b8bb95adf92aad6@mail.gmail.com>
Message-ID: <ad28918e0907281625i7a382b35qcc9ebd53a56f717b@mail.gmail.com>

2009/7/28 Paul Makepeace <Paul.Makepeace at realprogrammers.com>:
> Wow, people still use DBI? Awesome. It's like being back in the 90s :-)
> (http://search.cpan.org/dist/DBIx-Class/ for anyone not following this light
> teasing.)

DBI is my tool of choice for implementing sql where performance (cpu
and memory) is a concern.

DBIx::Class is my tool of choice for implementing business logic where
the performance concerns aren't as great.

I have a web service that I use DBI to write the queries because I
need to keep the processes slim.

I also have a web app that controls that service, I use DBIx::Class
there because I can make very rapid changes to the business logic
without a lot of typing, it has a development speed advantage over
DBI.

If DBIx::Class is a bulldozer, DBI is a jackhammer.  Use the most
suitable tool for the task.

From not.com at gmail.com  Tue Jul 28 16:25:13 2009
From: not.com at gmail.com (yary)
Date: Tue, 28 Jul 2009 16:25:13 -0700
Subject: [sf-perl] Referencing a variable???
In-Reply-To: <160840.83341.qm@web32903.mail.mud.yahoo.com>
References: <160840.83341.qm@web32903.mail.mud.yahoo.com>
Message-ID: <75cbfa570907281625h1baea185ofb6096866184ef22@mail.gmail.com>

I'm wondering if you started using "my" to lexicially scope your
parameters, and in the process broke your symbolic references.

use v5.10.0;

our $parm1="hello";
my $parm2="world";

my $parmName="parm1";
say $$parmName;  # says "hello"
my $parmName="parm2";
say $$parmName; # says nothing, warns about uninitialized value

use an array "@parm"!

back to work...

From david at fetter.org  Tue Jul 28 16:32:35 2009
From: david at fetter.org (David Fetter)
Date: Tue, 28 Jul 2009 16:32:35 -0700
Subject: [sf-perl] Referencing a variable???
In-Reply-To: <160840.83341.qm@web32903.mail.mud.yahoo.com>
References: <160840.83341.qm@web32903.mail.mud.yahoo.com>
Message-ID: <20090728233235.GL27858@fetter.org>

On Tue, Jul 28, 2009 at 04:09:28PM -0700, Peter Loo wrote:
> Hi All,
> ?
> I have done this once before and can't seem to remember how I did it.
> ?
> I have 10 program variables namely $parm[1-10].? Then I try to check if they are set using a loop like so:
> ?
> ? for ( my $x = 1; $x <= $maxParm; $x++ ) {
> ??? my $parmName = "parm" . $x;
> ??? if ( $$parmName ) {
> ????? my ($hardValue, $replaceValue) = split(/~!~/, $$parmName);
> ????? $sqlString =~ s/~$hardValue~/$replaceValue/g;
> ????? }
> ??? }
> ?
> $$parmName has no value.? What am I doing wrong?

I'm sorry that this sounds harsh, but the answer to that question is,
"just about everything."

String-mashing to create SQL invites Little Bobby Tables into your
life.  See http://xkcd.com/327/

Instead, use prepare() and execute(), each explained in detail in the
DBI docs. :)

Cheers,
David.

P.S.  Looping constructs in Perl aren't the ones in C.  Use the Perl
ones in Perl programs :)
-- 
David Fetter <david at fetter.org> http://fetter.org/
Phone: +1 415 235 3778  AIM: dfetter666  Yahoo!: dfetter
Skype: davidfetter      XMPP: david.fetter at gmail.com

Remember to vote!
Consider donating to Postgres: http://www.postgresql.org/about/donate

From loopeter at yahoo.com  Tue Jul 28 16:47:50 2009
From: loopeter at yahoo.com (Peter Loo)
Date: Tue, 28 Jul 2009 16:47:50 -0700 (PDT)
Subject: [sf-perl] Referencing a variable???
In-Reply-To: <7d7f2e8c0907281625i13285585pb3a5abc5f763ff81@mail.gmail.com>
Message-ID: <723897.65856.qm@web32906.mail.mud.yahoo.com>

Thanks Steve.? Yes, putting the values in the parameter is a brilliant idea.? I will make the change.

--- On Tue, 7/28/09, Steve Fink <sphink at gmail.com> wrote:


From: Steve Fink <sphink at gmail.com>
Subject: Re: [sf-perl] Referencing a variable???
To: "San Francisco Perl Mongers User Group" <sanfrancisco-pm at pm.org>
Date: Tuesday, July 28, 2009, 5:25 PM


If you restructure your message, you'll answer yourself:


> $$parmName has no value.? What am I doing wrong?

> I have 10 program variables namely $parm[1-10]
Yep, that's what you're doing wrong.

Your code should work. The problem must be earlier. But it's not the best way to go about this anyway. You would be much better off putting those parameters into an array @params and then

? for my $param (@params) {
? ? my ($hardValue, $replaceValue) = split(/~!~/, $param);
? ? $sqlString =~ s/~$hardValue~/$replaceValue/g;
? }

or if you really need to insert them positionally,

? for my $param (@params) {
??? if (defined $param) {
? ? ? my ($hardValue, $replaceValue) = split(/~!~/, $param);
? ? ? $sqlString =~ s/~$hardValue~/$replaceValue/g;
??? }
? }

The huge, huge benefit, beyond slightly prettier code, is that you can then put a "use strict;" at the top and find mistakes like the spelling mistake that is probably causing your current problem.



2009/7/28 Peter Loo <loopeter at yahoo.com>






Hi All,
?
I have done this once before and can't seem to remember how I did it.
?
I have 10 program variables namely $parm[1-10].? Then I try to check if they are set using a loop like so:
?
? for ( my $x = 1; $x <= $maxParm; $x++ ) {
??? my $parmName = "parm" . $x;
??? if ( $$parmName ) {
????? my ($hardValue, $replaceValue) = split(/~!~/, $$parmName);
????? $sqlString =~ s/~$hardValue~/$replaceValue/g;
????? }
??? }
?
$$parmName has no value.? What am I doing wrong?
?
Thank you all in advance.
?
Peter

_______________________________________________
SanFrancisco-pm mailing list
SanFrancisco-pm at pm.org
http://mail.pm.org/mailman/listinfo/sanfrancisco-pm



-----Inline Attachment Follows-----


_______________________________________________
SanFrancisco-pm mailing list
SanFrancisco-pm at pm.org
http://mail.pm.org/mailman/listinfo/sanfrancisco-pm



      
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/sanfrancisco-pm/attachments/20090728/8f3cc467/attachment.html>

From loopeter at yahoo.com  Tue Jul 28 16:51:18 2009
From: loopeter at yahoo.com (Peter Loo)
Date: Tue, 28 Jul 2009 16:51:18 -0700 (PDT)
Subject: [sf-perl] Referencing a variable???
In-Reply-To: <723897.65856.qm@web32906.mail.mud.yahoo.com>
Message-ID: <177523.46133.qm@web32907.mail.mud.yahoo.com>

Oop!? Trying to reply to too many emails at once.
?
I meant putting the parm[1-10] in an array.
?
I guess it is New Castle time.
?
Cheers!

--- On Tue, 7/28/09, Peter Loo <loopeter at yahoo.com> wrote:


From: Peter Loo <loopeter at yahoo.com>
Subject: Re: [sf-perl] Referencing a variable???
To: "San Francisco Perl Mongers User Group" <sanfrancisco-pm at pm.org>
Date: Tuesday, July 28, 2009, 5:47 PM






Thanks Steve.? Yes, putting the values in the parameter is a brilliant idea.? I will make the change.

--- On Tue, 7/28/09, Steve Fink <sphink at gmail.com> wrote:


From: Steve Fink <sphink at gmail.com>
Subject: Re: [sf-perl] Referencing a variable???
To: "San Francisco Perl Mongers User Group" <sanfrancisco-pm at pm.org>
Date: Tuesday, July 28, 2009, 5:25 PM


If you restructure your message, you'll answer yourself:


> $$parmName has no value.? What am I doing wrong?

> I have 10 program variables namely $parm[1-10]
Yep, that's what you're doing wrong.

Your code should work. The problem must be earlier. But it's not the best way to go about this anyway. You would be much better off putting those parameters into an array @params and then

? for my $param (@params) {
? ? my ($hardValue, $replaceValue) = split(/~!~/, $param);
? ? $sqlString =~ s/~$hardValue~/$replaceValue/g;
? }

or if you really need to insert them positionally,

? for my $param (@params) {
??? if (defined $param) {
? ? ? my ($hardValue, $replaceValue) = split(/~!~/, $param);
? ? ? $sqlString =~ s/~$hardValue~/$replaceValue/g;
??? }
? }

The huge, huge benefit, beyond slightly prettier code, is that you can then put a "use strict;" at the top and find mistakes like the spelling mistake that is probably causing your current problem.



2009/7/28 Peter Loo <loopeter at yahoo.com>






Hi All,
?
I have done this once before and can't seem to remember how I did it.
?
I have 10 program variables namely $parm[1-10].? Then I try to check if they are set using a loop like so:
?
? for ( my $x = 1; $x <= $maxParm; $x++ ) {
??? my $parmName = "parm" . $x;
??? if ( $$parmName ) {
????? my ($hardValue, $replaceValue) = split(/~!~/, $$parmName);
????? $sqlString =~ s/~$hardValue~/$replaceValue/g;
????? }
??? }
?
$$parmName has no value.? What am I doing wrong?
?
Thank you all in advance.
?
Peter

_______________________________________________
SanFrancisco-pm mailing list
SanFrancisco-pm at pm.org
http://mail.pm.org/mailman/listinfo/sanfrancisco-pm



-----Inline Attachment Follows-----


_______________________________________________
SanFrancisco-pm mailing list
SanFrancisco-pm at pm.org
http://mail.pm.org/mailman/listinfo/sanfrancisco-pm


-----Inline Attachment Follows-----


_______________________________________________
SanFrancisco-pm mailing list
SanFrancisco-pm at pm.org
http://mail.pm.org/mailman/listinfo/sanfrancisco-pm



      
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/sanfrancisco-pm/attachments/20090728/77bc15a0/attachment.html>

From not.com at gmail.com  Tue Jul 28 22:08:51 2009
From: not.com at gmail.com (yary)
Date: Tue, 28 Jul 2009 22:08:51 -0700
Subject: [sf-perl] Slides from April Meeting
In-Reply-To: <ad28918e0905072101m59927e21keddfb1188cdf12a6@mail.gmail.com>
References: <ad28918e0905072101m59927e21keddfb1188cdf12a6@mail.gmail.com>
Message-ID: <75cbfa570907282208o56101cf7j2da275b8f8319f47@mail.gmail.com>

On Thu, May 7, 2009 at 9:01 PM, Fred Moyer<fred at redhotpenguin.com> wrote:
> Not sure if David's slides were posted for the April meeting, but here
> is the link to slideshare:
>
> http://www.slideshare.net/j_david_lowe/how-to-hack-with-pack-and-unpack
>
> David - thanks for the great talk!

I did an experimental video of the talk- the results were bad enough
that I sat on them. Plus I was unable to record the second half of the
talk. But thought I should post it anyway just in case some good could
come of it.

http://www.youtube.com/watch?v=41ZFR2p0wlA
http://www.youtube.com/watch?v=-NlD3ZvESYc
http://www.youtube.com/watch?v=YMbEGZr_9cU

lessons- record the sound separately (or make sure you have good
audio), don't handhold the camera, don't wave the camera wildly, have
a memory card big enough to record over an hour.

I might try recording again in a couple months. Anyone else want to
try videographing, heed the above!

-y

From ddascalescu at gmail.com  Wed Jul 29 02:27:29 2009
From: ddascalescu at gmail.com (Dan Dascalescu)
Date: Wed, 29 Jul 2009 02:27:29 -0700
Subject: [sf-perl] Slides from the MojoMojo presentation
Message-ID: <3561cc6d0907290227p6f98d5d2ya6f922807c6819a2@mail.gmail.com>

Thanks to all who attended, and special thanks for the feedback and ideas:
- ability to resize/hide the preview area (so that only the edit area
is visible), or open it in a (linked) pop-up window
- move pages
- synchronize the edit area with the preview area on demand
- auto-save in a "stash" (a-la Git)
- set formatters per page, in particular POD without any tags around the text

There were other ideas that I didn't remember - please post them at
http://mojomojo.ideascale.com/, or if you are on GitHub already, at
http://github.com/marcusramberg/mojomojo/issues/

And here are the slides:
http://www.slideshare.net/dandv/mojomojo-the-elegant-wiki-catalystpowered

Also,
http://mojomojo.org
and http://twitter.com/mojomojowiki

Best regards,
dandv

From quinn at fairpath.com  Wed Jul 29 08:38:53 2009
From: quinn at fairpath.com (Quinn Weaver)
Date: Wed, 29 Jul 2009 08:38:53 -0700
Subject: [sf-perl] Fwd: [LA.pm] Perlmonks compromised
In-Reply-To: <acc274b30907290718m7e4af463hc90f6a7ddd978e75@mail.gmail.com>
References: <acc274b30907290718m7e4af463hc90f6a7ddd978e75@mail.gmail.com>
Message-ID: <6ebbd8770907290838k74b3f9eej84a2dab4d746962a@mail.gmail.com>

If you have a Perl Monks account, change your password!

---------- Forwarded message ----------
From: Ben Tilly <btilly at gmail.com>
Date: Wed, Jul 29, 2009 at 7:18 AM
Subject: [LA.pm] Perlmonks compromised
To: OC-Perl Mongers <oc-pm at pm.org>, Los Angeles Perl Mongers
<losangeles-pm at pm.org>


If you're a janitor or are on Saints In My Book then your password is
being circulated in a file named zf05.txt.  If not, someone still has
it.  Perlmonks may still be compromised, so you should change your
password there, then be prepared to change it again.  And, of course,
you should change that password anywhere else that you used it.

Ben
_______________________________________________
Losangeles-pm mailing list
Losangeles-pm at pm.org
http://mail.pm.org/mailman/listinfo/losangeles-pm



-- 
Quinn Weaver Consulting, LLC
Full-stack web design and development
http://quinnweaver.com/
510-520-5217

From extasia at extasia.org  Wed Jul 29 09:39:43 2009
From: extasia at extasia.org (David Alban)
Date: Wed, 29 Jul 2009 09:39:43 -0700
Subject: [sf-perl] Fwd: Straight Jackets and Video Cameras
In-Reply-To: <853778.48718.qm@web65707.mail.ac4.yahoo.com>
References: <842939.91491.qm@web65707.mail.ac4.yahoo.com>
	<f68f59bb0907290752v6fb430ddma332b94378aea450@mail.gmail.com>
	<853778.48718.qm@web65707.mail.ac4.yahoo.com>
Message-ID: <4c714a9c0907290939s18fb9076ra275f97fd114007e@mail.gmail.com>

i love the lisp one.


---------- Forwarded message ----------
From: Ovid <publiustemp-londonpm at yahoo.com>
Date: Wed, Jul 29, 2009 at 8:26 AM
Subject: Re: Straight Jackets and Video Cameras
To: "London.pm Perl M[ou]ngers" <london.pm at london.pm.org>



----- Original Message ----

> From: Adrian Lai <perl at loathe.me.uk>

> Like the Java/Ruby on Rails thing of a few years ago?
>
> http://www.youtube.com/watch?v=PQbuyKUaKFo

I had totally forgotten about those.

I was thinking more along the lines of a very short series of jokes
per language, bundled into one vid. ?For example:

__
Smalltalk: I'm SmallTalk.
Perl: ?I'm Perl.
SmallTalk: I have reflection.
Perl: ?I have a job.
__
Ruby (little girl): ?I'm Ruby.
Perl (old guy): I'm Perl.
Ruby: Why can't I run with scissors?
Perl: You'll understand when you're older.
__
Python (Japanese): I'm Ruby.
Perl: I'm Perl.
Python: ?I'm a clean, modern language.
Perl: Hey, you're Japanese. Don't you write that funny Kanji stuff?
How can you read that?
Python: Hey, it's a beautiful, expressive style of writing. It's not
my fault if you've never troubled to learn it.
Perl: My point.

(Some points about Ruby's poor Unicode handling might be particularly
*poignant* instead)
__
Java (in straight jacket): I'm Java
Perl: I'm Perl.
Java: I can be trusted. I can't poke myself in the eye.
Perl: (shakes his/her head and walks off)
Java: Hey, come back! I need someone to scratch my nose!

(OK, that sucked, but I have a vision of tons of Java developers in
straight jackets. ?That starts implying budgets, though)
__
Lisp: I'm Lisp.
Perl: I'm Perl.
Lisp: You're illegible.
Perl: You're kidding, right?
__

That's off the top of my head and not terribly funny, but that's the
idea. ?A bunch of short, stupid jokes comparing some tiny aspect of
various languages, all edited into one video. ?I see Mike Whitaker
already has ideas.

Cheers,
Ovid
--
Buy the book ? ? ? ? - http://www.oreilly.com/catalog/perlhks/
Tech blog ? ? ? ? ? ?- http://use.perl.org/~Ovid/journal/
Twitter ? ? ? ? ? ? ?- http://twitter.com/OvidPerl
Official Perl 6 Wiki - http://www.perlfoundation.org/perl6




-- 
Live in a world of your own, but always welcome visitors.

From fred at redhotpenguin.com  Wed Jul 29 11:12:46 2009
From: fred at redhotpenguin.com (Fred Moyer)
Date: Wed, 29 Jul 2009 11:12:46 -0700
Subject: [sf-perl] Great meeting last night!
Message-ID: <ad28918e0907291112l5533239ajab0401a6096a46ba@mail.gmail.com>

Great meeting last night everyone.  I found Dan's talk on slideshare -
http://www.slideshare.net/dandv/mojomojo-the-elegant-wiki-catalystpowered.
 I'm not sure if those slides are up to date - Dan can you post a
newer link if available?

We had vip guests @schwern and @miyagawa in the house.  Sorry the food
arrived so late, but seemed to be tasty and a nice break from pizza
three months in a row.

Also, a big thanks to Marsee at O'Reilly who provided us with the
OSCON Perl sample books that we gave away last night the meeting.
Lucky Matt (our founder) got the copy of Intermediate Perl signed by
Larry Wall himself.

Good to see some new faces also.  Next month Jeff Goff will be
speaking on how he i18n'd a 10 year old legacy app, mark the date on
your calendar now:

http://www.meetup.com/San-Francisco-Perl-Mongers/calendar/10631296/

From fred at redhotpenguin.com  Wed Jul 29 18:15:02 2009
From: fred at redhotpenguin.com (Fred Moyer)
Date: Wed, 29 Jul 2009 18:15:02 -0700
Subject: [sf-perl] Fwd: [LA.pm] Perlmonks compromised
In-Reply-To: <6ebbd8770907290838k74b3f9eej84a2dab4d746962a@mail.gmail.com>
References: <acc274b30907290718m7e4af463hc90f6a7ddd978e75@mail.gmail.com>
	<6ebbd8770907290838k74b3f9eej84a2dab4d746962a@mail.gmail.com>
Message-ID: <ad28918e0907291815n183d530bja6b311775e98a336@mail.gmail.com>

The passwords were stored in plain text also, so if you are using that
same password somewhere else you want to change it there too.

On Wed, Jul 29, 2009 at 8:38 AM, Quinn Weaver<quinn at fairpath.com> wrote:
> If you have a Perl Monks account, change your password!
>
> ---------- Forwarded message ----------
> From: Ben Tilly <btilly at gmail.com>
> Date: Wed, Jul 29, 2009 at 7:18 AM
> Subject: [LA.pm] Perlmonks compromised
> To: OC-Perl Mongers <oc-pm at pm.org>, Los Angeles Perl Mongers
> <losangeles-pm at pm.org>
>
>
> If you're a janitor or are on Saints In My Book then your password is
> being circulated in a file named zf05.txt. ?If not, someone still has
> it. ?Perlmonks may still be compromised, so you should change your
> password there, then be prepared to change it again. ?And, of course,
> you should change that password anywhere else that you used it.
>
> Ben
> _______________________________________________
> Losangeles-pm mailing list
> Losangeles-pm at pm.org
> http://mail.pm.org/mailman/listinfo/losangeles-pm
>
>
>
> --
> Quinn Weaver Consulting, LLC
> Full-stack web design and development
> http://quinnweaver.com/
> 510-520-5217
> _______________________________________________
> SanFrancisco-pm mailing list
> SanFrancisco-pm at pm.org
> http://mail.pm.org/mailman/listinfo/sanfrancisco-pm
>

From biztos at mac.com  Wed Jul 29 19:46:03 2009
From: biztos at mac.com (frosty)
Date: Wed, 29 Jul 2009 19:46:03 -0700
Subject: [sf-perl] Fwd: [LA.pm] Perlmonks compromised
Message-ID: <106740483461215633604554724336870787208-Webmail@me.com>

Monks, how could you!  Plain text!

Thanks for the heads-up.  Now I have to try to remember which other sites used my "generic" password, and go change it on them.

Then I will have to plan for the joy of spending the rest of my career hearing about how Perl isn't a serious language because the main Perl guru site stored its friggin' passwords as plain text.  And that from Java goons no less.

Argh!

-- f.

On Wednesday, July 29, 2009, at 06:15PM, "Fred Moyer" <fred at redhotpenguin.com> wrote:
>The passwords were stored in plain text also, so if you are using that
>same password somewhere else you want to change it there too.
>
>On Wed, Jul 29, 2009 at 8:38 AM, Quinn Weaver<quinn at fairpath.com> wrote:
>> If you have a Perl Monks account, change your password!
>>
>> ---------- Forwarded message ----------
>> From: Ben Tilly <btilly at gmail.com>
>> Date: Wed, Jul 29, 2009 at 7:18 AM
>> Subject: [LA.pm] Perlmonks compromised
>> To: OC-Perl Mongers <oc-pm at pm.org>, Los Angeles Perl Mongers
>> <losangeles-pm at pm.org>
>>
>>
>> If you're a janitor or are on Saints In My Book then your password is
>> being circulated in a file named zf05.txt. ?If not, someone still has
>> it. ?Perlmonks may still be compromised, so you should change your
>> password there, then be prepared to change it again. ?And, of course,
>> you should change that password anywhere else that you used it.
>>
>> Ben
>> _______________________________________________
>> Losangeles-pm mailing list
>> Losangeles-pm at pm.org
>> http://mail.pm.org/mailman/listinfo/losangeles-pm
>>
>>
>>
>> --
>> Quinn Weaver Consulting, LLC
>> Full-stack web design and development
>> http://quinnweaver.com/
>> 510-520-5217
>> _______________________________________________
>> SanFrancisco-pm mailing list
>> SanFrancisco-pm at pm.org
>> http://mail.pm.org/mailman/listinfo/sanfrancisco-pm
>>
>_______________________________________________
>SanFrancisco-pm mailing list
>SanFrancisco-pm at pm.org
>http://mail.pm.org/mailman/listinfo/sanfrancisco-pm
>
>

From fred at redhotpenguin.com  Wed Jul 29 21:57:53 2009
From: fred at redhotpenguin.com (Fred Moyer)
Date: Wed, 29 Jul 2009 21:57:53 -0700
Subject: [sf-perl] Fwd: [LA.pm] Perlmonks compromised
In-Reply-To: <106740483461215633604554724336870787208-Webmail@me.com>
References: <106740483461215633604554724336870787208-Webmail@me.com>
Message-ID: <ad28918e0907292157v3220ff6cjaf10f989919935f4@mail.gmail.com>

Unfortunately this is a phenomenon that plagues even very large companies.

I'm able to retrieve my password in plain text when I have to recover
it through tmobile.com to pay my phone bill.  I really hope that they
are using two way encryption there, but in a situation like this two
way encryption is only halfway there between no encryption and one way
encryption.  If your system can be rooted and passwords retrieved,
there's a good chance that the attacker can get any two way encryption
and corresponding salts and algorithms also.

It is not difficult at all to use md5 encryption to one way encrypt
and salt user passwords before storing them in a persistence layer.

use Digest::MD5;

# don't call this variable salt, or add this comment line, or your
salt will be easy
# to find via grep
use constant MONKEYBRAINS => '13hfas78g3532';

....

sub scrambled_pass {
     my $pass = shift;


$user->passwd_md5( Digest::MD5::md5_hex( $q->param('password') . );



On Wed, Jul 29, 2009 at 7:46 PM, frosty<biztos at mac.com> wrote:
> Monks, how could you! ?Plain text!
>
> Thanks for the heads-up. ?Now I have to try to remember which other sites used my "generic" password, and go change it on them.
>
> Then I will have to plan for the joy of spending the rest of my career hearing about how Perl isn't a serious language because the main Perl guru site stored its friggin' passwords as plain text. ?And that from Java goons no less.
>
> Argh!
>
> -- f.
>
> On Wednesday, July 29, 2009, at 06:15PM, "Fred Moyer" <fred at redhotpenguin.com> wrote:
>>The passwords were stored in plain text also, so if you are using that
>>same password somewhere else you want to change it there too.
>>
>>On Wed, Jul 29, 2009 at 8:38 AM, Quinn Weaver<quinn at fairpath.com> wrote:
>>> If you have a Perl Monks account, change your password!
>>>
>>> ---------- Forwarded message ----------
>>> From: Ben Tilly <btilly at gmail.com>
>>> Date: Wed, Jul 29, 2009 at 7:18 AM
>>> Subject: [LA.pm] Perlmonks compromised
>>> To: OC-Perl Mongers <oc-pm at pm.org>, Los Angeles Perl Mongers
>>> <losangeles-pm at pm.org>
>>>
>>>
>>> If you're a janitor or are on Saints In My Book then your password is
>>> being circulated in a file named zf05.txt. ?If not, someone still has
>>> it. ?Perlmonks may still be compromised, so you should change your
>>> password there, then be prepared to change it again. ?And, of course,
>>> you should change that password anywhere else that you used it.
>>>
>>> Ben
>>> _______________________________________________
>>> Losangeles-pm mailing list
>>> Losangeles-pm at pm.org
>>> http://mail.pm.org/mailman/listinfo/losangeles-pm
>>>
>>>
>>>
>>> --
>>> Quinn Weaver Consulting, LLC
>>> Full-stack web design and development
>>> http://quinnweaver.com/
>>> 510-520-5217
>>> _______________________________________________
>>> SanFrancisco-pm mailing list
>>> SanFrancisco-pm at pm.org
>>> http://mail.pm.org/mailman/listinfo/sanfrancisco-pm
>>>
>>_______________________________________________
>>SanFrancisco-pm mailing list
>>SanFrancisco-pm at pm.org
>>http://mail.pm.org/mailman/listinfo/sanfrancisco-pm
>>
>>
> _______________________________________________
> SanFrancisco-pm mailing list
> SanFrancisco-pm at pm.org
> http://mail.pm.org/mailman/listinfo/sanfrancisco-pm
>

From fred at redhotpenguin.com  Wed Jul 29 22:06:38 2009
From: fred at redhotpenguin.com (Fred Moyer)
Date: Wed, 29 Jul 2009 22:06:38 -0700
Subject: [sf-perl] Fwd: [LA.pm] Perlmonks compromised
In-Reply-To: <ad28918e0907292157v3220ff6cjaf10f989919935f4@mail.gmail.com>
References: <106740483461215633604554724336870787208-Webmail@me.com>
	<ad28918e0907292157v3220ff6cjaf10f989919935f4@mail.gmail.com>
Message-ID: <ad28918e0907292206m7c326190q2bcde21c56a7c8ca@mail.gmail.com>

Sorry, the gmail hot keys sent off my email before it was finished.

On Wed, Jul 29, 2009 at 9:57 PM, Fred Moyer<fred at redhotpenguin.com> wrote:
> Unfortunately this is a phenomenon that plagues even very large companies.
...
>
> It is not difficult at all to use md5 encryption to one way encrypt
> and salt user passwords before storing them in a persistence layer.
>
> use Digest::MD5;
>
> # don't call this variable salt, or add this comment line, or your
> salt will be easy
> # to find via grep
> use constant MONKEYBRAINS => '13hfas78g3532';

> sub scrambled_pass {
> ? ? my $pass = shift;

       my $scrambled_pass = Digest::MD5::md5_hex(
           $q->param('password') . MONKEYBRAINS x 4);

      return $scrambled_pass;
}

Even this simple level of one way encryption provides significantly
more security than plain text passwords.  It takes me 0 seconds to
decrypt a plain text password (without the aid of a computer).

I've heard arguments that you can brute force md5 encrypted passwords
- which is absolutely true (it can take some time though).  But that
is no excuse for keeping plain text passwords around.  The barrier to
doing nefarious things with those easy to use passwords is just too
low.

> On Wed, Jul 29, 2009 at 7:46 PM, frosty<biztos at mac.com> wrote:
>> Monks, how could you! ?Plain text!
>>
>> Thanks for the heads-up. ?Now I have to try to remember which other sites used my "generic" password, and go change it on them.
>>
>> Then I will have to plan for the joy of spending the rest of my career hearing about how Perl isn't a serious language because the main Perl guru site stored its friggin' passwords as plain text. ?And that from Java goons no less.
>>
>> Argh!
>>
>> -- f.
>>
>> On Wednesday, July 29, 2009, at 06:15PM, "Fred Moyer" <fred at redhotpenguin.com> wrote:
>>>The passwords were stored in plain text also, so if you are using that
>>>same password somewhere else you want to change it there too.
>>>
>>>On Wed, Jul 29, 2009 at 8:38 AM, Quinn Weaver<quinn at fairpath.com> wrote:
>>>> If you have a Perl Monks account, change your password!
>>>>
>>>> ---------- Forwarded message ----------
>>>> From: Ben Tilly <btilly at gmail.com>
>>>> Date: Wed, Jul 29, 2009 at 7:18 AM
>>>> Subject: [LA.pm] Perlmonks compromised
>>>> To: OC-Perl Mongers <oc-pm at pm.org>, Los Angeles Perl Mongers
>>>> <losangeles-pm at pm.org>
>>>>
>>>>
>>>> If you're a janitor or are on Saints In My Book then your password is
>>>> being circulated in a file named zf05.txt. ?If not, someone still has
>>>> it. ?Perlmonks may still be compromised, so you should change your
>>>> password there, then be prepared to change it again. ?And, of course,
>>>> you should change that password anywhere else that you used it.
>>>>
>>>> Ben
>>>> _______________________________________________
>>>> Losangeles-pm mailing list
>>>> Losangeles-pm at pm.org
>>>> http://mail.pm.org/mailman/listinfo/losangeles-pm
>>>>
>>>>
>>>>
>>>> --
>>>> Quinn Weaver Consulting, LLC
>>>> Full-stack web design and development
>>>> http://quinnweaver.com/
>>>> 510-520-5217
>>>> _______________________________________________
>>>> SanFrancisco-pm mailing list
>>>> SanFrancisco-pm at pm.org
>>>> http://mail.pm.org/mailman/listinfo/sanfrancisco-pm
>>>>
>>>_______________________________________________
>>>SanFrancisco-pm mailing list
>>>SanFrancisco-pm at pm.org
>>>http://mail.pm.org/mailman/listinfo/sanfrancisco-pm
>>>
>>>
>> _______________________________________________
>> SanFrancisco-pm mailing list
>> SanFrancisco-pm at pm.org
>> http://mail.pm.org/mailman/listinfo/sanfrancisco-pm
>>
>

From doom at kzsu.stanford.edu  Thu Jul 30 10:38:21 2009
From: doom at kzsu.stanford.edu (Joe Brenner)
Date: Thu, 30 Jul 2009 10:38:21 -0700
Subject: [sf-perl] Fwd: [LA.pm] Perlmonks compromised
In-Reply-To: <106740483461215633604554724336870787208-Webmail@me.com>
References: <106740483461215633604554724336870787208-Webmail@me.com>
Message-ID: <200907301738.n6UHcLri083934@kzsu.stanford.edu>


frosty <biztos at mac.com> wrote:

> Monks, how could you!  Plain text!

Yeah I know.  But there are worse problems out there... like sites
that store credit card numbers in plain text.

The masters of Perlmonks don't strike me as the brightest bulbs
around... For example, rather than fix the search results to show
threading, they prefer to nag users to avoid changing subject
headings.  And the XP system is a joke (I'm pretty sure "Browser UK"
is using bots to moderate himself up).

> Thanks for the heads-up.  Now I have to try to remember which other
> sites used my "generic" password, and go change it on them.

Myself, I've been using different passwords everywhere (which means
I have to keep a written log of them... there's always tradeoffs).

> Then I will have to plan for the joy of spending the rest of my career
> hearing about how Perl isn't a serious language because the main Perl
> guru site stored its friggin' passwords as plain text.

Most of the real perl gurus aren't really terribly active over
there...  maybe we need to promote the "official" p5wiki more:

  http://www.perlfoundation.org/perl5/index.cgi?perl_5_wiki

(After the last meeting, Schwern seemed very interested in the
possibility of switching it over to MojoMojo...)



From merlyn at stonehenge.com  Thu Jul 30 11:00:42 2009
From: merlyn at stonehenge.com (Randal L. Schwartz)
Date: Thu, 30 Jul 2009 11:00:42 -0700
Subject: [sf-perl] Fwd: [LA.pm] Perlmonks compromised
In-Reply-To: <200907301738.n6UHcLri083934@kzsu.stanford.edu> (Joe Brenner's
	message of "Thu, 30 Jul 2009 10:38:21 -0700")
References: <106740483461215633604554724336870787208-Webmail@me.com>
	<200907301738.n6UHcLri083934@kzsu.stanford.edu>
Message-ID: <86vdla8305.fsf@blue.stonehenge.com>

>>>>> "Joe" == Joe Brenner <doom at kzsu.stanford.edu> writes:

Joe> And the XP system is a joke (I'm pretty sure "Browser UK"
Joe> is using bots to moderate himself up).

I'm gonna disagree with you there.  While there were clearly abuses, for the
most part all the XP you see were basically *earned*.

And generally, since the earliest *correct* answers to a question were voted
most, this meant that people were sitting on the site at all hours hitting
"reload", looking for questions they could answer (I'm including myself here).

I would often tell people in my classes that if they wanted a question
answered within *minutes*, and have it automatically vetted by other experts,
use perlmonks.  Truly, I haven't seen any other sites that worked quite this
well, and I'm including StackOverflow.

-- 
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn at stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Smalltalk/Perl/Unix consulting, Technical writing, Comedy, etc. etc.
See http://methodsandmessages.vox.com/ for Smalltalk and Seaside discussion

From biztos at mac.com  Thu Jul 30 11:08:04 2009
From: biztos at mac.com (frosty)
Date: Thu, 30 Jul 2009 11:08:04 -0700
Subject: [sf-perl] Fwd: [LA.pm] Perlmonks compromised
In-Reply-To: <86vdla8305.fsf@blue.stonehenge.com>
References: <106740483461215633604554724336870787208-Webmail@me.com>
	<200907301738.n6UHcLri083934@kzsu.stanford.edu>
	<86vdla8305.fsf@blue.stonehenge.com>
Message-ID: <135303734014106499925881876424698765751-Webmail@me.com>

I've gotten a lot of great advice from the Perlmonks community.  But as for the devs and the bulb comment, I'm inclined to agree at the moment.  I just went and changed my password to something long and sarcastic, and in the process noticed that only the first N characters of your password are significant, and that it doesn't tell you this (though your browser sort-of does, by only displaying that many bullets).

Try it yourself.  Oh joy.  I think it's 8 but I'm too busy to re-check right now.

Also, considering how big of a rookie move this is for a site full of dev experts, I'm completely underwhelmed with the response from Perlmonks so far.

-- f.
 
On Thursday, July 30, 2009, at 11:00AM, "Randal L. Schwartz" <merlyn at stonehenge.com> wrote:
>>>>>> "Joe" == Joe Brenner <doom at kzsu.stanford.edu> writes:
>
>Joe> And the XP system is a joke (I'm pretty sure "Browser UK"
>Joe> is using bots to moderate himself up).
>
>I'm gonna disagree with you there.  While there were clearly abuses, for the
>most part all the XP you see were basically *earned*.
>
>And generally, since the earliest *correct* answers to a question were voted
>most, this meant that people were sitting on the site at all hours hitting
>"reload", looking for questions they could answer (I'm including myself here).
>
>I would often tell people in my classes that if they wanted a question
>answered within *minutes*, and have it automatically vetted by other experts,
>use perlmonks.  Truly, I haven't seen any other sites that worked quite this
>well, and I'm including StackOverflow.
>
>-- 
>Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
><merlyn at stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
>Smalltalk/Perl/Unix consulting, Technical writing, Comedy, etc. etc.
>See http://methodsandmessages.vox.com/ for Smalltalk and Seaside discussion
>_______________________________________________
>SanFrancisco-pm mailing list
>SanFrancisco-pm at pm.org
>http://mail.pm.org/mailman/listinfo/sanfrancisco-pm
>
>

From not.com at gmail.com  Thu Jul 30 11:47:09 2009
From: not.com at gmail.com (yary)
Date: Thu, 30 Jul 2009 11:47:09 -0700
Subject: [sf-perl] Fwd: [LA.pm] Perlmonks compromised
In-Reply-To: <135303734014106499925881876424698765751-Webmail@me.com>
References: <106740483461215633604554724336870787208-Webmail@me.com>
	<200907301738.n6UHcLri083934@kzsu.stanford.edu>
	<86vdla8305.fsf@blue.stonehenge.com>
	<135303734014106499925881876424698765751-Webmail@me.com>
Message-ID: <75cbfa570907301147k2ff72712n922ca5d4d1475ec4@mail.gmail.com>

On Thu, Jul 30, 2009 at 11:08 AM, frosty<biztos at mac.com> wrote:
...> Try it yourself. ?Oh joy. ?I think it's 8 but I'm too busy to
re-check right now.

Right, I went and changed my password yesterday (old password was
random sting of chars, not one of my usual re-usable ones, phew)- and
couldn't log in today, not realizing that my new password was more
then 8 chars! When I trimmed it down, it works.

funny thing is, one of my early projects I used "crypt" to obfuscate
the passwords, which only works on the first 8 chars. Had a complaint
from a user that when they changed the end of their long password, it
was still accepted, and ended up using a more sophistcated hash in a
later release. An 8-char password limit implies at least "crypt"-level
hashing, which these days is not much better then plaintext- strange
that perlmonks gave the limitation but not the benefit, even as small
a benefit as crypt is!

> Also, considering how big of a rookie move this is for a site full of dev experts,
> I'm completely underwhelmed with the response from Perlmonks so far.

Agreed. It is a good place to get questions answered properly, and it
is a site run as a hobby/non-profit so I don't expect huge
person-hours thown at security- but I do expect this breach to be
taken more seriously than it has been. Take the server down to fix
what can be fiexed, change the passwords, and send an email to
everyone because they might not have found out yet otherwise... it
doesn't have to be done quickly by a team, it's OK if the site is down
a while... all those ideas already posted on threads on perlmonks
repeatedly by various folks already.

From fred at redhotpenguin.com  Thu Jul 30 19:18:05 2009
From: fred at redhotpenguin.com (Fred Moyer)
Date: Thu, 30 Jul 2009 19:18:05 -0700
Subject: [sf-perl] Fwd: [LA.pm] Perlmonks compromised
In-Reply-To: <75cbfa570907301147k2ff72712n922ca5d4d1475ec4@mail.gmail.com>
References: <106740483461215633604554724336870787208-Webmail@me.com>
	<200907301738.n6UHcLri083934@kzsu.stanford.edu>
	<86vdla8305.fsf@blue.stonehenge.com>
	<135303734014106499925881876424698765751-Webmail@me.com>
	<75cbfa570907301147k2ff72712n922ca5d4d1475ec4@mail.gmail.com>
Message-ID: <ad28918e0907301918t6015e32bme5fbc877480d34d6@mail.gmail.com>

Here's the details of the PerlMonks incident, search for perlmonks on
this page.  It is an interesting read, you can see the shell history
the attacker used to get the data.

http://seclists.org/dailydave/2009/q3/0047.html

A snippet:

"There is a really simple reason we owned PerlMonks: we couldn't resist more
than 50,000 unencrypted programmer passwords.

That's right, unhashed. Just sitting in the database. From which they save
convenient backups for us."