Add cgi args script

This commit is contained in:
Jamie Cameron
2009-06-05 17:49:08 +00:00
parent 9b3421e2af
commit a7c783b8ef
2 changed files with 36 additions and 1 deletions

35
lvm/cgi_args.pl Normal file
View File

@@ -0,0 +1,35 @@
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;
}

View File

@@ -317,7 +317,7 @@ sub cgi_page_title
local ($m, $cgi) = @_;
local $data = &read_file_contents(&module_root_directory($m)."/".$cgi);
local $rv;
if ($data =~ /(header|ui_print_header|ui_print_unbuffered_header)\([^,]+,\s*(\$text{'([^']+)'|\$text{"([^"]+)"|\&text\('([^']+)'|\&text\("([^"]+)")/) {
if ($data =~ /(header|ui_print_header|ui_print_unbuffered_header)\([^,]+,[^,]*(\$text{'([^']+)'|\$text{"([^"]+)"|\&text\('([^']+)'|\&text\("([^"]+)")/) {
local $msg = $3 || $4 || $5 || $6;
local %mtext = &load_language($m);
$rv = $mtext{$msg};