Changeset 9aa22ef2a7e50004cee738736a3eab0d47b19ef9
- Timestamp:
- 11/05/09 21:58:47
(7 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 | |
|---|
