Changeset 157

Show
Ignore:
Timestamp:
06/01/04 10:50:23 (4 years ago)
Author:
svn
Message:

A bit more work on the DNS plugin.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • manage/trunk/manage

    r156 r157  
    165165 
    166166                                                $pattern = '.+' unless defined($pattern); 
    167                                                 if ($value =~ /$pattern/) { 
     167                                                if ($value =~ /^$pattern$/) { 
    168168                                                        ${$CONF{$key}->{value}} = $value; 
    169169                                                } else { 
     
    250250                for my $line (@line) { 
    251251                        $line =~ s/^  \e\[1m([^\s\e]+).*/$1/; 
     252                        next if $line =~ /^</; 
    252253                        if ($line =~ /^$text/) { 
    253254                                push(@matches, $line); 
     
    279280                for my $key (keys %CONF) { 
    280281                        goto COMMIT if !defined($ORIGINAL_CONF{$key}) or 
    281                         ${$CONF{$key}->{value}} ne $ORIGINAL_CONF{$key}; 
     282                               ${$CONF{$key}->{value}} ne $ORIGINAL_CONF{$key}; 
    282283                } 
    283284                return; 
  • manage/trunk/plugins/dns.pm

    r156 r157  
    2626                value => \$DETAIL, 
    2727                pattern => 'on|off', 
    28                 help => 'Whether to display extra detail in zone dumps.', 
     28                help => 'Whether to display extra zone detail.', 
    2929        }, 
    3030        'dns-key-name' => { 
     
    3838        'dns-timeout' => { 
    3939                value => \$TIMEOUT, 
     40                pattern => 'none|\d+', 
    4041                help => 'Network timeout.', 
     42        }, 
     43        'dns-server' => { 
     44                value => \$NS, 
     45                help => 'IP address of name server.', 
     46                pattern => '\d+\.\d+\.\d+\.\d+', 
     47        }, 
     48        'dns-ttl' => { 
     49                value => \$TTL, 
     50                help => 'Default TTL for new entries.', 
     51                pattern => '\d+', 
     52        }, 
     53        'dns-zone' => { 
     54                value => \$ZONE, 
     55                help => 'Default zone.', 
     56                pattern => '[.\dA-Za-z0-9-]+', 
    4157        }, 
    4258);