fdisk/cgi_args.pl

   1
   2 do 'fdisk-lib.pl';
   3
   4 sub cgi_args
   5 {
   6 my ($cgi) = @_;
   7 my @disks = &list_disks_partitions();
   8 if ($cgi eq 'edit_disk.cgi') {
   9         return @disks ? 'device='.&urlize($disks[0]->{'device'}) : 'none';
  10         }
  11 elsif ($cgi eq 'edit_part.cgi') {
  12         return @disks ? 'device='.&urlize($disks[0]->{'device'}).'&part=0'
  13                       : 'none';
  14         }
  15 elsif ($cgi eq 'edit_hdparm.cgi') {
  16         local @hdparm = grep { &supports_hdparm($_) } @disks;
  17         return @hdparm ? 'disk='.$hdparm[0]->{'index'} : 'none';
  18         }
  19 return undef;
  20 }