[27891] in Perl-Users-Digest
Perl-Users Digest, Issue: 9255 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jun 5 09:05:51 2006
Date: Mon, 5 Jun 2006 06:05:03 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 5 Jun 2006 Volume: 10 Number: 9255
Today's topics:
Re: CGI module & cookies <whoever@whereever.com>
Re: HOST - dreamhost.com / Liberality (Hosting, Basic R <ilias@lazaridis.com>
Howto self-delete files periodically with Perl <gundalav@gmail.com>
Re: John Bokma harassment <ilias@lazaridis.com>
Match line by line vincente13@gmail.com
new CPAN modules on Mon Jun 5 2006 (Randal Schwartz)
Re: Special variable to read out ||-match <bart@nijlen.com>
websieve <sam@boychip.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 5 Jun 2006 11:16:46 +0100
From: "IanW" <whoever@whereever.com>
Subject: Re: CGI module & cookies
Message-Id: <e610ae$bdg$1@blackmamba.itd.rl.ac.uk>
"Bart Van der Donck" <bart@nijlen.com> wrote in message
news:1149500969.065159.124040@g10g2000cwb.googlegroups.com...
>> "Content-type: application/octet-stream Content-disposition: attachment;
>> filename=test.doc [...]>
>> Is there a way round this? ie: saving the cookie without printing a
>> content-type?
>
> Sure. While CGI.pm offers an easy and reliable way to write cookies, it
> can be coded out by hand as well. Someting like this:
>
> -----------------------------------------------
> print <<"EndOfText";
> Set-Cookie: FALOGIN=abc; path=/; expires=Tue, 05-Jun-2007 09:39:13 GMT
> Date: Mon, 05 Jun 2006 09:39:13 GMT
> Content-type: application/octet-stream
> Content-disposition: attachment; filename=$filename
>
> [CONTENT GOES HERE]
>
> EndOfText
> -----------------------------------------------
>
> Hope this helps,
Yes it does thanks and just been looking at the CGI::Cookie docs which looks
like it'll do the trick:
http://search.cpan.org/~lds/CGI.pm-3.20/CGI/Cookie.pm
Regards
Ian
------------------------------
Date: Mon, 05 Jun 2006 13:44:10 +0300
From: Ilias Lazaridis <ilias@lazaridis.com>
Subject: Re: HOST - dreamhost.com / Liberality (Hosting, Basic Requirement)
Message-Id: <e611tq$m0a$1@mouse.otenet.gr>
Tim X wrote:
[...]
> I think the other point here is that everyone *assumes* Xah's account
> was cancelled simply because of a campaign to report him for spamming
> multiple newsgroups. I suspect there were other factors involved. for
> all anyone knows, the provider might have been getting complaints from
> people about Xah's account, website, e-mail and newsgorup posting for
> ages and just decided it was more trouble than it was worth to keep
> him as a customer.
[...]
> On usernet, I think the secret is "believe nothing, question
> everything" and remember, on the net, nobody knows your a dog!
I understand what you mean.
I've written in my message:
"It _seems_ that Mr. Xah Les's account was terminated by dreamhost.com
because of "
"
To dreamhost.com:
[...]
Additionally, it would be gentle if your company would make a _public_
statement subjecting this case, thus any interested party can verify the
validity of the statements. "
.
--
http://lazaridis.com
------------------------------
Date: 5 Jun 2006 03:44:41 -0700
From: "gundalav" <gundalav@gmail.com>
Subject: Howto self-delete files periodically with Perl
Message-Id: <1149504281.850839.80740@j55g2000cwa.googlegroups.com>
Dear expert,
Suppose I have a file created in this way:
~/MyDir/ $ perl mycode.pl > subdir/the_result.out
What I desired to do is to have a
script that : "automatically delete the files after 10 days they are
created".
What's the effective strategy to do this in Perl?
Or perhaps is there a better non-Perl solution?
Regards,
Gundala
------------------------------
Date: Mon, 05 Jun 2006 14:05:10 +0300
From: Ilias Lazaridis <ilias@lazaridis.com>
Subject: Re: John Bokma harassment
Message-Id: <e61356$mad$1@mouse.otenet.gr>
Xah Lee wrote:
> Thanks to the great many people who has written to my ISP in support of
[...]
> As to dreamhost my webhosting company canceling my account, i will try
> to reason with them, and see what is the final outcome. They have the
> legal right to kick me because in the contract that allowed them to do
> so with 30 days advanced noticed and without cause. However, it is my
> interest and my right, if they actually do kick me in the end, i'll try
> to contact Electronic Frontier Foundation and Better Business bureau
> for whatever advice or action i can solicit. Meanwhile, if you do know
> a web hosting company that can take some 80 G of bandwidth/month for
> less than $25 a month, please let me know! (i do hope if someone here
> runs a hosting business and can host my site. I will certainly return
> the favor.)
[...]
> Xah Lee wrote:
[...]
>> I wrote some full detail here:
>> http://xahlee.org/Periodic_dosage_dir/t2/harassment.html
>>
>> If you believe this lobbying to my webhosting provider is unjust,
>> please write to my web hosting provider abuse@dreamhost.com
>>
>> Your help is appreciated. Thank you.
HOST - dreamhost.com / Liberality (Hosting, Basic Requirement)
http://groups.google.com/group/comp.lang.python/browse_frm/thread/25618913752c457a
.
--
http://lazaridis.com
------------------------------
Date: 5 Jun 2006 05:42:24 -0700
From: vincente13@gmail.com
Subject: Match line by line
Message-Id: <1149511344.623393.186790@h76g2000cwa.googlegroups.com>
Hi all..
my $jarFile = "input.jar";
my $content = qx/jar tf $jarFile/;
$content contains the list of files in the jar file.
META-INF/
META-INF/MANIFEST.MF
searchjar/
searchjar/JARFileFilter.class
searchjar/Main.class
In the program, i would like to use regex to match line by line to
check if a specified string exists in it.
my $userInputString = "Main.class";
if(@match = $content =~ m/$userInputString/gs){
print "File is found:\t";
print @match;
}
How can i achieve to print out the result of "searchjar/Main.class"
Appreciate any help
------------------------------
Date: Mon, 5 Jun 2006 04:42:10 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Mon Jun 5 2006
Message-Id: <J0DEEA.yMx@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.
WWW-Blogger-2006.0604
http://search.cpan.org/~ermeyers/WWW-Blogger-2006.0604/
----
JavaScript-XRay-0.93
http://search.cpan.org/~jbisbee/JavaScript-XRay-0.93/
See What JavaScript is Doing
----
Apache-AuthCookie-3.10
http://search.cpan.org/~mschout/Apache-AuthCookie-3.10/
Perl Authentication and Authorization via cookies
----
WWW-BF2Player-0.01
http://search.cpan.org/~wilsond/WWW-BF2Player-0.01/
Fetch information about game servers from BF2Player.com
----
Business-ISMN-1.8
http://search.cpan.org/~bdfoy/Business-ISMN-1.8/
work with International Standard Music Numbers
----
HTML-XHTML-Lite-0.06
http://search.cpan.org/~smiffy/HTML-XHTML-Lite-0.06/
Light-weight Perl module for XHTML CGI applications
----
Algorithm-Combinatorics-0.16
http://search.cpan.org/~fxn/Algorithm-Combinatorics-0.16/
Efficient generation of combinatorial sequences
----
Base-Class-0.13
http://search.cpan.org/~wazzuteke/Base-Class-0.13/
A very simple and functional inside out base class
----
JavaScript-XRay-0.92
http://search.cpan.org/~jbisbee/JavaScript-XRay-0.92/
See What JavaScript is Doing
----
RDF-Query-1.035
http://search.cpan.org/~gwilliams/RDF-Query-1.035/
An RDF query implementation of SPARQL/RDQL in Perl for use with RDF::Redland and RDF::Core.
----
Mail-Audit-2.200_04
http://search.cpan.org/~rjbs/Mail-Audit-2.200_04/
Library for creating easy mail filters
----
POE-Component-Server-Ident-1.02
http://search.cpan.org/~bingos/POE-Component-Server-Ident-1.02/
A component that provides non-blocking ident services to your sessions.
----
DBIx-Class-DigestColumns-0.01000
http://search.cpan.org/~tkp/DBIx-Class-DigestColumns-0.01000/
Automatic digest columns
----
JavaScript-XRay-0.91
http://search.cpan.org/~jbisbee/JavaScript-XRay-0.91/
See What JavaScript is Doing
----
Handel-0.99_01
http://search.cpan.org/~claco/Handel-0.99_01/
Simple commerce framework with AxKit/TT/Catalyst support
----
Apache-Admin-Config-0.94
http://search.cpan.org/~rsoliv/Apache-Admin-Config-0.94/
A module to read/write Apache like configuration files
----
Cache-BDB-0.02
http://search.cpan.org/~jdr/Cache-BDB-0.02/
An object caching wrapper around BerkeleyDB
----
Module-Recursive-Require-0.02
http://search.cpan.org/~masap/Module-Recursive-Require-0.02/
This class require module recursively.
----
DBIx-Class-DigestColumns-0.00001
http://search.cpan.org/~tkp/DBIx-Class-DigestColumns-0.00001/
Automatic digest columns
----
JavaScript-XRay-0.9
http://search.cpan.org/~jbisbee/JavaScript-XRay-0.9/
See What Your JavaScript is Doing
----
Net-RTP-0.02
http://search.cpan.org/~njh/Net-RTP-0.02/
Send and recieve RTP packets (RFC3550)
----
Config-Record-1.1.1
http://search.cpan.org/~danberr/Config-Record-1.1.1/
Configuration file access
----
JSON-1.07
http://search.cpan.org/~makamaka/JSON-1.07/
parse and convert to JSON (JavaScript Object Notation).
----
Module-Recursive-Require-0.01
http://search.cpan.org/~masap/Module-Recursive-Require-0.01/
This class require module recursively.
----
Mail-DeliveryStatus-BounceParser-1.511
http://search.cpan.org/~rjbs/Mail-DeliveryStatus-BounceParser-1.511/
Perl extension to analyze bounce messages
----
Apache-Admin-Config-0.93
http://search.cpan.org/~dmuey/Apache-Admin-Config-0.93/
A module to read/write Apache like configuration files
----
POE-Component-Server-Ident-1.01
http://search.cpan.org/~bingos/POE-Component-Server-Ident-1.01/
A component that provides non-blocking ident services to your sessions.
----
HTML-XHTML-Lite-0.05
http://search.cpan.org/~smiffy/HTML-XHTML-Lite-0.05/
Light-weight Perl module for XHTML CGI applications
----
JavaScript-Lint-0.03
http://search.cpan.org/~hdm/JavaScript-Lint-0.03/
Check JavaScript code for problems
----
Net-DNS-DynDNS-0.93
http://search.cpan.org/~ddick/Net-DNS-DynDNS-0.93/
Update dyndns.org with correct ip address for your domain name
----
Perl-Metrics-0.06
http://search.cpan.org/~adamk/Perl-Metrics-0.06/
The Perl Code Metrics System
----
JavaScript-Lint-0.02
http://search.cpan.org/~hdm/JavaScript-Lint-0.02/
Check JavaScript code for problems
----
Net-IP-Extract-0.02
http://search.cpan.org/~mcantoni/Net-IP-Extract-0.02/
Perl module to extract Ip Address from a document
----
Apache-DBI-1.01
http://search.cpan.org/~pgollucci/Apache-DBI-1.01/
Initiate a persistent database connection
----
Win32-IPHelper-0.05
http://search.cpan.org/~lmasara/Win32-IPHelper-0.05/
Perl wrapper for Win32 IP Helper functions and structures.
----
PPI-1.115
http://search.cpan.org/~adamk/PPI-1.115/
Parse, Analyze and Manipulate Perl (without perl)
----
Bundle-HTMLWikiConverter-0.03
http://search.cpan.org/~diberri/Bundle-HTMLWikiConverter-0.03/
A bundle to install HTML::WikiConverter and all its dialects
----
Base-Class-0.12
http://search.cpan.org/~wazzuteke/Base-Class-0.12/
A very simple and functional inside out base class
----
WWW-Scraper-ISBN-ISBNdb_Driver-0.01
http://search.cpan.org/~diberri/WWW-Scraper-ISBN-ISBNdb_Driver-0.01/
isbndb.com driver for WWW::Scraper::ISBN
----
Baseball-Sabermetrics-0.01_01
http://search.cpan.org/~victor/Baseball-Sabermetrics-0.01_01/
A Baseball Statistics Module
----
HTML-WikiConverter-0.53
http://search.cpan.org/~diberri/HTML-WikiConverter-0.53/
Convert HTML to wiki markup
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.
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: 5 Jun 2006 03:46:29 -0700
From: "Bart Van der Donck" <bart@nijlen.com>
Subject: Re: Special variable to read out ||-match
Message-Id: <1149504389.395959.4990@y43g2000cwc.googlegroups.com>
it_says_BALLS_on_your_forehead wrote:
> Bart Van der Donck wrote:
> > Hello,
> >
> > In this code
> >
> > if ( 1 == 1
> > || 1 == 2
> > || 0 == 0
> > || 2 == 5 ) {
> > print "You're here because check 1 and 3 where okay.";
> > }
> >
> > Is there a possibility to readout which checks were positive and which
> > negative in the ||-series ?
>
> not in that code. you would short circuit on the first true condition.
> if you had separate 'if' statements for each condition, and set a flag
> for each condition that was true, with each flag representing a bit,
> you could sum the bits together and come up with a decimal
> representation of a binary number that represents the 'check numbers'
> that were true. so in this case 1 and 3 being true would correspond to:
> 1010 ( up to you to decide if you want to go left-to-right or
> vice-versa). 1010 would equate to 10.
Thanks it_says_BALLS_on_your_forehead. I've found a similar workaround.
--
Bart
------------------------------
Date: Mon, 05 Jun 2006 18:05:29 +1000
From: samboychip <sam@boychip.net>
Subject: websieve
Message-Id: <YGRgg.2810$b6.70506@nasal.pacific.net.au>
Hi, can anyone please shed some lights on me how to get websieve
authenticate with cyrus? Currently I have postfix and cyrus install in
freebsd, but I m not able to login thru websieve.
The error from webiseve is
Login Error
There was an error in loging you in to the server. Please click HERE and
try again.
System Error: IMAP::Admin [ initialize ]: try NO Login failed:
authentication failure
User server=127.0.0.
But I don't found error in http-error file.
Thanks
Sam
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 9255
***************************************
