#!/usr/bin/perl -w

package IRC;

# IRC substitute package - simulate xchat's IRC::foo
# Decklin Foster <decklin@red-bean.com> - public domain
# Usage: perl -w -MIRC <script.pl>

my @funcs = qw(
register
add_message_handler
add_command_handler
add_print_handler
add_timeout_handler
print
print_with_channel
send_raw
command
command_with_server
channel_list
server_list
user_list
user_info
ignore_list
dcc_list
get_info
get_prefs
user_list_short
perl_script_list
);

foreach my $func (@funcs) {
    *$func = sub {
        my $args = "'" . join("', '" => @_) . "'";
        for ($args) { s/\cC/%C/; s/\cB/%B/; s/\cO/%O/; }
        print "IRC::$func($args);\n";
    };
}

1;