lvm/cgi_args.pl

   1
   2 do 'lvm-lib.pl';
   3
   4 sub cgi_args
   5 {
   6 my ($cgi) = @_;
   7 my @vgs = &list_volume_groups();
   8 if ($cgi eq 'edit_vg.cgi') {
   9         # First volume group
  10         return @vgs ? 'vg='.&urlize($vgs[0]->{'name'}) : 'new=1';
  11         }
  12 elsif ($cgi eq 'edit_pv.cgi') {
  13         # First physical volume in group
  14         if (@vgs) {
  15                 local @pvs = &list_physical_volumes($vgs[0]->{'name'});
  16                 return 'vg='.&urlize($vgs[0]->{'name'}).'&'.
  17                        (@pvs ? 'pv='.$pvs[0]->{'name'} : 'new=1');
  18                 }
  19         else {
  20                 return 'none';
  21                 }
  22         }
  23 elsif ($cgi eq 'edit_lv.cgi') {
  24         # First logical volume in group
  25         if (@vgs) {
  26                 local @lvs = &list_logical_volumes($vgs[0]->{'name'});
  27                 return 'vg='.&urlize($vgs[0]->{'name'}).'&'.
  28                        (@lvs ? 'lv='.$lvs[0]->{'name'} : 'new=1');
  29                 }
  30         else {
  31                 return 'none';
  32                 }
  33         }
  34 return undef;
  35 }