mirror of
https://github.com/webmin/webmin.git
synced 2026-02-11 01:32:03 +00:00
14 lines
205 B
Perl
Executable File
14 lines
205 B
Perl
Executable File
|
|
do 'backup-config-lib.pl';
|
|
|
|
sub cgi_args
|
|
{
|
|
my ($cgi) = @_;
|
|
if ($cgi eq 'edit.cgi') {
|
|
my @backups = &list_backups();
|
|
return @backups ? 'id='.&urlize($backups[0]->{'id'})
|
|
: 'new=1';
|
|
}
|
|
return undef;
|
|
}
|