chore: import upstream snapshot with attribution

2026-07-13 13:12:17 +08:00
commit cf8edb9f21
44281 changed files with 1655134 additions and 0 deletions
@@ -0,0 +1,25 @@
+#!/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";
+	}
+($idxfn = $idx) =~ s/\?.*$//;
+if (!-r "$module_root_directory/$idxfn") {
+	# Bogus index
+	$idx = "index_tree.cgi";
+	}
+&redirect($idx);
+