All pastes #435161 Raw Edit

lisp!

public text v1 · immutable
·published 2007-04-11 20:18 UTC
rendered paste body
#!/usr/bin/perl

# Build a char->hex map
for (0..255)
{
    $escapes{chr($_)} = sprintf("%%%02X", $_);
}

sub lisp
{
    my $query = shift;

    $query =~ s/s/th/g

    IRC::command ("/say $query");

    return 1;
}

IRC::register ("lisp", "1.0", "", "");

IRC::add_command_handler ("lisp", "lisp");