OT: BOFH sig gen

[Matthew Sackman]

I'm assuming that most people have come across/read the BOFH
stories...
...well I was bored and so put together a little script that
pulls an excuse off the board and puts it in the back of your
.signature file.

I realise this is off topic, just figured some people might
enjoy it! (obviously edit it as needs be).

============================================================
#! /usr/bin/perl

my $ppp = `/bin/ping -qc1 google.com`;
if ($ppp =~ /1 packets received/)
        {
        my @text = `/usr/bin/telnet bofh.jive.org 666`;
        my $bofh;
        foreach (@text)
                {
                        if ($_ =~ /Your excuse is\: (.*)/) {
                        $bofh = $1; }
                }
        my $sig = q/
Matthew Sackman
Nottingham
England

BOFH Excuse Board:
#bofh#
/;
        $sig =~ s/#bofh#/$bofh/msg;
        #print $sig, "\n";
        open(FILE, ">/home/matthew/.signature") || die "Can not open file";
        print FILE $sig;
        close FILE;
        }

============================================================

enjoy,

Matthew

-- 

Matthew Sackman
Nottingham
England

BOFH Excuse Board:
Electrons on a bender

pgpZxJEJclsJ6.pgp
Description: PGP signature