mirror of
https://github.com/webmin/webmin.git
synced 2025-07-20 16:48:46 +00:00
36 lines
756 B
Perl
Executable File
36 lines
756 B
Perl
Executable File
|
|
do 'lvm-lib.pl';
|
|
|
|
sub cgi_args
|
|
{
|
|
my ($cgi) = @_;
|
|
my @vgs = &list_volume_groups();
|
|
if ($cgi eq 'edit_vg.cgi') {
|
|
# First volume group
|
|
return @vgs ? 'vg='.&urlize($vgs[0]->{'name'}) : 'new=1';
|
|
}
|
|
elsif ($cgi eq 'edit_pv.cgi') {
|
|
# First physical volume in group
|
|
if (@vgs) {
|
|
local @pvs = &list_physical_volumes($vgs[0]->{'name'});
|
|
return 'vg='.&urlize($vgs[0]->{'name'}).'&'.
|
|
(@pvs ? 'pv='.$pvs[0]->{'name'} : 'new=1');
|
|
}
|
|
else {
|
|
return 'none';
|
|
}
|
|
}
|
|
elsif ($cgi eq 'edit_lv.cgi') {
|
|
# First logical volume in group
|
|
if (@vgs) {
|
|
local @lvs = &list_logical_volumes($vgs[0]->{'name'});
|
|
return 'vg='.&urlize($vgs[0]->{'name'}).'&'.
|
|
(@lvs ? 'lv='.$lvs[0]->{'name'} : 'new=1');
|
|
}
|
|
else {
|
|
return 'none';
|
|
}
|
|
}
|
|
return undef;
|
|
}
|