mirror of
https://github.com/perlbot/perlbuut
synced 2025-06-07 16:55:42 -04:00
14 lines
345 B
Perl
14 lines
345 B
Perl
no warnings 'void';
|
|
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.
|