equal
deleted
inserted
replaced
85 sub save { |
85 sub save { |
86 my ($src, $dst) = @_; |
86 my ($src, $dst) = @_; |
87 my $idx = "{DIR}/idx/{HOSTNAME}/{DEVICE}/"; |
87 my $idx = "{DIR}/idx/{HOSTNAME}/{DEVICE}/"; |
88 my $data = "{DIR}/data"; |
88 my $data = "{DIR}/data"; |
89 my $info = "{DIR}/data/info"; |
89 my $info = "{DIR}/data/info"; |
90 my $size; |
90 my ($size, $name); |
|
91 |
|
92 if ($src =~ /(?<dev>.+?):(?<name>.+)/) { |
|
93 $src = $+{dev}; |
|
94 $name = $+{name}; |
|
95 } |
|
96 else { $name = $src }; |
91 |
97 |
92 foreach ($idx, $data, $info) { |
98 foreach ($idx, $data, $info) { |
93 s/{DIR}/$dst/g; |
99 s/{DIR}/$dst/g; |
94 s/{HOSTNAME}/hostname/eg; |
100 s/{HOSTNAME}/hostname/eg; |
95 s/{DEVICE}/get_devname($src)/eg; |
101 s/{DEVICE}/$name/g; |
96 } |
102 } |
97 $size = get_devsize($src); |
103 $size = get_devsize($src); |
98 |
104 |
99 -d $dst or die "$0: $dst: $!\n"; |
105 -d $dst or die "$0: $dst: $!\n"; |
100 mkpath([$data, $idx, $info]); |
106 mkpath([$data, $idx, $info]); |