Changeset 328ad1c4651498e9673afe731179373986393c5a

Timestamp:

03/09/07 20:31:43 (6 years ago)

Author:

Theo Schlossnagle <jesus@omniti.com>

git-committer:

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

git-parent:

[16d453b2dce0fb71ecb9c38313e1818d08a40667]

git-author:

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

Message:

Add logging, closes #11

Files:

• zetaback (modified) (3 diffs)

zetaback

@@ -6 +6 @@
-use POSIX qw/strftime/;
-use Fcntl qw/:flock/;
+use IO::File;
-use Pod::Usage;
-
@@ -416 +417 @@
-parse_config();
-
+sub zetaback_log($$;@) {
+  my ($host, $mess, @args) = @_;
+  my $tf = config_get($host, 'time_format');
+  my $file = config_get($host, 'logfile');
+  my $fileh;
+  if(defined($file)) {
+    $fileh = IO::File->new(">>$file");
+  }
+  $fileh ||= IO::File->new(">&STDERR");
+  printf $fileh "%s: $mess", strftime($tf, localtime(time)), @args;
+  $fileh->close();
+}
+
-sub zfs_remove_snap($$$) {
-  my ($host, $fs, $snap) = @_;
@@ -450 +464 @@
-  if($@) {
-    unlink("$store/.$dumpfile");
+    chomp(my $error = $@);
+    $error =~ s/[\r\n]+/ /gsm;
+    zetaback_log($host, "FAILED[$error] $host:$fs $type\n");
-    die "zfs_full_backup: failed $@";
-  }
+  my @st = stat("$store/$dumpfile");
+  my $size = pretty_size($st[7]);
+  zetaback_log($host, "SUCCESS[$size] $host:$fs $type\n");
-}
-