Buffy

2001-04-01 Thread Leon Brocard

http://www.astray.com/Buffy/

Leon

ps if only PAUSE weren't down, this'd be on CPAN already...
-- 
Leon Brocard.http://www.astray.com/
yapc::Europehttp://yapc.org/Europe/

... An unbreakable toy is useful for breaking other toys


NAME
Buffy - An encryption scheme for Buffy the Vampire Slayer fans

SYNOPSIS
  use Buffy;

  print "Hello world";

DESCRIPTION
The first time you run a program under `use Buffy', the module removes
most of the unsightly characters from your source file. The code
continues to work exactly as it did before, but now it looks like this:

  use Buffy;
  BUffY bUFFY BUffY bUFFY bUfFy buffy BUFfy buFFY BufFy BufFY   bUFfy 
BuFFY buffy   bufFy bUffy bUffY BuFfy BuffY   bUFfy BUfFY BUFFy   Buffy bUffY  
   
  BuFFY BUFFy   BufFy BUFfy BUfFY buFfy BuffY   BuFfy   BUfFY bUffy buFFy   
BUffy   bUffy 

DIAGNOSTICS
`Can't buffy '%s''
Buffy could not access the source file to modify it.

`Can't rebuffy '%s''
Buffy could not access the source file to execute it.

AUTHOR
Leon Brocard [EMAIL PROTECTED]

This was based on Damian Conway's Bleach module and was inspired by
an idea by Philip Newton. I blame London Perl Mongers too...
http://www.mail-archive.com/london-pm%40lists.dircon.co.uk/msg03353.
html

COPYRIGHT
Copyright (c) 2001, Leon Brocard. All Rights Reserved. This module
is free software. It may be used, redistributed and/or modified
under the terms of the Perl Artistic License (see
http://www.perl.com/perl/misc/Artistic.html)




CGI .. its out to get me ...

2001-04-01 Thread Robin Szemeti

OK girls .. 

why does this .. do this?

[submit form with parameter init_login='Login'

my($q)=CGI-new;

...
if ( defined($q-param('init_login')) ){ 
  #do someting and it happens
}

... some code goes by

if ( defined($q-param('init_login')) ){ 
  #do someting and it DOESNT happen
}

now .. you are all about to say .. ahh .. something is reseting the
parameter elsewhere ... either Delete('init_login') or some such BUT if I
swap the first test to be 

my($init)=$q-param('init_login');
$q-param('init_login',$init);
if(defined($init)){ ... }

then the both calls work perficktly

so it appears that if ( defined($q-param('init_login')) ) is reseting
the CGI parameter to undef .. how can that be ??  or have I missed
something very basic about how the CGI module works ??

-- 
Robin Szemeti

The box said "requires windows 95 or better"
So I installed Linux!



Re: Buffy

2001-04-01 Thread Robin Szemeti

On Sun, 01 Apr 2001, you wrote:
 
 http://www.astray.com/Buffy/
 
 Leon
 
 ps if only PAUSE weren't down, this'd be on CPAN already...

was there not a recent thread regarding a module on CPAN and someone said
somehting along the lines of ' we need review of modules before they get
onto CPAN...' :)

Its amazing what people can do if left alone in a darkened room for a few
months isn't it .. it reminds me of that scene from 'The Shining' ...
pages and pages of the word 'Buffy' 

Have you been remebering to take your dried frog pills this week Leon ?
:-)

-- 
Robin Szemeti

The box said "requires windows 95 or better"
So I installed Linux!



Re: Buffy

2001-04-01 Thread Leon Brocard

Robin Szemeti sent the following bits through the ether:

 was there not a recent thread regarding a module on CPAN and someone said
 somehting along the lines of ' we need review of modules before they get
 onto CPAN...' :)

OKOK, and you'd have a "joke" category, into which silly things such
as Q::S, Bleach, Buffy, and Symbol::Aprox::Sub would go...

Leon
-- 
Leon Brocard.http://www.astray.com/
yapc::Europehttp://yapc.org/Europe/

... A pessimist is never disappointed



[schwern@pobox.com: DNA.pm]

2001-04-01 Thread Leon Brocard

Those crazy Americans! ;-)

- Forwarded message from Michael G Schwern [EMAIL PROTECTED] -

From: Michael G Schwern [EMAIL PROTECTED]
Subject: DNA.pm
To: [EMAIL PROTECTED]
Cc: [EMAIL PROTECTED]
Date: Sun, 1 Apr 2001 18:17:23 +0100

Not to be outdone by the Brits (see Leon's Buffy.pm
http://www.astray.com/Buffy/), American innovation brings us DNA.pm!

http://www.pobox.com/~schwern/src/ if it hasn't made it to CPAN yet.


NAME
DNA - Encodes your Perl program into an Amino Acid sequence

SYNOPSIS
use DNA;

CCAA CCAA AAGT CAGT TCCT CGCT ATGT AACA CACA TCTT GGCT TTGT AACA GTGT
TCCT AGCT CAGA TAGA ACGA TAGA TAGA CAGA TAGA CAGA CAGA CAGA TAGA CAGA
CAGA CAGA TAGA ATGA TAGA TAGA GTGA CAGA TAGA CTGA CAGA TAGA CAGA CAGA
CAGA TAGA TTGA CAGA TAGA CTGA TAGA CAGA CTGA TAGA TCGA CTGA ATGA TAGA
TAGA TAGA CAGA TAGA ACGA TAGA ACGA TAGA TAGA TAGA TAGA TAGA TAGA TAGA
CTGA CAGA CAGA TTGA TAGA CAGA ATGA CAGA TAGA TAGA GAGA TAGA GTGA CAGA
CAGA GTGA TAGA TAGA TTGA TAGA CAGA TAGA CAGA TCGA TTGA CAGA AGCT AACA
TACT AGCT AGCT AACA TTGT GAGT TTCT AACA GTTT TCCT CGCT ATCT GGCT GTGT
CAGA CAGA TAGA TAGA GAGA TAGA TAGA GAGA TAGA CAGA TAGA GTGA GTGA TAGA
GTGA GAGA ATGA TAGA TAGA CAGA TAGA TAGA CAGA TAGA TAGA CAGA TAGA CAGA
TAGA CAGA TAGA TAGA TAGA CAGA CTGA GAGA CAGA TCGA GTGA TAGA ATGA TAGA
TAGA CAGA ATGA TAGA TTGA TAGA CAGA TAGA TAGA TAGA CAGA CAGA TAGA TAGA
ATGA CTGA TAGA ATGA TAGA ATGA ATGA TAGA TAGA TAGA TAGA TAGA CAGA TAGA
CAGA TAGA TAGA CAGA TAGA ACGA ACGA TAGA CAGA TAGA GAGT TACA AGTT CGCT
CACA GCGA CCAA CCAA

...
- End forwarded message -

Leon
-- 
Leon Brocard.http://www.astray.com/
yapc::Europehttp://yapc.org/Europe/

... I totally paused!



Re: CGI .. its out to get me ...

2001-04-01 Thread rob

Robin Szemeti wrote:
OK girls .. 
...
[submit form with parameter init_login='Login'

my($q)=CGI-new;
...
if ( defined($q-param('init_login')) ){ 
  #do someting and it happens
}
... some code goes by
if ( defined($q-param('init_login')) ){ 
  #do someting and it DOESNT happen
}

now .. you are all about to say .. ahh .. something is reseting the
parameter elsewhere ... either Delete('init_login') or some such BUT if I
swap the first test to be 

First question - is the second if statement in a separate block?
Second question - is your server using mod_perl?

If the answer to both those questions is yes, then mod_perl is doing something nasty 
with closures and your blocks/subs.

Try passing $q around as a parameter - that usually solves the problem.

Alternatively, if you don't mind using the standard interface, then use that.


Rob Thompson



Re: Buffy

2001-04-01 Thread Greg McCarroll

* Leon Brocard ([EMAIL PROTECTED]) wrote:
 Robin Szemeti sent the following bits through the ether:
 
  was there not a recent thread regarding a module on CPAN and someone said
  somehting along the lines of ' we need review of modules before they get
  onto CPAN...' :)
 
 OKOK, and you'd have a "joke" category, into which silly things such

there already is such a category, the clue is in the s work in the 
above line, strangely in my local copy of CPAN (not rsynced for sometime)
there are only two entries, a module to make up rightish sounding 
words that are made up and a module to do maths with strings based
on the number of UPPER and lower case characters


-- 
Greg McCarroll  http://www.mccarroll.uklinux.net



Re: [schwern@pobox.com: DNA.pm]

2001-04-01 Thread Greg McCarroll

* Leon Brocard ([EMAIL PROTECTED]) wrote:
 Those crazy Americans! ;-)
 

Now all we need is Mutator that can de-DNA code, parse the perl,
change it in subtle ways and then re-DNA it.

Actually, i'm quite pleased Leon implemented Buffy.pm and took
up the namespace before we started inventing modules for all
of Sunnydale, along the lines of 

$a = Angel-new();
$b = Buffy-new();
$w = Willow-new();

$a-curse();

$a-{has_soul};  # returns 1

$a-makelovewith($w);

$a-{has_soul}; # returns 1

$a-makelovewith($b); # due to nature of argument
  # $a-receivemomentofperfecthappiness() 
  # is called

$a-{has_soul}; # returns 0

$a-curse();

in fact with some `debug' code to stdout, you could have a BtVS
script generator 

-- 
Greg McCarroll  http://www.mccarroll.uklinux.net




Re: [schwern@pobox.com: DNA.pm]

2001-04-01 Thread David H. Adler

On Sun, Apr 01, 2001 at 06:50:48PM +0100, Leon Brocard wrote:
 Those crazy Americans! ;-)

Hey, he never did this before he went over to Britain...

:-)
-- 
David H. Adler - [EMAIL PROTECTED] - http://www.panix.com/~dha/
for (('to you', 'dear '.shift)[0,0,1,0]) { print "Happy birthday $_" }
- perl code for wishing someone a happy birthday
Courtesy of purl



Re: ISO8601 [was] Re: Pointless, Badly-Written Module.

2001-04-01 Thread Matthew Byng-Maddick

On Fri, 30 Mar 2001, Paul Makepeace wrote:
 On Fri, Mar 30, 2001 at 01:41:14PM +0100, Matthew Byng-Maddick wrote:
  host(1)'s error messages are often misleading - it can give the message
  "try again" to nxdomain responses, for example...
 Given how fast .NSI namespace is being eaten up, that doesn't seem like
 such an unrealistic message :-)

H But what about typos? dot.con?

MBM

-- 
Matthew Byng-Maddick   Home: [EMAIL PROTECTED]  +44 20  8980 5714  (Home)
http://colondot.net/   Work: [EMAIL PROTECTED] +44 7956 613942  (Mobile)
In the face of entropy  and nothingness,  you kind of have to pretend it's
not there if you want to keep writing good code.-- Karl Lehenbauer




Re: ISO8601 [was] Re: Pointless, Badly-Written Module.

2001-04-01 Thread Matthew Byng-Maddick

On Sun, 1 Apr 2001, Robin Szemeti wrote:
 agreed it is a dumb thing, especially if your nameserver doesnt have a
 name to lookup 

Erm!!?!? How exactly were you planning to point anything at it? an NS
RR requires an authoritative name as it's RHS.

MBM

-- 
Matthew Byng-Maddick   Home: [EMAIL PROTECTED]  +44 20  8980 5714  (Home)
http://colondot.net/   Work: [EMAIL PROTECTED] +44 7956 613942  (Mobile)
In the face of entropy  and nothingness,  you kind of have to pretend it's
not there if you want to keep writing good code.-- Karl Lehenbauer




Re: CGI .. its out to get me ...

2001-04-01 Thread Robin Szemeti

On Sun, 01 Apr 2001, you wrote:

 First question - is the second if statement in a separate block?
 Second question - is your server using mod_perl?

nope ... not yet, but thats the intention.

 If the answer to both those questions is yes, then mod_perl is doing something nasty 
with closures and your blocks/subs.
 
 Try passing $q around as a parameter - that usually solves the problem.
 
 Alternatively, if you don't mind using the standard interface, then use that.


indeed $q is passed about as a parameter .. its the same 'q' thats handed
about.

its weird how just not doing the 'if defined' test on it directly makes
that happen ..  if you have more than one value assigned to a parameter
does it return the next on on the list when you call it next time?

hmm .. more investigation needed :) .. just remebered data::dumper is my
freind .. 

-- 
Robin Szemeti

The box said "requires windows 95 or better"
So I installed Linux!



Wavelan

2001-04-01 Thread Robin Szemeti

Anybody care to suggest a decent purveyor of the Lucent Wavelan cards?? 

My new laptop has declared itself unwilling to be shackled by network
cables and demands a nice Wavelan card 

If the decent purveyor of cards was also a cheap purveyor as well that
would be a bonus. My search of the usual suspects [qw/insight dabs
bluepoint/] failed to reveal a source.

-- 
Robin Szemeti

The box said "requires windows 95 or better"
So I installed Linux!



pix of legend?

2001-04-01 Thread Aaron Trevena


do we still have the pictures from the night of award winning drunkeness?

I'sd d certainly be interested at having another look.

Also the website has a few gaps picture wise.. did nobody bring a camera
on that many times?

btw the trophy cabinet will get done once I have a job again.

A.

-- 
A HREF = "http://termisoc.org/~betty" Betty @ termisoc.org /A
"As a youngster Fred fought sea battles on the village pond using a 
complex system of signals he devised that was later adopted by the Royal 
Navy. " (this email has nothing to do with any organisation except me)






Re: ISO8601 [was] Re: Pointless, Badly-Written Module.

2001-04-01 Thread Robin Szemeti

On Sun, 01 Apr 2001, you wrote:
 On Sun, 1 Apr 2001, Robin Szemeti wrote:
  agreed it is a dumb thing, especially if your nameserver doesnt have a
  name to lookup 
 
 Erm!!?!? How exactly were you planning to point anything at it? an NS
 RR requires an authoritative name as it's RHS.

if its a box-over-in-the corner that one day will be your DNS server
somewhere but right now its just a ip address on a network you're trying
to test before deploying .. it did get a name eventually.

and .. surely not all the nameservers are necessarily named, only the ones
published to the world, you could have internal servers that don;t answer
external queries (such as a primary master server with two slaves used as
authoratative servers to the world, whilst your primary master is left
untroubled) in which case the primary master would not need a name just
an address, and you might want to query it directly yourself to make sure
it was not telling porkies. ??

-- 
Robin Szemeti

The box said "requires windows 95 or better"
So I installed Linux!



Re: Wavelan

2001-04-01 Thread Robin Szemeti

On Sun, 01 Apr 2001, you wrote:
 On Sun, Apr 01, 2001 at 09:14:22PM +, Robin Szemeti wrote:
  Anybody care to suggest a decent purveyor of the Lucent Wavelan cards?? 

 My two recommended suppliers are; 
 http;//www.compconnect.co.uk
 web http://www.freebsd-services.co.uk

ta muchly .. off to surf :)

 I'm assuming you already have a basestation. If not, you'll probably be wanting
 one of those too. I can personally recommend the Apple Airport basestation

yes .. I'd heard Airport was good ..  can you still configuer it if you
don't have an apple to talk to it with? indeed is there any configuration
to do .. or is it jusrt a plain ethernet bridge?

 and I've heard good things of the Orinoco Residential Gateway.

umm .. the Orinoco residential thing .. that seems to have a load of stuff
I don't need like ISDN access and modems ... I was planning on just
bunging a PCI adapter in the border router with an external aerial and
configuring IPCHAINS to send the appropriate stuff down the approprite
intefaces .. the residential gateway seems fine for most uses, but I dint
fancy letting un firewalled packets straight out of my ISDN into the
ether and thence laptops etc,   the PCI adaptor/card solution should work
out about 100 quid cheaper.

so I think I'm settled on the ORINOCO PC Card - Gold really as my
solution. I was having trouble finding a Lucent supplier, various people
stock various things but it seems hard to find the bit I actually want ...

I rather fancied the proper Lucent/Orinoco ethernet/wavelan access point
thing that you screw on the wall .. except the'yre 600 quid a throw
..hell, thats more than I pay for a whole boxen!

thanks for the info I'll give the two places an e-mail.

-- 
Robin Szemeti

The box said "requires windows 95 or better"
So I installed Linux!