lilalo

diff l3-cgi @ 40:5e5878bd1b20

Скрипты lm вынесены в отдельный файл l3config
author devi
date Tue Nov 22 22:47:47 2005 +0200 (2005-11-22)
parents 219389279acb
children 6452bfe549d1
line diff
     1.1 --- a/l3-cgi	Fri Nov 18 17:46:09 2005 +0200
     1.2 +++ b/l3-cgi	Tue Nov 22 22:47:47 2005 +0200
     1.3 @@ -48,6 +48,11 @@
     1.4  			my $training = load_training($training_file);
     1.5  			$Trainings{$training->{"date"}}=$training;
     1.6  		}
     1.7 +		print "<html>\n";
     1.8 +		print "<head>\n";
     1.9 +		print "<title>Журналы лабораторных работ</title>\n";
    1.10 +		print "</head>\n";
    1.11 +		print "<body>\n";
    1.12  		print "<table>\n";
    1.13  		for my $tdate (reverse sort keys %Trainings) {
    1.14  			my $t = $Trainings{$tdate};
    1.15 @@ -70,6 +75,8 @@
    1.16  			print "</tr>\n";
    1.17  		}
    1.18  		print "</table>\n";
    1.19 +		print "</body>\n";
    1.20 +		print "</html>\n";
    1.21  	}
    1.22  	else {
    1.23  		print "No training-files found<br/>\n";
    1.24 @@ -78,14 +85,41 @@
    1.25  }
    1.26  elsif ($ENV{PATH_INFO} eq "/current/index" || $ENV{PATH_INFO} eq "") {
    1.27  	my $t = load_training();
    1.28 +
    1.29 +	print "<html>\n";
    1.30 +	print "<head>\n";
    1.31 +	print "<title>Журналы лабораторных работ</title>\n";
    1.32 +	print "<link rel='stylesheet' href='".$l3config::Config{frontend_css}."' type='text/css'/>\n";
    1.33 +	print "</head>\n";
    1.34 +	print "<body>\n";
    1.35 +	print "<h1>Журналы лабораторных работ</h1>\n";
    1.36 +	print "<table>\n";
    1.37 +	print "<tr class='table_header'>\n";
    1.38 +	print "<td>"."Имя"."</td>";
    1.39 +	print "<td>Хост</td>";
    1.40 +	print "<td colspan='3'>Пользователь</td>";
    1.41 +	print "</tr>\n";
    1.42  	for my $host (sort keys %{$t->{host}}) {
    1.43 +		print "<tr>\n";
    1.44  		my $h = $t->{host}->{$host};
    1.45 -		print "$host";
    1.46 -		print " ".$h->{firstname}." ".$h->{surname}." ";
    1.47 -		print "<a href='/cgi-bin/l3/current/".$host."/root'>root</a> ";
    1.48 -		print "<a href='/cgi-bin/l3/current/".$host."/".$h->{user}."'>".$h->{user}."</a> ";
    1.49 -		print "<br/>\n";
    1.50 +		print "<td>".$h->{firstname}." ".$h->{surname}."</td>";
    1.51 +		print "<td>$host</td>";
    1.52 +		print "<td><a href='/cgi-bin/l3/current/".$host."/root'>root</a></td>";
    1.53 +		print "<td><a href='/cgi-bin/l3/current/".$host."/".$h->{user}."'>".$h->{user}."</a></td>";
    1.54 +		print "<td><a href='/cgi-bin/l3/current/".$host."'>все</a></td>";
    1.55 +		print "</td>\n";
    1.56 +		print "</tr>\n";
    1.57  	}
    1.58 +	print "<tr>\n";
    1.59 +	print "<td>"."Инструктор"."</td>";
    1.60 +	print "<td>from linux.nt</td>";
    1.61 +	print "<td/>";
    1.62 +	print "<td/>";
    1.63 +	print "<td><a href='/cgi-bin/l3/current"."?login_from=192.168.15.254'>все</a></td>";
    1.64 +	print "</tr>\n";
    1.65 +	print "</table>\n";
    1.66 +	print "</body>\n";
    1.67 +	print "</html>\n";
    1.68  }
    1.69  elsif ($ENV{PATH_INFO} eq "/current") {
    1.70  	open (FRONTEND, "./l3-frontend --output - --show_comments no |");