Changeset 9aa22ef2a7e50004cee738736a3eab0d47b19ef9
- Timestamp:
- 11/05/09 21:58:47
(8 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
r90c0423 |
r9aa22ef |
|
1252 | 1252 | foreach my $diskline (@disklist) { |
---|
1253 | 1253 | chomp($diskline); |
---|
1254 | | next unless($diskline =~ /^(\S+) \[([^\]]*)\](?: {([^}]*}))?/); |
---|
| 1254 | next unless($diskline =~ /^(\S+) \[([^\]]*)\](?: {([^}]*)})?/); |
---|
1255 | 1255 | my $diskname = $1; |
---|
1256 | 1256 | my %snaps; |
---|
1257 | 1257 | map { $snaps{$_} = 1 } (split(/,/, $2)); |
---|
1258 | 1258 | my $class = $3; |
---|
1259 | | $store = get_store($host, $class); |
---|
1260 | 1259 | |
---|
1261 | 1260 | # We've just done this. |
---|
… | … | |
1267 | 1266 | ($diskpat =~ /^\/(.+)\/$/ && $diskname =~ /$1/))); # regex |
---|
1268 | 1267 | |
---|
| 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 | } |
---|
1269 | 1276 | print " => Scanning '$store' for old backups of '$diskname'.\n" if($DEBUG); |
---|
1270 | 1277 | |
---|