[29842] in Perl-Users-Digest
Perl-Users Digest, Issue: 1085 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Dec 1 09:09:41 2007
Date: Sat, 1 Dec 2007 06:09:08 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sat, 1 Dec 2007 Volume: 11 Number: 1085
Today's topics:
Re: Email with text file attachment <m@rtij.nl.invlalid>
Re: Error using SMTP object. <m@rtij.nl.invlalid>
Re: Net::SSH::Perl security question <m@rtij.nl.invlalid>
new CPAN modules on Sat Dec 1 2007 (Randal Schwartz)
Re: OT raibow <klaus03@gmail.com>
Re: OT raibow <tadmc@seesig.invalid>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 1 Dec 2007 12:57:49 +0100
From: Martijn Lievaart <m@rtij.nl.invlalid>
Subject: Re: Email with text file attachment
Message-Id: <pan.2007.12.01.11.57.49@rtij.nl.invlalid>
On Fri, 30 Nov 2007 20:30:41 -0800, Ron Bergin wrote:
> This is not the method I'd use, because I'd be using MIME::Lite, but you
> could do a system call to uuencode (to encode your file attachment) and
> pass it to the mail command.
I've used this method often and it works like a charm.
M4
------------------------------
Date: Sat, 1 Dec 2007 12:57:02 +0100
From: Martijn Lievaart <m@rtij.nl.invlalid>
Subject: Re: Error using SMTP object.
Message-Id: <pan.2007.12.01.11.57.02@rtij.nl.invlalid>
On Fri, 30 Nov 2007 19:41:05 -0600, pgmrdan wrote:
> Never mind. I had the wrong SMTP server name. It works now.
Yes, but....
> "pgmrdan" <pgmrdan@hotmail.com> wrote in message
> news:fiqb57$83p$1@news.netins.net...
>> I'm getting the following message -
>>
>> Can't call method "domain" on an undefined value at domain.pl line 4.
>>
>> When trying to execute the following -
>>
>> use Net::SMTP;
>>
>> $smtp = Net::SMTP->new('xxxxxxxxxx.xxx');
You never test for success here.
$smtp = Net::SMTP->new('xxxxxxxxxx.xxx') or die "<insert suitable
message>";
>> print $smtp->domain,"\n";
>> $smtp->quit;
HTH,
M4
------------------------------
Date: Sat, 1 Dec 2007 11:33:22 +0100
From: Martijn Lievaart <m@rtij.nl.invlalid>
Subject: Re: Net::SSH::Perl security question
Message-Id: <pan.2007.12.01.10.33.22@rtij.nl.invlalid>
On Fri, 30 Nov 2007 16:30:13 -0800, Joe wrote:
> On Nov 30, 12:28 pm, Martijn Lievaart <m...@rtij.nl.invlalid> wrote:
>
>> The CGI is probably looking for $HOME/.ssh/known_hosts2. Which means
>> that either the HOME variable is not filled, or the user has / as his
>> homedir.
>>
>> M4
>
> Thanks for the clue -- Just found out that when the web server's account
> is
> set to "/bin/nologin" or "/bin/false", the account's "HOME" becomes "/".
> When it's set to a shell, the home dir is properly identified.
>
> This might be a web server question, but since we are here -- how may I
> "cheat" in the perl/CGI program in order to designate an env $HOME
> variable?
> (I tried a few options from within perl/CGI to "setenv" but never got it
> right;
> also had no luck with Google on this).
The home directory can be set normally, probably choosing a shell gives a
suitable default. Consult your systems documentation aboud modifying
users.
HTH,
M4
------------------------------
Date: Sat, 1 Dec 2007 05:42:14 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Sat Dec 1 2007
Message-Id: <JsCvuE.Dzp@zorch.sf-bay.org>
The following modules have recently been added to or updated in the
Comprehensive Perl Archive Network (CPAN). You can install them using the
instructions in the 'perlmodinstall' page included with your Perl
distribution.
Apache-UpnpImgBrowser-0.01
http://search.cpan.org/~jpavlick/Apache-UpnpImgBrowser-0.01/
----
BBS-Client-0.03
http://search.cpan.org/~cornelius/BBS-Client-0.03/
A Client Module For BBS Systems
----
Business-TW-TSIB-VirtualAccount-0.04b
http://search.cpan.org/~cornelius/Business-TW-TSIB-VirtualAccount-0.04b/
Module for Taishin Bank Virtual Account Management
----
CGI.pm-3.31
http://search.cpan.org/~lds/CGI.pm-3.31/
----
Compress-LZF-3.1
http://search.cpan.org/~mlehmann/Compress-LZF-3.1/
extremely light-weight Lempel-Ziv-Free compression
----
Coro-4.22
http://search.cpan.org/~mlehmann/Coro-4.22/
coroutine process abstraction
----
Email-Date-1.103
http://search.cpan.org/~rjbs/Email-Date-1.103/
Find and Format Date Headers
----
Email-Date-Format-1.000
http://search.cpan.org/~rjbs/Email-Date-Format-1.000/
produce RFC 822 date strings
----
Email-Public-0.01
http://search.cpan.org/~jeteve/Email-Public-0.01/
Quickly find if an email address is from a public email provider
----
Email-Simple-Creator-1.424
http://search.cpan.org/~rjbs/Email-Simple-Creator-1.424/
build an Email::Simple object from scratch
----
File-PidSimple-0.05
http://search.cpan.org/~borisz/File-PidSimple-0.05/
Handle and create pidfiles easy
----
Geo-ICAO-0.36
http://search.cpan.org/~jquelin/Geo-ICAO-0.36/
Airport and ICAO codes lookup
----
HTML-RobotsMETA-0.00004
http://search.cpan.org/~dmaki/HTML-RobotsMETA-0.00004/
Parse HTML For Robots Exclusion META Markup
----
IO-AIO-Util-0.05
http://search.cpan.org/~gray/IO-AIO-Util-0.05/
useful functions missing from IO::AIO
----
Macrame-0.08
http://search.cpan.org/~davidnico/Macrame-0.08/
filter-time recursive macro framework providing the feature preventing Perl from being "a Lisp."
----
MailTools-2.02
http://search.cpan.org/~markov/MailTools-2.02/
----
Math-Base36-0.03
http://search.cpan.org/~bricas/Math-Base36-0.03/
Encoding and decoding of base36 strings
----
Math-Base36-0.04
http://search.cpan.org/~bricas/Math-Base36-0.04/
Encoding and decoding of base36 strings
----
Module-ScanDeps-0.80
http://search.cpan.org/~smueller/Module-ScanDeps-0.80/
Recursively scan Perl code for dependencies
----
Net-Amazon-S3-0.41
http://search.cpan.org/~lbrocard/Net-Amazon-S3-0.41/
Use the Amazon S3 - Simple Storage Service
----
Net-SIP-0.40
http://search.cpan.org/~sullr/Net-SIP-0.40/
Framework SIP (Voice Over IP, RFC3261)
----
Net-iContact-0.02
http://search.cpan.org/~icontact/Net-iContact-0.02/
iContact API
----
OurCal-1.1
http://search.cpan.org/~simonw/OurCal-1.1/
a simple yet featureful personal calendaring system
----
OurCal-1.2
http://search.cpan.org/~simonw/OurCal-1.2/
a simple yet featureful personal calendaring system
----
Parse-Marpa-0.001_049
http://search.cpan.org/~jkegl/Parse-Marpa-0.001_049/
(pre-Alpha) Jay Earley's general parsing algorithm, with LR(0) precomputation
----
Statistics-Benford-0.05
http://search.cpan.org/~gray/Statistics-Benford-0.05/
calculate the deviation from Benford's Law
----
Test-Fork-0.01_01
http://search.cpan.org/~mschwern/Test-Fork-0.01_01/
test code which forks
----
Text-CSV-Separator-0.18
http://search.cpan.org/~enell/Text-CSV-Separator-0.18/
Determine the field separator of a CSV file
----
Util-Properties-0.15
http://search.cpan.org/~alexmass/Util-Properties-0.15/
Java.util.properties like class
----
VCS-SCCS-0.04
http://search.cpan.org/~hmbrand/VCS-SCCS-0.04/
OO Interface to SCCS files
----
VCS-SCCS-0.05
http://search.cpan.org/~hmbrand/VCS-SCCS-0.05/
OO Interface to SCCS files
----
VCS-SCCS-0.06
http://search.cpan.org/~hmbrand/VCS-SCCS-0.06/
OO Interface to SCCS files
----
WWW-Anonymouse-0.03
http://search.cpan.org/~gray/WWW-Anonymouse-0.03/
interface to Anonymouse.org Email and News posting
----
WWW-Spamla-0.04
http://search.cpan.org/~gray/WWW-Spamla-0.04/
interface to Spam.la
----
WebService-Google-Reader-0.05
http://search.cpan.org/~gray/WebService-Google-Reader-0.05/
Perl interface to Google Reader
----
YATG-1.0303
http://search.cpan.org/~oliver/YATG-1.0303/
Fast SNMP data poller daemon, with storage and graphing
If you're an author of one of these modules, please submit a detailed
announcement to comp.lang.perl.announce, and we'll pass it along.
This message was generated by a Perl program described in my Linux
Magazine column, which can be found on-line (along with more than
200 other freely available past column articles) at
http://www.stonehenge.com/merlyn/LinuxMag/col82.html
print "Just another Perl hacker," # the original
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Sat, 1 Dec 2007 00:01:39 -0800 (PST)
From: Klaus <klaus03@gmail.com>
Subject: Re: OT raibow
Message-Id: <9c69e0df-979c-472f-b761-5a0ccc5ea201@d21g2000prf.googlegroups.com>
On Dec 1, 4:37 am, "Petr Vileta" <sto...@practisoft.cz> wrote:
> #!/usr/sbin/perl
> use strict;
use warnings;
> my @colors=('FF','CC','99','66','33','00');
> open H,"> colors.htm";
this is better written using lexical filehandles, open with three
arguments and test for failure:
open my $H, '>', 'colors.htm' or die "Error open 'colors.htm', reason:
$!";
> print H "<html><body><table border=1>\n";
print $H "<html><body><table border=1>\n";
> foreach my $r(@colors)
> {
> foreach my $g(@colors)
> {
> foreach my $b(@colors)
> {
> print H "<tr><td bgcolor='##r$g$b'>", ' 'x5, "</td></tr>\n";
print $H "<tr><td bgcolor='##r$g$b'>", ' 'x5, "</
td></tr>\n";
> }
> }
> }
> close H;
close $H;
> I'm looking for some algorithm what generate the same table but more similar
> to rainbow. I mean that all red tones will be together, all yellow tones will
> be together etc. in right order.
http://search.cpan.org/~dland/HTML-Rainbow-0.05/Rainbow.pm
--
Klaus
------------------------------
Date: Fri, 30 Nov 2007 19:57:59 -0600
From: Tad McClellan <tadmc@seesig.invalid>
Subject: Re: OT raibow
Message-Id: <slrnfl1ft7.g8p.tadmc@tadmc30.sbcglobal.net>
Petr Vileta <stoupa@practisoft.cz> wrote:
> My question is not perl specific but here are many clever people :-)
Folks who knowingly make off topic posts get stiffer scorefile entries.
Hope it was worth it...
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V11 Issue 1085
***************************************
