#!/usr/bin/perl

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

sub google
{
    my $query = shift;

    $query =~ s/([^A-Za-z0-9\-_.!~*'()])/$escapes{$1}/g;
    IRC::command "/say http://www.google.com/search?q=$query";
   
    return 0;
}

__END__