lilalo
diff l3-agent @ 30:f5f07049bd4f
l3-agent:
Исправлен баг с инициализацией session_id
l3-cgi:
* Добавлена поддержка index-страницы.
При обращении на /cgi-bin/l3/index показывается таблица
с ссылками на журналы всех тренингов
В самом журнале корректно показывается информация
о курсе.
* Поскольку термин "class" перегружен, вместо него теперь
используется термин "training".
В дальнейшем такая замена произойдёт во всём коде.
* Теперь l3-cgi использует конфигурационный модуль l3config.pm
Загрузка выполняется с помощью require на этапе исполнения
l3config.pm:
Перенесены конфигурационные параметры lm.
ОСТОРОЖНО! Сам lm ПОКА ЧТО не использует l3config.pm для конфигурирования.
Исправлен баг с инициализацией session_id
l3-cgi:
* Добавлена поддержка index-страницы.
При обращении на /cgi-bin/l3/index показывается таблица
с ссылками на журналы всех тренингов
В самом журнале корректно показывается информация
о курсе.
* Поскольку термин "class" перегружен, вместо него теперь
используется термин "training".
В дальнейшем такая замена произойдёт во всём коде.
* Теперь l3-cgi использует конфигурационный модуль l3config.pm
Загрузка выполняется с помощью require на этапе исполнения
l3config.pm:
Перенесены конфигурационные параметры lm.
ОСТОРОЖНО! Сам lm ПОКА ЧТО не использует l3config.pm для конфигурирования.
author | devi |
---|---|
date | Tue Nov 08 12:16:20 2005 +0200 (2005-11-08) |
parents | 450b6ac9b657 |
children | 196c82b6e538 |
line diff
1.1 --- a/l3-agent Mon Nov 07 12:23:13 2005 +0200 1.2 +++ b/l3-agent Tue Nov 08 12:16:20 2005 +0200 1.3 @@ -249,7 +249,7 @@ 1.4 my $local_session_id; 1.5 # Начальное значение идентификатора текущего сеанса определяем из имени скрипта 1.6 # Впоследствии оно может быть уточнено 1.7 - $file =~ /.*\/(.*)\.script$/; 1.8 + $file =~ m@.*/([^/]*)\.script$@; 1.9 $local_session_id = $1; 1.10 1.11 #Если файл только что появился, 1.12 @@ -792,7 +792,7 @@ 1.13 1.14 # Начинаем вывод команды 1.15 print OUT "<command>\n"; 1.16 - print OUT "<local_session_id>",$cl->{session_id},"</local_session_id>\n"; 1.17 + print OUT "<local_session_id>",$cl->{local_session_id},"</local_session_id>\n"; 1.18 print OUT "<time>",$cl->{time},"</time>\n"; 1.19 print OUT "<raw_start>",$cl->{raw_start},"</raw_start>\n"; 1.20 print OUT "<raw_output_start>",$cl->{raw_output_start},"</raw_output_start>\n";