mirror of
https://github.com/webmin/webmin.git
synced 2025-08-01 07:22:48 +00:00
18 lines
361 B
Perl
Executable File
18 lines
361 B
Perl
Executable File
|
|
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;
|
|
}
|