our @ISA = qw/Exporter/;
-our @EXPORT = qw/valuecolor addCommand parseCommand/;
+our @EXPORT = qw/valuecolor addCommand parseCommand commands/;
our %channels;
our %commands;
return 0;
}
+sub commands {
+ my ($channel) = @_;
+ my @commands;
+ my $b = (exists $channels{lc $channel} ? $channels{lc $channel} : ['all']);
+ for my $c (sort keys %commands){
+ my $a = $commands{$c}->{acc};
+ if (intersect($a,$b) > 0){
+ push @commands, $c;
+ }
+ }
+ return join ', ', @commands;
+}
+
sub intersect {
my ($a, $b) = @_;
my %union;