lilalo
view l3-frontend @ 56:43aeb3036aaa
l3-frontend:
Наведение порядка в коде. Пока что, он ещё достаточно сырой
и некрасивый, но это всё же лучше, чем то, что было раньше.
Добавлено:
* команды, набранные с ошибками показываются зачёркнутым текстом
* в статистике подсвечиваются известные/неизвестные команды,
как раньше по тексту
* в названиях программ/скриптов пути, содержащие /etc, не отрезаются
l3-agent:
Неправильно передавался код завершения. Fixed
Код откровенно мерзкий и требует доработок
Наведение порядка в коде. Пока что, он ещё достаточно сырой
и некрасивый, но это всё же лучше, чем то, что было раньше.
Добавлено:
* команды, набранные с ошибками показываются зачёркнутым текстом
* в статистике подсвечиваются известные/неизвестные команды,
как раньше по тексту
* в названиях программ/скриптов пути, содержащие /etc, не отрезаются
l3-agent:
Неправильно передавался код завершения. Fixed
Код откровенно мерзкий и требует доработок
| author | devi |
|---|---|
| date | Wed Dec 28 01:01:00 2005 +0200 (2005-12-28) |
| parents | d3fcff5e3757 |
| children | 187b6636a3be |
line source
1 #!/usr/bin/perl -w
3 use IO::Socket;
4 use lib '.';
5 use l3config;
6 use locale;
8 our @Command_Lines;
9 our @Command_Lines_Index;
10 our %Commands_Description;
11 our %Args_Description;
12 our $Mywi_Socket;
13 our %Sessions;
15 # vvv Инициализация переменных выполняется процедурой init_variables
16 our @Day_Name;
17 our @Month_Name;
18 our @Of_Month_Name;
19 our %Search_Machines;
20 our %Elements_Visibility;
21 # ^^^
23 our %Stat;
24 our %CommandsFDistribution; # Сколько раз в журнале встречается какая команда
26 my %mywi_cache_for; # Кэш для экономии обращений к mywi
28 sub make_comment;
29 sub load_command_lines_from_xml;
30 sub load_sessions_from_xml;
31 sub sort_command_lines;
32 sub process_command_lines;
33 sub init_variables;
34 sub main;
35 sub collapse_list($);
37 sub print_all;
38 sub print_command_lines;
39 sub print_stat;
40 sub print_header;
41 sub print_footer;
43 main();
45 sub main
46 {
47 $| = 1;
49 init_variables();
50 init_config();
52 open_mywi_socket();
53 load_command_lines_from_xml($Config{"backend_datafile"});
54 load_sessions_from_xml($Config{"backend_datafile"});
55 sort_command_lines;
56 process_command_lines;
57 print_all($Config{"output"});
58 close_mywi_socket;
59 }
61 # extract_from_cline
63 # In: $what = commands | args
64 # Out: return ссылка на хэш, содержащий результаты разбора
65 # команда => позиция
67 # Разобрать командную строку $_[1] и возвратить хэш, содержащий
68 # номер первого появление команды в строке:
69 # команда => первая позиция
70 sub extract_from_cline
71 {
72 my $what = $_[0];
73 my $cline = $_[1];
74 my @lists = split /\;/, $cline;
77 my @command_lines = ();
78 for my $command_list (@lists) {
79 push(@command_lines, split(/\|/, $command_list));
80 }
82 my %position_of_command;
83 my %position_of_arg;
84 my $i=0;
85 for my $command_line (@command_lines) {
86 $command_line =~ s@^\s*@@;
87 $command_line =~ /\s*(\S+)\s*(.*)/;
88 if ($1 && $1 eq "sudo" ) {
89 $position_of_command{"$1"}=$i++;
90 $command_line =~ s/\s*sudo\s+//;
91 }
92 if ($command_line !~ m@^\s*\S*/etc/@) {
93 $command_line =~ s@^\s*\S+/@@;
94 }
96 $command_line =~ /\s*(\S+)\s*(.*)/;
97 my $command = $1;
98 my $args = $2;
99 if ($command && !defined $position_of_command{"$command"}) {
100 $position_of_command{"$command"}=$i++;
101 };
102 if ($args) {
103 my @args = split (/\s+/, $args);
104 for my $a (@args) {
105 $position_of_arg{"$a"}=$i++
106 if !defined $position_of_arg{"$a"};
107 };
108 }
109 }
111 if ($what eq "commands") {
112 return \%position_of_command;
113 } else {
114 return \%position_of_arg;
115 }
117 }
122 #
123 # Подпрограммы для работы с mywi
124 #
126 sub open_mywi_socket
127 {
128 $Mywi_Socket = IO::Socket::INET->new(
129 PeerAddr => $Config{mywi_server},
130 PeerPort => $Config{mywi_port},
131 Proto => "tcp",
132 Type => SOCK_STREAM);
133 }
135 sub close_mywi_socket
136 {
137 close ($Mywi_Socket) if $Mywi_Socket ;
138 }
141 sub mywi_client
142 {
143 my $query = $_[0];
144 my $mywi;
146 open_mywi_socket;
147 if ($Mywi_Socket) {
148 local $| = 1;
149 local $/ = "";
150 print $Mywi_Socket $query."\n";
151 $mywi = <$Mywi_Socket>;
152 $mywi = "" if $mywi =~ /nothing app/;
153 }
154 close_mywi_socket;
155 return $mywi;
156 }
158 sub make_comment
159 {
160 my $cline = $_[0];
161 #my $files = $_[1];
163 my @comments;
164 my @commands = keys %{extract_from_cline("commands", $cline)};
165 my @args = keys %{extract_from_cline("args", $cline)};
166 return if (!@commands && !@args);
167 #return "commands=".join(" ",@commands)."; files=".join(" ",@files);
169 # Commands
170 for my $command (@commands) {
171 $command =~ s/'//g;
172 $CommandsFDistribution{$command}++;
173 if (!$Commands_Description{$command}) {
174 $mywi_cache_for{$command} ||= mywi_client ($command) || "";
175 my $mywi = join ("\n", grep(/\([18]\)/, split(/\n/, $mywi_cache_for{$command})));
176 $mywi =~ s/\s+/ /;
177 if ($mywi !~ /^\s*$/) {
178 $Commands_Description{$command} = $mywi;
179 }
180 else {
181 next;
182 }
183 }
185 push @comments, $Commands_Description{$command};
186 }
187 return join(" \n", @comments);
189 # Files
190 for my $arg (@args) {
191 $arg =~ s/'//g;
192 if (!$Args_Description{$arg}) {
193 my $mywi;
194 $mywi = mywi_client ($arg);
195 $mywi = join ("\n", grep(/\([5]\)/, split(/\n/, $mywi)));
196 $mywi =~ s/\s+/ /;
197 if ($mywi !~ /^\s*$/) {
198 $Args_Description{$arg} = $mywi;
199 }
200 else {
201 next;
202 }
203 }
205 push @comments, $Args_Description{$arg};
206 }
208 }
210 =cut
211 Процедура load_command_lines_from_xml выполняет загрузку разобранного lab-скрипта
212 из XML-документа в переменную @Command_Lines
214 # In: $datafile имя файла
215 # Out: @CommandLines загруженные командные строки
217 Предупреждение!
218 Процедура не в состоянии обрабатывать XML-документ любой структуры.
219 В действительности файл cache из которого загружаются данные
220 просто напоминает XML с виду.
221 =cut
222 sub load_command_lines_from_xml
223 {
224 my $datafile = $_[0];
226 open (CLASS, $datafile)
227 or die "Can't open file of the class ",$datafile,"\n";
228 local $/;
229 $data = <CLASS>;
230 close(CLASS);
232 for $command ($data =~ m@<command>(.*?)</command>@sg) {
233 my %cl;
234 while ($command =~ m@<([^>]*?)>(.*?)</\1>@sg) {
235 $cl{$1} = $2;
236 }
237 push @Command_Lines, \%cl;
238 }
239 }
241 sub load_sessions_from_xml
242 {
243 my $datafile = $_[0];
245 open (CLASS, $datafile)
246 or die "Can't open file of the class ",$datafile,"\n";
247 local $/;
248 my $data = <CLASS>;
249 close(CLASS);
251 for my $session ($data =~ m@<session>(.*?)</session>@sg) {
252 my %session;
253 while ($session =~ m@<([^>]*?)>(.*?)</\1>@sg) {
254 $session{$1} = $2;
255 }
256 $Sessions{$session{local_session_id}} = \%session;
257 }
258 }
261 # sort_command_lines
262 # In: @Command_Lines
263 # Out: @Command_Lies_Index
265 sub sort_command_lines
266 {
268 my @index;
269 for (my $i=0;$i<=$#Command_Lines;$i++) {
270 $index[$i]=$i;
271 }
273 @Command_Lines_Index = sort {
274 $Command_Lines[$index[$a]]->{"time"} <=> $Command_Lines[$index[$b]]->{"time"}
275 } @index;
277 }
279 ##################
280 # process_command_lines
281 #
282 # Обрабатываются командные строки @Command_Lines
283 # Для каждой строки определяется:
284 # class класс
285 # note комментарий
286 #
287 # In: @Command_Lines_Index
288 # In-Out: @Command_Lines
290 sub process_command_lines
291 {
292 for my $i (@Command_Lines_Index) {
293 my $cl = \$Command_Lines[$i];
295 next if !$cl;
297 $$cl->{err} ||=0;
299 # Класс команды
301 $$cl->{"class"} = $$cl->{"err"} eq 130 ? "interrupted"
302 : $$cl->{"err"} eq 127 ? "mistyped"
303 : $$cl->{"err"} ? "wrong"
304 : "";
306 if (!$$cl->{"euid"}) {
307 $$cl->{"class"}.="_root";
308 }
311 #Обработка пометок
312 # Если несколько пометок (notes) идут подряд,
313 # они все объединяются
315 if ($$cl->{cline}=~ m@cat[^#]*#([\^=v])\s*(.*)@) {
317 my $note_operator = $1;
318 my $note_title = $2;
320 if ($note_operator eq "=") {
321 $$cl->{"class"} = "note";
322 $$cl->{"note"} = $$cl->{"output"};
323 $$cl->{"note_title"} = $2;
324 }
325 else {
326 my $j = $i;
327 if ($note_operator eq "^") {
328 $j--;
329 $j-- while ($j >=0 && (!$Command_Lines[$j] || $Command_Lines[$j]->{tty} ne $$cl->{tty}));
330 }
331 elsif ($note_operator eq "v") {
332 $j++;
333 $j++ while ($j <= @Command_Lines && (!$Command_Lines[$j] || $Command_Lines[$j]->{tty} ne $$cl->{tty}));
334 }
335 $Command_Lines[$j]->{note_title}=$note_title;
336 $Command_Lines[$j]->{note}.=$$cl->{output};
337 $$cl=0;
338 }
339 }
340 elsif ($$cl->{cline}=~ /#([\^=v])(.*)/) {
342 my $note_operator = $1;
343 my $note_text = $2;
345 if ($note_operator eq "=") {
346 $$cl->{"class"} = "note";
347 $$cl->{"note"} = $note_text;
348 }
349 else {
350 my $j=$i;
351 if ($note_operator eq "^") {
352 $j--;
353 $j-- while ($j >=0 && (!$Command_Lines[$j] || $Command_Lines[$j]->{tty} ne $$cl->{tty}));
354 }
355 elsif ($note_operator eq "v") {
356 $j++;
357 $j++ while ($j <= @Command_Lines && $Command_Lines[$j]->{tty} ne $$cl->{tty} || !$Command_Lines[$j]);
358 }
359 $Command_Lines[$j]->{note}.="$note_text\n";
360 $$cl=0;
361 }
362 }
363 }
365 }
368 =cut
369 Процедура print_command_lines выводит HTML-представление
370 разобранного lab-скрипта.
372 Разобранный lab-скрипт должен находиться в массиве @Command_Lines
373 =cut
375 sub print_command_lines
376 {
378 my @toc; # Оглавление
379 my $note_number=0;
381 my $result = q();
382 my $this_day_resut = q();
384 my $cl;
385 my $last_tty="";
386 my $last_day=q();
387 my $last_wday=q();
388 my $in_range=0;
390 my $current_command=0;
392 my %filter;
394 if ($Config{filter}) {
395 # Инициализация фильтра
396 my %filter;
397 for (split /&/,$Config{filter}) {
398 my ($var, $val) = split /=/;
399 $filter{$var} = $val || "";
400 }
401 }
403 $Stat{LastCommand} ||= 0;
404 $Stat{TotalCommands} ||= 0;
405 $Stat{ErrorCommands} ||= 0;
406 $Stat{MistypedCommands} ||= 0;
408 COMMAND_LINE:
409 for my $k (@Command_Lines_Index) {
411 my $cl=$Command_Lines[$Command_Lines_Index[$current_command++]];
412 next unless $cl;
414 # Пропускаем команды, с одинаковым временем
415 # Это не совсем правильно.
416 # Возможно, что это команды, набираемые с помощью <completion>
417 # или запомненные с помощью <ctrl-c>
419 next if $Stat{LastCommand} == $cl->{time};
421 # Набираем статистику
422 # Хэш %Stat
424 $Stat{FirstCommand} = $cl->{time} unless $Stat{FirstCommand};
425 if ($cl->{time} - $Stat{LastCommand} < $Config{stat_inactivity_interval}) {
426 $Stat{TotalTime} += $cl->{time} - $Stat{LastCommand}
427 }
428 $Stat{LastCommand} = $cl->{time};
429 $Stat{TotalCommands}++;
431 # Пропускаем строки, которые противоречат фильтру
432 # Если у нас недостаточно информации о том, подходит строка под фильтр или нет,
433 # мы её выводим
435 for my $filter_key (keys %filter) {
436 next COMMAND_LINE if
437 defined($cl->{local_session_id})
438 && defined($Sessions{$cl->{local_session_id}}->{$filter_key})
439 && $Sessions{$cl->{local_session_id}}->{$filter_key} ne $filter{$filter_key};
440 }
442 # Пропускаем строки, выходящие за границу "signature",
443 # при условии, что границы указаны
444 # Пропускаем неправильные/прерванные/другие команды
445 if ($Config{"from"} && $cl->{"cline"} =~ /$Config{"signature"}\s*$Config{"from"}/) {
446 $in_range=1;
447 next;
448 }
449 if ($Config{"to"} && $cl->{"cline"} =~ /$Config{"signature"}\s*$Config{"to"}/) {
450 $in_range=0;
451 next;
452 }
453 next if ($Config{"from"} && $Config{"to"} && !$in_range)
454 || ($Config{"skip_empty"} =~ /^y/i && $cl->{"cline"} =~ /^\s*$/ )
455 || ($Config{"skip_wrong"} =~ /^y/i && $cl->{"err"} != 0)
456 || ($Config{"skip_interrupted"} =~ /^y/i && $cl->{"err"} == 130);
458 if ($cl->{class} eq "note") {
459 my $note = $cl->{note};
460 $note = join ("\n", map ("<p>$_</p>", split (/-\n/, $note)));
461 $note =~ s@(http:[a-zA-Z.0-9/?\_%-]*)@<a href='$1'>$1</a>@g;
462 $note =~ s@(www\.[a-zA-Z.0-9/?\_%-]*)@<a href='$1'>$1</a>@g;
463 $result .= "<tr><td colspan='6'>";
464 $result .= "<h4 id='note$note_number'>".$cl->{note_title}."</h4>" if $cl->{note_title};
465 $result .= "".$note."<p/><p/></td></td>";
467 if ($cl->{note_title}) {
468 push @{$toc[@toc]},"<a href='#note$note_number'>".$cl->{note_title}."</a>";
469 $note_number++;
470 }
471 next;
472 }
475 my $output="";
476 # Выводим <head_lines> верхних строк
477 # и <tail_lines> нижних строк,
478 # если эти параметры существуют
480 my @lines = split '\n', $cl->{"output"};
481 if (($Config{"head_lines"} || $Config{"tail_lines"})
482 && $#lines > $Config{"head_lines"} + $Config{"tail_lines"} ) {
484 for (my $i=0; $i<= $#lines && $i < $Config{"head_lines"}; $i++) {
485 $output .= $lines[$i]."\n";
486 }
487 $output .= $Config{"skip_text"}."\n";
489 my $start_line=$#lines-$Config{"tail_lines"}+1;
490 for ($i=$start_line; $i<= $#lines; $i++) {
491 $output .= $lines[$i]."\n";
492 }
493 }
494 else {
495 $output .= $cl->{"output"};
496 }
498 #
499 ##
500 ## Начинается собственно вывод
501 ##
502 #
504 my ($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = localtime($cl->{time});
506 # Добавляем спереди 0 для удобочитаемости
507 $min = "0".$min if $min =~ /^.$/;
508 $hour = "0".$hour if $hour =~ /^.$/;
509 $sec = "0".$sec if $sec =~ /^.$/;
511 #my @new_commands;
512 #my @new_files;
513 #@new_commands = split (/\s+/, $cl->{"new_commands"}) if defined $cl->{"new_commands"};
514 #@new_files = split (/\s+/, $cl->{"new_files"}) if defined $cl->{"new_files"};
516 $class=$cl->{"class"};
517 $Stat{ErrorCommands}++ if $class =~ /wrong/;
518 $Stat{MistypedCommands}++ if $class =~ /mistype/;
521 # DAY CHANGE
522 if ( $last_day ne $day) {
523 if ($last_day) {
524 $result .= "<h3 id='day$last_day'>".$Day_Name[$last_wday]."</h3>";
525 #$result .= "Новые команды<br/>";
526 $result .= "<table width='100%'>\n";
527 $result .= $this_day_result;
528 $result .= "</table>";
529 }
531 push @toc, "<a href='#day$day'>".$Day_Name[$wday]."</a>\n";
532 $last_day=$day;
533 $last_wday=$wday;
534 $this_day_result = q();
535 }
537 $this_day_result .= "<tr class='command'>\n";
540 # CONSOLE CHANGE
541 if ( $last_tty ne $cl->{"tty"}) {
542 my $tty = $cl->{"tty"};
543 $this_day_result .= "<td colspan='6'>"
544 ."<table><tr><td class='ttychange' width='140' align='center'>"
545 . $tty
546 ."</td></tr></table>"
547 ."</td></tr><tr>";
548 $last_tty=$cl->{"tty"};
549 }
551 # TIME
552 $this_day_result .= $Config{"show_time"} =~ /^y/i
553 ? "<td valign='top' class='time' width='$Config{time_width}'>$hour:$min:$sec</td>"
554 : "<td width='0'/>";
556 # COMMAND
557 my $hint = make_comment($cl->{"cline"});
559 my $cline;
560 $cline = $cl->{"prompt"}.$cl->{"cline"};
561 $cline =~ s/\n//;
563 $cline = "<span title='$hint' class='with_hint'>$cline</span>" if $hint;
564 $cline = "<span class='without_hint'>$cline</span>" if !$hint;
566 $this_day_result .= "<td class='script'>\n";
567 $this_day_result .= "<pre class='${class}_cline'>\n" . $cline . "</pre>\n";
569 # OUTPUT
570 my $last_command = $cl->{"last_command"};
571 if (!(
572 $Config{"suppress_editors"} =~ /^y/i && grep ($_ eq $last_command, @{$Config{"editors"}}) ||
573 $Config{"suppress_pagers"} =~ /^y/i && grep ($_ eq $last_command, @{$Config{"pagers"}}) ||
574 $Config{"suppress_terminal"}=~ /^y/i && grep ($_ eq $last_command, @{$Config{"terminal"}})
575 )) {
576 $this_day_result .= "<pre class='".$class."_output'>" . $output . "</pre>\n";
577 }
579 # DIFF
580 if ( $Config{"show_diffs"} =~ /^y/i && $cl->{"diff"}) {
581 $this_day_result .= "<table><tr><td width='5'/><td class='diff'><pre>"
582 . $cl->{"diff"}
583 . "</pre></td></tr></table>";
584 }
586 #NOTES
587 if ( $Config{"show_notes"} =~ /^y/i && $cl->{"note"}) {
588 my $note=$cl->{"note"};
589 $note =~ s/\n/<br\/>\n/msg;
590 if (not $note =~ s@(http:[a-zA-Z.0-9/_?%-]*)@<a href='$1'>$1</a>@g) {
591 $note =~ s@(www\.[a-zA-Z.0-9/_?%-]*)@<a href='$1'>$1</a>@g;
592 };
593 # Ширину пока не используем
594 # $this_day_result .= "<table width='$Config{note_width}' class='note'>";
595 $this_day_result .= "<table class='note'>";
596 $this_day_result .= "<tr><td class='note_title'>".$cl->{note_title}."</td></tr>" if $cl->{note_title};
597 $this_day_result .= "<tr><td width='100%' class='note_text'>".$note."</td></tr>";
598 $this_day_result .= "</table>\n";
599 }
601 # COMMENT
602 if ( $Config{"show_comments"} =~ /^y/i) {
603 my $comment = make_comment($cl->{"cline"});
604 if ($comment) {
605 $this_day_result .= "<table width='$Config{comment_width}'><tr><td width='5'/><td>"
606 . "<table class='note' width='100%'>"
607 . $comment
608 . "</table>\n"
609 . "</td></tr></table>";
610 }
611 }
613 # Вывод очередной команды окончен
614 $this_day_result .= "</td>\n";
615 $this_day_result .= "</tr>\n";
616 }
618 $result .= "<h3 id='day$last_day'>".$Day_Name[$last_wday]."</h3>";
619 $result .= "<table width='100%'>\n";
620 $result .= $this_day_result;
621 $result .= "</table>";
623 return ($result, collapse_list (\@toc));
625 }
630 #############
631 # print_all
632 #
633 #
634 #
635 # In: $_[0] output_filename
636 # Out:
639 sub print_all
640 {
641 my $output_filename=$_[0];
643 my $result;
644 my ($command_lines,$toc) = print_command_lines;
646 $result = print_header($toc);
647 $result.= "<h2 id='log'>Журнал</h2>" . $command_lines;
648 $result.= "<h2 id='stat'>Статистика</h2>" . print_stat;
649 $result.= "<h2 id='help'>Справка</h2>" . $Html_Help . "<br/>";
650 $result.= "<h2 id='about'>О программе</h2>". $Html_About. "<br/>";
651 $result.= print_footer;
653 if ($output_filename eq "-") {
654 print $result;
655 }
656 else {
657 open(OUT, ">", $output_filename)
658 or die "Can't open $output_filename for writing\n";
659 print OUT $result;
660 close(OUT);
661 }
662 }
664 #############
665 # print_header
666 #
667 #
668 #
669 # In: $_[0] Содержание
670 # Out: Распечатанный заголовок
672 sub print_header
673 {
674 my $toc = $_[0];
675 my $course_name = $Config{"course-name"};
676 my $course_code = $Config{"course-code"};
677 my $course_date = $Config{"course-date"};
678 my $course_center = $Config{"course-center"};
679 my $course_trainer = $Config{"course-trainer"};
680 my $course_student = $Config{"course-student"};
682 my $title = "Журнал лабораторных работ";
683 $title .= " -- ".$course_student if $course_student;
684 if ($course_date) {
685 $title .= " -- ".$course_date;
686 $title .= $course_code ? "/".$course_code
687 : "";
688 }
689 else {
690 $title .= " -- ".$course_code if $course_code;
691 }
693 # Управляющая форма
694 my $control_form .= "<table id='visibility_form' class='visibility_form'><tr><td>Видимые элементы</TD></tr><tr><td><form>\n";
695 for my $element (keys %Elements_Visibility)
696 {
697 my @e = split /\s+/, $element;
698 my $showhide = join "", map { "ShowHide('$_');" } @e ;
699 $control_form .= "<input type='checkbox' name='$e[0]' onclick=\"$showhide\" checked>".
700 $Elements_Visibility{$element}.
701 "</input><br>\n";
702 }
703 $control_form .= "</form></td></tr></table>\n";
705 my $result;
706 $result = <<HEADER;
707 <html>
708 <head>
709 <meta content='text/html; charset=utf-8' http-equiv='Content-Type' />
710 <link rel='stylesheet' href='$Config{frontend_css}' type='text/css'/>
711 <title>$title</title>
712 </head>
713 <body>
714 <script>
715 $Html_JavaScript
716 </script>
717 <h1>Журнал лабораторных работ</h1>
718 HEADER
719 if ( $course_student
720 || $course_trainer
721 || $course_name
722 || $course_code
723 || $course_date
724 || $course_center) {
725 $result .= "<p>";
726 $result .= "Выполнил $course_student<br/>" if $course_student;
727 $result .= "Проверил $course_trainer <br/>" if $course_trainer;
728 $result .= "Курс " if $course_name
729 || $course_code
730 || $course_date;
731 $result .= "$course_name " if $course_name;
732 $result .= "($course_code)" if $course_code;
733 $result .= ", $course_date<br/>" if $course_date;
734 $result .= "Учебный центр $course_center <br/>" if $course_center;
735 $result .= "</p>";
736 }
738 $result .= <<HEADER;
739 <table width='100%'>
740 <tr>
741 <td width='*'>
743 <table border=0 id='toc' class='toc'>
744 <tr>
745 <td>
746 <div class='toc_title'>Содержание</div>
747 <ul>
748 <li><a href='#log'>Журнал</a></li>
749 <ul>$toc</ul>
750 <li><a href='#stat'>Статистика</a></li>
751 <li><a href='#help'>Справка</a></li>
752 <li><a href='#about'>О программе</a></li>
753 </ul>
754 </td>
755 </tr>
756 </table>
758 </td>
759 <td valign='top' width=200>$control_form</td>
760 </tr>
761 </table>
762 HEADER
764 return $result;
765 }
768 #############
769 # print_footer
770 #
771 #
772 #
773 #
774 #
776 sub print_footer
777 {
778 return "</body>\n</html>\n";
779 }
784 #############
785 # print_stat
786 #
787 #
788 #
789 # In:
790 # Out:
792 sub print_stat
793 {
794 %StatNames = (
795 FirstCommand => "Время первой команды журнала",
796 LastCommand => "Время последней команды журнала",
797 TotalCommands => "Количество командных строк в журнале",
798 ErrorsPercentage => "Процент команд с ненулевым кодом завершения, %",
799 MistypesPercentage => "Процент синтаксически неверное набранных команд, %",
800 TotalTime => "Суммарное время работы с терминалом <sup><font size='-2'>*</font></sup>, час",
801 CommandsPerTime => "Количество командных строк в единицу времени, команда/мин",
802 CommandsFrequency => "Частота использования команд",
803 RareCommands => "Частота использования этих команд < 0.5%",
804 );
805 @StatOrder = (
806 FirstCommand,
807 LastCommand,
808 TotalCommands,
809 ErrorsPercentage,
810 MistypesPercentage,
811 TotalTime,
812 CommandsPerTime,
813 CommandsFrequency,
814 RareCommands,
815 );
817 # Подготовка статистики к выводу
818 # Некоторые значения пересчитываются!
819 # Дальше их лучше уже не использовать!!!
821 my %CommandsFrequency = %CommandsFDistribution;
823 $Stat{TotalTime} ||= 0;
824 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($Stat{FirstCommand} || 0);
825 $Stat{FirstCommand} = sprintf "%02i:%02i:%02i %04i-%2i-%2i", $hour, $min, $sec, $year+1900, $mon+1, $mday;
826 ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($Stat{LastCommand} || 0);
827 $Stat{LastCommand} = sprintf "%02i:%02i:%02i %04i-%2i-%2i", $hour, $min, $sec, $year+1900, $mon+1, $mday;
828 if ($Stat{TotalCommands}) {
829 $Stat{ErrorsPercentage} = sprintf "%5.2f", $Stat{ErrorCommands}*100/$Stat{TotalCommands};
830 $Stat{MistypesPercentage} = sprintf "%5.2f", $Stat{MistypedCommands}*100/$Stat{TotalCommands};
831 }
832 $Stat{CommandsPerTime} = sprintf "%5.2f", $Stat{TotalCommands}*60/$Stat{TotalTime}
833 if $Stat{TotalTime};
834 $Stat{TotalTime} = sprintf "%5.2f", $Stat{TotalTime}/60/60;
836 my $total_commands=0;
837 for $command (keys %CommandsFrequency){
838 $total_commands += $CommandsFrequency{$command};
839 }
840 if ($total_commands) {
841 for $command (reverse sort {$CommandsFrequency{$a} <=> $CommandsFrequency{$b}} keys %CommandsFrequency){
842 my $command_html;
843 my $percentage = sprintf "%5.2f",$CommandsFrequency{$command}*100/$total_commands;
844 if ($percentage < 0.5) {
845 my $hint = make_comment($command);
846 $command_html = "$command";
847 $command_html = "<span title='$hint' class='with_hint'>$command_html</span>" if $hint;
848 $command_html = "<span class='without_hint'>$command_html</span>" if not $hint;
849 my $command_html = "<tt>$command_html</tt>";
850 $Stat{RareCommands} .= $command_html."<sub><font size='-2'>".$CommandsFrequency{$command}."</font></sub> , ";
851 }
852 else {
853 my $hint = make_comment($command);
854 $command_html = "$command";
855 $command_html = "<span title='$hint' class='with_hint'>$command_html</span>" if $hint;
856 $command_html = "<span class='without_hint'>$command_html</span>" if not $hint;
857 my $command_html = "<tt>$command_html</tt>";
858 $percentage = sprintf "%5.2f",$percentage;
859 $Stat{CommandsFrequency} .= "<tr><td>".$command_html."</td><td>".$CommandsFrequency{$command}."</td>".
860 "<td>|".("="x int($CommandsFrequency{$command}*100/$total_commands))."| $percentage%</td></tr>";
861 }
862 }
863 $Stat{CommandsFrequency} = "<table>".$Stat{CommandsFrequency}."</table>";
864 $Stat{RareCommands} =~ s/, $// if $Stat{RareCommands};
865 }
867 my $result = q();
868 for my $stat (@StatOrder) {
869 next unless $Stat{"$stat"};
870 $result .= "<tr valign='top'><td width='300'>".$StatNames{"$stat"}."</td><td>".$Stat{"$stat"}."</td></tr>"
871 }
872 $result = "<table>$result</table>"
873 . "<font size='-2'>____<br/>*) Интервалы неактивности длительностью "
874 . ($Config{stat_inactivity_interval}/60)
875 . " минут и более не учитываются</font></br>";
877 return $result;
878 }
881 sub collapse_list($)
882 {
883 my $res = "";
884 for my $elem (@{$_[0]}) {
885 if (ref $elem eq "ARRAY") {
886 $res .= "<ul>".collapse_list($elem)."</ul>";
887 }
888 else
889 {
890 $res .= "<li>".$elem."</li>";
891 }
892 }
893 return $res;
894 }
899 sub init_variables
900 {
901 $Html_Help = <<HELP;
902 Для того чтобы использовать LiLaLo, не нужно знать ничего особенного:
903 всё происходит само собой.
904 Однако, чтобы ведение и последующее использование журналов
905 было как можно более эффективным, желательно иметь в виду следующее:
906 <ol>
907 <li><p>
908 В журнал автоматически попадают все команды, данные в любом терминале системы.
909 </p></li>
910 <li><p>
911 Для того чтобы убедиться, что журнал на текущем терминале ведётся,
912 и команды записываются, дайте команду w.
913 В поле WHAT, соответствующем текущему терминалу,
914 должна быть указана программа script.
915 </p></li>
916 <li><p>
917 Если код завершения команды равен нулю,
918 команда была выполнена без ошибок.
919 Команды, код завершения которых отличен от нуля, выделяются цветом.
920 <table>
921 <tr class='command'>
922 <td class='script'>
923 <pre class='wrong_cline'>
924 \$ l s-l</pre>
925 <pre class='wrong_output'>bash: l: command not found
926 </pre>
927 </td>
928 </tr>
929 </table>
930 <br/>
931 </p></li>
932 <li><p>
933 Команды, ход выполнения которых был прерван пользователем, выделяются цветом.
934 <table>
935 <tr class='command'>
936 <td class='script'>
937 <pre class='interrupted_cline'>
938 \$ find / -name abc</pre>
939 <pre class='interrupted_output'>find: /home/devi-orig/.gnome2: Keine Berechtigung
940 find: /home/devi-orig/.gnome2_private: Keine Berechtigung
941 find: /home/devi-orig/.nautilus/metafiles: Keine Berechtigung
942 find: /home/devi-orig/.metacity: Keine Berechtigung
943 find: /home/devi-orig/.inkscape: Keine Berechtigung
944 ^C
945 </pre>
946 </td>
947 </tr>
948 </table>
949 <br/>
950 </p></li>
951 <li><p>
952 Команды, выполненные с привилегиями суперпользователя,
953 выделяются слева красной чертой.
954 <table>
955 <tr class='command'>
956 <td class='script'>
957 <pre class='_root_cline'>
958 # id</pre>
959 <pre class='_root_output'>
960 uid=0(root) gid=0(root) Gruppen=0(root)
961 </pre>
962 </td>
963 </tr>
964 </table>
965 <br/>
966 </p></li>
967 <li><p>
968 Изменения, внесённые в текстовый файл с помощью редактора,
969 запоминаются и показываются в журнале в формате ed.
970 Строки, начинающиеся символом "<", удалены, а строки,
971 начинающиеся символом ">" -- добавлены.
972 <table>
973 <tr class='command'>
974 <td class='script'>
975 <pre class='cline'>
976 \$ vi ~/.bashrc</pre>
977 <table><tr><td width='5'/><td class='diff'><pre>2a3,5
978 > if [ -f /usr/local/etc/bash_completion ]; then
979 > . /usr/local/etc/bash_completion
980 > fi
981 </pre></td></tr></table></td>
982 </tr>
983 </table>
984 <br/>
985 </p></li>
986 <li><p>
987 Для того чтобы изменить файл в соответствии с показанными в диффшоте
988 изменениями, можно воспользоваться командой patch.
989 Нужно скопировать изменения, запустить программу patch, указав в
990 качестве её аргумента файл, к которому применяются изменения,
991 и всавить скопированный текст:
992 <table>
993 <tr class='command'>
994 <td class='script'>
995 <pre class='cline'>
996 \$ patch ~/.bashrc</pre>
997 </td>
998 </tr>
999 </table>
1000 В данном случае изменения применяются к файлу ~/.bashrc
1001 </p></li>
1002 <li><p>
1003 Для того чтобы получить краткую справочную информацию о команде,
1004 нужно подвести к ней мышь. Во всплывающей подсказке появится краткое
1005 описание команды.
1006 </p></li>
1007 <li><p>
1008 Время ввода команды, показанное в журнале, соответствует времени
1009 <i>начала ввода командной строки</i>, которое равно тому моменту,
1010 когда на терминале появилось приглашение интерпретатора
1011 </p></li>
1012 <li><p>
1013 Имя терминала, на котором была введена команда, показано в специальном блоке.
1014 Этот блок показывается только в том случае, если терминал
1015 текущей команды отличается от терминала предыдущей.
1016 </p></li>
1017 <li><p>
1018 Вывод не интересующих вас в настоящий момент элементов журнала,
1019 таких как время, имя терминала и других, можно отключить.
1020 Для этого нужно воспользоваться <a href='#visibility_form'>формой управления журналом</a>
1021 вверху страницы.
1022 </p></li>
1023 <li><p>
1024 Небольшие комментарии к командам можно вставлять прямо из командной строки.
1025 Комментарий вводится прямо в командную строку, после символов #^ или #v.
1026 Символы ^ и v показывают направление выбора команды, к которой относится комментарий:
1027 ^ - к предыдущей, v - к следующей.
1028 Например, если в командной строке было введено:
1029 <pre class='cline'>
1030 \$ whoami
1031 </pre>
1032 <pre class='output'>
1033 user
1034 </pre>
1035 <pre class='cline'>
1036 \$ #^ Интересно, кто я?
1037 </pre>
1038 в журнале это будет выглядеть так:
1040 <pre class='cline'>
1041 \$ whoami
1042 </pre>
1043 <pre class='output'>
1044 user
1045 </pre>
1046 <table class='note'><tr><td width='100%' class='note_text'>
1047 <tr> <td> Интересно, кто я?<br/> </td></tr></table>
1048 </p></li>
1049 <li><p>
1050 Если комментарий содержит несколько строк,
1051 его можно вставить в журнал следующим образом:
1052 <pre class='cline'>
1053 \$ whoami
1054 </pre>
1055 <pre class='output'>
1056 user
1057 </pre>
1058 <pre class='cline'>
1059 \$ cat > /dev/null #^ Интересно, кто я?
1060 </pre>
1061 <pre class='output'>
1062 Программа whoami выводит имя пользователя, под которым
1063 мы зарегистрировались в системе.
1064 -
1065 Она не может ответить на вопрос о нашем назначении
1066 в этом мире.
1067 </pre>
1068 В журнале это будет выглядеть так:
1069 <table>
1070 <tr class='command'>
1071 <td class='script'>
1072 <pre class='cline'>
1073 \$ whoami</pre>
1074 <pre class='output'>user
1075 </pre>
1076 <table class='note'><tr><td class='note_title'>Интересно, кто я?</td></tr><tr><td width='100%' class='note_text'>
1077 Программа whoami выводит имя пользователя, под которым<br/>
1078 мы зарегистрировались в системе.<br/>
1079 <br/>
1080 Она не может ответить на вопрос о нашем назначении<br/>
1081 в этом мире.<br/>
1082 </td></tr></table>
1083 </td>
1084 </tr>
1085 </table>
1086 Для разделения нескольких абзацев между собой
1087 используйте символ "-", один в строке.
1088 <br/>
1089 </p></li>
1090 <li><p>
1091 Комментарии, не относящиеся непосредственно ни к какой из команд,
1092 добавляются точно таким же способом, только вместо симолов #^ или #v
1093 нужно использовать символы #=
1094 </p></li>
1095 </ol>
1096 HELP
1098 $Html_About = <<ABOUT;
1099 <p>
1100 LiLaLo (L3) расшифровывается как Live Lab Log.<br/>
1101 Программа разработана для повышения эффективности обучения Unix/Linux-системам.<br/>
1102 (c) Игорь Чубин, 2004-2005<br/>
1103 </p>
1104 ABOUT
1105 $Html_About.='$Id$ </p>';
1107 $Html_JavaScript = <<JS;
1108 function getElementsByClassName(Class_Name)
1109 {
1110 var Result=new Array();
1111 var All_Elements=document.all || document.getElementsByTagName('*');
1112 for (i=0; i<All_Elements.length; i++)
1113 if (All_Elements[i].className==Class_Name)
1114 Result.push(All_Elements[i]);
1115 return Result;
1116 }
1117 function ShowHide (name)
1118 {
1119 elements=getElementsByClassName(name);
1120 for(i=0; i<elements.length; i++)
1121 if (elements[i].style.display == "none")
1122 elements[i].style.display = "";
1123 else
1124 elements[i].style.display = "none";
1125 //if (elements[i].style.visibility == "hidden")
1126 // elements[i].style.visibility = "visible";
1127 //else
1128 // elements[i].style.visibility = "hidden";
1129 }
1130 function filter_by_output(text)
1131 {
1133 var jjj=0;
1135 elements=getElementsByClassName('command');
1136 for(i=0; i<elements.length; i++) {
1137 subelems = elements[i].getElementsByTagName('pre');
1138 for(j=0; j<subelems.length; j++) {
1139 if (subelems[j].className = 'output') {
1140 var str = new String(subelems[j].nodeValue);
1141 if (jjj != 1) {
1142 alert(str);
1143 jjj=1;
1144 }
1145 if (str.indexOf(text) >0)
1146 subelems[j].style.display = "none";
1147 else
1148 subelems[j].style.display = "";
1150 }
1152 }
1153 }
1155 }
1156 JS
1158 %Search_Machines = (
1159 "google" => { "query" => "http://www.google.com/search?q=" ,
1160 "icon" => "$Config{frontend_google_ico}" },
1161 "freebsd" => { "query" => "http://www.freebsd.org/cgi/man.cgi?query=",
1162 "icon" => "$Config{frontend_freebsd_ico}" },
1163 "linux" => { "query" => "http://man.he.net/?topic=",
1164 "icon" => "$Config{frontend_linux_ico}"},
1165 "opennet" => { "query" => "http://www.opennet.ru/search.shtml?words=",
1166 "icon" => "$Config{frontend_opennet_ico}"},
1167 "local" => { "query" => "http://www.freebsd.org/cgi/man.cgi?query=",
1168 "icon" => "$Config{frontend_local_ico}" },
1170 );
1172 %Elements_Visibility = (
1173 "note" => "замечания",
1174 "diff" => "редактор",
1175 "time" => "время",
1176 "ttychange" => "терминал",
1177 "wrong_output wrong_cline wrong_root_output wrong_root_cline"
1178 => "команды с ошибками",
1179 "interrupted_output interrupted_cline interrupted_root_output interrupted_root_cline"
1180 => "прерванные команды",
1181 "tab_completion_output tab_completion_cline"
1182 => "продолжение с помощью tab"
1183 );
1185 @Day_Name = qw/ Воскресенье Понедельник Вторник Среда Четверг Пятница Суббота /;
1186 @Month_Name = qw/ Январь Февраль Март Апрель Май Июнь Июль Август Сентябрь Октябрь Ноябрь Декабрь /;
1187 @Of_Month_Name = qw/ Января Февраля Марта Апреля Мая Июня Июля Августа Сентября Октября Ноября Декабря /;
1188 }
1193 # Временно удалённый код
1194 # Возможно, он не понадобится уже никогда
1197 sub search_by
1198 {
1199 my $sm = shift;
1200 my $topic = shift;
1201 $topic =~ s/ /+/;
1203 return "<a href='". $Search_Machines{$sm}->{"query"}."$topic'><img width='16' height='16' src='".
1204 $Search_Machines{$sm}->{"icon"}."' border='0'/></a>";
1205 }