equal
deleted
inserted
replaced
2 |
2 |
3 use if $ENV{DEBUG} ~~ /blkid|all/ => "Smart::Comments"; |
3 use if $ENV{DEBUG} ~~ /blkid|all/ => "Smart::Comments"; |
4 |
4 |
5 use strict; |
5 use strict; |
6 use warnings; |
6 use warnings; |
|
7 use IO::File; |
|
8 use File::Basename; |
7 |
9 |
8 use SI::tools; |
10 use SI::tools; |
9 |
11 |
10 |
12 |
11 sub ids($\%) { |
13 sub ids($\%) { |
22 |
24 |
23 if (exists $devs->{volume}{$dev}) { |
25 if (exists $devs->{volume}{$dev}) { |
24 $devs->{volume}{$dev}{uuid} = $uuid; |
26 $devs->{volume}{$dev}{uuid} = $uuid; |
25 $devs->{volume}{$dev}{type} = $type; |
27 $devs->{volume}{$dev}{type} = $type; |
26 $devs->{volume}{$dev}{label} = $label; |
28 $devs->{volume}{$dev}{label} = $label; |
|
29 |
|
30 my ($of, $oh); |
|
31 if (defined $uuid) { |
|
32 $of = sprintf $file, "uuid." . basename $dev; |
|
33 $oh = new IO::File ">$of" or die "ERR: Can't open $of: $!\n"; |
|
34 $oh->print("$uuid\n"); |
|
35 } |
|
36 |
|
37 if (defined $label) { |
|
38 $of = sprintf $file, "label." . basename $dev; |
|
39 $oh = new IO::File ">$of" or die "ERR: Can't open $of: $!\n"; |
|
40 $oh->print("$label\n"); |
|
41 } |
|
42 |
|
43 if (defined $type) { |
|
44 $of = sprintf $file, "type." . basename $dev; |
|
45 $oh = new IO::File ">$of" or die "ERR: Can't open $of: $!\n"; |
|
46 $oh->print("$type\n"); |
|
47 } |
|
48 |
27 } |
49 } |
28 |
50 |
29 } |
51 } |
30 verbose("\n"); |
52 verbose("\n"); |
31 } |
53 } |