[lug] evolution signature script

[Jason Davis]

On Thu, 2004-11-04 at 16:23, Zan Lynx wrote:
> On Thu, 2004-11-04 at 16:08 -0700, Jason Davis wrote:
> > On Thu, 2004-11-04 at 15:19, John Hernandez wrote:
> > > A simplistic workaround might be to call perl from bash ;)
> > 
> > I tried that too ... didnt work :( 
> > 
> > here is the script
> > 
> > #!/usr/bin/perl -w
> > my $sf='signatures.txt';
> > my $sd='<|||>';
> > $/ = $sd;
> > open FILE,$sf;
> > $_ = $con[(rand(@con = <FILE>))];
> > close FILE;
> > chomp;
> > print;
> > 
> > 
> > my sig file looks like
> > 
> > sig1
> > <|||>
> > sig2
> > <|||>
> > sig 3
> > 
> > evo version:1.4.6-5
> > 
> > thanks
> > jd
> 
> I noticed your script just uses 'signatures.txt' and has no error
> handling.  Try using a full path name, and also put '|| die' after your
> open.
> 
> I am thinking that maybe Evo isn't running in the directory that you
> expect.

Thank you Zan! :)

jd
hello <- this was generated by the perl script :)