[28258] in Perl-Users-Digest

home help back first fref pref prev next nref lref last post

Perl-Users Digest, Issue: 9622 Volume: 10

daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Aug 17 21:06:58 2006

Date: Thu, 17 Aug 2006 18:05:07 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)

Perl-Users Digest           Thu, 17 Aug 2006     Volume: 10 Number: 9622

Today's topics:
    Re: Cross-site script question <mgarrish@gmail.com>
    Re: get() not working...need help <mgarrish@gmail.com>
    Re: Help Perl and Excel--Multiposted <rvtol+news@isolution.nl>
    Re: how to define a layer between data and functions <rvtol+news@isolution.nl>
    Re: How to redefine a sub during testing? anno4000@radom.zrz.tu-berlin.de
    Re: HOW to rename a NPH script ? <umu@hrz.tu-chemnitz.de>
    Re: John Bokma <john@castleamber.com>
    Re: John Bokma usenet@DavidFilmer.com
    Re: Numbers & Whitespace Help! <rvtol+news@isolution.nl>
    Re: perl dbi driver for microsoft sql? <brian.helterline@hp.com>
    Re: perl dbi driver for microsoft sql? <john@castleamber.com>
    Re: perl dbi driver for microsoft sql? <bootiack@yahoo.com>
    Re: perl dbi driver for microsoft sql? <bootiack@yahoo.com>
    Re: Problems with Win32::Internet FTP->put <aragorn.m@gmail.com>
    Re: Problems with Win32::Internet FTP->put <glex_no-spam@qwest-spam-no.invalid>
    Re: Problems with Win32::Internet FTP->put <mgarrish@gmail.com>
    Re: Problems with Win32::Internet FTP->put <veatchla@yahoo.com>
    Re: The Semicolon Wars as a software industry and human <pmartin@snakecard.com>
        Update (was: My multipost-detecting usenet bot (David F usenet@DavidFilmer.com
        Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)

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

Date: 17 Aug 2006 15:20:31 -0700
From: "Matt Garrish" <mgarrish@gmail.com>
Subject: Re: Cross-site script question
Message-Id: <1155853231.413162.66140@m73g2000cwd.googlegroups.com>


somebody wrote:

> On Wed, 16 Aug 2006 16:07:06 -0700, Matt Garrish wrote:
>
> > Removing line 12 has always worked for me.
>
> Asshole.

Well, if that's the best you can do I can understand why your code is
prone to exploits.

Out of curiosity, what did you really think would happen by posting
useless bits of a URL? If you have a question about how to secure your
code, it helps to post enough of it so people can help. If you just
don't understand how exploits work, then you're in the wrong group
altogether as pointed out in another post.

Don't strain your vocabulary following up, now.

Matt



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

Date: 17 Aug 2006 17:19:45 -0700
From: "Matt Garrish" <mgarrish@gmail.com>
Subject: Re: get() not working...need help
Message-Id: <1155860385.188164.23400@i42g2000cwa.googlegroups.com>


usenet@DavidFilmer.com wrote:

> Shan wrote:
> > 	my $html = get($_)
>
> Hmmm... that's a new one for me...
>
>    perldoc -f get
>    No documentation for perl function `get' found
>
> I'm not familiar with the "get" function...
>
> >    ...
> >    ...
>
> Hmmm. I'm not familiar with the '...' command either.

You've seriously never encountered the range operator before? ; )

Matt



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

Date: Fri, 18 Aug 2006 00:02:53 +0200
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: Help Perl and Excel--Multiposted
Message-Id: <ec303m.1b4.1@news.isolution.nl>

Ben Morrow schreef:

> In a typical threaded message, I-R-T is the *last* msgid in
> References, so perhaps XNews is (wrongly) assuming the threading is
> erroneous when this is not the case. FWIW, trn threads it correctly
> in clpmisc (I don't read clpmodules).

Leaving out the I-R-T might work better.

-- 
Affijn, Ruud

"Gewoon is een tijger."




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

Date: Fri, 18 Aug 2006 00:11:04 +0200
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: how to define a layer between data and functions
Message-Id: <ec30mk.1fk.1@news.isolution.nl>

bpatton@ti.com schreef:

> data is the facts
> subroutines are the rules.
>
> At the very worst and probably the most difficult to maintain would be
> the if-then-else structure hundreds, maybe thousands of line long.

Try a 'state machine' approach. Maybe "just" yacc/lex.

-- 
Affijn, Ruud

"Gewoon is een tijger."




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

Date: 17 Aug 2006 22:31:40 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: How to redefine a sub during testing?
Message-Id: <4kk92cFcjaf6U1@news.dfncis.de>

kj  <socyl@987jk.com.invalid> wrote in comp.lang.perl.misc:

[...]

> When subclassing is an option, that's usually the way to go, but
> now I'm dealing with packages that are not using the OO calling
> model, so this is not an option.
> 
> I'm thinking that there must be some "symbol table surgery" that
> I may be able to perform to temporarily replace the original sub
> with another one, but I'm a bit shaky on symbol table manipulations.

While you have withdrawn your question in a followup, it is still
valid.  The symbol table surgery is rather simple.  You can redefine
(at runtime) functions in a module you have loaded.  The module
will then use your redefined version(s) internally.

Here is a demonstration using Data::Dumper.  Internally, the function
Dumper() is defined as

    sub Dumper {
      return Data::Dumper->Dump([@_]);
    }

So redefining Data::Dumper::Dump will change the behavior of the
imported function Dumper() (and make Data::Dumper useless), as
shown below:

    use Data::Dumper;

    my @l = qw( one two three);
    print Dumper( \ @l);

    *Data::Dumper::Dump = sub { "hihi haha hoho\n" };
    print Dumper( \ @l);

That prints

    $VAR1 = [
              'one',
              'two',
              'three'
            ];
    Subroutine Data::Dumper::Dump redefined at ./ttt line 12.
    hihi haha hoho


That's as close as you get to subclassing an exporting module.
The technique may be okay for speeding up tests, but never in
production code.

Anno


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

Date: Fri, 18 Aug 2006 03:00:50 +0200
From: Ulrich Mueller <umu@hrz.tu-chemnitz.de>
Subject: Re: HOW to rename a NPH script ?
Message-Id: <Pine.LNX.4.64.0608180223000.27028@herein.hrz.tu-chemnitz.de>

On Thu, 17 Aug 2006, Matt Garrish wrote:

> 
> Ulrich Mueller wrote:
> 
> > On Wed, 16 Aug 2006, Matt Garrish wrote:
> >
> > >
> > > Ulrich Mueller wrote:
> > >
> > > > Hallo,
> > > >
> > > > I've a NPH perl CGI under apache
> > >
> > > >
> > > > What possibilities I have to tell apache,
> > > > that this is still an nph script,
> > >
> > > Just a piece of advice, although your question makes passing reference
> > > to perl, it's really an apache configuration issue. You're much more
> > > likely to get the advice you're looking for in an apache group. You
> > > might hit on someone who knows here, but you're equally likely to hit
> > > on someone who only half knows, and there'd be no one to tell you what
> > > they missed.
> > >
> > > Matt
> > >
> >
> > Thanks for the advice though it was not what I was looking for.
> > http://perl.apache.org/start/index.html
> > states that "mod_perl is the marriage of Apache and Perl",
> > so I asked the mother first via alt.apache.configuration.
> > No answer for two days, so I tried asking the father,
> > And got "ask the mother!"
> > Child seems not to be grown up old enough
> > to participate in usenet, is it?
> > So it seems, I have to try to figure it out myself,
> > and tell the result both of them...
> >
> > Inserting "ScriptAlias /hallo /path/to/nph-script/nph-test.cgi"
> > into httpd.conf is an easy solution if you are allowed to.
> > Otherwise maybe Apache::Fake, but haven't tried this yet.
> > Or maybe very simple... ideas are still welcome,
> 
> You didn't quite get the "no one cares about apache configuration here"
> part. This is a group to discuss Perl coding problems, and your
> question has nothing to do about Perl and everything to do about apache
> and configuring nph scripts. If you want to post off-topic questions
> don't get all huffy when no one responds. You'd be better off to follow
> up in the apache group as that's where most people would look for this
> kind of answer.
> 
> Matt
> 

OFF-TOPIC:
YOUR comments seem to be more Off-topic to me,
you should post them to society.usenet.moderation.strict.
Cause, tell me what is Apache::Fake if it's not perl code.
And I asked for doing this by coding at first, only secondly by .htaccess.
But you seem to have your very strict idea about off-topics
in this group. Well for me as newbie, excuse me, 
I didn't know, maybe you should call this group
comp.lang.perl.syntax instead of misc.


ON-TOPIC: (I hope)
Some got it working by using method 
assbackwards() of RequestRec somehow as in

sub handler {
  my $r = shift;

  $r->assbackwards(1);
  print "HTTP/1.1 200 OK\n";
  print "Content-Type: text/plain\n\n";
  print "This is PERL printing!\n";

  return Apache::OK;
}

but not for me :(
Ulrich


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

Date: 17 Aug 2006 22:57:20 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: John Bokma
Message-Id: <Xns9822B6A4B94C2castleamber@130.133.1.4>

usenet@DavidFilmer.com wrote:

> he can be a hothead sometimes (he went all Xah Lee on me a couple of 
> days ago when I did something that I should have done differently).

I think my anger was still justified: a buggy bot ran by an unknown person 
in several groups. And I am somewhat sure that if I hadn't expressed 
myself that strongly someone else would have done so (or a few together) 
:-)

-- 
John                Experienced Perl programmer: http://castleamber.com/

          Perl help, tutorials, and examples: http://johnbokma.com/perl/


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

Date: 17 Aug 2006 17:19:40 -0700
From: usenet@DavidFilmer.com
Subject: Re: John Bokma
Message-Id: <1155860380.139521.298930@75g2000cwc.googlegroups.com>

John Bokma wrote:
> I think my anger was still justified

And I agree. That's why I've apologized   :(....

But I doubt I'll ever see the day that Xah recognizes and apologizes
for his errors in judgement...

-- 
David Filmer (http://DavidFilmer.com)



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

Date: Fri, 18 Aug 2006 00:41:46 +0200
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: Numbers & Whitespace Help!
Message-Id: <ec32ff.1co.1@news.isolution.nl>

digitalje schreef:

> Is there a regular expression that I could use that would fail if a
> number has a white space(s)embedded in it?

Why only reject internal whitespace and not other unwanted characters?

See Regexp::Common, more specifically Regexp::Common::number.

-- 
Affijn, Ruud

"Gewoon is een tijger."




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

Date: Thu, 17 Aug 2006 23:15:04 GMT
From: Brian Helterline <brian.helterline@hp.com>
Subject: Re: perl dbi driver for microsoft sql?
Message-Id: <YL6Fg.146$Tb5.115@news.cpqcorp.net>

gavino wrote:
> where do i find dbi driver for micrsoft sql?
> 
You need the ODBC driver to connect to MS SQL

http://search.cpan.org/search?query=ODBC&mode=all

-brian


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

Date: 17 Aug 2006 23:29:46 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: perl dbi driver for microsoft sql?
Message-Id: <Xns9822BC246D30Fcastleamber@130.133.1.4>

"gavino" <bootiack@yahoo.com> wrote:

> where do i find dbi driver for micrsoft sql?

http://www.google.com/search?q=site:johnbokma.com+odbc

If you're going to use LWP::UserAgent as well, read the second link in 
that result.

-- 
John                Experienced Perl programmer: http://castleamber.com/

          Perl help, tutorials, and examples: http://johnbokma.com/perl/


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

Date: 17 Aug 2006 17:49:38 -0700
From: "gavino" <bootiack@yahoo.com>
Subject: Re: perl dbi driver for microsoft sql?
Message-Id: <1155862178.756019.147340@b28g2000cwb.googlegroups.com>


Sherm Pendley wrote:
> "Paul Lalli" <mritty@gmail.com> writes:
>
> > gavino wrote:
> >> where do i find dbi driver for micrsoft sql?
> >
> > The same place you find all Perl Modules - http://search.cpan.org
>
> Quite right.
>
> > Is
> > http://search.cpan.org/~jwied/Msql-Mysql-modules-1.2219/mysql/lib/DBD/mysql.pm
> > what you're looking for?
>
> Actually, no. mSQL is not Microsoft SQL Server, it's a different product:
>
>     <http://www.hughes.com.au/products/msql/>
>
> I couldn't find a MS-SQL specific DBD module - I think most people use
> DBD::ODBC.
>
> sherm--

how id DBD::ODBC set up?
I was trying sybase and freeTDS and have headache



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

Date: 17 Aug 2006 17:50:58 -0700
From: "gavino" <bootiack@yahoo.com>
Subject: Re: perl dbi driver for microsoft sql?
Message-Id: <1155862258.180971.201760@h48g2000cwc.googlegroups.com>


Sherm Pendley wrote:
> "Paul Lalli" <mritty@gmail.com> writes:
>
> > gavino wrote:
> >> where do i find dbi driver for micrsoft sql?
> >
> > The same place you find all Perl Modules - http://search.cpan.org
>
> Quite right.
>
> > Is
> > http://search.cpan.org/~jwied/Msql-Mysql-modules-1.2219/mysql/lib/DBD/mysql.pm
> > what you're looking for?
>
> Actually, no. mSQL is not Microsoft SQL Server, it's a different product:
>
>     <http://www.hughes.com.au/products/msql/>
>
> I couldn't find a MS-SQL specific DBD module - I think most people use
> DBD::ODBC.
>
> sherm--
>
> --
> Web Hosting by West Virginians, for West Virginians: http://wv-www.net
> Cocoa programming in Perl: http://camelbones.sourceforge.net

HOW?



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

Date: 17 Aug 2006 15:38:28 -0700
From: "AJ" <aragorn.m@gmail.com>
Subject: Re: Problems with Win32::Internet FTP->put
Message-Id: <1155854308.331139.92310@h48g2000cwc.googlegroups.com>

Paul Lalli wrote:
> AJ wrote:
> > I can't seem to get a file to "put" onto an FTP server. I can "get"
> > files without issue. I don't receive any errors from my last print
> > statement below (I just get "transferred failed []"). I have gone to
> > specifying a test file by name instead of a variable, still no luck.
> >
> > Anyone have any insights?
 ...
>
> I have no idea what's making you think $@ would contain an error
> message.  There's no mention of $@ in the documentation.  Please search
> the docs for the Error() and GetResponse() methods.  Once you've
> determined the reason for the failure, if you can't figure out what's
> wrong, post here again, with your updated script and error output.
>
> Paul Lalli

Paul, Thanks for your reply. I did find the GetResponse gives me back
the last response from the remote server (in this case it returns "250
CWD command successful." response to the change directory command). Not
necessarily helpful... Updated code is below. Following this is the
debug output from running "perl -d testftp.pl".

use Win32::Internet;

$inet = new Win32::Internet();

$inet->FTP($MYFTPSRV, "ftpsrv", "ftpuser", "ftppassword");

if ($MYFTPSRV->Cd("/FromHost")) {

	print "cd sucess\n";

	if ($MYFTPSRV->Put("c:/temp/testfile.tst")){

       	print "put success\n";

	} else {
		$failed = $MYFTPSRV->GetResponse();
		print "transfer failed [$failed]\n";
	}
}
$inet->Close($MYFTPSRV);

The following is output from perl -d testftp.pl:

main::(testftp.pl:8):           if
($MYFTPSRV->Put("c:/temp/testfile.tst")){

  DB<1> s
Win32::Internet::Put(C:/Perl/site/lib/Win32/Internet.pm:1085):
1085:       my($self, $local, $remote, $context) = @_;
  DB<1> s
Win32::Internet::Put(C:/Perl/site/lib/Win32/Internet.pm:1086):
1086:       return undef unless ref($self);
  DB<1> s
Win32::Internet::Put(C:/Perl/site/lib/Win32/Internet.pm:1088):
1088:       if($self->{'Type'} ne "FTP") {
  DB<1> s
Win32::Internet::Put(C:/Perl/site/lib/Win32/Internet.pm:1092):
1092:       my $mode = ($self->{'Mode'} eq "asc" ? 1 : 2);
  DB<1> s
Win32::Internet::Put(C:/Perl/site/lib/Win32/Internet.pm:1094):
1094:       $context = 0 unless defined($context);
  DB<1> s
Win32::Internet::Put(C:/Perl/site/lib/Win32/Internet.pm:1096):
1096:       my $retval = FtpPutFile($self->{'handle'}, $local, $remote,
$mode, $context);
  DB<1> s
Win32::Internet::Put(C:/Perl/site/lib/Win32/Internet.pm:1097):
1097:       $self->{'Error'} = "Can't put file." unless
defined($retval);
  DB<1> s
Win32::Internet::Put(C:/Perl/site/lib/Win32/Internet.pm:1098):
1098:       return $retval;
  DB<1> s



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

Date: Thu, 17 Aug 2006 18:50:53 -0500
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: Problems with Win32::Internet FTP->put
Message-Id: <44e5011a$0$10299$815e3792@news.qwest.net>

AJ wrote:
> Paul Lalli wrote:
>> AJ wrote:
>>> I can't seem to get a file to "put" onto an FTP server. I can "get"
>>> files without issue. I don't receive any errors from my last print
>>> statement below (I just get "transferred failed []"). I have gone to
>>> specifying a test file by name instead of a variable, still no luck.
>>>
>>> Anyone have any insights?
> ...
>> I have no idea what's making you think $@ would contain an error
>> message.  There's no mention of $@ in the documentation.  Please search
>> the docs for the Error() and GetResponse() methods.  Once you've
>> determined the reason for the failure, if you can't figure out what's
>> wrong, post here again, with your updated script and error output.
>>
>> Paul Lalli
> 
> Paul, Thanks for your reply. I did find the GetResponse gives me back
> the last response from the remote server (in this case it returns "250
> CWD command successful." response to the change directory command). Not
> necessarily helpful... Updated code is below. Following this is the
> debug output from running "perl -d testftp.pl".
> 
> use Win32::Internet;
> 
> $inet = new Win32::Internet();
> 
> $inet->FTP($MYFTPSRV, "ftpsrv", "ftpuser", "ftppassword");
> 
> if ($MYFTPSRV->Cd("/FromHost")) {
> 
> 	print "cd sucess\n";
> 
> 	if ($MYFTPSRV->Put("c:/temp/testfile.tst")){
> 
>        	print "put success\n";
> 
> 	} else {
> 		$failed = $MYFTPSRV->GetResponse();
> 		print "transfer failed [$failed]\n";
> 	}
> }
> $inet->Close($MYFTPSRV);

Taking a quick look through the test.pl script, that comes with the 
package 
(http://search.cpan.org/src/GSAR/libwin32-0.191/Internet/test.pl), shows:

print "    Trying 'put test.pl'...\n";
$result = $FTP->Put("test.pl","test.pl");
$err = $FTP->Error();
print "*** Error: $err\n" if ! $result;

Maybe Error() will'll help you determine the issue.


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

Date: 17 Aug 2006 17:13:38 -0700
From: "Matt Garrish" <mgarrish@gmail.com>
Subject: Re: Problems with Win32::Internet FTP->put
Message-Id: <1155860018.289214.264140@75g2000cwc.googlegroups.com>


"AJ" <aragorn.m@gmail.com> wrote in message
news:1155854308.331139.92310@h48g2000cwc.googlegroups.com...
> Paul Lalli wrote:
>> AJ wrote:

>> > I can't seem to get a file to "put" onto an FTP server. I can "get"
>> > files without issue.
>>

>> Once you've
>> determined the reason for the failure, if you can't figure out what's
>> wrong, post here again, with your updated script and error output.
>>
>
> Updated code is below. Following this is the
> debug output from running "perl -d testftp.pl".
>

> use Win32::Internet;
>
> $inet = new Win32::Internet();
>
> $inet->FTP($MYFTPSRV, "ftpsrv", "ftpuser", "ftppassword");

If you're using MS proxy server:

http://support.microsoft.com/kb/233285/EN-US/

Other thoughts: Have you tried specifying the remote file name? Since
only the local is specified, you're also trying to write to
'c:/temp/testfile.tst' on the remote server. Is that really what you're
trying to do?

You might also want to try setting pasv before opening the connection.

Matt



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

Date: Thu, 17 Aug 2006 19:29:58 -0500
From: l v <veatchla@yahoo.com>
Subject: Re: Problems with Win32::Internet FTP->put
Message-Id: <1155860350_8531@sp6iad.superfeed.net>

AJ wrote:
> Paul Lalli wrote:
> 
>>AJ wrote:
>>
>>>I can't seem to get a file to "put" onto an FTP server. I can "get"
>>>files without issue. I don't receive any errors from my last print
>>>statement below (I just get "transferred failed []"). I have gone to
>>>specifying a test file by name instead of a variable, still no luck.
>>>
>>>Anyone have any insights?
> 
> ...
> 
>>I have no idea what's making you think $@ would contain an error
>>message.  There's no mention of $@ in the documentation.  Please search
>>the docs for the Error() and GetResponse() methods.  Once you've
>>determined the reason for the failure, if you can't figure out what's
>>wrong, post here again, with your updated script and error output.
>>
>>Paul Lalli
> 
> 
> Paul, Thanks for your reply. I did find the GetResponse gives me back
> the last response from the remote server (in this case it returns "250
> CWD command successful." response to the change directory command). Not
> necessarily helpful... Updated code is below. Following this is the
> debug output from running "perl -d testftp.pl".
> 
> Win32::Internet::Put(C:/Perl/site/lib/Win32/Internet.pm:1097):
> 1097:       $self->{'Error'} = "Can't put file." unless
> defined($retval);
> 

What do you see in the server's ftp log?  There should be an error code 
as well as the commands that ftp was sent by your script.

-- 

Len


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

Date: Thu, 17 Aug 2006 17:21:19 -0500
From: Philippe Martin <pmartin@snakecard.com>
Subject: Re: The Semicolon Wars as a software industry and human condition
Message-Id: <x86Fg.69346$LF4.37380@dukeread05>



>>It was philosophers that got us out of that Dark Ages mess, and no small
>>number of them lost their lives in doing so. And today, the philosophy
>>majors are the butts of the most jokes, because after the philosophers
>>succeeded in opening our minds, we forgot why we needed them.

Look east Xah, we're still in the "Dark Ages mess".




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

Date: 17 Aug 2006 18:02:24 -0700
From: usenet@DavidFilmer.com
Subject: Update (was: My multipost-detecting usenet bot (David Filmer))
Message-Id: <1155862944.820746.322070@74g2000cwt.googlegroups.com>

usenet@DavidFilmer.com wrote:
> I recently wrote and deployed a usenet 'bot which identifies
> multiposted messages.

Per several helpful suggestions (thanks), the bot has been considerably
refined. Several people who had originally expressed reservations have
given positive feedback on the changes.

The big problem with the original bot (as I now realize) was the long
and heavy message. That issue was fixed a couple of days ago, and the
message text has now been further refined per an additional sugestion.

As several folks also suggested, the message cross-references now
include groupnames (indented for clarity).

The bot now ignores messages which contain e-mail addresses and certain
URIs.  I believe this should be very effective in preventing the bot
from flagging spam (without admitting many false-negatives).  Keyword
filtering (inclusive) was suggested, but I believe the e-mail/URI
approach would be more robust, based on a bit of research into old
multiposts.

The "References" headers have been tweaked so the I-R-T is always the
last item listed. Some readers weren't properly threading the bot's
reply; there was some speculation that re-ordering the References in
this manner might help (verification appreciated).

It was also suggested that the bot not reply to messages which already
have a reply. I'm looking into that - it would require some significant
changes to program logic; it's not a quick-n-easy thing to do (as were
these other things).  And I'm not 100% convinced it's even a good idea
(multiposts with other replies are often flagged manually, right?).

I have not had a chance to look into ignoring control.cancel items yet.
But I've observed that cancels on some servers don't ever show up at
(or are not honored by) my provider (GigaNews), so even that would not
be guaranteed effective for all servers, given the oddities of Usenet
(however, I believe that most spam-related (non-)cancels would be
ignored by the e-mail/URI filtering anyway).

You may see an example of the current behavior of the bot at:
   http://tinyurl.com/oll3u
or <news:n9GdnS7qRsw0mXjZnZ2dneKdnZydnZ2d@giganews.com>
or see recent "Lorem Ipsum" postings in alt.test.test

To tell you the truth, if I knew then what I know now, I don't think I
would have ever written this bot in the first place. But I *have*
written it, and it's getting pretty well refined (thanks to many
suggestions), and it seems to have settled into something that is
favorable (or at least not patenly objectionable) to many folks.  John
Bokma has suggested some sort of vote, and I like that idea (though I'm
still not sure how to conduct it), but before attempting anything like
that, I'd like to let the bot run for 30 days or so to prove it out (so
folks have a more informed idea of exactly what they're voting
for/against).  And September is just around the corner, so there should
be some good test cases popping up soon...

Further input, of course, is always welcomed and appreciated.

-- 
David Filmer (http://DavidFilmer.com)



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

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 9622
***************************************


home help back first fref pref prev next nref lref last post