Working on new options -C and -g etc.

diff --git a/scripts/named-conf b/scripts/named-conf
index 1c20660a77c747f948511830c8adff7f6d9b4dda..2dada625ab644d4539cd1add4816767bd2cd8cdf 100755 (executable)
--- a/scripts/named-conf
+++ b/scripts/named-conf
@@ -8,10 +8,12 @@ use vars qw($etcfile $where);
 $etcfile= "/etc/bind/chiark-conf-gen.zones";
 $where= '<built-in>';
 
 $etcfile= "/etc/bind/chiark-conf-gen.zones";
 $where= '<built-in>';
 

-use vars qw($mode $verbosity $debug);
+use vars qw($mode $verbosity $debug $needglue $localonly);

 $mode= '';
 $verbosity= 1;
 $debug= 0;
 $mode= '';
 $verbosity= 1;
 $debug= 0;

+$needglue= 0;
+$localonly= 0;

 
 use vars qw($dig_owner $dig_type $dig_rdata);
 
 
 use vars qw($dig_owner $dig_type $dig_rdata);
 


@@ -32,6 +34,7 @@ while (@ARGV && $ARGV[0] =~ m/^\-/) {
            elsif (s/^v//) { $verbosity=2; }
            elsif (s/^q//) { $verbosity=0; }
            elsif (s/^D//) { $debug++; }
            elsif (s/^v//) { $verbosity=2; }
            elsif (s/^q//) { $verbosity=0; }
            elsif (s/^D//) { $debug++; }

+           elsif (s/^g//) { $needglue=0; }

            elsif (s/^C//) { $etcfile= soarg(); $where= '-C option'; }
            else { usageerr("unknown option -$&"); }
        }
            elsif (s/^C//) { $etcfile= soarg(); $where= '-C option'; }
            else { usageerr("unknown option -$&"); }
        }