# HG changeset patch
# User devi
# Date 1131952588 -7200
# Node ID e22df843b5128a8c519a222474810ffbaf19d333
# Parent  4d252e7dd478dc0b8f0d90723c98e0e188bd1830
Поддержка /l3/current/index

diff -r 4d252e7dd478 -r e22df843b512 l3-cgi
--- a/l3-cgi	Mon Nov 14 07:42:57 2005 +0200
+++ b/l3-cgi	Mon Nov 14 09:16:28 2005 +0200
@@ -79,6 +79,17 @@
 		print "Template to load files: ".$l3config::Config{"path_classes"}."*".$l3config::Config{"class_suffix"}."\n"
 	}
 }
+elsif ($ENV{PATH_INFO} eq "/current/index" || $ENV{PATH_INFO} eq "") {
+	my $t = load_training();
+	for my $host (sort keys %{$t->{host}}) {
+		my $h = $t->{host}->{$host};
+		print "$host";
+		print " ".$h->{firstname}." ".$h->{surname}." ";
+		print "<a href='/cgi-bin/l3/current/".$host."/root'>root</a> ";
+		print "<a href='/cgi-bin/l3/current/".$host."/".$h->{user}."'>".$h->{user}."</a> ";
+		print "<br/>\n";
+	}
+}
 elsif ($ENV{PATH_INFO} eq "/current") {
 	open (FRONTEND, "./l3-frontend --output - --show_comments no |");
 	while (<FRONTEND>) {