Changeset 7bf0fb24f607559b1f4fdbe921349bbe8c9ebb50

Timestamp:

04/18/07 15:14:56 (6 years ago)

Author:

Theo Schlossnagle <jesus@omniti.com>

git-committer:

Theo Schlossnagle <jesus@omniti.com> 1176909296 +0000

git-parent:

[005a6e999d24b982ddb035d9e43411aba3462b7d]

git-author:

Theo Schlossnagle <jesus@omniti.com> 1176909296 +0000

Message:

add a -sv flag that displays retention policy violations

Files:

• zetaback.in (modified) (9 diffs)

zetaback.in

@@ -16 +16 @@
-            $PREFIX $CONF $BLOCKSIZE $DEBUG $HOST $BACKUP
-            $RESTORE $RESTORE_HOST $RESTORE_ZFS $TIMESTAMP
-FORCE_FULL
-
+SUMMARY_VIOLATORS
+FORCE_FULL $
-            $VERSION $HELP/;
-$version_string = '0.1';
@@ -37 +37 @@
-  zetaback -v
-
-
+ | -sv
-
-  zetaback -b [-f] [-x] [-c conf] [-d] [-n] [-h host] [-z zfs]
@@ -56 +56 @@
-  "s"       => \$SUMMARY,
-  "sx"      => \$SUMMARY_EXT,
+  "sv"      => \$SUMMARY_VIOLATORS,
-  "r"       => \$RESTORE,
-  "t=i"     => \$TIMESTAMP,
@@ -74 +75 @@
-$actions++ if($SUMMARY);
-$actions++ if($SUMMARY_EXT);
+$actions++ if($SUMMARY_VIOLATORS);
-$actions++ if($VERSION);
-if($actions != 1) {
@@ -176 +178 @@
-they exist.  For incremental backups, the detail will include any
-incremental backups that are more recent than the last full backup. 
+
+=item -sv
+
+Display all ZFS disks in the current store that violate the configured
+retention policy.
-
-=item -b
@@ -739 +746 @@
-}
-
+sub pretty_print_backup($$$) {
+  my ($info, $host, $point) = @_;
+  my $tf = config_get($host, 'time_format');
+  print "\t" . strftime($tf, localtime($point)) . " [$point] ";
+  if(exists($info->{full}->{$point})) {
+    my @st = stat($info->{full}->{$point}->{file});
+    print "FULL " . pretty_size($st[7]);
+  } else {
+    my @st = stat($info->{incremental}->{$point}->{file});
+    print "INCR from [$info->{incremental}->{$point}->{depends}] " . pretty_size($st[7]);
+  }
+  print "\n";
+}
+
-sub show_backups($$$) {
-  my ($host, $store, $diskpat) = @_;
@@ -750 +771 @@
-         !($disk eq $diskpat ||        # be a specific match or a
-           ($diskpat =~ /^\/(.+)\/$/ && $disk =~ /$1/))); # regex
+
+    my @backup_points = (keys %{$info->{full}}, keys %{$info->{incremental}});
+    @backup_points = sort { $a <=> $b } @backup_points;
+    @backup_points = (pop @backup_points) unless ($SUMMARY_EXT || $SUMMARY_VIOLATORS);
+
+    # Quick short-circuit in the case of retention violation checks
+    if($SUMMARY_VIOLATORS) {
+      if(time() > $info->{last_full} + config_get($host, 'full_interval') ||
+         time() > $info->{last_backup} + config_get($host, 'backup_interval')) {
+        print "$host:$disk\n";
+        pretty_print_backup($info, $host, $backup_points[0]);
+      }
+      next;
+    }
+
-    # We want to see this one
-    print "$host:$disk\n";
@@ -759 +795 @@
-      }
-    }
-    my @backup_points = (keys %{$info->{full}}, keys %{$info->{incremental}});
-    @backup_points = sort { $a <=> $b } @backup_points;
-    unless ($SUMMARY_EXT) {
-      @backup_points = (pop @backup_points);
-    }
-    foreach (@backup_points) {
-
-
-
-
-
-
-
-
-
+
-    }
-    print "\n";
@@ -891 +914 @@
-    mkdir $store if(! -d $store);
-  
-
+ || $SUMMARY_VIOLATORS
-      show_backups($host, $store, $ZFS);
-    }