Changeset 9aa22ef2a7e50004cee738736a3eab0d47b19ef9

Show
Ignore:
Timestamp:
11/05/09 21:58:47 (4 years ago)
Author:
Mark Harrison <mark@omniti.com>
git-committer:
Mark Harrison <mark@omniti.com> 1257458327 +0000
git-parent:

[90c04233e04c10bf0e8e134ba61ee057ceec2cb6]

git-author:
Mark Harrison <mark@omniti.com> 1257458327 +0000
Message:

Fix regex, and print the class a particular filesystem is in if debuggin

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • zetaback.in

    r90c0423 r9aa22ef  
    12521252    foreach my $diskline (@disklist) { 
    12531253      chomp($diskline); 
    1254       next unless($diskline =~ /^(\S+) \[([^\]]*)\](?: {([^}]*}))?/); 
     1254      next unless($diskline =~ /^(\S+) \[([^\]]*)\](?: {([^}]*)})?/); 
    12551255      my $diskname = $1; 
    12561256      my %snaps; 
    12571257      map { $snaps{$_} = 1 } (split(/,/, $2)); 
    12581258      my $class = $3; 
    1259       $store = get_store($host, $class); 
    12601259  
    12611260      # We've just done this. 
     
    12671266             ($diskpat =~ /^\/(.+)\/$/ && $diskname =~ /$1/))); # regex 
    12681267   
     1268      $store = get_store($host, $class); 
     1269      if ($DEBUG) { 
     1270        if ($class) { 
     1271            print STDERR "=> Class is $class\n"; 
     1272        } else { 
     1273            print STDERR "=> No/default class\n"; 
     1274        } 
     1275      } 
    12691276      print " => Scanning '$store' for old backups of '$diskname'.\n" if($DEBUG); 
    12701277