index.cgi

来自「Unix下基于Web的管理工具」· CGI 代码 · 共 17 行

#!/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, "$module_config_directory/index")) {
	chop($idx = <INDEX>);
	close(INDEX);
	if (!$idx) { $idx = "index_tree.cgi"; }
	}
else { $idx = "index_tree.cgi"; }
&redirect("/$module_name/$idx");