#!/usr/bin/perl -w

# simple script in Perl for xchat by Mux (mhenrion@cybercable.fr)

# the /j alias permit you to specify channel names without '#' before, just
# like mIRC does. you can also mix channel names with and without '#'
# like /j one,#two,three,#four

 IRC::register("/j script", "1.0", "", "");
 IRC::add_command_handler("j", "j_handler");

sub j_handler
{
    my $line = shift(@_);
    $line =~ s/(^|,)([^\#])/$1\#$2/g;
  IRC::command("/join $line");
    return 1;
}