equal
deleted
inserted
replaced
112 |
112 |
113 $ENV{key} = $default{KEY}; |
113 $ENV{key} = $default{KEY}; |
114 my $dumper = open(my $dump, "-|") or do { |
114 my $dumper = open(my $dump, "-|") or do { |
115 my $head = <<__; |
115 my $head = <<__; |
116 #! /bin/bash |
116 #! /bin/bash |
117 echo "LEVEL $opt_level: $dev->{dev} $dev->{rdev} ($dev->{dump})" >&2 |
117 if test "\$1" = "--info"; then |
118 tail -c XXXX \$0 | openssl enc -d -blowfish "\$@" | gzip -d |
118 cat <<___ |
|
119 NODE : $NODE |
|
120 LEVEL : $opt_level |
|
121 DEVICE : $dev->{dev} |
|
122 REAL_DEVICE: $dev->{rdev} |
|
123 MOUNTPOINT : $dev->{mountpoint} |
|
124 FSTYPE : $dev->{fstype} |
|
125 ___ |
|
126 exit 0 |
|
127 fi |
|
128 tail -c XXXXX \$0 | openssl enc -d -blowfish "\$@" | gzip -d |
119 exit |
129 exit |
120 |
130 |
121 __ |
131 __ |
122 # adjust the placeholder |
132 # adjust the placeholder |
123 $head =~ s/XXXX/sprintf "% 4s", "+" . (length($head) +1)/e; |
133 $head =~ s/XXXXX/sprintf "% 4s", "+" . (length($head) +1)/e; |
124 print $head; |
134 print $head; |
125 exec "dump -$opt_level -L $label -f- -u $dev->{dump}" |
135 exec "dump -$opt_level -L $label -f- -u $dev->{dump}" |
126 . "| gzip" |
136 . "| gzip" |
127 . "| openssl enc -pass env:key -salt -blowfish"; |
137 . "| openssl enc -pass env:key -salt -blowfish"; |
128 die "Can't exec dumper\n"; |
138 die "Can't exec dumper\n"; |
170 } |
180 } |
171 |
181 |
172 push @dev, { |
182 push @dev, { |
173 dev => $dev, |
183 dev => $dev, |
174 rdev => $rdev, |
184 rdev => $rdev, |
175 mount_point => $mp, |
185 mountpoint => $mp, |
176 fstype => $fstype, |
186 fstype => $fstype, |
177 lvm => $lvm, |
187 lvm => $lvm, |
178 }; |
188 }; |
179 } |
189 } |
180 |
190 |