mirror of
https://github.com/perlbot/perlbuut
synced 2025-06-07 16:55:42 -04:00
12 lines
336 B
Text
12 lines
336 B
Text
sub {
|
|
my( $said, $pm ) = @_;
|
|
|
|
push @{$said->{special_commands}},
|
|
map { [ pci_part => $_ ] } @{$said->{recommended_args}}
|
|
;
|
|
|
|
print "Attempting to leave: @{$said->{recommended_args}} ";
|
|
}
|
|
|
|
__DATA__
|
|
Attempts to leave a list of channels. Syntax, part #foo #bar #baz. Note, does no sanity checking. Typically requires op or superuser.
|