fsdump/cgi_args.pl

   1
   2 do 'fsdump-lib.pl';
   3
   4 sub cgi_args
   5 {
   6 my ($cgi) = @_;
   7 my @dumps = grep { &can_edit_dir($_) } &list_dumps();
   8 if ($cgi eq 'edit_dump.cgi') {
   9         return @dumps ? 'id='.&urlize($dumps[0]->{'id'}) : 'dir=/etc';
  10         }
  11 elsif ($cgi eq 'restore_form.cgi') {
  12         return @dumps ? 'id='.&urlize($dumps[0]->{'id'}).
  13                         '&fs='.$dumps[0]->{'fs'}
  14                       : 'fs=tar';
  15         }
  16 return undef;
  17 }