2 # show the contents and paths of any commands in the cmd_cache
4 # This will tell you whether you are using the version of the command
5 # that you think you are...
7 # Copyright (c) 2007 Dirk Koopman G1TLH
12 return (1, $self->msg('e5')) if $self->priv < 9;
14 my @out = sprintf "%-20s %s", "Command", "Path";
15 for (sort keys %DXCommandmode::cmd_cache) {
16 next if $line && $_ !~ m|\Q$line|i;
17 my $v = $DXCommandmode::cmd_cache{$_};
19 push @out, sprintf "%-20s %s", $_, "$v.pl";