62 |
my $fs = "$mnt/fs/$dir"; |
my $fs = "$mnt/fs/$dir"; |
63 |
mkpath $fs unless -e $fs; |
mkpath $fs unless -e $fs; |
64 |
|
|
65 |
|
my $lv = $file; |
66 |
|
$lv =~ s{\W+}{_}g; |
67 |
|
|
68 |
$fs .= '/' . $file; |
$fs .= '/' . $file; |
69 |
if ( -e $fs ) { |
if ( -e $fs || -e "/dev/$vg/$lv" ) { |
70 |
if ( $skip ) { |
if ( $skip ) { |
71 |
warn "SKIP $fs\n"; |
warn "SKIP $fs\n"; |
72 |
exit 0; |
exit 0; |
82 |
my $size = $stat[7] / 1024; |
my $size = $stat[7] / 1024; |
83 |
$size .= 'k'; |
$size .= 'k'; |
84 |
|
|
|
my $lv = $file; |
|
|
$lv =~ s{\W+}{-}g; |
|
|
|
|
85 |
system("lvcreate -n $lv -L $size $vg"); |
system("lvcreate -n $lv -L $size $vg"); |
86 |
|
|
87 |
write_file( "$mnt/stat/$file", join("\n",@stat) ); |
write_file( "$mnt/stat/$file", join("\n",@stat) ); |