mirror of
https://github.com/webmin/webmin.git
synced 2026-02-03 06:03:28 +00:00
17 lines
268 B
Perl
Executable File
17 lines
268 B
Perl
Executable File
|
|
use strict;
|
|
use warnings;
|
|
no warnings 'redefine';
|
|
no warnings 'uninitialized';
|
|
do 'exports-lib.pl';
|
|
|
|
sub cgi_args
|
|
{
|
|
my ($cgi) = @_;
|
|
if ($cgi eq 'edit_export.cgi') {
|
|
my @exps = &list_exports();
|
|
return @exps ? 'idx='.$exps[0]->{'index'} : 'new=1';
|
|
}
|
|
return undef;
|
|
}
|