#!/usr/local/bin/perl # save_pv.cgi # Create, modify or delete a physical volume require './lvm-lib.pl'; &ReadParse(); ($vg) = grep { $_->{'name'} eq $in{'vg'} } &list_volume_groups(); ($pv) = grep { $_->{'name'} eq $in{'pv'} } &list_physical_volumes($in{'vg'}) if ($in{'pv'}); if ($in{'confirm'}) { # Delete the logical volume &error_setup($text{'pv_err2'}); $err = &delete_physical_volume($pv); &error("
$err") if ($err); &webmin_log("delete", "pv", $in{'pv'}, $pv); &redirect(""); } elsif ($in{'delete'}) { # Ask the user if he is sure &ui_print_header(undef, $text{'pv_delete'}, ""); print "
$err") if ($err); } # Change the volume if ($pv->{'alloc'} ne $in{'alloc'}) { $pv->{'alloc'} = $in{'alloc'}; $err = &change_physical_volume($pv); &error("
$err") if ($err); } &webmin_log($in{'pv'} ? "modify" : "create", "pv", $pv->{'device'},$pv); &redirect(""); }