mirror of
https://github.com/webmin/webmin.git
synced 2025-07-23 00:30:33 +00:00
35 lines
929 B
Perl
Executable File
35 lines
929 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
# Move LV data off a PV
|
|
|
|
require './lvm-lib.pl';
|
|
&ReadParse();
|
|
&error_setup($text{'pvmove_err'});
|
|
|
|
# Get the LV
|
|
($vg) = grep { $_->{'name'} eq $in{'vg'} } &list_volume_groups();
|
|
$vg || &error($text{'vg_egone'});
|
|
@lvs = &list_logical_volumes($in{'vg'});
|
|
($lv) = grep { $_->{'name'} eq $in{'lv'} } @lvs;
|
|
$lv || &error($text{'lv_egone'});
|
|
|
|
# Validate inputs
|
|
$in{'from'} ne $in{'to'} || &error($text{'pvmove_efrom'});
|
|
|
|
$vgdesc = &text('lv_vg', $vg->{'name'});
|
|
&ui_print_unbuffered_header($vgdesc, $text{'pvmove_title'}, "");
|
|
|
|
# Do the move
|
|
print &text('pvmove_start', "<tt>$lv->{'name'}</tt>",
|
|
"<tt>$in{'from'}</tt>", "<tt>$in{'to'}</tt>"),"<p>\n";
|
|
print "<pre>";
|
|
$err = &move_logical_volume($lv, $in{'from'}, $in{'to'}, 1);
|
|
print "</pre>";
|
|
if ($err) {
|
|
print $text{'pvmove_failed'},"<p>\n";
|
|
}
|
|
else {
|
|
print $text{'pvmove_done'},"<p>\n";
|
|
}
|
|
|
|
&ui_print_footer("index.cgi?mode=lvs", $text{'index_return'});
|