From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Tue, 6 Sep 2011 09:09:37 +0000 (+0000)
Subject: fix readonly flag for first snapshot
X-Git-Url: http://git.rot13.org/?p=sysadmin-cookbook;a=commitdiff_plain;h=065ab77baecdc8215a13f6331b31db3ec727838c

fix readonly flag for first snapshot

git-svn-id: svn://svn.rot13.org/sysadmin-cookbook@270 191e9f34-6774-4a6d-acfc-7664dacd4a2a
---

diff --git a/recepies/zfs/zfs-replicate-pool.pl b/recepies/zfs/zfs-replicate-pool.pl
index 71e4b05..57c94cb 100755
--- a/recepies/zfs/zfs-replicate-pool.pl
+++ b/recepies/zfs/zfs-replicate-pool.pl
@@ -97,7 +97,7 @@ foreach my $fs ( @arh ) {
 			$snapshot = "-i $from_pool/$name\@$prev $from_pool/$name\@$snap";
 		}
 
-		warn "zfs transfer $snapshot -> $to_dev";
+		warn "zfs transfer $snapshot -> $to_dev\n";
 
 		my $t = time();
 
@@ -116,8 +116,8 @@ foreach my $fs ( @arh ) {
 		$t = time() - $t;
 		warn "took $t seconds to complete\n";
 
-		$dev->system("zfs set readonly=on $to_pool/$name\@$snap") if $i == 0;
-		die $dev->error if $dev->error;
+		$dev->system("zfs set readonly=on $to_pool/$name") if $i == 0;
+		warn "ERROR: ",$dev->error if $dev->error;
 
 		sleep 1;
 		$dev_snapshot = snapshots_from $dev;