mirror of
https://github.com/perlbot/perlbuut
synced 2025-06-07 16:35:40 -04:00
13 lines
324 B
Perl
13 lines
324 B
Perl
sub {
|
|
my( $said, $pm ) = @_;
|
|
|
|
my @channels = grep /^#/, @{ $said->{recommended_args} };
|
|
|
|
push @{ $said->{special_commands} },
|
|
[ 'pci_join', @channels ];
|
|
|
|
print "Joining @{ $said->{recommended_args} }";
|
|
}
|
|
|
|
__DATA__
|
|
Attempts to join a list of channels. Syntax join #foo #bar #baz. Typically requires op or superuser.
|