#!/usr/local/bin/perl # save_vg.cgi # Create, update or delete a volume group require './lvm-lib.pl'; &ReadParse(); if ($in{'vg'}) { ($vg) = grep { $_->{'name'} eq $in{'vg'} } &list_volume_groups(); $vg || &error($text{'vg_egone'}); } if ($in{'confirm'}) { # Delete the volume group &error_setup($text{'vg_err2'}); $err = &delete_volume_group($vg); &error("
$err") if ($err); &webmin_log("delete", "vg", $in{'vg'}, $vg); &redirect(""); } elsif ($in{'delete'}) { # Ask the user if he is sure &ui_print_header(undef, $text{'vg_delete'}, ""); @lvs = &list_logical_volumes($in{'vg'}); if (@lvs) { print "
",&text('vg_cannot', scalar(@lvs)),"
\n"; } else { print "
\n"; print &ui_form_end([ [ 'confirm', $text{'vg_deleteok'} ] ]); print "
$err") if ($err); &webmin_log("create", "vg", $in{'name'}, $vg); } else { # Rename the volume group if ($vg->{'name'} ne $in{'name'}) { $err = &rename_volume_group($vg, $in{'name'}); &error("
$err") if ($err); $vg->{'name'} = $in{'name'}; } &webmin_log("modify", "vg", $in{'vg'}, $vg); } &redirect("index.cgi?mode=vgs"); }