Changeset 166

Show
Ignore:
Timestamp:
06/22/04 09:22:28 (4 years ago)
Author:
svn
Message:

Fixed bug where the ordering token was showing up in help.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • manage/trunk/CLI/CLI.pm

    r165 r166  
    142142 
    143143                for my $key (keys %cmd) { 
     144                my $text = $key; 
     145 
    144146                        next if $key =~ /^[A-Z]+$/; 
     147                        $text =~ s/^\d+\)//; 
    145148 
    146149                        if (ref($cmd{$key}) eq 'HASH' and $cmd{$key}->{HELP}) { 
    147                                 $process_help->($cmd{$key}->{HELP}, \%commands, $key); 
    148                         } else { 
    149                                 $commands{$key} = ''; 
     150                                $process_help->($cmd{$key}->{HELP}, \%commands, $text); 
     151                        } else { 
     152                                $commands{$text} = ''; 
    150153                        } 
    151154                } 

  • manage/trunk/plugins/nodelist2.pm

    r165 r166  
    11{ 
    22        add => { 
    3                 host => { 
     3                '1)host' => { 
    44                        '$[a-zA-Z0-9.-]+' => { 
    55                                '$*[0-9.]+' => {