Changeset 157
- Timestamp:
- 06/01/04 10:50:23 (4 years ago)
- Files:
-
- manage/trunk/manage (modified) (3 diffs)
- manage/trunk/plugins/dns.pm (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
manage/trunk/manage
r156 r157 165 165 166 166 $pattern = '.+' unless defined($pattern); 167 if ($value =~ / $pattern/) {167 if ($value =~ /^$pattern$/) { 168 168 ${$CONF{$key}->{value}} = $value; 169 169 } else { … … 250 250 for my $line (@line) { 251 251 $line =~ s/^ \e\[1m([^\s\e]+).*/$1/; 252 next if $line =~ /^</; 252 253 if ($line =~ /^$text/) { 253 254 push(@matches, $line); … … 279 280 for my $key (keys %CONF) { 280 281 goto COMMIT if !defined($ORIGINAL_CONF{$key}) or 281 ${$CONF{$key}->{value}} ne $ORIGINAL_CONF{$key};282 ${$CONF{$key}->{value}} ne $ORIGINAL_CONF{$key}; 282 283 } 283 284 return; manage/trunk/plugins/dns.pm
r156 r157 26 26 value => \$DETAIL, 27 27 pattern => 'on|off', 28 help => 'Whether to display extra detail in zone dumps.',28 help => 'Whether to display extra zone detail.', 29 29 }, 30 30 'dns-key-name' => { … … 38 38 'dns-timeout' => { 39 39 value => \$TIMEOUT, 40 pattern => 'none|\d+', 40 41 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-]+', 41 57 }, 42 58 );
