do 'fsdump-lib.pl'; sub cgi_args { my ($cgi) = @_; my @dumps = grep { &can_edit_dir($_) } &list_dumps(); if ($cgi eq 'edit_dump.cgi') { return @dumps ? 'id='.&urlize($dumps[0]->{'id'}) : 'dir=/etc'; } elsif ($cgi eq 'restore_form.cgi') { return @dumps ? 'id='.&urlize($dumps[0]->{'id'}). '&fs='.$dumps[0]->{'fs'} : 'fs=tar'; } return undef; }