lilalo

diff l3-cgi @ 57:187b6636a3be

find changesets by author, revision, files, or words in the commit message
l3-agent:
Исправлен микробаг с uid
Раньше он не отправлялся в поток

l3-cgi:
При генерировании не CGI-версии
в таблице отсутствуют поля "инструктор" и "все"
На текущий момент они указывали в никуда,
поэтому я отключил их

l3-frontend:
Выводятся новые команды в начале каждого дня.
Команды сортируются по убыванию частоты использования.

l3scripts:
в письмо в одном месте е заменил на ё
author devi
date Wed Dec 28 18:44:42 2005 +0200 (2005-12-28)
parents f9447da96f15
children 440d12c122d5
line diff
     1.1 --- a/l3-cgi	Wed Dec 21 14:39:44 2005 +0200
     1.2 +++ b/l3-cgi	Wed Dec 28 18:44:42 2005 +0200
     1.3 @@ -120,9 +120,19 @@
     1.4  		my $t = load_training($training);
     1.5  		$training ||= "current";
     1.6  
     1.7 +        my $prefix = "/cgi-bin/l3/$training/";
     1.8 +        my $suffix = "";
     1.9 +        if ($is_not_cgi) {
    1.10 +            $prefix = "";
    1.11 +            $suffix = ".html";
    1.12 +        }
    1.13 +        my $path = $to_file;
    1.14 +        $path = "" unless $path =~ s@/[^/]*$@@;
    1.15 +
    1.16  		$print .= "<html>\n";
    1.17  		$print .= "<head>\n";
    1.18  		$print .= "<title>Журналы лабораторных работ</title>\n";
    1.19 +        $print .= "<meta content='text/html; charset=utf-8' http-equiv='Content-Type' />";
    1.20  		$print .= "<link rel='stylesheet' href='".$l3config::Config{frontend_css}."' type='text/css'/>\n";
    1.21  		$print .= "</head>\n";
    1.22  		$print .= "<body>\n";
    1.23 @@ -135,12 +145,6 @@
    1.24  		$print .= "</tr>\n";
    1.25  		for my $host (sort keys %{$t->{host}}) {
    1.26  
    1.27 -			my $prefix = "/cgi-bin/l3/$training/";
    1.28 -			my $suffix = "";
    1.29 -			if ($is_not_cgi) {
    1.30 -				$prefix = "";
    1.31 -				$suffix = ".html";
    1.32 -			}
    1.33  			
    1.34  			$print .= "<tr>\n";
    1.35  			my $h = $t->{host}->{$host};
    1.36 @@ -148,7 +152,7 @@
    1.37  			$print .= "<td>$host</td>";
    1.38  			$print .= "<td><a href='".$prefix.$host."/root$suffix'>root</a></td>";
    1.39  			$print .= "<td><a href='".$prefix.$host."/".$h->{user}."$suffix'>".$h->{user}."</a></td>";
    1.40 -			$print .= "<td><a href='".$prefix.$host."$suffix'>все</a></td>";
    1.41 +			$print .= "<td><a href='".$prefix.$host."$suffix'>все</a></td>" if not $is_not_cgi;
    1.42  			$print .= "</td>\n";
    1.43  			$print .= "</tr>\n";
    1.44  
    1.45 @@ -157,8 +161,7 @@
    1.46  				# Если мы чувствуем, что нас вызывают для генерения индексного файла,
    1.47  				# нам нужно создать и файлы, на которые он указывает
    1.48  				# Лучше было бы это сделать хотя бы через вызов функций
    1.49 -				my $path = $to_file;
    1.50 -				$path = "" unless $path =~ s@/[^/]*$@@;
    1.51 +# Такой же хак чуть ниже
    1.52  				mkdir("$path/$host");
    1.53  				system("$0 --cgi2file $path/$prefix$host/root$suffix  ".
    1.54  					  "--cgi_path_info ".$training."/".$host."/root ".
    1.55 @@ -166,15 +169,27 @@
    1.56  				system("$0 --cgi2file $path/$prefix$host/".$h->{user}."$suffix ".
    1.57  					  "--cgi_path_info ".$training."/".$host."/".$h->{user}." ".
    1.58  					  "--frontend_css ../$l3config::Config{frontend_css}");
    1.59 +			#	system("$0 --cgi2file $path/$prefix$host$suffix ".
    1.60 +			#		  "--cgi_path_info ".$training."/".$host." ".
    1.61 +			#		  "--frontend_css ../$l3config::Config{frontend_css}");
    1.62  			}
    1.63  			
    1.64  		}
    1.65 -		$print .= "<tr>\n";
    1.66 -		$print .= "<td>"."Инструктор"."</td>";
    1.67 -		$print .= "<td>from linux.nt</td>";
    1.68 -		$print .= "<td/>";
    1.69 -		$print .= "<td/>";
    1.70 -		$print .= "<td><a href='/cgi-bin/l3/current"."?login_from=192.168.15.254'>все</a></td>";
    1.71 +# Такой же хак был чуть выше
    1.72 +        if ($is_not_cgi) {
    1.73 +#            $print .= "<td><a href='".$prefix."instructor.".$suffix."'>все</a></td>";
    1.74 +#            system("$0 --cgi2file $path/$prefix$host$suffix"
    1.75 +#                   . " --cgi_path_info ".$training."?login_from=192.168.15.254".$host
    1.76 +#                  . " --frontend_css ../$l3config::Config{frontend_css}");
    1.77 +        }
    1.78 +        else {
    1.79 +            $print .= "<tr>\n";
    1.80 +            $print .= "<td>"."Инструктор"."</td>";
    1.81 +            $print .= "<td>from linux.nt</td>";
    1.82 +            $print .= "<td/>";
    1.83 +            $print .= "<td/>";
    1.84 +            $print .= "<td><a href='$training"."?login_from=192.168.15.254'>все</a></td>";
    1.85 +        }
    1.86  		$print .= "</tr>\n";
    1.87  		$print .= "</table>\n";
    1.88  		$print .= "</body>\n";