[25890] in Perl-Users-Digest
Perl-Users Digest, Issue: 8118 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu May 26 18:05:24 2005
Date: Thu, 26 May 2005 15:05:06 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Thu, 26 May 2005 Volume: 10 Number: 8118
Today's topics:
Re: FAQ 9.13 How do I edit my .htpasswd and .htgroup fi <sam++@--.com>
Re: FormMail Problem <noreply@gunnar.cc>
Re: FormMail Problem (Anno Siegel)
Re: FormMail Problem <noreply@gunnar.cc>
Re: FormMail Problem (Anno Siegel)
Re: FormMail Problem <noreply@gunnar.cc>
Re: Komodo and subversion <alexj@freesurf.ch>
Re: Komodo and subversion <mark.clementsREMOVETHIS@wanadoo.fr>
Re: lexical analyzer generators <tadmc@augustmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 27 May 2005 04:35:27 +0800
From: Sam <sam++@--.com>
Subject: Re: FAQ 9.13 How do I edit my .htpasswd and .htgroup files with Perl?
Message-Id: <d75dka$2dp7$1@news.hgc.com.hk>
PerlFAQ Server wrote:
> This message is one of several periodic postings to comp.lang.perl.misc
> intended to make it easier for perl programmers to find answers to
> common questions. The core of this message represents an excerpt
> from the documentation provided with Perl.
>
> --------------------------------------------------------------------
>
> 9.13: How do I edit my .htpasswd and .htgroup files with Perl?
>
> The HTTPD::UserAdmin and HTTPD::GroupAdmin modules provide a consistent
> OO interface to these files, regardless of how they're stored. Databases
> may be text, dbm, Berkeley DB or any database with a DBI compatible
> driver. HTTPD::UserAdmin supports files used by the `Basic' and `Digest'
> authentication schemes. Here's an example:
>
> use HTTPD::UserAdmin ();
> HTTPD::UserAdmin
> ->new(DB => "/foo/.htpasswd")
> ->add($username => $password);
>
I guess it is simply like add or del, something similar to commandline.
if there is no perl function to handle that, use popen() in perl.
Sam
>
>
------------------------------
Date: Thu, 26 May 2005 13:13:49 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: FormMail Problem
Message-Id: <3flq76F8g89cU1@individual.net>
Anno Siegel wrote:
> much as I'd like to find fault with FormMail :)
Not only you.
And that explains this unnecessary thread just because I pointed out
that "horribly, horrendously insecure and thoroughly broken" is not an
accurate description of the script the OP asked for help with. :(
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: 26 May 2005 14:47:03 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: FormMail Problem
Message-Id: <d74nh7$3k9$1@mamenchi.zrz.TU-Berlin.DE>
Gunnar Hjalmarsson <noreply@gunnar.cc> wrote in comp.lang.perl.misc:
> Anno Siegel wrote:
> > much as I'd like to find fault with FormMail :)
>
> Not only you.
>
> And that explains this unnecessary thread just because I pointed out
> that "horribly, horrendously insecure and thoroughly broken" is not an
> accurate description of the script the OP asked for help with. :(
You seem to take this as inexplicable random hostility, but there's
a history to it. Matt (personally quite the nice guy, it seems) has,
over many years, ignored pleas from the Perl community to take down,
fix, or get help fixing his archives. That may be understandable from
a young programmer whose crappy programs have hit the market successfully,
(and they were unmitigated crap in the beginning) but the net effect
was a drain of effort from the rest of the community. That isn't taken
lightly, and it is no wonder the efforts at fixing the scripts is seen
as "too little too late".
Anno
------------------------------
Date: Thu, 26 May 2005 17:54:40 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: FormMail Problem
Message-Id: <3fmavgF8jlbeU1@individual.net>
Anno Siegel wrote:
> Gunnar Hjalmarsson wrote:
>> Anno Siegel wrote:
>>> much as I'd like to find fault with FormMail :)
>>
>> Not only you.
>>
>> And that explains this unnecessary thread just because I pointed out
>> that "horribly, horrendously insecure and thoroughly broken" is not an
>> accurate description of the script the OP asked for help with. :(
>
> You seem to take this as inexplicable random hostility,
Hostility: yes, inexplicable or random: no.
> but there's a history to it.
I know *that* there is a history to it, even if I don't know (or care)
about the details.
What I think you and other 'gurus' should consider is that many
beginners don't know anything about those disagreements from almost 10
years ago. Accordingly, comments such as the above don't serve any
useful purpose. Instead they may cause confusion and hurt the
credibility of the regulars here, preventing beginners from listening
when you want to say something really important.
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: 26 May 2005 17:39:37 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: FormMail Problem
Message-Id: <d751kp$af3$1@mamenchi.zrz.TU-Berlin.DE>
Gunnar Hjalmarsson <noreply@gunnar.cc> wrote in comp.lang.perl.misc:
> Anno Siegel wrote:
> > Gunnar Hjalmarsson wrote:
> >> Anno Siegel wrote:
[mostly snipped]
> What I think you and other 'gurus' should consider is that many
> beginners don't know anything about those disagreements from almost 10
> years ago. Accordingly, comments such as the above don't serve any
> useful purpose.
The purpose is to dissuade people from using the substandard Perl coming
from Matt's archives to this day, running it or more importantly imitating
it. That's reason enough for me.
Anno
------------------------------
Date: Thu, 26 May 2005 20:43:28 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: FormMail Problem
Message-Id: <3fml1sF8f97dU1@individual.net>
Anno Siegel wrote:
> Gunnar Hjalmarsson wrote:
>> What I think you and other 'gurus' should consider is that many
>> beginners don't know anything about those disagreements from almost 10
>> years ago. Accordingly, comments such as the above don't serve any
>> useful purpose. Instead they may cause confusion and hurt the
>> credibility of the regulars here, preventing beginners from listening
>> when you want to say something really important.
>
> The purpose is to dissuade people from using the substandard Perl coming
> from Matt's archives to this day, running it or more importantly imitating
> it. That's reason enough for me.
Then call their attention to the fact that there are more up-to-date and
better alternatives to Matt's scripts at
http://nms-cgi.sourceforge.net/scripts.shtml
That's all there needs. Simple, accurate and credible.
It's high time that the Perl community gets cured from the Matt Wright
phobia. ;-)
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Thu, 26 May 2005 12:51:05 +0200
From: Alexandre Jaquet <alexj@freesurf.ch>
Subject: Re: Komodo and subversion
Message-Id: <4295aa1c$0$1159$5402220f@news.sunrise.ch>
Ambre a écrit :
> Hello,
> I'm trying to use subversion with Komodo 3.1 under Windows XP.
>
> I've installed Subversion and created a repository, but Komodo don't let
> me access to the source control menu.
>
> Did anyone have an idea ?
>
> Thanks,
> Nicolas
do you 've in the options set up the cvs path ? and checked source control
Alexandre Jaquet
------------------------------
Date: 26 May 2005 12:11:50 GMT
From: "Mark Clements" <mark.clementsREMOVETHIS@wanadoo.fr>
Subject: Re: Komodo and subversion
Message-Id: <4295bd05$0$3131$8fcfb975@news.wanadoo.fr>
Alexandre Jaquet wrote:
> Ambre a écrit :
> > Hello,
> > I'm trying to use subversion with Komodo 3.1 under Windows XP.
> >
> > I've installed Subversion and created a repository, but Komodo
> > don't let me access to the source control menu.
> >
> > Did anyone have an idea ?
> >
> > Thanks,
> > Nicolas
>
> do you 've in the options set up the cvs path ? and checked source
> control
This isn't a question for the perl mailing list.
However:
CVS path has nothing to do with subversion.
advising him to check source control is a little redundant here: it
would be like someone saying "I have a problem with my car" and the
advice being "check your car".
Mark
------------------------------
Date: Thu, 26 May 2005 16:49:32 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: lexical analyzer generators
Message-Id: <slrnd9ch3c.acu.tadmc@magna.augustmail.com>
Jay G. Scott <gl@torn.arlut.utexas.edu> wrote:
>
> i've asked this before, and i went off an read up on the answers,
> ie, ParseLex.
>
> well, this doesn't help.
Yes it does.
> i don't see anything out there that's remotely
> like lex/flex.
The module's docs say:
If a sub ref (anonymous sub-
routine) is given as third argument, it is called when the token is
recognized. Its arguments are the "Parse::Token" instance and the
string recognized by the regular expression.
> the perl tools seem incapable of the sort of flexibility
> i want.
Generalizing to all Perl Tools based on your misreading of the
docs for one of the tools is being rather *too* flexible. :-)
> in flex, i can do things like this:
>
> aab[cd]+ { C code }
>
> acr[a-z][0-9][a-r]* { some other code }
> [a-z0-9]+ {yet another chunk}
>
> whereas i don't see anything akin to this in ParseLex.
This works for me:
-----------------------------
#!/usr/bin/perl
use warnings;
use strict;
use Parse::Lex;
my @token = (
C => 'aab[cd]+', \&C,
OTHER => 'acr[a-z][0-9][a-r]*', \&OTHER,
YAC => '[a-z0-9]+', \&YAC,
NL => '\n', \&NL,
);
my $lexer = Parse::Lex->new(@token);
$lexer->from(\*DATA);
$lexer->next while not $lexer->eoi;
sub C {warn "C() got called with <<$_[1]>>\n"}
sub OTHER {warn "OTHER() got called with <<$_[1]>>\n"}
sub YAC {warn "YAC() got called with <<$_[1]>>\n"}
sub NL {warn "NL() got called with <<$_[1]>>\n"}
__DATA__
foobar aabdddacrx9
-----------------------------
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 8118
***************************************
