lilalo

changeset 29:b3f5f5560802

l3-cgi: Найти курс по PATH_INFO
HISTORY: Описаны изменения в версии v_0_2_4
l3-frontend: В секции "О программе" убрал разрыв строки
author devi
date Mon Nov 07 13:28:15 2005 +0200 (2005-11-07)
parents 450b6ac9b657
children f5f07049bd4f
files HISTORY l3-cgi l3-frontend
line diff
     1.1 --- a/HISTORY	Mon Nov 07 12:23:13 2005 +0200
     1.2 +++ b/HISTORY	Mon Nov 07 13:28:15 2005 +0200
     1.3 @@ -1,3 +1,8 @@
     1.4 +v_0_2_4			Появился l3-backend. Он принимает данные от l3-agent'а 
     1.5 +			и записывает их в заданный backend.
     1.6 +			l3-frontend доступен через CGI-интерфейс.
     1.7 +			Подробности в комментариях CVS-репозитория.
     1.8 +
     1.9  v_0_2_3			l3-agent может работать в режиме демона.
    1.10  			В этом режиме он в реальном времени отслеживает состояние 
    1.11  			каталога скрипт-файлов и записывает их в кэш-файл
     2.1 --- a/l3-cgi	Mon Nov 07 12:23:13 2005 +0200
     2.2 +++ b/l3-cgi	Mon Nov 07 13:28:15 2005 +0200
     2.3 @@ -9,7 +9,20 @@
     2.4  		-charset => "utf-8", 
     2.5  		);
     2.6  chdir("/home/devi/cvs/lilalo");
     2.7 -open (FRONTEND, "./l3-frontend --output - |");
     2.8 +
     2.9 +# Вызов производится по URL
    2.10 +my ($skip, $course, $host, $user) = split /\//,$ENV{PATH_INFO},4;
    2.11 +
    2.12 +my @args=(
    2.13 +	"--output" 		=>	"-",
    2.14 +	"--show_comments" 	=>	"no",
    2.15 +	"--course-center"	=>	"\"Сетевые Технологии\"",
    2.16 +	"--course-trainer"	=>	"\"Игорь Чубин\"",
    2.17 +	"--course-student"	=>	"\"$user\@$host\"",
    2.18 +	"--course-code"		=>	"\"$course\"",
    2.19 +);
    2.20 +
    2.21 +open (FRONTEND, "./l3-frontend ".join(" ",@args)." |");
    2.22  while (<FRONTEND>) {
    2.23  	print;
    2.24  }
     3.1 --- a/l3-frontend	Mon Nov 07 12:23:13 2005 +0200
     3.2 +++ b/l3-frontend	Mon Nov 07 13:28:15 2005 +0200
     3.3 @@ -397,8 +397,7 @@
     3.4  $Html_About = <<ABOUT;
     3.5  	<p>
     3.6  	LiLaLo (L3) расшифровывается как Live Lab Log.<br/>
     3.7 -	Программа разработана для повышения эффективности обучения<br/>
     3.8 -	Unix/Linux-системам.<br/>
     3.9 +	Программа разработана для повышения эффективности обучения Unix/Linux-системам.<br/>
    3.10  	(c) Игорь Чубин, 2004-2005<br/>
    3.11  	</p>
    3.12  ABOUT