# HG changeset patch
# User devi
# Date 1135724460 -7200
# Node ID 43aeb3036aaa0a3f35edad44a800683cc8028db1
# Parent  d3fcff5e375752452dbd32d18fce39275c4b6600
l3-frontend:

        Наведение порядка в коде. Пока что, он ещё достаточно сырой
        и некрасивый, но это всё же лучше, чем то, что было раньше.
        Добавлено:
            * команды, набранные с ошибками показываются зачёркнутым текстом
            * в статистике подсвечиваются известные/неизвестные команды,
              как раньше по тексту
            * в названиях программ/скриптов пути, содержащие /etc, не отрезаются

l3-agent:
        Неправильно передавался код завершения. Fixed
        Код откровенно мерзкий и требует доработок

diff -r d3fcff5e3757 -r 43aeb3036aaa l3-agent
--- a/l3-agent	Thu Dec 22 11:56:06 2005 +0200
+++ b/l3-agent	Wed Dec 28 01:01:00 2005 +0200
@@ -814,7 +814,7 @@
 		print OUT "<raw_file>",$cl->{raw_file},"</raw_file>\n";
 		print OUT "<tty>",$cl->{tty},"</tty>\n";
 		print OUT "<out_class>",$out_class,"</out_class>\n";
-		print OUT "<err>",$out_class,"</err>\n";
+		print OUT "<err>",$cl->{err},"</err>\n";
 		print OUT "<prompt>";
 			printq(\*OUT,,$cl->{"prompt"});
 		print OUT "</prompt>";
diff -r d3fcff5e3757 -r 43aeb3036aaa l3-frontend
--- a/l3-frontend	Thu Dec 22 11:56:06 2005 +0200
+++ b/l3-frontend	Wed Dec 28 01:01:00 2005 +0200
@@ -25,18 +25,21 @@
 
 my %mywi_cache_for;         # Кэш для экономии обращений к mywi
 
-
-sub search_buy;
 sub make_comment;
 sub load_command_lines_from_xml;
 sub load_sessions_from_xml;
-sub print_command_lines;
 sub sort_command_lines;
 sub process_command_lines;
 sub init_variables;
 sub main;
 sub collapse_list($);
 
+sub print_all;
+sub print_command_lines;
+sub print_stat;
+sub print_header;
+sub print_footer;
+
 main();
 
 sub main
@@ -51,71 +54,75 @@
     load_sessions_from_xml($Config{"backend_datafile"});
     sort_command_lines;
     process_command_lines;
-    print_command_lines($Config{"output"});
+    print_all($Config{"output"});
     close_mywi_socket;
 }
 
+# extract_from_cline
 
-sub search_by
-{
-    my $sm = shift;
-    my $topic = shift;
-    $topic =~ s/ /+/;
-    
-    return "<a href='". $Search_Machines{$sm}->{"query"}."$topic'><img width='16' height='16' src='".
-                $Search_Machines{$sm}->{"icon"}."' border='0'/></a>";
-}
+# In:   $what       = commands | args
+# Out:  return      ссылка на хэш, содержащий результаты разбора
+#                   команда => позиция
 
-sub extract_from_cline
 # Разобрать командную строку $_[1] и возвратить хэш, содержащий 
 # номер первого появление команды в строке:
 #   команда => первая позиция
+sub extract_from_cline
 {
     my $what = $_[0];
     my $cline = $_[1];
     my @lists = split /\;/, $cline;
     
     
-    my @commands = ();
-    for my $list (@lists) {
-        push @commands, split /\|/, $list;
+    my @command_lines = ();
+    for my $command_list (@lists) {
+        push(@command_lines, split(/\|/, $command_list));
     }
 
-    my %commands;
-    my %args;
+    my %position_of_command;
+    my %position_of_arg;
     my $i=0;
-    for my $command (@commands) {
-        $command =~ s@^\s*\S+/@@;
-        $command =~ /\s*(\S+)\s*(.*)/;
+    for my $command_line (@command_lines) {
+        $command_line =~ s@^\s*@@;
+        $command_line =~ /\s*(\S+)\s*(.*)/;
         if ($1 && $1 eq "sudo" ) {
-            $commands{"$1"}=$i++;
-            $command =~ s/\s*sudo\s+//;
+            $position_of_command{"$1"}=$i++;
+            $command_line =~ s/\s*sudo\s+//;
         }
-        $command =~ s@^\s*\S+/@@;
-        $command =~ /\s*(\S+)\s*(.*)/;
-        if ($1 && !defined $commands{"$1"}) {
-                $commands{"$1"}=$i++;
+        if ($command_line !~ m@^\s*\S*/etc/@) {
+            $command_line =~ s@^\s*\S+/@@;
+        }
+
+        $command_line =~ /\s*(\S+)\s*(.*)/;
+        my $command = $1;
+        my $args = $2;
+        if ($command && !defined $position_of_command{"$command"}) {
+                $position_of_command{"$command"}=$i++;
         };  
-        if ($2) {
-            my $args = $2;
+        if ($args) {
             my @args = split (/\s+/, $args);
             for my $a (@args) {
-                $args{"$a"}=$i++
-                    if !defined $args{"$a"};
+                $position_of_arg{"$a"}=$i++
+                    if !defined $position_of_arg{"$a"};
             };  
-
-                
         }
     }
 
     if ($what eq "commands") {
-        return \%commands;
+        return \%position_of_command;
     } else {
-        return \%args;
+        return \%position_of_arg;
     }
     
 }
 
+
+
+
+#
+# Подпрограммы для работы с mywi
+#
+
 sub open_mywi_socket
 {
     $Mywi_Socket = IO::Socket::INET->new(
@@ -204,6 +211,9 @@
 Процедура load_command_lines_from_xml выполняет загрузку разобранного lab-скрипта
 из XML-документа в переменную @Command_Lines
 
+# In:       $datafile           имя файла
+# Out:      @CommandLines       загруженные командные строки
+
 Предупреждение!
 Процедура не в состоянии обрабатывать XML-документ любой структуры.
 В действительности файл cache из которого загружаются данные 
@@ -248,11 +258,12 @@
 }
 
 
+# sort_command_lines
+# In:   @Command_Lines
+# Out:  @Command_Lies_Index
 
 sub sort_command_lines
 {
-    # Sort Command_Lines
-    # Write Command_Lines to Command_Lines_Index
 
     my @index;
     for (my $i=0;$i<=$#Command_Lines;$i++) {
@@ -265,99 +276,87 @@
 
 }
 
+##################
+# process_command_lines
+#
+# Обрабатываются командные строки @Command_Lines
+# Для каждой строки определяется:
+#   class   класс    
+#   note    комментарий 
+#
+# In:        @Command_Lines_Index
+# In-Out:    @Command_Lines
+
 sub process_command_lines
 {
     for my $i (@Command_Lines_Index) {
+        my $cl = \$Command_Lines[$i];
 
-        my $cl = \$Command_Lines[$i];
-        #@{${$cl}->{"new_commands"}} =();
-        #@{${$cl}->{"new_files"}} =();
-        $$cl->{"class"} = ""; 
+        next if !$cl;
 
-        if ($$cl->{"err"}) {
-            $$cl->{"class"}="wrong";
-            $$cl->{"class"}="interrupted"
-                if ($$cl->{"err"} eq 130);
-        }   
+        $$cl->{err} ||=0;
+
+        # Класс команды
+
+        $$cl->{"class"} =   $$cl->{"err"} eq 130 ?  "interrupted"
+                        :   $$cl->{"err"} eq 127 ?  "mistyped"
+                        :   $$cl->{"err"}        ?  "wrong"
+                        :                           "";
+
         if (!$$cl->{"euid"}) {
             $$cl->{"class"}.="_root";
         }
-        
-#tab#       my @tab_words=split /\s+/, $$cl->{"output"};
-#tab#       my $last_word= $$cl->{"cline"} =~ /(\S*)$/;
-#tab#       $last_word =~ s@.*/@@;
-#tab#       my $this_is_tab=1;
-#tab#
-#tab#       if ($last_word && @tab_words >2) {
-#tab#           for my $tab_words (@tab_words) {
-#tab#               if ($tab_words !~ /^$last_word/) {
-#tab#                   $this_is_tab=0;
-#tab#                   last;
-#tab#               }
-#tab#           }
-#tab#       }   
-#tab#       $$cl->{"class"}="tab" if $this_is_tab;
-        
 
-#       if ( !$$cl->{"err"}) {
-#           # Command does not contain mistakes
-#           
-#           my %commands = extract_from_cline("commands", ${$cl}->{"cline"});
-#           my %files = extract_from_cline("files", ${$cl}->{"cline"});
-#
-#           # Searching for new commands only
-#           for my $command (keys  %commands) {
-#               if (!defined $Commands_Stat{$command}) {
-#                   push @{$$cl->{new_commands}}, $command;
-#               }   
-#               $Commands_Stat{$command}++;
-#           }
-#           
-#           for my $file (keys  %files) {
-#               if (!defined $Files_Stat{$file}) {
-#                   push @{$$cl->{new_files}}, $file;
-#               }   
-#               $Files_Stat{$file}++;
-#           }
-#       }   
+
+#Обработка пометок
+#  Если несколько пометок (notes) идут подряд, 
+#  они все объединяются
 
         if ($$cl->{cline}=~ m@cat[^#]*#([\^=v])\s*(.*)@) {
-            if ($1 eq "=") {
+
+            my $note_operator = $1;
+            my $note_title = $2;
+
+            if ($note_operator eq "=") {
                 $$cl->{"class"} = "note";
                 $$cl->{"note"} = $$cl->{"output"};
                 $$cl->{"note_title"} = $2;
             }
             else {
                 my $j = $i;
-                if ($1 eq "^") {
+                if ($note_operator eq "^") {
                     $j--;
                     $j-- while ($j >=0  && (!$Command_Lines[$j] || $Command_Lines[$j]->{tty} ne $$cl->{tty}));
                 }
-                elsif ($1 eq "v") {
+                elsif ($note_operator eq "v") {
                     $j++;
                     $j++ while ($j <= @Command_Lines  && (!$Command_Lines[$j] || $Command_Lines[$j]->{tty} ne $$cl->{tty}));
                 }
-                $Command_Lines[$j]->{note_title}="$2";
-                $Command_Lines[$j]->{note}=$$cl->{output};
+                $Command_Lines[$j]->{note_title}=$note_title;
+                $Command_Lines[$j]->{note}.=$$cl->{output};
                 $$cl=0;
             }
         }
         elsif ($$cl->{cline}=~ /#([\^=v])(.*)/) {
-            if ($1 eq "=") {
+
+            my $note_operator = $1;
+            my $note_text = $2;
+
+            if ($note_operator eq "=") {
                 $$cl->{"class"} = "note";
-                $$cl->{"note"} = $2;
+                $$cl->{"note"} = $note_text;
             }
             else {
                 my $j=$i;
-                if ($1 eq "^") {
+                if ($note_operator eq "^") {
                     $j--;
                     $j-- while ($j >=0  && (!$Command_Lines[$j] || $Command_Lines[$j]->{tty} ne $$cl->{tty}));
                 }
-                elsif ($1 eq "v") {
+                elsif ($note_operator eq "v") {
                     $j++;
                     $j++ while ($j <= @Command_Lines  && $Command_Lines[$j]->{tty} ne $$cl->{tty} || !$Command_Lines[$j]);
                 }
-                $Command_Lines[$j]->{note}.="$2\n";
+                $Command_Lines[$j]->{note}.="$note_text\n";
                 $$cl=0;
             }
         }
@@ -375,64 +374,74 @@
 
 sub print_command_lines
 {
-    my $output_filename=$_[0];
 
-    my $course_name = $Config{"course-name"};
-    my $course_code = $Config{"course-code"};
-    my $course_date = $Config{"course-date"};
-    my $course_center = $Config{"course-center"};
-    my $course_trainer = $Config{"course-trainer"};
-    my $course_student = $Config{"course-student"};
-    
-
-    # Результат выполнения процедуры равен 
-    # join("", @Result{header,body,stat,help,about,footer})
-    my %Result;
-    my @toc;  # Хранит оглавление
+    my @toc;                # Оглавление
     my $note_number=0;
 
-    $Result{"body"} = "<table width='100%'>\n";
+    my $result = q();
+    my $this_day_resut = q();
     
     my $cl;
     my $last_tty="";
-    my $last_day="";
+    my $last_day=q();
+    my $last_wday=q();
     my $in_range=0;
 
     my $current_command=0;
 
+    my %filter;
+
+    if ($Config{filter}) {
+        # Инициализация фильтра
+        my %filter;
+        for (split /&/,$Config{filter}) {
+            my ($var, $val) = split /=/;
+            $filter{$var} = $val || "";
+        }
+    }
+
+    $Stat{LastCommand}   ||= 0;
+    $Stat{TotalCommands} ||= 0;
+    $Stat{ErrorCommands} ||= 0;
+    $Stat{MistypedCommands} ||= 0;
+
 COMMAND_LINE:
     for my $k (@Command_Lines_Index) {
 
         my $cl=$Command_Lines[$Command_Lines_Index[$current_command++]];
-        
         next unless $cl;
 
+# Пропускаем команды, с одинаковым временем
+# Это не совсем правильно.
+# Возможно, что это команды, набираемые с помощью <completion>
+# или запомненные с помощью <ctrl-c>
 
-        if ($Config{filter}) {
-            # Инициализация фильтра
-            my %filter;
-            for (split /&/,$Config{filter}) {
-                my ($var, $val) = split /=/;
-                $filter{$var} = $val || "";
-            }
+        next if $Stat{LastCommand} == $cl->{time};
 
-            for my $filter_key (keys %filter) {
-                next COMMAND_LINE if 
-                    defined($cl->{local_session_id}) 
-                    && defined($Sessions{$cl->{local_session_id}}->{$filter_key}) 
-                    && $Sessions{$cl->{local_session_id}}->{$filter_key} ne $filter{$filter_key};
-		#print $filter_key,"\n";	
-            }
+# Набираем статистику
+# Хэш %Stat
 
-            #if ($filter{user}) {
-            #   next COMMAND_LINE unless $Sessions{$cl->{local_session_id}}->{user} eq $filter{user};
-            #}
+        $Stat{FirstCommand} = $cl->{time} unless $Stat{FirstCommand};
+        if ($cl->{time} - $Stat{LastCommand} < $Config{stat_inactivity_interval}) {
+            $Stat{TotalTime} += $cl->{time} - $Stat{LastCommand}
+        }
+        $Stat{LastCommand} = $cl->{time};
+        $Stat{TotalCommands}++;
 
-            #for my $filter_field (keys %filter) {
-            #   next COMMAND_LINE unless $Sessions{$cl->{local_session_id}}->{$filter_field} eq $filter{$filter_field};
-            #}
+# Пропускаем строки, которые противоречат фильтру
+# Если у нас недостаточно информации о том, подходит строка под  фильтр или нет, 
+# мы её выводим
+
+        for my $filter_key (keys %filter) {
+            next COMMAND_LINE if 
+                defined($cl->{local_session_id}) 
+                && defined($Sessions{$cl->{local_session_id}}->{$filter_key}) 
+                && $Sessions{$cl->{local_session_id}}->{$filter_key} ne $filter{$filter_key};
         }
 
+# Пропускаем строки, выходящие за границу "signature",
+# при условии, что границы указаны
+# Пропускаем неправильные/прерванные/другие команды
         if ($Config{"from"} && $cl->{"cline"} =~ /$Config{"signature"}\s*$Config{"from"}/) {
             $in_range=1;
             next;
@@ -441,25 +450,19 @@
             $in_range=0;
             next;
         }
-        next if ($Config{"from"} && $Config{"to"} && !$in_range) 
-            ||
-                ($Config{"skip_empty"} =~ /^y/i && $cl->{"cline"} =~ /^\s*$/ )
-            ||
-            ($Config{"skip_wrong"} =~ /^y/i && $cl->{"err"} != 0)
-            ||
-            ($Config{"skip_interrupted"} =~ /^y/i && $cl->{"err"} == 130);
+        next    if ($Config{"from"} && $Config{"to"}   && !$in_range) 
+                || ($Config{"skip_empty"} =~ /^y/i     && $cl->{"cline"} =~ /^\s*$/ )
+                || ($Config{"skip_wrong"} =~ /^y/i     && $cl->{"err"} != 0)
+                || ($Config{"skip_interrupted"} =~ /^y/i && $cl->{"err"} == 130);
         
-        #my @new_commands=@{$cl->{"new_commands"}};
-        #my @new_files=@{$cl->{"new_files"}};
-
         if ($cl->{class} eq "note") {
             my $note = $cl->{note};
             $note = join ("\n", map ("<p>$_</p>", split (/-\n/, $note)));
             $note =~ s@(http:[a-zA-Z.0-9/?\_%-]*)@<a href='$1'>$1</a>@g;
             $note =~ s@(www\.[a-zA-Z.0-9/?\_%-]*)@<a href='$1'>$1</a>@g;
-            $Result{"body"} .= "<tr><td colspan='6'>";
-            $Result{"body"} .= "<h4 id='note$note_number'>".$cl->{note_title}."</h4>" if $cl->{note_title};
-            $Result{"body"} .= "".$note."<p/><p/></td></td>";
+            $result .= "<tr><td colspan='6'>";
+            $result .= "<h4 id='note$note_number'>".$cl->{note_title}."</h4>" if $cl->{note_title};
+            $result .= "".$note."<p/><p/></td></td>";
 
             if ($cl->{note_title}) {
                 push @{$toc[@toc]},"<a href='#note$note_number'>".$cl->{note_title}."</a>";
@@ -468,192 +471,343 @@
             next;
         }
 
-        my $cl_class="cline";
-        my $out_class="output";
-        if ($cl->{"class"}) {
-            $cl_class = $cl->{"class"}."_".$cl_class;
-            $out_class = $cl->{"class"}."_".$out_class;
-        }
-
-        my @new_commands;
-        my @new_files;
-        @new_commands = split (/\s+/, $cl->{"new_commands"}) if defined $cl->{"new_commands"};
-        @new_files = split (/\s+/, $cl->{"new_files"}) if defined $cl->{"new_files"};
 
         my $output="";
-        if ($Config{"head_lines"} || $Config{"tail_lines"}) {
-            # Partialy output
-            my @lines = split '\n', $cl->{"output"};
-            # head
-            my $mark=1;
+# Выводим <head_lines> верхних строк
+# и <tail_lines> нижних строк,
+# если эти параметры существуют
+
+        my @lines = split '\n', $cl->{"output"};
+        if (($Config{"head_lines"} || $Config{"tail_lines"})
+             && $#lines >  $Config{"head_lines"} + $Config{"tail_lines"} ) {
+
             for (my $i=0; $i<= $#lines && $i < $Config{"head_lines"}; $i++) {
                 $output .= $lines[$i]."\n";
             }
-            # tail
-            my $start=$#lines-$Config{"tail_lines"}+1;
-            if ($start < 0) {
-                $start=0;
-                $mark=0;
-            }   
-            if ($start < $Config{"head_lines"}) {
-                $start=$Config{"head_lines"};
-                $mark=0;
-            }   
-            $output .= $Config{"skip_text"}."\n" if $mark;
-            for ($i=$start; $i<= $#lines; $i++) {
+            $output .= $Config{"skip_text"}."\n";
+
+            my $start_line=$#lines-$Config{"tail_lines"}+1;
+            for ($i=$start_line; $i<= $#lines; $i++) {
                 $output .= $lines[$i]."\n";
             }
         } 
         else {
-            # Full output
             $output .= $cl->{"output"};
         }   
-        #$output .= "^C\n" if ($cl->{"err"} eq "130");
 
-        #
-        ##
-        ## Начинается собственно вывод
-        ##
-        #
-
-        # <command>
+#
+##
+## Начинается собственно вывод
+##
+#
 
         my ($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = localtime($cl->{time});
-        next if $Stat{LastCommand} == $cl->{time};
-        $Stat{FirstCommand} = $cl->{time} unless $Stat{FirstCommand};
-        $Stat{LastCommand} = 0 unless defined $Stat{LastCommand};   
-        $Stat{TotalTime} += $cl->{time} - $Stat{LastCommand}
-            if $cl->{time} - $Stat{LastCommand} < $Config{stat_inactivity_interval};
-        $Stat{LastCommand} = $cl->{time};
-        $Stat{TotalCommands} = 0 unless $Stat{TotalCommands};
-        $Stat{TotalCommands}++;
 
         # Добавляем спереди 0 для удобочитаемости
-        $min = "0".$min if $min =~ /^.$/;
+        $min  = "0".$min  if $min  =~ /^.$/;
         $hour = "0".$hour if $hour =~ /^.$/;
-        $sec = "0".$sec if $sec =~ /^.$/;
+        $sec  = "0".$sec  if $sec  =~ /^.$/;
 
-        $class=$cl->{"out_class"};
-        $class =~ s/output$//;
+        #my @new_commands;
+        #my @new_files;
+        #@new_commands = split (/\s+/, $cl->{"new_commands"}) if defined $cl->{"new_commands"};
+        #@new_files = split (/\s+/, $cl->{"new_files"}) if defined $cl->{"new_files"};
 
-        $Stat{ErrorCommands}++
-            if $class =~ /wrong/;
+        $class=$cl->{"class"};
+        $Stat{ErrorCommands}++          if $class =~ /wrong/;
+        $Stat{MistypedCommands}++       if $class =~ /mistype/;
         
-        $Result{"body"} .= "<tr class='command'>\n";
-                        
         
-        # DAY CHANGE
+# DAY CHANGE
         if ( $last_day ne $day) {
-            #$Result{"body"} .= "<td colspan='6'><p></p><h3>День ",$day,"</h4></td></tr><tr>";
-            $Result{"body"} .= "<td colspan='6'><p></p><h3 id='day$day'>".$Day_Name[$wday]."</h4></td></tr><tr>";
+            if ($last_day) {
+                $result .= "<h3 id='day$last_day'>".$Day_Name[$last_wday]."</h3>";
+                #$result .= "Новые команды<br/>";
+                $result .= "<table width='100%'>\n";
+                $result .= $this_day_result;
+                $result .= "</table>";
+            }
+
             push @toc, "<a href='#day$day'>".$Day_Name[$wday]."</a>\n";
             $last_day=$day;
+            $last_wday=$wday;
+            $this_day_result = q();
         }
 
-        # CONSOLE CHANGE
+        $this_day_result .= "<tr class='command'>\n";
+                        
+
+# CONSOLE CHANGE
         if ( $last_tty ne $cl->{"tty"}) {
-            my $host;
-            #$host = $Sessions{$cl->{local_session_id}}->{user}."@".$Sessions{$cl->{local_session_id}}->{hostname};
-            my $body = $cl->{"tty"};
-            $body .= " \@$host" if $host;
-            $Result{"body"} .= "<td colspan='6'><table><tr><td class='ttychange' width='140' align='center'>".$body."</td></tr></table></td></tr><tr>";
+            my $tty = $cl->{"tty"};
+            $this_day_result .= "<td colspan='6'>"
+                                ."<table><tr><td class='ttychange' width='140' align='center'>"
+                                . $tty
+                                ."</td></tr></table>"
+                                ."</td></tr><tr>";
             $last_tty=$cl->{"tty"};
         }
 
-        # TIME
-        if ($Config{"show_time"} =~ /^y/i) {
-            $Result{"body"} .= "<td valign='top' class='time' width='$Config{time_width}'><pre>".
-                $hour. ":". $min. ":". $sec.
-                "</td>";
-        } else {
-            $Result{"body"} .= "<td width='0'/>"
-        }
+# TIME
+        $this_day_result .= $Config{"show_time"} =~ /^y/i
+                 ? "<td valign='top' class='time' width='$Config{time_width}'>$hour:$min:$sec</td>"
+                 : "<td width='0'/>";
 
-        # COMMAND
-        $Result{"body"} .= "<td class='script'>\n";
-        $Result{"body"} .= "<pre class='${class}cline'>\n";
-        my $cline = $cl->{"prompt"}.$cl->{"cline"};
+# COMMAND
+        my $hint = make_comment($cl->{"cline"});
+
+        my $cline;
+        $cline = $cl->{"prompt"}.$cl->{"cline"};
         $cline =~ s/\n//;
 
-        #$cline .= "(".$Sessions{$cl->{local_session_id}}.")";
-        
-        my $hint = make_comment($cl->{"cline"});
         $cline = "<span title='$hint' class='with_hint'>$cline</span>" if $hint;
         $cline = "<span class='without_hint'>$cline</span>" if !$hint;
-        $Result{"body"} .= $cline;
-        $Result{"body"} .= "</pre>\n";
 
+        $this_day_result .= "<td class='script'>\n";
+        $this_day_result .= "<pre class='${class}_cline'>\n" . $cline . "</pre>\n";
+
+# OUTPUT
         my $last_command = $cl->{"last_command"};
         if (!( 
         $Config{"suppress_editors"} =~ /^y/i && grep ($_ eq $last_command, @{$Config{"editors"}}) ||
         $Config{"suppress_pagers"}  =~ /^y/i && grep ($_ eq $last_command, @{$Config{"pagers"}}) ||
         $Config{"suppress_terminal"}=~ /^y/i && grep ($_ eq $last_command, @{$Config{"terminal"}})
             )) {
-
-            $Result{"body"} .= "<pre class='".$cl->{out_class}."'>";
-            $Result{"body"} .= $output;
-            $Result{"body"} .= "</pre>\n";
+            $this_day_result .= "<pre class='".$class."_output'>" . $output . "</pre>\n";
         }   
 
-        # DIFF
+# DIFF
         if ( $Config{"show_diffs"} =~ /^y/i && $cl->{"diff"}) {
-            $Result{"body"} .= "<table><tr><td width='5'/><td class='diff'><pre>";
-            $Result{"body"} .= $cl->{"diff"};
-            $Result{"body"} .= "</pre></td></tr></table>";
+            $this_day_result .= "<table><tr><td width='5'/><td class='diff'><pre>"
+                    .  $cl->{"diff"}
+                    .  "</pre></td></tr></table>";
         }
-        
-        #NOTES
+
+#NOTES
         if ( $Config{"show_notes"} =~ /^y/i && $cl->{"note"}) {
             my $note=$cl->{"note"};
             $note =~ s/\n/<br\/>\n/msg;
             if (not $note =~ s@(http:[a-zA-Z.0-9/_?%-]*)@<a href='$1'>$1</a>@g) {
-		     $note =~ s@(www\.[a-zA-Z.0-9/_?%-]*)@<a href='$1'>$1</a>@g;
-	    };
+              $note =~ s@(www\.[a-zA-Z.0-9/_?%-]*)@<a href='$1'>$1</a>@g;
+            };
         #   Ширину пока не используем
-        #   $Result{"body"} .= "<table width='$Config{note_width}' class='note'>";
-            $Result{"body"} .= "<table class='note'>";
-            $Result{"body"} .= "<tr><td class='note_title'>".$cl->{note_title}."</td></tr>" if $cl->{note_title};
-            $Result{"body"} .= "<tr><td width='100%' class='note_text'>".$note."</td></tr>";
-            $Result{"body"} .= "</table>\n";
+        #   $this_day_result .= "<table width='$Config{note_width}' class='note'>";
+            $this_day_result .= "<table class='note'>";
+            $this_day_result .= "<tr><td class='note_title'>".$cl->{note_title}."</td></tr>" if $cl->{note_title};
+            $this_day_result .= "<tr><td width='100%' class='note_text'>".$note."</td></tr>";
+            $this_day_result .= "</table>\n";
         }
 
-        # COMMENT
+# COMMENT
         if ( $Config{"show_comments"} =~ /^y/i) {
             my $comment = make_comment($cl->{"cline"});
             if ($comment) {
-                $Result{"body"} .= "<table width='$Config{comment_width}'>".
-                        "<tr><td width='5'/><td>";
-                $Result{"body"} .= "<table class='note' width='100%'>";
-                $Result{"body"} .= $comment;
-                $Result{"body"} .= "</table>\n";
-                $Result{"body"} .= "</td></tr></table>";
+                $this_day_result .= "<table width='$Config{comment_width}'><tr><td width='5'/><td>"
+                        .  "<table class='note' width='100%'>"
+                        .  $comment
+                        .  "</table>\n"
+                        .  "</td></tr></table>";
             }
         }
 
         # Вывод очередной команды окончен
-        $Result{"body"} .= "</td>\n";
-        $Result{"body"} .= "</tr>\n";
+        $this_day_result .= "</td>\n";
+        $this_day_result .= "</tr>\n";
     }
 
-    $Result{"body"} .= "</table>\n";
+    $result .= "<h3 id='day$last_day'>".$Day_Name[$last_wday]."</h3>";
+    $result .= "<table width='100%'>\n";
+    $result .= $this_day_result;
+    $result .= "</table>";
 
-    #$Result{"stat"} = "<hr/>";
+    return ($result, collapse_list (\@toc));
 
+}
+
+
+
+
+#############
+# print_all
+#
+#
+#
+# In:       $_[0]       output_filename
+# Out:
+
+
+sub print_all
+{
+    my $output_filename=$_[0];
+
+    my $result;
+    my ($command_lines,$toc)  = print_command_lines;
+
+    $result = print_header($toc);
+    $result.= "<h2 id='log'>Журнал</h2>"       . $command_lines;
+    $result.= "<h2 id='stat'>Статистика</h2>"  . print_stat;
+    $result.= "<h2 id='help'>Справка</h2>"     . $Html_Help . "<br/>"; 
+    $result.= "<h2 id='about'>О программе</h2>". $Html_About. "<br/>"; 
+    $result.= print_footer;
+
+    if ($output_filename eq "-") {
+        print $result;
+    }
+    else {
+        open(OUT, ">", $output_filename)
+            or die "Can't open $output_filename for writing\n";
+        print OUT $result;
+        close(OUT);
+    }
+}
+
+#############
+# print_header
+#
+#
+#
+# In:   $_[0]       Содержание
+# Out:              Распечатанный заголовок
+
+sub print_header
+{
+    my $toc = $_[0];
+    my $course_name = $Config{"course-name"};
+    my $course_code = $Config{"course-code"};
+    my $course_date = $Config{"course-date"};
+    my $course_center = $Config{"course-center"};
+    my $course_trainer = $Config{"course-trainer"};
+    my $course_student = $Config{"course-student"};
+
+    my $title    = "Журнал лабораторных работ";
+    $title      .= " -- ".$course_student if $course_student;
+    if ($course_date) {
+        $title  .= " -- ".$course_date; 
+        $title  .= $course_code ? "/".$course_code 
+                                : "";
+    }
+    else {
+        $title  .= " -- ".$course_code if $course_code;
+    }
+
+    # Управляющая форма
+    my $control_form .= "<table id='visibility_form' class='visibility_form'><tr><td>Видимые элементы</TD></tr><tr><td><form>\n";
+    for my $element (keys %Elements_Visibility)
+    {
+        my @e = split /\s+/, $element;
+        my $showhide = join "", map { "ShowHide('$_');" } @e ;
+        $control_form .= "<input type='checkbox' name='$e[0]' onclick=\"$showhide\" checked>".
+                $Elements_Visibility{$element}.
+                "</input><br>\n";
+    }
+    $control_form .= "</form></td></tr></table>\n";
+
+    my $result;
+    $result = <<HEADER;
+    <html>
+    <head>
+    <meta content='text/html; charset=utf-8' http-equiv='Content-Type' />
+    <link rel='stylesheet' href='$Config{frontend_css}' type='text/css'/>
+    <title>$title</title>
+    </head>
+    <body>
+    <script>
+    $Html_JavaScript
+    </script>
+    <h1>Журнал лабораторных работ</h1>
+HEADER
+    if (    $course_student 
+            || $course_trainer 
+            || $course_name 
+            || $course_code 
+            || $course_date 
+            || $course_center) {
+            $result .= "<p>";
+            $result .= "Выполнил $course_student<br/>"  if $course_student;
+            $result .= "Проверил $course_trainer <br/>" if $course_trainer;
+            $result .= "Курс "                          if $course_name 
+                                                            || $course_code 
+                                                            || $course_date;
+            $result .= "$course_name "                  if $course_name;
+            $result .= "($course_code)"                 if $course_code;
+            $result .= ", $course_date<br/>"            if $course_date;
+            $result .= "Учебный центр $course_center <br/>" if $course_center;
+            $result .= "</p>";
+    }
+
+    $result .= <<HEADER;
+    <table width='100%'>
+    <tr>
+    <td width='*'>
+
+    <table border=0 id='toc' class='toc'>
+    <tr>
+    <td>
+    <div class='toc_title'>Содержание</div>
+    <ul>
+        <li><a href='#log'>Журнал</a></li>
+        <ul>$toc</ul>
+        <li><a href='#stat'>Статистика</a></li>
+        <li><a href='#help'>Справка</a></li>
+        <li><a href='#about'>О программе</a></li>
+    </ul>
+    </td>
+    </tr>
+    </table>
+
+    </td>
+    <td valign='top' width=200>$control_form</td>
+    </tr>
+    </table>
+HEADER
+
+    return $result;
+}
+
+
+#############
+# print_footer
+#
+#
+#
+#
+#
+
+sub print_footer
+{
+    return "</body>\n</html>\n";
+}
+
+
+
+
+#############
+# print_stat
+#
+#
+#
+# In:
+# Out:
+
+sub print_stat
+{
     %StatNames = (
-        FirstCommand => "Время первой команды журнала",
-        LastCommand => "Время последней команды журнала",
-        TotalCommands => "Количество командных строк в журнале",
-        ErrorsPercentage => "Процент команд с ненулевым кодом завершения, %",
-        TotalTime => "Суммарное время работы с терминалом <sup><font size='-2'>*</font></sup>, час",
-        CommandsPerTime => "Количество командных строк в единицу времени, команда/мин",
-        CommandsFrequency => "Частота использования команд",
-        RareCommands    => "Частота использования этих команд < 0.5%",
+        FirstCommand        => "Время первой команды журнала",
+        LastCommand         => "Время последней команды журнала",
+        TotalCommands       => "Количество командных строк в журнале",
+        ErrorsPercentage    => "Процент команд с ненулевым кодом завершения, %",
+        MistypesPercentage  => "Процент синтаксически неверное набранных команд, %",
+        TotalTime           => "Суммарное время работы с терминалом <sup><font size='-2'>*</font></sup>, час",
+        CommandsPerTime     => "Количество командных строк в единицу времени, команда/мин",
+        CommandsFrequency   => "Частота использования команд",
+        RareCommands        => "Частота использования этих команд < 0.5%",
     );
     @StatOrder = (
         FirstCommand,
         LastCommand,
         TotalCommands,
         ErrorsPercentage,
+        MistypesPercentage,
         TotalTime,
         CommandsPerTime,
         CommandsFrequency,
@@ -671,8 +825,10 @@
     $Stat{FirstCommand} = sprintf "%02i:%02i:%02i %04i-%2i-%2i", $hour, $min, $sec,  $year+1900, $mon+1, $mday;
     ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($Stat{LastCommand} || 0);
     $Stat{LastCommand} = sprintf "%02i:%02i:%02i %04i-%2i-%2i", $hour, $min, $sec,  $year+1900, $mon+1, $mday;
-    $Stat{ErrorsPercentage} = sprintf "%5.2f", $Stat{ErrorCommands}*100/$Stat{TotalCommands}    
-        if $Stat{TotalCommands};
+    if ($Stat{TotalCommands}) {
+        $Stat{ErrorsPercentage} = sprintf "%5.2f", $Stat{ErrorCommands}*100/$Stat{TotalCommands};
+        $Stat{MistypesPercentage} = sprintf "%5.2f", $Stat{MistypedCommands}*100/$Stat{TotalCommands};
+    }
     $Stat{CommandsPerTime} = sprintf "%5.2f", $Stat{TotalCommands}*60/$Stat{TotalTime}
         if $Stat{TotalTime};
     $Stat{TotalTime} = sprintf "%5.2f", $Stat{TotalTime}/60/60;
@@ -688,14 +844,16 @@
             if ($percentage < 0.5) {
                 my $hint = make_comment($command);
                 $command_html = "$command";
-                $command_html = "<span title='$hint' class='hint'>$command_html</span>" if $hint;
+                $command_html = "<span title='$hint' class='with_hint'>$command_html</span>" if $hint;
+                $command_html = "<span class='without_hint'>$command_html</span>" if not $hint;
                 my $command_html = "<tt>$command_html</tt>";
                 $Stat{RareCommands} .= $command_html."<sub><font size='-2'>".$CommandsFrequency{$command}."</font></sub> , ";
             }
             else {
                 my $hint = make_comment($command);
                 $command_html = "$command";
-                $command_html = "<span title='$hint' class='hint'>$command_html</span>" if $hint;
+                $command_html = "<span title='$hint' class='with_hint'>$command_html</span>" if $hint;
+                $command_html = "<span class='without_hint'>$command_html</span>" if not $hint;
                 my $command_html = "<tt>$command_html</tt>";
                 $percentage = sprintf "%5.2f",$percentage;
                 $Stat{CommandsFrequency} .= "<tr><td>".$command_html."</td><td>".$CommandsFrequency{$command}."</td>".
@@ -706,106 +864,20 @@
         $Stat{RareCommands} =~ s/, $// if $Stat{RareCommands};
     }
 
-    $Result{"stat"} .= "<h2 id='stat'>Статистика</h2>";
-    $Result{"stat"} .= "<table>";
+    my $result = q();
     for my $stat (@StatOrder) {
-    $Result{"stat"} .= "<tr valign='top'><td width='300'>".$StatNames{"$stat"}."</td><td>".$Stat{"$stat"}."</td></tr>"
-        if $Stat{"$stat"};
+        next unless $Stat{"$stat"};
+        $result .= "<tr valign='top'><td width='300'>".$StatNames{"$stat"}."</td><td>".$Stat{"$stat"}."</td></tr>"
     }
-    
-    $Result{"stat"} .= "</table>";
-    $Result{"stat"} .= "<font size='-2'>____<br/>*) Интервалы неактивности длительностью ".($Config{stat_inactivity_interval}/60)." минут и более не учитываются</font></br>";
+    $result  = "<table>$result</table>"
+             . "<font size='-2'>____<br/>*) Интервалы неактивности длительностью "
+             .  ($Config{stat_inactivity_interval}/60)
+             . " минут и более не учитываются</font></br>";
 
-    #$Result{"help"} .= "<hr/>";
-    $Result{"help"} .= "<h2 id='help'>Справка</h2>";
-    $Result{"help"} .= "$Html_Help<br/>";
-    #$Result{"about"} .= "<hr/>";
-    $Result{"about"} .= "<h2 id='about'>О программе</h2>";
-    $Result{"about"} .= "$Html_About";
-    $Result{"footer"} .= "</body>\n";
-    $Result{"footer"} .= "</html>\n";
-
-    $Result{"title"} = "Журнал лабораторных работ";
-    $Result{"title"}.= " -- ".$course_student if $course_student;
-    if ($course_date) {
-        $Result{"title"}.= " -- ".$course_date; 
-        $Result{"title"}.= "/".$course_code if $course_code;
-    }
-    else {
-        $Result{"title"}.= " -- ".$course_code if $course_code;
-    }
-
-    # Заголовок генерируется позже всего
-    # Тогда, когда известно уже, что должно быть написано в 
-    # оглавлении
-    $Result{"header"} = <<HEADER;
-    <html>
-    <head>
-    <meta content='text/html; charset=utf-8' http-equiv='Content-Type' />
-    <link rel='stylesheet' href='$Config{frontend_css}' type='text/css'/>
-    <title>$Result{title}</title>
-    </head>
-    <body>
-    <script>
-    $Html_JavaScript
-    </script>
-    <h1>Журнал лабораторных работ</h1>
-
-HEADER
-    $Result{"header"} .= "<p>" if $course_student || $course_trainer || $course_name || $course_code || $course_date || $course_center;
-    $Result{"header"} .= "Выполнил $course_student<br/>" if $course_student;
-    $Result{"header"} .= "Проверил $course_trainer <br/>" if $course_trainer;
-    $Result{"header"} .= "Курс " if $course_name || $course_code || $course_date;
-    $Result{"header"} .= "$course_name " if $course_name;
-    $Result{"header"} .= "($course_code)" if $course_code;
-    $Result{"header"} .= ", $course_date<br/>" if $course_date;
-    $Result{"header"} .= "Учебный центр $course_center <br/>" if $course_center;
-    $Result{"header"} .= "</p>" if $course_student || $course_trainer || $course_name || $course_code || $course_date || $course_center;
-
-    my $toc = collapse_list (\@toc);
-    $Result{"header"} .= <<HEADER;
-    <table border=0 id='toc' class='toc'>
-    <tr>
-    <td>
-    <div class='toc_title'>Содержание</div>
-    <ul>
-        <li><a href='#log'>Журнал</a></li>
-        <ul>$toc</ul>
-        <li><a href='#stat'>Статистика</a></li>
-        <li><a href='#help'>Справка</a></li>
-        <li><a href='#about'>О программе</a></li>
-    </ul>
-    </td>
-    </tr>
-    </table>
-
-    <h2 id="log">Журнал</h2>
-HEADER
-    $Result{"header"} .= "<table id='visibility_form' class='visibility_form'><tr><td><form>\n";
-    for my $element (keys %Elements_Visibility)
-    {
-        my @e = split /\s+/, $element;
-        my $showhide = join "", map { "ShowHide('$_');" } @e ;
-        $Result{"header"} .= "<input type='checkbox' name='$e[0]' onclick=\"$showhide\" checked>".
-                $Elements_Visibility{$element}.
-                "</input><br>\n";
-    }
-
-    $Result{"header"} .= "</form></td></tr></table>\n";
-
-    if ($output_filename eq "-") {
-        print $Result{"header"}, $Result{"body"}, $Result{"stat"}, $Result{"help"}, $Result{"about"}, $Result{"footer"};
-    }
-    else {
-        open(OUT, ">", $output_filename)
-            or die "Can't open $output_filename for writing\n";
-        print OUT $Result{"header"}, $Result{"body"}, $Result{"stat"}, $Result{"help"}, $Result{"about"}, $Result{"footer"};
-        close(OUT);
-    }
+    return $result;
 }
 
 
-
 sub collapse_list($)
 {
     my $res = "";
@@ -831,7 +903,7 @@
     всё происходит само собой.
     Однако, чтобы ведение и последующее использование журналов
     было как можно более эффективным, желательно иметь в виду следующее:
-    <ul>
+    <ol>
     <li><p> 
     В журнал автоматически попадают все команды, данные в любом терминале системы.
     </p></li>
@@ -1020,7 +1092,7 @@
     добавляются точно таким же способом, только вместо симолов #^ или #v 
     нужно использовать символы #=
     </p></li>
-</ul>
+</ol>
 HELP
 
 $Html_About = <<ABOUT;
@@ -1115,3 +1187,20 @@
 @Of_Month_Name = qw/ Января Февраля Марта Апреля Мая Июня Июля Августа Сентября Октября Ноября Декабря /;
 }
 
+
+
+
+# Временно удалённый код
+# Возможно, он не понадобится уже никогда
+
+
+sub search_by
+{
+    my $sm = shift;
+    my $topic = shift;
+    $topic =~ s/ /+/;
+    
+    return "<a href='". $Search_Machines{$sm}->{"query"}."$topic'><img width='16' height='16' src='".
+                $Search_Machines{$sm}->{"icon"}."' border='0'/></a>";
+}
+