/[sysadmin-cookbook]/recepies/zfs/zfs-expire-snapshot.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /recepies/zfs/zfs-expire-snapshot.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 219 by dpavlin, Sun Jun 27 21:55:33 2010 UTC revision 263 by dpavlin, Thu May 26 18:22:29 2011 UTC
# Line 6  use strict; Line 6  use strict;
6  use DateTime;  use DateTime;
7  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
8    
9  my $debug = 0;  my $debug = $ENV{DEBUG} || 0;
10    
11  my $config = {  my $config = {
12          'default' => {          'default' => {
# Line 28  my $now = DateTime->now(); Line 28  my $now = DateTime->now();
28    
29  my $last_backup;  my $last_backup;
30    
31  open(my $fs, '-|', 'zfs list -H');  open(my $fs, '-|', 'zfs list -t snapshot -H');
32  while(<$fs>) {  while(<$fs>) {
33          chomp;          chomp;
34          my ( $name, $used, $avail, $refer, $mountpoint ) = split(/\t/,$_,6);          my ( $name, $used, $avail, $refer, $mountpoint ) = split(/\t/,$_,6);
Legend:
Removed from v.219  
changed lines
  Added in v.263
  ViewVC Help
Powered by ViewVC 1.1.26