lilalo

view l3-frontend @ 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 для конфигурирования.
author devi
date Tue Nov 08 12:16:20 2005 +0200 (2005-11-08)
parents 450b6ac9b657
children 196c82b6e538
line source
1 #!/usr/bin/perl -w
3 use lib '.';
4 use l3config;
6 our @Command_Lines;
8 # vvv Инициализация переменных выполняется процедурой init_variables
9 our @Day_Name;
10 our @Month_Name;
11 our @Of_Month_Name;
12 our %Search_Machines;
13 our %Elements_Visibility;
14 # ^^^
16 sub search_buy;
17 sub make_comment;
18 sub load_command_lines_from_xml;
19 sub print_command_lines;
20 sub init_variables;
21 sub main;
23 main();
25 sub main
26 {
27 $| = 1;
29 init_variables();
30 init_config();
32 load_command_lines_from_xml($Config{"backend_datafile"});
33 print_command_lines($Config{"output"});
34 }
37 sub search_by
38 {
39 my $sm = shift;
40 my $topic = shift;
41 $topic =~ s/ /+/;
43 return "<a href='". $Search_Machines{$sm}->{"query"}."$topic'><img width='16' height='16' src='".
44 $Search_Machines{$sm}->{"icon"}."' border='0'/></a>";
45 }
47 sub make_comment
48 {
49 my $commands = $_[0];
50 my $files = $_[1];
51 chomp $commands;
52 chomp $files;
53 return if (!$commands && !$files);
55 my $comment="";
57 # Commands
58 for my $command (split /\s+/,$commands) {
59 $command =~ s/'//g;
60 my $description="";
61 eval { $description=`/home/devi/bin/mywi-client '$command'`; } ;
62 $description = join ("<br>\n", grep(/\([18]\)/, split(/\n/, $description)));
63 $description =~ s/.*?-//;
64 next if $description =~ /^\s*$/;
66 my $query=$command." ".$Config{"keywords"};
67 $query =~ s/\ /+/g;
68 my $search= search_by("opennet",$query).
69 search_by("local",$command).
70 search_by("google",$query);
72 $comment .= "<tr><td class='note_title'>$command</td>".
73 "<td class='note_search'>$search</td>".
74 "</tr><tr><td width='100%' colspan='2' class='note_text'>".
75 "$description</td></tr><tr/>";
76 }
78 # Files
79 for my $file (split /\s+/,$files) {
80 $file =~ s@.*/@@;
81 $file =~ s/'//g;
82 next if $file =~ /^\s*$/;
83 next if $file =~ /^-/;
85 my $description=`mywi '$file'`;
86 $description = join ("<br>\n", grep(/\(5\)/, split(/\n/, $description)));
87 next if $description =~ /^\s*$/;
89 my $query=$file." ".$Config{"files_keywords"};
90 $query =~ s/\ /+/g;
91 my $search= search_by("opennet",$query).
92 search_by("local",$file).
93 search_by("google",$query);
95 $comment .= "<tr><td class='note_title'>$file</td>".
96 "<td class='note_search'>$search</td>".
97 "</tr><tr><td width='100%' colspan='2' class='note_text'>".
98 "$description</td></tr><tr/>";
99 }
102 return $comment;
103 }
105 =cut
106 Процедура load_command_lines_from_xml выполняет загрузку разобранного lab-скрипта
107 из XML-документа в переменную @Command_Lines
109 Предупреждение!
110 Процедура не в состоянии обрабатывать XML-документ любой структуры.
111 В действительности файл cache из которого загружаются данные
112 просто напоминает XML с виду.
113 =cut
114 sub load_command_lines_from_xml
115 {
116 my $datafile = $_[0];
118 open (CLASS, $datafile)
119 or die "Can't open file of the class ",$datafile,"\n";
120 local $/;
121 $data = <CLASS>;
122 close(CLASS);
124 for $command ($data =~ m@<command>(.*?)</command>@sg) {
125 my %cl;
126 while ($command =~ m@<([^>]*?)>(.*?)</\1>@sg) {
127 $cl{$1} = $2;
128 }
129 push @Command_Lines, \%cl;
130 }
131 }
133 =cut
134 Процедура print_command_lines выводит HTML-представление
135 разобранного lab-скрипта.
137 Разобранный lab-скрипт должен находиться в массиве @Command_Lines
138 =cut
140 sub print_command_lines
141 {
142 my $output_filename=$_[0];
144 my $course_name = $Config{"course-name"};
145 my $course_code = $Config{"course-code"};
146 my $course_date = $Config{"course-date"};
147 my $course_center = $Config{"course-center"};
148 my $course_trainer = $Config{"course-trainer"};
149 my $course_student = $Config{"course-student"};
152 # Результат выполнения процедуры равен
153 # join("", @Result{header,body,stat,help,about,footer})
154 my %Result;
155 my $toc =""; # Хранит оглавление по дням
157 $Result{"body"} = "<table width='100%'>\n";
159 my $cl;
160 my $last_tty="";
161 my $last_day="";
162 my $in_range=0;
164 for my $cl (@Command_Lines) {
166 if ($Config{"from"} && $cl->{"cline"} =~ /$Config{"signature"}\s*$Config{"from"}/) {
167 $in_range=1;
168 next;
169 }
170 if ($Config{"to"} && $cl->{"cline"} =~ /$Config{"signature"}\s*$Config{"to"}/) {
171 $in_range=0;
172 next;
173 }
174 next if ($Config{"from"} && $Config{"to"} && !$in_range)
175 ||
176 ($Config{"skip_empty"} =~ /^y/i && $cl->{"cline"} =~ /^\s*$/ )
177 ||
178 ($Config{"skip_wrong"} =~ /^y/i && $cl->{"err"} != 0)
179 ||
180 ($Config{"skip_interrupted"} =~ /^y/i && $cl->{"err"} == 130);
182 #my @new_commands=@{$cl->{"new_commands"}};
183 #my @new_files=@{$cl->{"new_files"}};
185 my $cl_class="cline";
186 my $out_class="output";
187 if ($cl->{"class"}) {
188 $cl_class = $cl->{"class"}."_".$cl_class;
189 $out_class = $cl->{"class"}."_".$out_class;
190 }
192 my @new_commands;
193 my @new_files;
194 @new_commands = split (/\s+/, $cl->{"new_commands"}) if defined $cl->{"new_commands"};
195 @new_files = split (/\s+/, $cl->{"new_files"}) if defined $cl->{"new_files"};
197 my $output="";
198 if ($Config{"head_lines"} || $Config{"tail_lines"}) {
199 # Partialy output
200 my @lines = split '\n', $cl->{"output"};
201 # head
202 my $mark=1;
203 for (my $i=0; $i<= $#lines && $i < $Config{"head_lines"}; $i++) {
204 $output .= $lines[$i]."\n";
205 }
206 # tail
207 my $start=$#lines-$Config{"tail_lines"}+1;
208 if ($start < 0) {
209 $start=0;
210 $mark=0;
211 }
212 if ($start < $Config{"head_lines"}) {
213 $start=$Config{"head_lines"};
214 $mark=0;
215 }
216 $output .= $Config{"skip_text"}."\n" if $mark;
217 for (my $i=$start; $i<= $#lines; $i++) {
218 $output .= $lines[$i]."\n";
219 }
220 }
221 else {
222 # Full output
223 $output .= $cl->{"output"};
224 }
225 #$output .= "^C\n" if ($cl->{"err"} eq "130");
227 #
228 ##
229 ## Начинается собственно вывод
230 ##
231 #
233 # <command>
235 my ($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = localtime($cl->{time});
236 # Добавляем спереди 0 для удобочитаемости
237 $min = "0".$min if $min =~ /^.$/;
238 $hour = "0".$hour if $hour =~ /^.$/;
239 $sec = "0".$sec if $sec =~ /^.$/;
241 $class=$cl->{"out_class"};
242 $class =~ s/output$//;
245 $Result{"body"} .= "<tr class='command'>\n";
248 # DAY CHANGE
249 if ( $last_day ne $day) {
250 #$Result{"body"} .= "<td colspan='6'><p></p><h3>День ",$day,"</h4></td></tr><tr>";
251 $Result{"body"} .= "<td colspan='6'><p></p><h3 id='day$day'>".$Day_Name[$wday]."</h4></td></tr><tr>";
252 $toc .= "<li><a href='#day$day'>".$Day_Name[$wday]."</a></li>\n";
253 $last_day=$day;
254 }
256 # CONSOLE CHANGE
257 if ( $last_tty ne $cl->{"tty"}) {
258 $Result{"body"} .= "<td colspan='6'><table><tr><td class='ttychange' width='140' align='center'>".$cl->{"tty"}."</td><td/></tr></table></td></tr><tr>";
259 $last_tty=$cl->{"tty"};
260 }
262 # TIME
263 if ($Config{"show_time"} =~ /^y/i) {
264 $Result{"body"} .= "<td valign='top' class='time' width='$Config{time_width}'><pre>".
265 $hour. ":". $min. ":". $sec.
266 "</td>";
267 } else {
268 $Result{"body"} .= "<td width='0'/>"
269 }
271 # COMMAND
272 $Result{"body"} .= "<td class='script'>\n";
273 $Result{"body"} .= "<pre class='${class}cline'>\n";
274 my $cline = $cl->{"cline"};
275 $cline =~ s/\n//;
276 $Result{"body"} .= $cl->{"prompt"}.$cl->{"cline"};
277 $Result{"body"} .= "</pre>\n";
279 my $last_command = $cl->{"last_command"};
280 if (!(
281 $Config{"suppress_editors"} =~ /^y/i && grep ($_ eq $last_command, @{$Config{"editors"}}) ||
282 $Config{"suppress_pagers"} =~ /^y/i && grep ($_ eq $last_command, @{$Config{"pagers"}}) ||
283 $Config{"suppress_terminal"}=~ /^y/i && grep ($_ eq $last_command, @{$Config{"terminal"}})
284 )) {
286 $Result{"body"} .= "<pre class='".$cl->{out_class}."'>";
287 $Result{"body"} .= $output;
288 $Result{"body"} .= "</pre>\n";
289 }
291 # DIFF
292 if ( $Config{"show_diffs"} =~ /^y/i && $cl->{"diff"}) {
293 $Result{"body"} .= "<table><tr><td width='5'/><td class='diff'><pre>";
294 $Result{"body"} .= $cl->{"diff"};
295 $Result{"body"} .= "</pre></td></tr></table>";
296 }
298 # COMMENT
299 if ( $Config{"show_comments"} =~ /^y/i) {
300 my $comment = make_comment(join(" ",@new_commands), join (" ",@new_files));
301 if ($comment) {
302 $Result{"body"} .= "<table width='$Config{comment_width}'>".
303 "<tr><td width='5'/><td>";
304 $Result{"body"} .= "<table class='note' width='100%'>";
305 $Result{"body"} .= $comment;
306 $Result{"body"} .= "</table>\n";
307 $Result{"body"} .= "</td></tr></table>";
308 }
309 }
311 # Вывод очередной команды окончен
312 $Result{"body"} .= "</td>\n";
313 $Result{"body"} .= "</tr>\n";
314 }
316 $Result{"body"} .= "</table>\n";
318 $Result{"stat"} = "<hr/>";
319 $Result{"stat"} .= "<h2 id='stat'>Статистика</h2>";
320 $Result{"stat"} .= "Статистическая информация о журнале<br/>";
321 $Result{"help"} .= "<hr/>";
322 $Result{"help"} .= "<h2 id='help'>Справка</h2>";
323 $Result{"help"} .= "$Html_Help<br/>";
324 $Result{"about"} .= "<hr/>";
325 $Result{"about"} .= "<h2 id='about'>О программе</h2>";
326 $Result{"about"} .= "$Html_About";
327 $Result{"footer"} .= "</body>\n";
328 $Result{"footer"} .= "</html>\n";
330 # Заголовок генерируется позже всего
331 # Тогда, когда известно уже, что должно быть написано в
332 # оглавлении
333 $Result{"header"} = <<HEADER;
334 <html>
335 <head>
336 <meta content='text/html; charset=utf-8' http-equiv='Content-Type' />
337 <link rel='stylesheet' href='$Config{frontend_css}' type='text/css'/>
338 </head>
339 <body>
340 <script>
341 $Html_JavaScript
342 </script>
343 <h2>Журнал лабораторных работ</h2>
345 <p>
346 Выполнил $course_student<br/>
347 Проверил $course_trainer <br/>
348 Курс $course_name ($course_code),
349 $course_date<br/>
350 Учебный центр $course_center <br/>
351 </p>
353 <ul>
354 <li><a href='#log'>Журнал</a></li>
355 <ul>$toc</ul>
356 <li><a href='#stat'>Статистика</a></li>
357 <li><a href='#help'>Справка</a></li>
358 <li><a href='#about'>О программе</a></li>
359 </ul>
361 <h2 id="log">Журнал</h2>
362 HEADER
363 $Result{"header"} .= "<table class='visibility_form'><tr><td><form>\n";
364 for my $element (keys %Elements_Visibility)
365 {
366 my @e = split /\s+/, $element;
367 my $showhide = join "", map { "ShowHide('$_');" } @e ;
368 $Result{"header"} .= "<input type='checkbox' name='$e[0]' onclick=\"$showhide\" checked>".
369 $Elements_Visibility{$element}.
370 "</input><br>\n";
371 }
373 $Result{"header"} .= "</form></td></tr></table>\n";
375 if ($output_filename eq "-") {
376 print $Result{"header"}, $Result{"body"}, $Result{"stat"}, $Result{"help"}, $Result{"about"}, $Result{"footer"};
377 }
378 else {
379 open(OUT, ">", $output_filename)
380 or die "Can't open $output_filename for writing\n";
381 print OUT $Result{"header"}, $Result{"body"}, $Result{"stat"}, $Result{"help"}, $Result{"about"}, $Result{"footer"};
382 close(OUT);
383 }
384 }
391 sub init_variables
392 {
393 $Html_Help = <<HELP;
394 Справка по использованию журнала
395 HELP
397 $Html_About = <<ABOUT;
398 <p>
399 LiLaLo (L3) расшифровывается как Live Lab Log.<br/>
400 Программа разработана для повышения эффективности обучения Unix/Linux-системам.<br/>
401 (c) Игорь Чубин, 2004-2005<br/>
402 </p>
403 ABOUT
404 $Html_About.='$Id$ </p>';
406 $Html_JavaScript = <<JS;
407 function getElementsByClassName(Class_Name)
408 {
409 var Result=new Array();
410 var All_Elements=document.all || document.getElementsByTagName('*');
411 for (i=0; i<All_Elements.length; i++)
412 if (All_Elements[i].className==Class_Name)
413 Result.push(All_Elements[i]);
414 return Result;
415 }
416 function ShowHide (name)
417 {
418 elements=getElementsByClassName(name);
419 for(i=0; i<elements.length; i++)
420 if (elements[i].style.display == "none")
421 elements[i].style.display = "";
422 else
423 elements[i].style.display = "none";
424 //if (elements[i].style.visibility == "hidden")
425 // elements[i].style.visibility = "visible";
426 //else
427 // elements[i].style.visibility = "hidden";
428 }
429 function filter_by_output(text)
430 {
432 var jjj=0;
434 elements=getElementsByClassName('command');
435 for(i=0; i<elements.length; i++) {
436 subelems = elements[i].getElementsByTagName('pre');
437 for(j=0; j<subelems.length; j++) {
438 if (subelems[j].className = 'output') {
439 var str = new String(subelems[j].nodeValue);
440 if (jjj != 1) {
441 alert(str);
442 jjj=1;
443 }
444 if (str.indexOf(text) >0)
445 subelems[j].style.display = "none";
446 else
447 subelems[j].style.display = "";
449 }
451 }
452 }
454 }
455 JS
457 %Search_Machines = (
458 "google" => { "query" => "http://www.google.com/search?q=" ,
459 "icon" => "$Config{frontend_google_ico}" },
460 "freebsd" => { "query" => "http://www.freebsd.org/cgi/man.cgi?query=",
461 "icon" => "$Config{frontend_freebsd_ico}" },
462 "linux" => { "query" => "http://man.he.net/?topic=",
463 "icon" => "$Config{frontend_linux_ico}"},
464 "opennet" => { "query" => "http://www.opennet.ru/search.shtml?words=",
465 "icon" => "$Config{frontend_opennet_ico}"},
466 "local" => { "query" => "http://www.freebsd.org/cgi/man.cgi?query=",
467 "icon" => "$Config{frontend_local_ico}" },
469 );
471 %Elements_Visibility = (
472 "note" => "замечания",
473 "diff" => "редактор",
474 "time" => "время",
475 "ttychange" => "терминал",
476 "wrong_output wrong_cline wrong_root_output wrong_root_cline"
477 => "команды с ошибками",
478 "interrupted_output interrupted_cline interrupted_root_output interrupted_root_cline"
479 => "прерванные команды",
480 "tab_completion_output tab_completion_cline"
481 => "продолжение с помощью tab"
482 );
484 @Day_Name = qw/ Воскресенье Понедельник Вторник Среда Четверг Пятница Суббота /;
485 @Month_Name = qw/ Январь Февраль Март Апрель Май Июнь Июль Август Сентябрь Октябрь Ноябрь Декабрь /;
486 @Of_Month_Name = qw/ Января Февраля Марта Апреля Мая Июня Июля Августа Сентября Октября Ноября Декабря /;
487 }