Changeset 184

Show
Ignore:
Timestamp:
11/15/04 01:05:51 (4 years ago)
Author:
svn
Message:

Fixed grammar ordering problem.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • manage/trunk/CLI.pm

    r183 r184  
    216216        if (defined($token) or $cmd->{ACTION} or $cmd->{ERROR}) { 
    217217                for my $rx (sort { 
    218                 my ($lhs, $rhs) = ($a =~ /^\d+\)/, $b =~ /^\d+\)/); 
     218                my ($lhs, $rhs) = ( $a =~ /^(\d+)\)/, $b =~ /^(\d+)\)/ ); 
    219219 
    220220                        if ($lhs and $rhs) { 
    …… 
    228228                                $ac =~ s/^(\d+\))?(\$(\*)?)?//; 
    229229                                $bc =~ s/^(\d+\))?(\$(\*)?)?//; 
    230                                 if ($ac =~ /^[A-Z]+$/) { 
    231                                         if ($rhs) { 
    232                                                 +1; 
    233                                         } else { 
    234                                                 $ac cmp $bc; 
    235                                         } 
    236                                 } elsif ($bc =~ /^[A-Z]+$/) { 
    237                                         if ($lhs) { 
    238                                                 -1; 
    239                                         } else { 
    240                                                 $ac cmp $bc; 
    241                                         } 
    242                                 } elsif ($lhs or $rhs) { 
     230                                if (($lhs or $rhs) and not ($ac =~ /^[A-Z]+$/ or $bc =~ /^[A-Z]+$/)) { 
    243231                                        die("Can't mix ordered and unordered commands '$ac' <=> '$bc'"); 
    244232                                } else { 

  • manage/trunk/plugins/nodelist2.pm

    r182 r184  
    33{ 
    44        test => { 
    5                 '$*foo|bar' => { 
    6                         HELP => { 
    7                                 foo => "Foo", 
    8                                 bar => "Bar", 
     5                HELP => "Test", 
     6                '1)ping' => { 
     7                        HELP => "Ping", 
     8                        ACTION => sub { 
     9                                print("ping\n"); 
    910                        }, 
     11                }, 
     12                '2)food' => { 
     13                        ACTION => sub { print("FOOD!!!!!!!!\n"); }, 
     14                }, 
     15                '9)$.*' => { 
     16                        HELP => sub { return (); }, 
    1017                        ACTION => sub { 
    11                         }, 
    12                         '$.+' => { 
    13                                 HELP => [ "<value>", "Some value" ], 
    14                                 ACTION => { 
    15                                         HELP => sub { 
    16                                                 print("VARS: @_\n"); 
    17                                                 return ("<eol>", "Do it."); 
    18                                         }, 
    19                                         ACTION => sub { 
    20                                                 print("@_\n"); 
    21                                         }, 
    22                                 }, 
     18                                print("DOIT\n"); 
    2319                        }, 
    2420                },