mirror of
https://github.com/webmin/webmin.git
synced 2026-02-07 16:02:14 +00:00
17 lines
362 B
Perl
Executable File
17 lines
362 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
# index.cgi
|
|
# Redirect to default index
|
|
|
|
require './proc-lib.pl';
|
|
if ($config{'default_mode'} ne "last") {
|
|
$idx = "index_$config{'default_mode'}.cgi";
|
|
}
|
|
elsif (open(INDEX, $index_file)) {
|
|
chop($idx = <INDEX>);
|
|
close(INDEX);
|
|
if (!$idx) { $idx = "index_tree.cgi"; }
|
|
}
|
|
else { $idx = "index_tree.cgi"; }
|
|
&redirect("/$module_name/$idx");
|
|
|