chiark / gitweb /
no syntax errs
authorianmdlvl <ianmdlvl>
Sun, 26 May 2002 18:50:23 +0000 (18:50 +0000)
committerianmdlvl <ianmdlvl>
Sun, 26 May 2002 18:50:23 +0000 (18:50 +0000)
scripts/named-conf

index bc355be..1520fd8 100755 (executable)
@@ -4,12 +4,13 @@ use strict;
 use IO::File;
 use Data::Dumper;
 use POSIX;
-use Fcntl;
+use Fcntl qw(:DEFAULT :flock);
 
 use vars qw($quis
            $mode $doall $domail
            $etcfile $where
            $debug $needglue $localonly $repeat $verbosity
+           $admin $mail_state_dir $mail_max_warnfreq
            $progress_fh $warn_fh $modifiers
            %group2modcmd %group2used);
 
@@ -239,7 +240,7 @@ sub read_config ($) {
            $admin=$1;
        } elsif (m/^mail\-state\-dir\s+(\S+)$/) {
            $mail_state_dir= $1;
-       } elsif (m/^mail\-max\-warnfreq\s+(\d{1,3}(?:\.\d{0,5})?+)$/) {
+       } elsif (m/^mail\-max\-warnfreq\s+(\d{1,3}(?:\.\d{0,5})?)$/) {
            cfg_fail("mail-max-warnfreq must be <=100") if $1>100;
            $mail_max_warnfreq= $1;
        } else {
@@ -249,7 +250,7 @@ sub read_config ($) {
        }
     }
     foreach $group (keys %group2modcmd) {
-       next if exists $group2used{$group);
+       next if exists $group2used{$group};
        cfg_fail("command line specifies modifier group $group".
                 " but missing in configuration file");
     }
@@ -296,7 +297,7 @@ sub zone_conf ($$$$$@) {
     # followed by modifiers, first per-zone, then default
     $zone_cfg{$zone}{'servers'}= [ @servers ];
     if ($domail) {
-       length $admin_email && length $mail_state_dir or
+       length $admin && length $mail_state_dir or
            cfg_fail("mailing but failed to specify admin".
                     " or mail-state-dir before zone");
        $zone_cfg{$zone}{'admin'}= $admin;
@@ -349,7 +350,7 @@ sub process_zones (@) {
        mail_zone_before() if $domail;
        zone_reset();
        progress(1, sprintf "%-20s %s", $zone, $$cfg{'style_p'});
-       if ($check && ($doall || !zone_style('?',0)) {
+       if ($check && ($doall || !zone_style('?',0))) {
            eval {
                if ($localonly && $cfg->{'s'} =~ m/f/) {
                    zone_warning("foreign zone specified with -l",'');
@@ -684,22 +685,24 @@ sub zone_style ($$) {
 #-------------------- mailing
 
 use vars qw($m_base $m_lastok @m_ok @m_fail
-           $m_info $m_time);
+           $m_info $m_time $m_lock $m_m);
 
 sub mail_zone_before () {
+    my (@s1,@s2);
+
     $m_base= $$cfg{'maildir'}.'/'.$zone;
     $m_lastok= '-';
     @m_ok= ();
     @m_fail= ();
 
     for (;;) {
-       $m_lock= IO::File "${m_base}_lock", O_RDWR|O_CREAT, 0600
+       $m_lock= new IO::File "${m_base}_lock", O_RDWR|O_CREAT, 0600
            or die "$quis: create lockfile ${m_base}_lock";
        if (!flock($m_lock, LOCK_EX|LOCK_NB)) {
            <$m_lock> =~ m/^\d+ /;
            die "$quis: $zone: concurrrency? - flock $&$!\n";
            $m_lock->close;
-           continue;
+           next;
        }
        (@s1= $m_lock->fstat) or die "$quis: fstat ${m_base}_lock: $!\n";
        (@s2= stat "${m_base}_lock") or
@@ -707,11 +710,11 @@ sub mail_zone_before () {
        last if ($s1[0] eq $s2[0] && $s1[1] eq $s2[1]);
        $m_lock->close;
     }
-    print $m_lock "$$        \n" or $m_lock->flush
-       die "$quis: write pid to ${m_base}_lock: $!\n";
+    (print $m_lock "$$        \n" and $m_lock->flush)
+       or die "$quis: write pid to ${m_base}_lock: $!\n";
 
-    if ($m_info= IO::File "${m_base}_info", 'r') {
-       $!=0; $_= <INFO>;
+    if ($m_info= new IO::File "${m_base}_info", 'r') {
+       $!=0; $_= <$m_info>;
        $_ =~ m/\n/ or die "$quis: read ${m_base}_info: $!\n";
        m/^\d+ (\d+|-) ([0-9:]*) ([0-9:]*) / or
            die "$quis: ${m_base}_info malformed\n";
@@ -758,9 +761,9 @@ sub mail_zone_after () {
     $progress_fh= $warn_fh= 'STDERR';
 
     if ($domail eq 'final') {
-       if (100*@m_fail <= $$cfg{'mailmwarn'}*(@m_mail + @m_ok)) {
+       if (100*@m_fail <= $$cfg{'mailmwarn'}*(@m_fail + @m_ok)) {
            printf " %-40s ok\n" or die "$quis: mail ok report: $!\n";
-       } elsif (zone_style('@',0)) {
+       } elsif (zone_style('@',0)) {
            printf " %-40s mail suppressed\n"
                or die "$quis: mail suppress report: $!\n";
        } else {
@@ -781,12 +784,18 @@ sub mail_zone_after () {
 }
     
 
-sub pmail ($) { print $m_m $_[0] or die "$quis: write ${m_base}_mail: $!\n"; }
-sub ptime ($) { my ($time)=@_; return gmtime($time)." GMT ($time)"; }
+sub pmail ($) {
+    print $m_m $_[0]
+       or die "$quis: write ${m_base}_mail: $!\n";
+}
+sub ptime ($) {
+    my ($time) = @_;
+    return gmtime($time)." GMT ($time)";
+}
 
 sub mail_zone_mail () {
-    my ($log, $zone_to, $zterr, $c, $r);
-    $m_m= new IO::File, "${m_base}_mail", 'w', 0666
+    my ($log, $zone_to, $zterr, $c, $r, $t);
+    $m_m= new IO::File "${m_base}_mail", 'w', 0666
        or die "$quis: create ${m_base}_mail: $!\n";
     $zone_to=''; $zterr='';
     if (!zone_style("\$",$$cfg{'s'} =~ m/u/)) {
@@ -798,7 +807,7 @@ sub mail_zone_mail () {
            $zone_to= $1;
        };
        $zterr= $@;
-       $zterr =~ s/\n$/;
+       $zterr =~ s/\n$//;
     }
     pmail <<END
 From: zone check system <$$cfg{'admin'}>