lilalo

diff l3-frontend @ 49:d021553f4e98

Tabs expanded
author devi
date Sun Dec 04 18:44:21 2005 +0200 (2005-12-04)
parents 568bab7090fc
children f9447da96f15
line diff
     1.1 --- a/l3-frontend	Sat Nov 26 16:15:52 2005 +0200
     1.2 +++ b/l3-frontend	Sun Dec 04 18:44:21 2005 +0200
     1.3 @@ -21,7 +21,7 @@
     1.4  # ^^^
     1.5  
     1.6  our %Stat;
     1.7 -our %CommandsFDistribution;	# Сколько раз в журнале встречается какая команда
     1.8 +our %CommandsFDistribution; # Сколько раз в журнале встречается какая команда
     1.9  
    1.10  sub search_buy;
    1.11  sub make_comment;
    1.12 @@ -38,163 +38,163 @@
    1.13  
    1.14  sub main
    1.15  {
    1.16 -	$| = 1;
    1.17 +    $| = 1;
    1.18  
    1.19 -	init_variables();
    1.20 -	init_config();
    1.21 +    init_variables();
    1.22 +    init_config();
    1.23  
    1.24 -	open_mywi_socket();
    1.25 -	load_command_lines_from_xml($Config{"backend_datafile"});
    1.26 -	load_sessions_from_xml($Config{"backend_datafile"});
    1.27 -	sort_command_lines;
    1.28 -	process_command_lines;
    1.29 -	print_command_lines($Config{"output"});
    1.30 -	close_mywi_socket;
    1.31 +    open_mywi_socket();
    1.32 +    load_command_lines_from_xml($Config{"backend_datafile"});
    1.33 +    load_sessions_from_xml($Config{"backend_datafile"});
    1.34 +    sort_command_lines;
    1.35 +    process_command_lines;
    1.36 +    print_command_lines($Config{"output"});
    1.37 +    close_mywi_socket;
    1.38  }
    1.39  
    1.40  
    1.41  sub search_by
    1.42  {
    1.43 -	my $sm = shift;
    1.44 -	my $topic = shift;
    1.45 -	$topic =~ s/ /+/;
    1.46 -	
    1.47 -	return "<a href='".	$Search_Machines{$sm}->{"query"}."$topic'><img width='16' height='16' src='".
    1.48 -				$Search_Machines{$sm}->{"icon"}."' border='0'/></a>";
    1.49 +    my $sm = shift;
    1.50 +    my $topic = shift;
    1.51 +    $topic =~ s/ /+/;
    1.52 +    
    1.53 +    return "<a href='". $Search_Machines{$sm}->{"query"}."$topic'><img width='16' height='16' src='".
    1.54 +                $Search_Machines{$sm}->{"icon"}."' border='0'/></a>";
    1.55  }
    1.56  
    1.57  sub extract_from_cline
    1.58  # Разобрать командную строку $_[1] и возвратить хэш, содержащий 
    1.59  # номер первого появление команды в строке:
    1.60 -# 	команда => первая позиция
    1.61 +#   команда => первая позиция
    1.62  {
    1.63 -	my $what = $_[0];
    1.64 -	my $cline = $_[1];
    1.65 -	my @lists = split /\;/, $cline;
    1.66 -	
    1.67 -	
    1.68 -	my @commands = ();
    1.69 -	for my $list (@lists) {
    1.70 -		push @commands, split /\|/, $list;
    1.71 -	}
    1.72 +    my $what = $_[0];
    1.73 +    my $cline = $_[1];
    1.74 +    my @lists = split /\;/, $cline;
    1.75 +    
    1.76 +    
    1.77 +    my @commands = ();
    1.78 +    for my $list (@lists) {
    1.79 +        push @commands, split /\|/, $list;
    1.80 +    }
    1.81  
    1.82 -	my %commands;
    1.83 -	my %args;
    1.84 -	my $i=0;
    1.85 -	for my $command (@commands) {
    1.86 -		$command =~ s@^\s*\S+/@@;
    1.87 -		$command =~ /\s*(\S+)\s*(.*)/;
    1.88 -		if ($1 && $1 eq "sudo" ) {
    1.89 -			$commands{"$1"}=$i++;
    1.90 -			$command =~ s/\s*sudo\s+//;
    1.91 -		}
    1.92 -		$command =~ s@^\s*\S+/@@;
    1.93 -		$command =~ /\s*(\S+)\s*(.*)/;
    1.94 -		if ($1 && !defined $commands{"$1"}) {
    1.95 -				$commands{"$1"}=$i++;
    1.96 -		};	
    1.97 -		if ($2) {
    1.98 -			my $args = $2;
    1.99 -			my @args = split (/\s+/, $args);
   1.100 -			for my $a (@args) {
   1.101 -				$args{"$a"}=$i++
   1.102 -					if !defined $args{"$a"};
   1.103 -			};	
   1.104 +    my %commands;
   1.105 +    my %args;
   1.106 +    my $i=0;
   1.107 +    for my $command (@commands) {
   1.108 +        $command =~ s@^\s*\S+/@@;
   1.109 +        $command =~ /\s*(\S+)\s*(.*)/;
   1.110 +        if ($1 && $1 eq "sudo" ) {
   1.111 +            $commands{"$1"}=$i++;
   1.112 +            $command =~ s/\s*sudo\s+//;
   1.113 +        }
   1.114 +        $command =~ s@^\s*\S+/@@;
   1.115 +        $command =~ /\s*(\S+)\s*(.*)/;
   1.116 +        if ($1 && !defined $commands{"$1"}) {
   1.117 +                $commands{"$1"}=$i++;
   1.118 +        };  
   1.119 +        if ($2) {
   1.120 +            my $args = $2;
   1.121 +            my @args = split (/\s+/, $args);
   1.122 +            for my $a (@args) {
   1.123 +                $args{"$a"}=$i++
   1.124 +                    if !defined $args{"$a"};
   1.125 +            };  
   1.126  
   1.127 -				
   1.128 -		}
   1.129 -	}
   1.130 +                
   1.131 +        }
   1.132 +    }
   1.133  
   1.134 -	if ($what eq "commands") {
   1.135 -		return \%commands;
   1.136 -	} else {
   1.137 -		return \%args;
   1.138 -	}
   1.139 -	
   1.140 +    if ($what eq "commands") {
   1.141 +        return \%commands;
   1.142 +    } else {
   1.143 +        return \%args;
   1.144 +    }
   1.145 +    
   1.146  }
   1.147  
   1.148  sub open_mywi_socket
   1.149  {
   1.150 -	$Mywi_Socket = IO::Socket::INET->new(
   1.151 -				PeerAddr => $Config{mywi_server},
   1.152 -				PeerPort => $Config{mywi_port},
   1.153 -				Proto	 => "tcp",
   1.154 -				Type	 => SOCK_STREAM);
   1.155 +    $Mywi_Socket = IO::Socket::INET->new(
   1.156 +                PeerAddr => $Config{mywi_server},
   1.157 +                PeerPort => $Config{mywi_port},
   1.158 +                Proto    => "tcp",
   1.159 +                Type     => SOCK_STREAM);
   1.160  }
   1.161  
   1.162  sub close_mywi_socket
   1.163  {
   1.164 -	close ($Mywi_Socket);
   1.165 +    close ($Mywi_Socket);
   1.166  }
   1.167  
   1.168  
   1.169  sub mywi_client
   1.170  {
   1.171 -	my $query = $_[0];
   1.172 -	my $mywi;
   1.173 +    my $query = $_[0];
   1.174 +    my $mywi;
   1.175  
   1.176 -	open_mywi_socket;
   1.177 -	if ($Mywi_Socket) {
   1.178 -		local $| = 1;
   1.179 -		local $/ = "";
   1.180 -		print $Mywi_Socket $query."\n";
   1.181 -		$mywi = <$Mywi_Socket>;
   1.182 -		$mywi = "" if $mywi =~ /nothing app/;
   1.183 -	}
   1.184 -	close_mywi_socket;
   1.185 -	return $mywi;
   1.186 +    open_mywi_socket;
   1.187 +    if ($Mywi_Socket) {
   1.188 +        local $| = 1;
   1.189 +        local $/ = "";
   1.190 +        print $Mywi_Socket $query."\n";
   1.191 +        $mywi = <$Mywi_Socket>;
   1.192 +        $mywi = "" if $mywi =~ /nothing app/;
   1.193 +    }
   1.194 +    close_mywi_socket;
   1.195 +    return $mywi;
   1.196  }
   1.197  
   1.198  sub make_comment
   1.199  {
   1.200 -	my $cline = $_[0];
   1.201 -	#my $files = $_[1];
   1.202 +    my $cline = $_[0];
   1.203 +    #my $files = $_[1];
   1.204  
   1.205 -	my @comments=(); 
   1.206 -	my @commands = keys %{extract_from_cline("commands", $cline)};
   1.207 -	my @args = keys %{extract_from_cline("args", $cline)};
   1.208 -	return if (!@commands && !@args);
   1.209 -	#return "commands=".join(" ",@commands)."; files=".join(" ",@files);
   1.210 +    my @comments=(); 
   1.211 +    my @commands = keys %{extract_from_cline("commands", $cline)};
   1.212 +    my @args = keys %{extract_from_cline("args", $cline)};
   1.213 +    return if (!@commands && !@args);
   1.214 +    #return "commands=".join(" ",@commands)."; files=".join(" ",@files);
   1.215  
   1.216 -	# Commands
   1.217 -	for my $command (@commands) {
   1.218 -		$command =~ s/'//g;
   1.219 -		$CommandsFDistribution{$command}++;
   1.220 -		if (!$Commands_Description{$command}) {
   1.221 -			my $mywi="";
   1.222 -			$mywi = mywi_client ($command);
   1.223 -			$mywi = join ("\n", grep(/\([18]\)/, split(/\n/, $mywi)));
   1.224 -			$mywi =~ s/\s+/ /;
   1.225 -			if ($mywi !~ /^\s*$/) {
   1.226 -				$Commands_Description{$command} = $mywi;
   1.227 -			}
   1.228 -			else {
   1.229 -				next;
   1.230 -			}
   1.231 -		}
   1.232 +    # Commands
   1.233 +    for my $command (@commands) {
   1.234 +        $command =~ s/'//g;
   1.235 +        $CommandsFDistribution{$command}++;
   1.236 +        if (!$Commands_Description{$command}) {
   1.237 +            my $mywi="";
   1.238 +            $mywi = mywi_client ($command);
   1.239 +            $mywi = join ("\n", grep(/\([18]\)/, split(/\n/, $mywi)));
   1.240 +            $mywi =~ s/\s+/ /;
   1.241 +            if ($mywi !~ /^\s*$/) {
   1.242 +                $Commands_Description{$command} = $mywi;
   1.243 +            }
   1.244 +            else {
   1.245 +                next;
   1.246 +            }
   1.247 +        }
   1.248  
   1.249 -		push @comments, $Commands_Description{$command};
   1.250 -	}
   1.251 -	return join("&#10;\n", @comments);
   1.252 -	
   1.253 -	# Files
   1.254 -	for my $arg (@args) {
   1.255 -		$arg =~ s/'//g;
   1.256 -		if (!$Args_Description{$arg}) {
   1.257 -			my $mywi;
   1.258 -			$mywi = mywi_client ($arg);
   1.259 -			$mywi = join ("\n", grep(/\([5]\)/, split(/\n/, $mywi)));
   1.260 -			$mywi =~ s/\s+/ /;
   1.261 -			if ($mywi !~ /^\s*$/) {
   1.262 -				$Args_Description{$arg} = $mywi;
   1.263 -			}
   1.264 -			else {
   1.265 -				next;
   1.266 -			}
   1.267 -		}
   1.268 +        push @comments, $Commands_Description{$command};
   1.269 +    }
   1.270 +    return join("&#10;\n", @comments);
   1.271 +    
   1.272 +    # Files
   1.273 +    for my $arg (@args) {
   1.274 +        $arg =~ s/'//g;
   1.275 +        if (!$Args_Description{$arg}) {
   1.276 +            my $mywi;
   1.277 +            $mywi = mywi_client ($arg);
   1.278 +            $mywi = join ("\n", grep(/\([5]\)/, split(/\n/, $mywi)));
   1.279 +            $mywi =~ s/\s+/ /;
   1.280 +            if ($mywi !~ /^\s*$/) {
   1.281 +                $Args_Description{$arg} = $mywi;
   1.282 +            }
   1.283 +            else {
   1.284 +                next;
   1.285 +            }
   1.286 +        }
   1.287  
   1.288 -		push @comments, $Args_Description{$arg};
   1.289 -	}
   1.290 +        push @comments, $Args_Description{$arg};
   1.291 +    }
   1.292  
   1.293  }
   1.294  
   1.295 @@ -209,157 +209,157 @@
   1.296  =cut
   1.297  sub load_command_lines_from_xml
   1.298  {
   1.299 -	my $datafile = $_[0];
   1.300 +    my $datafile = $_[0];
   1.301  
   1.302 -	open (CLASS, $datafile)
   1.303 -		or die "Can't open file of the class ",$datafile,"\n";
   1.304 -	local $/;
   1.305 -	$data = <CLASS>;
   1.306 -	close(CLASS);
   1.307 +    open (CLASS, $datafile)
   1.308 +        or die "Can't open file of the class ",$datafile,"\n";
   1.309 +    local $/;
   1.310 +    $data = <CLASS>;
   1.311 +    close(CLASS);
   1.312  
   1.313 -	for $command ($data =~ m@<command>(.*?)</command>@sg) {
   1.314 -		my %cl;
   1.315 -		while ($command =~ m@<([^>]*?)>(.*?)</\1>@sg) {
   1.316 -			$cl{$1} = $2;
   1.317 -		}
   1.318 -		push @Command_Lines, \%cl;
   1.319 -	}
   1.320 +    for $command ($data =~ m@<command>(.*?)</command>@sg) {
   1.321 +        my %cl;
   1.322 +        while ($command =~ m@<([^>]*?)>(.*?)</\1>@sg) {
   1.323 +            $cl{$1} = $2;
   1.324 +        }
   1.325 +        push @Command_Lines, \%cl;
   1.326 +    }
   1.327  }
   1.328  
   1.329  sub load_sessions_from_xml
   1.330  {
   1.331 -	my $datafile = $_[0];
   1.332 +    my $datafile = $_[0];
   1.333  
   1.334 -	open (CLASS, $datafile)
   1.335 -		or die "Can't open file of the class ",$datafile,"\n";
   1.336 -	local $/;
   1.337 -	my $data = <CLASS>;
   1.338 -	close(CLASS);
   1.339 +    open (CLASS, $datafile)
   1.340 +        or die "Can't open file of the class ",$datafile,"\n";
   1.341 +    local $/;
   1.342 +    my $data = <CLASS>;
   1.343 +    close(CLASS);
   1.344  
   1.345 -	for my $session ($data =~ m@<session>(.*?)</session>@sg) {
   1.346 -		my %session;
   1.347 -		while ($session =~ m@<([^>]*?)>(.*?)</\1>@sg) {
   1.348 -			$session{$1} = $2;
   1.349 -		}
   1.350 -		$Sessions{$session{local_session_id}} = \%session;
   1.351 -	}
   1.352 +    for my $session ($data =~ m@<session>(.*?)</session>@sg) {
   1.353 +        my %session;
   1.354 +        while ($session =~ m@<([^>]*?)>(.*?)</\1>@sg) {
   1.355 +            $session{$1} = $2;
   1.356 +        }
   1.357 +        $Sessions{$session{local_session_id}} = \%session;
   1.358 +    }
   1.359  }
   1.360  
   1.361  
   1.362  
   1.363  sub sort_command_lines
   1.364  {
   1.365 -	# Sort Command_Lines
   1.366 -	# Write Command_Lines to Command_Lines_Index
   1.367 +    # Sort Command_Lines
   1.368 +    # Write Command_Lines to Command_Lines_Index
   1.369  
   1.370 -	my @index;
   1.371 -	for (my $i=0;$i<=$#Command_Lines;$i++) {
   1.372 -		$index[$i]=$i;
   1.373 -	}
   1.374 +    my @index;
   1.375 +    for (my $i=0;$i<=$#Command_Lines;$i++) {
   1.376 +        $index[$i]=$i;
   1.377 +    }
   1.378  
   1.379 -	@Command_Lines_Index = sort {
   1.380 -		$Command_Lines[$index[$a]]->{"time"} <=> $Command_Lines[$index[$b]]->{"time"}
   1.381 -	} @index;
   1.382 +    @Command_Lines_Index = sort {
   1.383 +        $Command_Lines[$index[$a]]->{"time"} <=> $Command_Lines[$index[$b]]->{"time"}
   1.384 +    } @index;
   1.385  
   1.386  }
   1.387  
   1.388  sub process_command_lines
   1.389  {
   1.390 -	for my $i (@Command_Lines_Index) {
   1.391 +    for my $i (@Command_Lines_Index) {
   1.392  
   1.393 -		my $cl = \$Command_Lines[$i];
   1.394 -		#@{${$cl}->{"new_commands"}} =();
   1.395 -		#@{${$cl}->{"new_files"}} =();
   1.396 -		$$cl->{"class"} = ""; 
   1.397 +        my $cl = \$Command_Lines[$i];
   1.398 +        #@{${$cl}->{"new_commands"}} =();
   1.399 +        #@{${$cl}->{"new_files"}} =();
   1.400 +        $$cl->{"class"} = ""; 
   1.401  
   1.402 -		if ($$cl->{"err"}) {
   1.403 -			$$cl->{"class"}="wrong";
   1.404 -			$$cl->{"class"}="interrupted"
   1.405 -				if ($$cl->{"err"} eq 130);
   1.406 -		}	
   1.407 -		if (!$$cl->{"euid"}) {
   1.408 -			$$cl->{"class"}.="_root";
   1.409 -		}
   1.410 -		
   1.411 -#tab#		my @tab_words=split /\s+/, $$cl->{"output"};
   1.412 -#tab#		my $last_word= $$cl->{"cline"} =~ /(\S*)$/;
   1.413 -#tab#		$last_word =~ s@.*/@@;
   1.414 -#tab#		my $this_is_tab=1;
   1.415 +        if ($$cl->{"err"}) {
   1.416 +            $$cl->{"class"}="wrong";
   1.417 +            $$cl->{"class"}="interrupted"
   1.418 +                if ($$cl->{"err"} eq 130);
   1.419 +        }   
   1.420 +        if (!$$cl->{"euid"}) {
   1.421 +            $$cl->{"class"}.="_root";
   1.422 +        }
   1.423 +        
   1.424 +#tab#       my @tab_words=split /\s+/, $$cl->{"output"};
   1.425 +#tab#       my $last_word= $$cl->{"cline"} =~ /(\S*)$/;
   1.426 +#tab#       $last_word =~ s@.*/@@;
   1.427 +#tab#       my $this_is_tab=1;
   1.428  #tab#
   1.429 -#tab#		if ($last_word && @tab_words >2) {
   1.430 -#tab#			for my $tab_words (@tab_words) {
   1.431 -#tab#				if ($tab_words !~ /^$last_word/) {
   1.432 -#tab#					$this_is_tab=0;
   1.433 -#tab#					last;
   1.434 -#tab#				}
   1.435 -#tab#			}
   1.436 -#tab#		}	
   1.437 -#tab#		$$cl->{"class"}="tab" if $this_is_tab;
   1.438 -		
   1.439 +#tab#       if ($last_word && @tab_words >2) {
   1.440 +#tab#           for my $tab_words (@tab_words) {
   1.441 +#tab#               if ($tab_words !~ /^$last_word/) {
   1.442 +#tab#                   $this_is_tab=0;
   1.443 +#tab#                   last;
   1.444 +#tab#               }
   1.445 +#tab#           }
   1.446 +#tab#       }   
   1.447 +#tab#       $$cl->{"class"}="tab" if $this_is_tab;
   1.448 +        
   1.449  
   1.450 -#		if ( !$$cl->{"err"}) {
   1.451 -#			# Command does not contain mistakes
   1.452 -#			
   1.453 -#			my %commands = extract_from_cline("commands", ${$cl}->{"cline"});
   1.454 -#			my %files = extract_from_cline("files", ${$cl}->{"cline"});
   1.455 +#       if ( !$$cl->{"err"}) {
   1.456 +#           # Command does not contain mistakes
   1.457 +#           
   1.458 +#           my %commands = extract_from_cline("commands", ${$cl}->{"cline"});
   1.459 +#           my %files = extract_from_cline("files", ${$cl}->{"cline"});
   1.460  #
   1.461 -#			# Searching for new commands only
   1.462 -#			for my $command (keys  %commands) {
   1.463 -#				if (!defined $Commands_Stat{$command}) {
   1.464 -#					push @{$$cl->{new_commands}}, $command;
   1.465 -#				}	
   1.466 -#				$Commands_Stat{$command}++;
   1.467 -#			}
   1.468 -#			
   1.469 -#			for my $file (keys  %files) {
   1.470 -#				if (!defined $Files_Stat{$file}) {
   1.471 -#					push @{$$cl->{new_files}}, $file;
   1.472 -#				}	
   1.473 -#				$Files_Stat{$file}++;
   1.474 -#			}
   1.475 -#		}	
   1.476 +#           # Searching for new commands only
   1.477 +#           for my $command (keys  %commands) {
   1.478 +#               if (!defined $Commands_Stat{$command}) {
   1.479 +#                   push @{$$cl->{new_commands}}, $command;
   1.480 +#               }   
   1.481 +#               $Commands_Stat{$command}++;
   1.482 +#           }
   1.483 +#           
   1.484 +#           for my $file (keys  %files) {
   1.485 +#               if (!defined $Files_Stat{$file}) {
   1.486 +#                   push @{$$cl->{new_files}}, $file;
   1.487 +#               }   
   1.488 +#               $Files_Stat{$file}++;
   1.489 +#           }
   1.490 +#       }   
   1.491  
   1.492 -		if ($$cl->{cline}=~ m@cat[^#]*#([\^=v])\s*(.*)@) {
   1.493 -			if ($1 eq "=") {
   1.494 -				$$cl->{"class"} = "note";
   1.495 -				$$cl->{"note"} = $$cl->{"output"};
   1.496 -				$$cl->{"note_title"} = $2;
   1.497 -			}
   1.498 -			else {
   1.499 -				my $j = $i;
   1.500 -				if ($1 eq "^") {
   1.501 -					$j--;
   1.502 -					$j-- while ($j >=0  && (!$Command_Lines[$j] || $Command_Lines[$j]->{tty} ne $$cl->{tty}));
   1.503 -				}
   1.504 -				elsif ($1 eq "v") {
   1.505 -					$j++;
   1.506 -					$j++ while ($j <= @Command_Lines  && (!$Command_Lines[$j] || $Command_Lines[$j]->{tty} ne $$cl->{tty}));
   1.507 -				}
   1.508 -				$Command_Lines[$j]->{note_title}="$2";
   1.509 -				$Command_Lines[$j]->{note}=$$cl->{output};
   1.510 -				$$cl=0;
   1.511 -			}
   1.512 -		}
   1.513 -		elsif ($$cl->{cline}=~ /#([\^=v])(.*)/) {
   1.514 -			if ($1 eq "=") {
   1.515 -				$$cl->{"class"} = "note";
   1.516 -				$$cl->{"note"} = $2;
   1.517 -			}
   1.518 -			else {
   1.519 -				my $j=$i;
   1.520 -				if ($1 eq "^") {
   1.521 -					$j--;
   1.522 -					$j-- while ($j >=0  && (!$Command_Lines[$j] || $Command_Lines[$j]->{tty} ne $$cl->{tty}));
   1.523 -				}
   1.524 -				elsif ($1 eq "v") {
   1.525 -					$j++;
   1.526 -					$j++ while ($j <= @Command_Lines  && $Command_Lines[$j]->{tty} ne $$cl->{tty} || !$Command_Lines[$j]);
   1.527 -				}
   1.528 -				$Command_Lines[$j]->{note}.="$2\n";
   1.529 -				$$cl=0;
   1.530 -			}
   1.531 -		}
   1.532 -	}	
   1.533 +        if ($$cl->{cline}=~ m@cat[^#]*#([\^=v])\s*(.*)@) {
   1.534 +            if ($1 eq "=") {
   1.535 +                $$cl->{"class"} = "note";
   1.536 +                $$cl->{"note"} = $$cl->{"output"};
   1.537 +                $$cl->{"note_title"} = $2;
   1.538 +            }
   1.539 +            else {
   1.540 +                my $j = $i;
   1.541 +                if ($1 eq "^") {
   1.542 +                    $j--;
   1.543 +                    $j-- while ($j >=0  && (!$Command_Lines[$j] || $Command_Lines[$j]->{tty} ne $$cl->{tty}));
   1.544 +                }
   1.545 +                elsif ($1 eq "v") {
   1.546 +                    $j++;
   1.547 +                    $j++ while ($j <= @Command_Lines  && (!$Command_Lines[$j] || $Command_Lines[$j]->{tty} ne $$cl->{tty}));
   1.548 +                }
   1.549 +                $Command_Lines[$j]->{note_title}="$2";
   1.550 +                $Command_Lines[$j]->{note}=$$cl->{output};
   1.551 +                $$cl=0;
   1.552 +            }
   1.553 +        }
   1.554 +        elsif ($$cl->{cline}=~ /#([\^=v])(.*)/) {
   1.555 +            if ($1 eq "=") {
   1.556 +                $$cl->{"class"} = "note";
   1.557 +                $$cl->{"note"} = $2;
   1.558 +            }
   1.559 +            else {
   1.560 +                my $j=$i;
   1.561 +                if ($1 eq "^") {
   1.562 +                    $j--;
   1.563 +                    $j-- while ($j >=0  && (!$Command_Lines[$j] || $Command_Lines[$j]->{tty} ne $$cl->{tty}));
   1.564 +                }
   1.565 +                elsif ($1 eq "v") {
   1.566 +                    $j++;
   1.567 +                    $j++ while ($j <= @Command_Lines  && $Command_Lines[$j]->{tty} ne $$cl->{tty} || !$Command_Lines[$j]);
   1.568 +                }
   1.569 +                $Command_Lines[$j]->{note}.="$2\n";
   1.570 +                $$cl=0;
   1.571 +            }
   1.572 +        }
   1.573 +    }   
   1.574  
   1.575  }
   1.576  
   1.577 @@ -373,447 +373,447 @@
   1.578  
   1.579  sub print_command_lines
   1.580  {
   1.581 -	my $output_filename=$_[0];
   1.582 +    my $output_filename=$_[0];
   1.583  
   1.584 -	my $course_name = $Config{"course-name"};
   1.585 -	my $course_code = $Config{"course-code"};
   1.586 -	my $course_date = $Config{"course-date"};
   1.587 -	my $course_center = $Config{"course-center"};
   1.588 -	my $course_trainer = $Config{"course-trainer"};
   1.589 -	my $course_student = $Config{"course-student"};
   1.590 -	
   1.591 +    my $course_name = $Config{"course-name"};
   1.592 +    my $course_code = $Config{"course-code"};
   1.593 +    my $course_date = $Config{"course-date"};
   1.594 +    my $course_center = $Config{"course-center"};
   1.595 +    my $course_trainer = $Config{"course-trainer"};
   1.596 +    my $course_student = $Config{"course-student"};
   1.597 +    
   1.598  
   1.599 -	# Результат выполнения процедуры равен 
   1.600 -	# join("", @Result{header,body,stat,help,about,footer})
   1.601 -	my %Result;
   1.602 -	my @toc;  # Хранит оглавление
   1.603 -	my $note_number=0;
   1.604 +    # Результат выполнения процедуры равен 
   1.605 +    # join("", @Result{header,body,stat,help,about,footer})
   1.606 +    my %Result;
   1.607 +    my @toc;  # Хранит оглавление
   1.608 +    my $note_number=0;
   1.609  
   1.610 -	$Result{"body"} = "<table width='100%'>\n";
   1.611 -	
   1.612 -	my $cl;
   1.613 -	my $last_tty="";
   1.614 -	my $last_day="";
   1.615 -	my $in_range=0;
   1.616 +    $Result{"body"} = "<table width='100%'>\n";
   1.617 +    
   1.618 +    my $cl;
   1.619 +    my $last_tty="";
   1.620 +    my $last_day="";
   1.621 +    my $in_range=0;
   1.622  
   1.623 -	my $current_command=0;
   1.624 +    my $current_command=0;
   1.625  
   1.626  COMMAND_LINE:
   1.627 -	for my $k (@Command_Lines_Index) {
   1.628 +    for my $k (@Command_Lines_Index) {
   1.629  
   1.630 -		my $cl=$Command_Lines[$Command_Lines_Index[$current_command++]];
   1.631 -		
   1.632 -		next unless $cl;
   1.633 +        my $cl=$Command_Lines[$Command_Lines_Index[$current_command++]];
   1.634 +        
   1.635 +        next unless $cl;
   1.636  
   1.637  
   1.638 -		if ($Config{filter}) {
   1.639 -			# Инициализация фильтра
   1.640 -			my %filter;
   1.641 -			for (split /&/,$Config{filter}) {
   1.642 -				my ($var, $val) = split /=/;
   1.643 -				$filter{$var} = $val || "";
   1.644 -			}
   1.645 +        if ($Config{filter}) {
   1.646 +            # Инициализация фильтра
   1.647 +            my %filter;
   1.648 +            for (split /&/,$Config{filter}) {
   1.649 +                my ($var, $val) = split /=/;
   1.650 +                $filter{$var} = $val || "";
   1.651 +            }
   1.652  
   1.653 -			for my $filter_key (keys %filter) {
   1.654 -				next COMMAND_LINE unless (
   1.655 -					not defined($cl->{local_session_id}) 
   1.656 -					|| not defined($Sessions{$cl->{local_session_id}}->{$filter_key}) 
   1.657 -					|| $Sessions{$cl->{local_session_id}}->{$filter_key} eq $filter{$filter_key});
   1.658 -			}
   1.659 +            for my $filter_key (keys %filter) {
   1.660 +                next COMMAND_LINE unless (
   1.661 +                    not defined($cl->{local_session_id}) 
   1.662 +                    || not defined($Sessions{$cl->{local_session_id}}->{$filter_key}) 
   1.663 +                    || $Sessions{$cl->{local_session_id}}->{$filter_key} eq $filter{$filter_key});
   1.664 +            }
   1.665  
   1.666 -			#if ($filter{user}) {
   1.667 -			#	next COMMAND_LINE unless $Sessions{$cl->{local_session_id}}->{user} eq $filter{user};
   1.668 -			#}
   1.669 +            #if ($filter{user}) {
   1.670 +            #   next COMMAND_LINE unless $Sessions{$cl->{local_session_id}}->{user} eq $filter{user};
   1.671 +            #}
   1.672  
   1.673 -			#for my $filter_field (keys %filter) {
   1.674 -			#	next COMMAND_LINE unless $Sessions{$cl->{local_session_id}}->{$filter_field} eq $filter{$filter_field};
   1.675 -			#}
   1.676 -		}
   1.677 +            #for my $filter_field (keys %filter) {
   1.678 +            #   next COMMAND_LINE unless $Sessions{$cl->{local_session_id}}->{$filter_field} eq $filter{$filter_field};
   1.679 +            #}
   1.680 +        }
   1.681  
   1.682 -		if ($Config{"from"} && $cl->{"cline"} =~ /$Config{"signature"}\s*$Config{"from"}/) {
   1.683 -			$in_range=1;
   1.684 -			next;
   1.685 -		}
   1.686 -		if ($Config{"to"} && $cl->{"cline"} =~ /$Config{"signature"}\s*$Config{"to"}/) {
   1.687 -			$in_range=0;
   1.688 -			next;
   1.689 -		}
   1.690 -		next if ($Config{"from"} && $Config{"to"} && !$in_range) 
   1.691 -			||
   1.692 -		    	($Config{"skip_empty"} =~ /^y/i && $cl->{"cline"} =~ /^\s*$/ )
   1.693 -			||
   1.694 -			($Config{"skip_wrong"} =~ /^y/i && $cl->{"err"} != 0)
   1.695 -			||
   1.696 -			($Config{"skip_interrupted"} =~ /^y/i && $cl->{"err"} == 130);
   1.697 -		
   1.698 -		#my @new_commands=@{$cl->{"new_commands"}};
   1.699 -		#my @new_files=@{$cl->{"new_files"}};
   1.700 +        if ($Config{"from"} && $cl->{"cline"} =~ /$Config{"signature"}\s*$Config{"from"}/) {
   1.701 +            $in_range=1;
   1.702 +            next;
   1.703 +        }
   1.704 +        if ($Config{"to"} && $cl->{"cline"} =~ /$Config{"signature"}\s*$Config{"to"}/) {
   1.705 +            $in_range=0;
   1.706 +            next;
   1.707 +        }
   1.708 +        next if ($Config{"from"} && $Config{"to"} && !$in_range) 
   1.709 +            ||
   1.710 +                ($Config{"skip_empty"} =~ /^y/i && $cl->{"cline"} =~ /^\s*$/ )
   1.711 +            ||
   1.712 +            ($Config{"skip_wrong"} =~ /^y/i && $cl->{"err"} != 0)
   1.713 +            ||
   1.714 +            ($Config{"skip_interrupted"} =~ /^y/i && $cl->{"err"} == 130);
   1.715 +        
   1.716 +        #my @new_commands=@{$cl->{"new_commands"}};
   1.717 +        #my @new_files=@{$cl->{"new_files"}};
   1.718  
   1.719 -		if ($cl->{class} eq "note") {
   1.720 -			my $note = $cl->{note};
   1.721 -			$note = join ("\n", map ("<p>$_</p>", split (/-\n/, $note)));
   1.722 -			$note =~ s@(http:[a-zA-Z.0-9/?%-]*)@<a href='$1'>$1</a>@g;
   1.723 -			$note =~ s@(www\.[a-zA-Z.0-9/?%-]*)@<a href='$1'>$1</a>@g;
   1.724 -			$Result{"body"} .= "<tr><td colspan='6'>";
   1.725 -			$Result{"body"} .= "<h4 id='note$note_number'>".$cl->{note_title}."</h4>" if $cl->{note_title};
   1.726 -			$Result{"body"} .= "".$note."<p/><p/></td></td>";
   1.727 +        if ($cl->{class} eq "note") {
   1.728 +            my $note = $cl->{note};
   1.729 +            $note = join ("\n", map ("<p>$_</p>", split (/-\n/, $note)));
   1.730 +            $note =~ s@(http:[a-zA-Z.0-9/?%-]*)@<a href='$1'>$1</a>@g;
   1.731 +            $note =~ s@(www\.[a-zA-Z.0-9/?%-]*)@<a href='$1'>$1</a>@g;
   1.732 +            $Result{"body"} .= "<tr><td colspan='6'>";
   1.733 +            $Result{"body"} .= "<h4 id='note$note_number'>".$cl->{note_title}."</h4>" if $cl->{note_title};
   1.734 +            $Result{"body"} .= "".$note."<p/><p/></td></td>";
   1.735  
   1.736 -			if ($cl->{note_title}) {
   1.737 -				push @{$toc[@toc]},"<a href='#note$note_number'>".$cl->{note_title}."</a>";
   1.738 -				$note_number++;
   1.739 -			}
   1.740 -			next;
   1.741 -		}
   1.742 +            if ($cl->{note_title}) {
   1.743 +                push @{$toc[@toc]},"<a href='#note$note_number'>".$cl->{note_title}."</a>";
   1.744 +                $note_number++;
   1.745 +            }
   1.746 +            next;
   1.747 +        }
   1.748  
   1.749 -		my $cl_class="cline";
   1.750 -		my $out_class="output";
   1.751 -		if ($cl->{"class"}) {
   1.752 -			$cl_class = $cl->{"class"}."_".$cl_class;
   1.753 -			$out_class = $cl->{"class"}."_".$out_class;
   1.754 -		}
   1.755 +        my $cl_class="cline";
   1.756 +        my $out_class="output";
   1.757 +        if ($cl->{"class"}) {
   1.758 +            $cl_class = $cl->{"class"}."_".$cl_class;
   1.759 +            $out_class = $cl->{"class"}."_".$out_class;
   1.760 +        }
   1.761  
   1.762 -		my @new_commands;
   1.763 -		my @new_files;
   1.764 -		@new_commands = split (/\s+/, $cl->{"new_commands"}) if defined $cl->{"new_commands"};
   1.765 -		@new_files = split (/\s+/, $cl->{"new_files"}) if defined $cl->{"new_files"};
   1.766 +        my @new_commands;
   1.767 +        my @new_files;
   1.768 +        @new_commands = split (/\s+/, $cl->{"new_commands"}) if defined $cl->{"new_commands"};
   1.769 +        @new_files = split (/\s+/, $cl->{"new_files"}) if defined $cl->{"new_files"};
   1.770  
   1.771 -		my $output="";
   1.772 -		if ($Config{"head_lines"} || $Config{"tail_lines"}) {
   1.773 -			# Partialy output
   1.774 -			my @lines = split '\n', $cl->{"output"};
   1.775 -			# head
   1.776 -			my $mark=1;
   1.777 -			for (my $i=0; $i<= $#lines && $i < $Config{"head_lines"}; $i++) {
   1.778 -				$output .= $lines[$i]."\n";
   1.779 -			}
   1.780 -			# tail
   1.781 -			my $start=$#lines-$Config{"tail_lines"}+1;
   1.782 -			if ($start < 0) {
   1.783 -				$start=0;
   1.784 -				$mark=0;
   1.785 -			}	
   1.786 -			if ($start < $Config{"head_lines"}) {
   1.787 -				$start=$Config{"head_lines"};
   1.788 -				$mark=0;
   1.789 -			}	
   1.790 -			$output .= $Config{"skip_text"}."\n" if $mark;
   1.791 -			for ($i=$start; $i<= $#lines; $i++) {
   1.792 -				$output .= $lines[$i]."\n";
   1.793 -			}
   1.794 -		} 
   1.795 -		else {
   1.796 -			# Full output
   1.797 -			$output .= $cl->{"output"};
   1.798 -		}	
   1.799 -		#$output .= "^C\n" if ($cl->{"err"} eq "130");
   1.800 +        my $output="";
   1.801 +        if ($Config{"head_lines"} || $Config{"tail_lines"}) {
   1.802 +            # Partialy output
   1.803 +            my @lines = split '\n', $cl->{"output"};
   1.804 +            # head
   1.805 +            my $mark=1;
   1.806 +            for (my $i=0; $i<= $#lines && $i < $Config{"head_lines"}; $i++) {
   1.807 +                $output .= $lines[$i]."\n";
   1.808 +            }
   1.809 +            # tail
   1.810 +            my $start=$#lines-$Config{"tail_lines"}+1;
   1.811 +            if ($start < 0) {
   1.812 +                $start=0;
   1.813 +                $mark=0;
   1.814 +            }   
   1.815 +            if ($start < $Config{"head_lines"}) {
   1.816 +                $start=$Config{"head_lines"};
   1.817 +                $mark=0;
   1.818 +            }   
   1.819 +            $output .= $Config{"skip_text"}."\n" if $mark;
   1.820 +            for ($i=$start; $i<= $#lines; $i++) {
   1.821 +                $output .= $lines[$i]."\n";
   1.822 +            }
   1.823 +        } 
   1.824 +        else {
   1.825 +            # Full output
   1.826 +            $output .= $cl->{"output"};
   1.827 +        }   
   1.828 +        #$output .= "^C\n" if ($cl->{"err"} eq "130");
   1.829  
   1.830 -		#
   1.831 -		##
   1.832 -		## Начинается собственно вывод
   1.833 -		##
   1.834 -		#
   1.835 +        #
   1.836 +        ##
   1.837 +        ## Начинается собственно вывод
   1.838 +        ##
   1.839 +        #
   1.840  
   1.841 -		# <command>
   1.842 +        # <command>
   1.843  
   1.844 -		my ($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = localtime($cl->{time});
   1.845 -		next if $Stat{LastCommand} == $cl->{time};
   1.846 -		$Stat{FirstCommand} = $cl->{time} unless $Stat{FirstCommand};
   1.847 -		$Stat{LastCommand} = 0 unless defined $Stat{LastCommand};	
   1.848 -		$Stat{TotalTime} += $cl->{time} - $Stat{LastCommand}
   1.849 -			if $cl->{time} - $Stat{LastCommand} < $Config{stat_inactivity_interval};
   1.850 -		$Stat{LastCommand} = $cl->{time};
   1.851 -		$Stat{TotalCommands} = 0 unless $Stat{TotalCommands};
   1.852 -		$Stat{TotalCommands}++;
   1.853 +        my ($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = localtime($cl->{time});
   1.854 +        next if $Stat{LastCommand} == $cl->{time};
   1.855 +        $Stat{FirstCommand} = $cl->{time} unless $Stat{FirstCommand};
   1.856 +        $Stat{LastCommand} = 0 unless defined $Stat{LastCommand};   
   1.857 +        $Stat{TotalTime} += $cl->{time} - $Stat{LastCommand}
   1.858 +            if $cl->{time} - $Stat{LastCommand} < $Config{stat_inactivity_interval};
   1.859 +        $Stat{LastCommand} = $cl->{time};
   1.860 +        $Stat{TotalCommands} = 0 unless $Stat{TotalCommands};
   1.861 +        $Stat{TotalCommands}++;
   1.862  
   1.863 -		# Добавляем спереди 0 для удобочитаемости
   1.864 -		$min = "0".$min if $min =~ /^.$/;
   1.865 -		$hour = "0".$hour if $hour =~ /^.$/;
   1.866 -		$sec = "0".$sec if $sec =~ /^.$/;
   1.867 +        # Добавляем спереди 0 для удобочитаемости
   1.868 +        $min = "0".$min if $min =~ /^.$/;
   1.869 +        $hour = "0".$hour if $hour =~ /^.$/;
   1.870 +        $sec = "0".$sec if $sec =~ /^.$/;
   1.871  
   1.872 -		$class=$cl->{"out_class"};
   1.873 -		$class =~ s/output$//;
   1.874 +        $class=$cl->{"out_class"};
   1.875 +        $class =~ s/output$//;
   1.876  
   1.877 -		$Stat{ErrorCommands}++
   1.878 -			if $class =~ /wrong/;
   1.879 -		
   1.880 -		$Result{"body"} .= "<tr class='command'>\n";
   1.881 -						
   1.882 -		
   1.883 -		# DAY CHANGE
   1.884 -		if ( $last_day ne $day) {
   1.885 -			#$Result{"body"} .= "<td colspan='6'><p></p><h3>День ",$day,"</h4></td></tr><tr>";
   1.886 -			$Result{"body"} .= "<td colspan='6'><p></p><h3 id='day$day'>".$Day_Name[$wday]."</h4></td></tr><tr>";
   1.887 -			push @toc, "<a href='#day$day'>".$Day_Name[$wday]."</a>\n";
   1.888 -			$last_day=$day;
   1.889 -		}
   1.890 +        $Stat{ErrorCommands}++
   1.891 +            if $class =~ /wrong/;
   1.892 +        
   1.893 +        $Result{"body"} .= "<tr class='command'>\n";
   1.894 +                        
   1.895 +        
   1.896 +        # DAY CHANGE
   1.897 +        if ( $last_day ne $day) {
   1.898 +            #$Result{"body"} .= "<td colspan='6'><p></p><h3>День ",$day,"</h4></td></tr><tr>";
   1.899 +            $Result{"body"} .= "<td colspan='6'><p></p><h3 id='day$day'>".$Day_Name[$wday]."</h4></td></tr><tr>";
   1.900 +            push @toc, "<a href='#day$day'>".$Day_Name[$wday]."</a>\n";
   1.901 +            $last_day=$day;
   1.902 +        }
   1.903  
   1.904 -		# CONSOLE CHANGE
   1.905 -		if ( $last_tty ne $cl->{"tty"}) {
   1.906 -			my $host;
   1.907 -			#$host = $Sessions{$cl->{local_session_id}}->{user}."@".$Sessions{$cl->{local_session_id}}->{hostname};
   1.908 -			my $body = $cl->{"tty"};
   1.909 -			$body .= " \@$host" if $host;
   1.910 -			$Result{"body"} .= "<td colspan='6'><table><tr><td class='ttychange' width='140' align='center'>".$body."</td></tr></table></td></tr><tr>";
   1.911 -			$last_tty=$cl->{"tty"};
   1.912 -		}
   1.913 +        # CONSOLE CHANGE
   1.914 +        if ( $last_tty ne $cl->{"tty"}) {
   1.915 +            my $host;
   1.916 +            #$host = $Sessions{$cl->{local_session_id}}->{user}."@".$Sessions{$cl->{local_session_id}}->{hostname};
   1.917 +            my $body = $cl->{"tty"};
   1.918 +            $body .= " \@$host" if $host;
   1.919 +            $Result{"body"} .= "<td colspan='6'><table><tr><td class='ttychange' width='140' align='center'>".$body."</td></tr></table></td></tr><tr>";
   1.920 +            $last_tty=$cl->{"tty"};
   1.921 +        }
   1.922  
   1.923 -		# TIME
   1.924 -		if ($Config{"show_time"} =~ /^y/i) {
   1.925 -			$Result{"body"} .= "<td valign='top' class='time' width='$Config{time_width}'><pre>".
   1.926 -				$hour. ":". $min. ":". $sec.
   1.927 -				"</td>";
   1.928 -		} else {
   1.929 -			$Result{"body"} .= "<td width='0'/>"
   1.930 -		}
   1.931 +        # TIME
   1.932 +        if ($Config{"show_time"} =~ /^y/i) {
   1.933 +            $Result{"body"} .= "<td valign='top' class='time' width='$Config{time_width}'><pre>".
   1.934 +                $hour. ":". $min. ":". $sec.
   1.935 +                "</td>";
   1.936 +        } else {
   1.937 +            $Result{"body"} .= "<td width='0'/>"
   1.938 +        }
   1.939  
   1.940 -		# COMMAND
   1.941 -		$Result{"body"} .= "<td class='script'>\n";
   1.942 -		$Result{"body"} .= "<pre class='${class}cline'>\n";
   1.943 -		my $cline = $cl->{"prompt"}.$cl->{"cline"};
   1.944 -		$cline =~ s/\n//;
   1.945 +        # COMMAND
   1.946 +        $Result{"body"} .= "<td class='script'>\n";
   1.947 +        $Result{"body"} .= "<pre class='${class}cline'>\n";
   1.948 +        my $cline = $cl->{"prompt"}.$cl->{"cline"};
   1.949 +        $cline =~ s/\n//;
   1.950  
   1.951 -		#$cline .= "(".$Sessions{$cl->{local_session_id}}.")";
   1.952 -		
   1.953 -		my $hint = make_comment($cl->{"cline"});
   1.954 -		$cline = "<div title='$hint'>$cline</div>" if $hint;
   1.955 -		$Result{"body"} .= $cline;
   1.956 -		$Result{"body"} .= "</pre>\n";
   1.957 +        #$cline .= "(".$Sessions{$cl->{local_session_id}}.")";
   1.958 +        
   1.959 +        my $hint = make_comment($cl->{"cline"});
   1.960 +        $cline = "<div title='$hint'>$cline</div>" if $hint;
   1.961 +        $Result{"body"} .= $cline;
   1.962 +        $Result{"body"} .= "</pre>\n";
   1.963  
   1.964 -		my $last_command = $cl->{"last_command"};
   1.965 -		if (!( 
   1.966 -		$Config{"suppress_editors"} =~ /^y/i && grep ($_ eq $last_command, @{$Config{"editors"}}) ||
   1.967 -		$Config{"suppress_pagers"}  =~ /^y/i && grep ($_ eq $last_command, @{$Config{"pagers"}}) ||
   1.968 -		$Config{"suppress_terminal"}=~ /^y/i && grep ($_ eq $last_command, @{$Config{"terminal"}})
   1.969 -			)) {
   1.970 +        my $last_command = $cl->{"last_command"};
   1.971 +        if (!( 
   1.972 +        $Config{"suppress_editors"} =~ /^y/i && grep ($_ eq $last_command, @{$Config{"editors"}}) ||
   1.973 +        $Config{"suppress_pagers"}  =~ /^y/i && grep ($_ eq $last_command, @{$Config{"pagers"}}) ||
   1.974 +        $Config{"suppress_terminal"}=~ /^y/i && grep ($_ eq $last_command, @{$Config{"terminal"}})
   1.975 +            )) {
   1.976  
   1.977 -			$Result{"body"} .= "<pre class='".$cl->{out_class}."'>";
   1.978 -			$Result{"body"} .= $output;
   1.979 -			$Result{"body"} .= "</pre>\n";
   1.980 -		}	
   1.981 +            $Result{"body"} .= "<pre class='".$cl->{out_class}."'>";
   1.982 +            $Result{"body"} .= $output;
   1.983 +            $Result{"body"} .= "</pre>\n";
   1.984 +        }   
   1.985  
   1.986 -		# DIFF
   1.987 -		if ( $Config{"show_diffs"} =~ /^y/i && $cl->{"diff"}) {
   1.988 -			$Result{"body"} .= "<table><tr><td width='5'/><td class='diff'><pre>";
   1.989 -			$Result{"body"} .= $cl->{"diff"};
   1.990 -			$Result{"body"} .= "</pre></td></tr></table>";
   1.991 -		}
   1.992 -		
   1.993 -		#NOTES
   1.994 -		if ( $Config{"show_notes"} =~ /^y/i && $cl->{"note"}) {
   1.995 -			my $note=$cl->{"note"};
   1.996 -			$note =~ s/\n/<br\/>\n/msg;
   1.997 -			$note =~ s@(http:[a-zA-Z.0-9/?%-]*)@<a href='$1'>$1</a>@g;
   1.998 -			$note =~ s@(www\.[a-zA-Z.0-9/?%-]*)@<a href='$1'>$1</a>@g;
   1.999 -		#	Ширину пока не используем
  1.1000 -		#	$Result{"body"} .= "<table width='$Config{note_width}' class='note'>";
  1.1001 -			$Result{"body"} .= "<table class='note'>";
  1.1002 -			$Result{"body"} .= "<tr><td class='note_title'>".$cl->{note_title}."</td></tr>" if $cl->{note_title};
  1.1003 -			$Result{"body"} .= "<tr><td width='100%' class='note_text'>".$note."</td></tr>";
  1.1004 -			$Result{"body"} .= "</table>\n";
  1.1005 -		}
  1.1006 +        # DIFF
  1.1007 +        if ( $Config{"show_diffs"} =~ /^y/i && $cl->{"diff"}) {
  1.1008 +            $Result{"body"} .= "<table><tr><td width='5'/><td class='diff'><pre>";
  1.1009 +            $Result{"body"} .= $cl->{"diff"};
  1.1010 +            $Result{"body"} .= "</pre></td></tr></table>";
  1.1011 +        }
  1.1012 +        
  1.1013 +        #NOTES
  1.1014 +        if ( $Config{"show_notes"} =~ /^y/i && $cl->{"note"}) {
  1.1015 +            my $note=$cl->{"note"};
  1.1016 +            $note =~ s/\n/<br\/>\n/msg;
  1.1017 +            $note =~ s@(http:[a-zA-Z.0-9/?%-]*)@<a href='$1'>$1</a>@g;
  1.1018 +            $note =~ s@(www\.[a-zA-Z.0-9/?%-]*)@<a href='$1'>$1</a>@g;
  1.1019 +        #   Ширину пока не используем
  1.1020 +        #   $Result{"body"} .= "<table width='$Config{note_width}' class='note'>";
  1.1021 +            $Result{"body"} .= "<table class='note'>";
  1.1022 +            $Result{"body"} .= "<tr><td class='note_title'>".$cl->{note_title}."</td></tr>" if $cl->{note_title};
  1.1023 +            $Result{"body"} .= "<tr><td width='100%' class='note_text'>".$note."</td></tr>";
  1.1024 +            $Result{"body"} .= "</table>\n";
  1.1025 +        }
  1.1026  
  1.1027 -		# COMMENT
  1.1028 -		if ( $Config{"show_comments"} =~ /^y/i) {
  1.1029 -			my $comment = make_comment($cl->{"cline"});
  1.1030 -			if ($comment) {
  1.1031 -				$Result{"body"} .= "<table width='$Config{comment_width}'>".
  1.1032 -						"<tr><td width='5'/><td>";
  1.1033 -				$Result{"body"} .= "<table class='note' width='100%'>";
  1.1034 -				$Result{"body"} .= $comment;
  1.1035 -				$Result{"body"} .= "</table>\n";
  1.1036 -				$Result{"body"} .= "</td></tr></table>";
  1.1037 -			}
  1.1038 -		}
  1.1039 +        # COMMENT
  1.1040 +        if ( $Config{"show_comments"} =~ /^y/i) {
  1.1041 +            my $comment = make_comment($cl->{"cline"});
  1.1042 +            if ($comment) {
  1.1043 +                $Result{"body"} .= "<table width='$Config{comment_width}'>".
  1.1044 +                        "<tr><td width='5'/><td>";
  1.1045 +                $Result{"body"} .= "<table class='note' width='100%'>";
  1.1046 +                $Result{"body"} .= $comment;
  1.1047 +                $Result{"body"} .= "</table>\n";
  1.1048 +                $Result{"body"} .= "</td></tr></table>";
  1.1049 +            }
  1.1050 +        }
  1.1051  
  1.1052 -		# Вывод очередной команды окончен
  1.1053 -		$Result{"body"} .= "</td>\n";
  1.1054 -		$Result{"body"} .= "</tr>\n";
  1.1055 -	}
  1.1056 +        # Вывод очередной команды окончен
  1.1057 +        $Result{"body"} .= "</td>\n";
  1.1058 +        $Result{"body"} .= "</tr>\n";
  1.1059 +    }
  1.1060  
  1.1061 -	$Result{"body"} .= "</table>\n";
  1.1062 +    $Result{"body"} .= "</table>\n";
  1.1063  
  1.1064 -	#$Result{"stat"} = "<hr/>";
  1.1065 +    #$Result{"stat"} = "<hr/>";
  1.1066  
  1.1067 -	%StatNames = (
  1.1068 -		FirstCommand => "Время первой команды журнала",
  1.1069 -		LastCommand => "Время последней команды журнала",
  1.1070 -		TotalCommands => "Количество командных строк в журнале",
  1.1071 -		ErrorsPercentage => "Процент команд с ненулевым кодом завершения, %",
  1.1072 -		TotalTime => "Суммарное время работы с терминалом <sup><font size='-2'>*</font></sup>, час",
  1.1073 -		CommandsPerTime => "Количество командных строк в единицу времени, команда/мин",
  1.1074 -		CommandsFrequency => "Частота использования команд",
  1.1075 -		RareCommands	=> "Частота использования этих команд < 0.5%",
  1.1076 -	);
  1.1077 -	@StatOrder = (
  1.1078 -		FirstCommand,
  1.1079 -		LastCommand,
  1.1080 -		TotalCommands,
  1.1081 -		ErrorsPercentage,
  1.1082 -		TotalTime,
  1.1083 -		CommandsPerTime,
  1.1084 -		CommandsFrequency,
  1.1085 -		RareCommands,
  1.1086 -	);
  1.1087 +    %StatNames = (
  1.1088 +        FirstCommand => "Время первой команды журнала",
  1.1089 +        LastCommand => "Время последней команды журнала",
  1.1090 +        TotalCommands => "Количество командных строк в журнале",
  1.1091 +        ErrorsPercentage => "Процент команд с ненулевым кодом завершения, %",
  1.1092 +        TotalTime => "Суммарное время работы с терминалом <sup><font size='-2'>*</font></sup>, час",
  1.1093 +        CommandsPerTime => "Количество командных строк в единицу времени, команда/мин",
  1.1094 +        CommandsFrequency => "Частота использования команд",
  1.1095 +        RareCommands    => "Частота использования этих команд < 0.5%",
  1.1096 +    );
  1.1097 +    @StatOrder = (
  1.1098 +        FirstCommand,
  1.1099 +        LastCommand,
  1.1100 +        TotalCommands,
  1.1101 +        ErrorsPercentage,
  1.1102 +        TotalTime,
  1.1103 +        CommandsPerTime,
  1.1104 +        CommandsFrequency,
  1.1105 +        RareCommands,
  1.1106 +    );
  1.1107  
  1.1108 -	# Подготовка статистики к выводу
  1.1109 -	# Некоторые значения пересчитываются!
  1.1110 -	# Дальше их лучше уже не использовать!!!
  1.1111 +    # Подготовка статистики к выводу
  1.1112 +    # Некоторые значения пересчитываются!
  1.1113 +    # Дальше их лучше уже не использовать!!!
  1.1114  
  1.1115 -	my %CommandsFrequency = %CommandsFDistribution;
  1.1116 +    my %CommandsFrequency = %CommandsFDistribution;
  1.1117  
  1.1118 -	$Stat{TotalTime} ||= 0;
  1.1119 -	my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($Stat{FirstCommand} || 0);
  1.1120 -	$Stat{FirstCommand} = sprintf "%02i:%02i:%02i %04i-%2i-%2i", $hour, $min, $sec,  $year+1900, $mon+1, $mday;
  1.1121 -	($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($Stat{LastCommand} || 0);
  1.1122 -	$Stat{LastCommand} = sprintf "%02i:%02i:%02i %04i-%2i-%2i", $hour, $min, $sec,  $year+1900, $mon+1, $mday;
  1.1123 -	$Stat{ErrorsPercentage} = sprintf "%5.2f", $Stat{ErrorCommands}*100/$Stat{TotalCommands}	
  1.1124 -		if $Stat{TotalCommands};
  1.1125 -	$Stat{CommandsPerTime} = sprintf "%5.2f", $Stat{TotalCommands}*60/$Stat{TotalTime}
  1.1126 -		if $Stat{TotalTime};
  1.1127 -	$Stat{TotalTime} = sprintf "%5.2f", $Stat{TotalTime}/60/60;
  1.1128 +    $Stat{TotalTime} ||= 0;
  1.1129 +    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($Stat{FirstCommand} || 0);
  1.1130 +    $Stat{FirstCommand} = sprintf "%02i:%02i:%02i %04i-%2i-%2i", $hour, $min, $sec,  $year+1900, $mon+1, $mday;
  1.1131 +    ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($Stat{LastCommand} || 0);
  1.1132 +    $Stat{LastCommand} = sprintf "%02i:%02i:%02i %04i-%2i-%2i", $hour, $min, $sec,  $year+1900, $mon+1, $mday;
  1.1133 +    $Stat{ErrorsPercentage} = sprintf "%5.2f", $Stat{ErrorCommands}*100/$Stat{TotalCommands}    
  1.1134 +        if $Stat{TotalCommands};
  1.1135 +    $Stat{CommandsPerTime} = sprintf "%5.2f", $Stat{TotalCommands}*60/$Stat{TotalTime}
  1.1136 +        if $Stat{TotalTime};
  1.1137 +    $Stat{TotalTime} = sprintf "%5.2f", $Stat{TotalTime}/60/60;
  1.1138  
  1.1139 -	my $total_commands=0;
  1.1140 -	for $command (keys %CommandsFrequency){
  1.1141 -		$total_commands += $CommandsFrequency{$command};
  1.1142 -	}
  1.1143 -	if ($total_commands) {
  1.1144 -		for $command (reverse sort {$CommandsFrequency{$a} <=> $CommandsFrequency{$b}} keys %CommandsFrequency){
  1.1145 -			my $command_html;
  1.1146 -			my $percentage = sprintf "%5.2f",$CommandsFrequency{$command}*100/$total_commands;
  1.1147 -			if ($percentage < 0.5) {
  1.1148 -				my $hint = make_comment($command);
  1.1149 -				$command_html = "$command";
  1.1150 -				$command_html = "<span title='$hint' class='hint'>$command_html</span>" if $hint;
  1.1151 -				my $command_html = "<tt>$command_html</tt>";
  1.1152 -				$Stat{RareCommands} .= $command_html."<sub><font size='-2'>".$CommandsFrequency{$command}."</font></sub> , ";
  1.1153 -			}
  1.1154 -			else {
  1.1155 -				my $hint = make_comment($command);
  1.1156 -				$command_html = "$command";
  1.1157 -				$command_html = "<span title='$hint' class='hint'>$command_html</span>" if $hint;
  1.1158 -				my $command_html = "<tt>$command_html</tt>";
  1.1159 -				$percentage = sprintf "%5.2f",$percentage;
  1.1160 -				$Stat{CommandsFrequency} .= "<tr><td>".$command_html."</td><td>".$CommandsFrequency{$command}."</td>".
  1.1161 -					"<td>|".("="x int($CommandsFrequency{$command}*100/$total_commands))."| $percentage%</td></tr>";
  1.1162 -			}
  1.1163 -		}
  1.1164 -		$Stat{CommandsFrequency} = "<table>".$Stat{CommandsFrequency}."</table>";
  1.1165 -		$Stat{RareCommands} =~ s/, $// if $Stat{RareCommands};
  1.1166 -	}
  1.1167 +    my $total_commands=0;
  1.1168 +    for $command (keys %CommandsFrequency){
  1.1169 +        $total_commands += $CommandsFrequency{$command};
  1.1170 +    }
  1.1171 +    if ($total_commands) {
  1.1172 +        for $command (reverse sort {$CommandsFrequency{$a} <=> $CommandsFrequency{$b}} keys %CommandsFrequency){
  1.1173 +            my $command_html;
  1.1174 +            my $percentage = sprintf "%5.2f",$CommandsFrequency{$command}*100/$total_commands;
  1.1175 +            if ($percentage < 0.5) {
  1.1176 +                my $hint = make_comment($command);
  1.1177 +                $command_html = "$command";
  1.1178 +                $command_html = "<span title='$hint' class='hint'>$command_html</span>" if $hint;
  1.1179 +                my $command_html = "<tt>$command_html</tt>";
  1.1180 +                $Stat{RareCommands} .= $command_html."<sub><font size='-2'>".$CommandsFrequency{$command}."</font></sub> , ";
  1.1181 +            }
  1.1182 +            else {
  1.1183 +                my $hint = make_comment($command);
  1.1184 +                $command_html = "$command";
  1.1185 +                $command_html = "<span title='$hint' class='hint'>$command_html</span>" if $hint;
  1.1186 +                my $command_html = "<tt>$command_html</tt>";
  1.1187 +                $percentage = sprintf "%5.2f",$percentage;
  1.1188 +                $Stat{CommandsFrequency} .= "<tr><td>".$command_html."</td><td>".$CommandsFrequency{$command}."</td>".
  1.1189 +                    "<td>|".("="x int($CommandsFrequency{$command}*100/$total_commands))."| $percentage%</td></tr>";
  1.1190 +            }
  1.1191 +        }
  1.1192 +        $Stat{CommandsFrequency} = "<table>".$Stat{CommandsFrequency}."</table>";
  1.1193 +        $Stat{RareCommands} =~ s/, $// if $Stat{RareCommands};
  1.1194 +    }
  1.1195  
  1.1196 -	$Result{"stat"} .= "<h2 id='stat'>Статистика</h2>";
  1.1197 -	$Result{"stat"} .= "<table>";
  1.1198 -	for my $stat (@StatOrder) {
  1.1199 -	$Result{"stat"} .= "<tr valign='top'><td width='300'>".$StatNames{"$stat"}."</td><td>".$Stat{"$stat"}."</td></tr>"
  1.1200 -		if $Stat{"$stat"};
  1.1201 -	}
  1.1202 -	
  1.1203 -	$Result{"stat"} .= "</table>";
  1.1204 -	$Result{"stat"} .= "<font size='-2'>____<br/>*) Интервалы неактивности длительностью ".($Config{stat_inactivity_interval}/60)." минут и более не учитываются</font></br>";
  1.1205 +    $Result{"stat"} .= "<h2 id='stat'>Статистика</h2>";
  1.1206 +    $Result{"stat"} .= "<table>";
  1.1207 +    for my $stat (@StatOrder) {
  1.1208 +    $Result{"stat"} .= "<tr valign='top'><td width='300'>".$StatNames{"$stat"}."</td><td>".$Stat{"$stat"}."</td></tr>"
  1.1209 +        if $Stat{"$stat"};
  1.1210 +    }
  1.1211 +    
  1.1212 +    $Result{"stat"} .= "</table>";
  1.1213 +    $Result{"stat"} .= "<font size='-2'>____<br/>*) Интервалы неактивности длительностью ".($Config{stat_inactivity_interval}/60)." минут и более не учитываются</font></br>";
  1.1214  
  1.1215 -	#$Result{"help"} .= "<hr/>";
  1.1216 -	$Result{"help"} .= "<h2 id='help'>Справка</h2>";
  1.1217 -	$Result{"help"} .= "$Html_Help<br/>";
  1.1218 -	#$Result{"about"} .= "<hr/>";
  1.1219 -	$Result{"about"} .= "<h2 id='about'>О программе</h2>";
  1.1220 -	$Result{"about"} .= "$Html_About";
  1.1221 -	$Result{"footer"} .= "</body>\n";
  1.1222 -	$Result{"footer"} .= "</html>\n";
  1.1223 +    #$Result{"help"} .= "<hr/>";
  1.1224 +    $Result{"help"} .= "<h2 id='help'>Справка</h2>";
  1.1225 +    $Result{"help"} .= "$Html_Help<br/>";
  1.1226 +    #$Result{"about"} .= "<hr/>";
  1.1227 +    $Result{"about"} .= "<h2 id='about'>О программе</h2>";
  1.1228 +    $Result{"about"} .= "$Html_About";
  1.1229 +    $Result{"footer"} .= "</body>\n";
  1.1230 +    $Result{"footer"} .= "</html>\n";
  1.1231  
  1.1232 -	$Result{"title"} = "Журнал лабораторных работ";
  1.1233 -	$Result{"title"}.= " -- ".$course_student if $course_student;
  1.1234 -	if ($course_date) {
  1.1235 -		$Result{"title"}.= " -- ".$course_date; 
  1.1236 -		$Result{"title"}.= "/".$course_code if $course_code;
  1.1237 -	}
  1.1238 -	else {
  1.1239 -		$Result{"title"}.= " -- ".$course_code if $course_code;
  1.1240 -	}
  1.1241 +    $Result{"title"} = "Журнал лабораторных работ";
  1.1242 +    $Result{"title"}.= " -- ".$course_student if $course_student;
  1.1243 +    if ($course_date) {
  1.1244 +        $Result{"title"}.= " -- ".$course_date; 
  1.1245 +        $Result{"title"}.= "/".$course_code if $course_code;
  1.1246 +    }
  1.1247 +    else {
  1.1248 +        $Result{"title"}.= " -- ".$course_code if $course_code;
  1.1249 +    }
  1.1250  
  1.1251 -	# Заголовок генерируется позже всего
  1.1252 -	# Тогда, когда известно уже, что должно быть написано в 
  1.1253 -	# оглавлении
  1.1254 -	$Result{"header"} = <<HEADER;
  1.1255 -	<html>
  1.1256 -	<head>
  1.1257 -	<meta content='text/html; charset=utf-8' http-equiv='Content-Type' />
  1.1258 -	<link rel='stylesheet' href='$Config{frontend_css}' type='text/css'/>
  1.1259 -	<title>$Result{title}</title>
  1.1260 -	</head>
  1.1261 -	<body>
  1.1262 -	<script>
  1.1263 -	$Html_JavaScript
  1.1264 -	</script>
  1.1265 -	<h1>Журнал лабораторных работ</h1>
  1.1266 +    # Заголовок генерируется позже всего
  1.1267 +    # Тогда, когда известно уже, что должно быть написано в 
  1.1268 +    # оглавлении
  1.1269 +    $Result{"header"} = <<HEADER;
  1.1270 +    <html>
  1.1271 +    <head>
  1.1272 +    <meta content='text/html; charset=utf-8' http-equiv='Content-Type' />
  1.1273 +    <link rel='stylesheet' href='$Config{frontend_css}' type='text/css'/>
  1.1274 +    <title>$Result{title}</title>
  1.1275 +    </head>
  1.1276 +    <body>
  1.1277 +    <script>
  1.1278 +    $Html_JavaScript
  1.1279 +    </script>
  1.1280 +    <h1>Журнал лабораторных работ</h1>
  1.1281  
  1.1282  HEADER
  1.1283 -	$Result{"header"} .= "<p>" if $course_student || $course_trainer || $course_name || $course_code || $course_date || $course_center;
  1.1284 -	$Result{"header"} .= "Выполнил $course_student<br/>" if $course_student;
  1.1285 -	$Result{"header"} .= "Проверил $course_trainer <br/>" if $course_trainer;
  1.1286 -	$Result{"header"} .= "Курс " if $course_name || $course_code || $course_date;
  1.1287 -	$Result{"header"} .= "$course_name " if $course_name;
  1.1288 -	$Result{"header"} .= "($course_code)" if $course_code;
  1.1289 -	$Result{"header"} .= ", $course_date<br/>" if $course_date;
  1.1290 -	$Result{"header"} .= "Учебный центр $course_center <br/>" if $course_center;
  1.1291 -	$Result{"header"} .= "</p>" if $course_student || $course_trainer || $course_name || $course_code || $course_date || $course_center;
  1.1292 +    $Result{"header"} .= "<p>" if $course_student || $course_trainer || $course_name || $course_code || $course_date || $course_center;
  1.1293 +    $Result{"header"} .= "Выполнил $course_student<br/>" if $course_student;
  1.1294 +    $Result{"header"} .= "Проверил $course_trainer <br/>" if $course_trainer;
  1.1295 +    $Result{"header"} .= "Курс " if $course_name || $course_code || $course_date;
  1.1296 +    $Result{"header"} .= "$course_name " if $course_name;
  1.1297 +    $Result{"header"} .= "($course_code)" if $course_code;
  1.1298 +    $Result{"header"} .= ", $course_date<br/>" if $course_date;
  1.1299 +    $Result{"header"} .= "Учебный центр $course_center <br/>" if $course_center;
  1.1300 +    $Result{"header"} .= "</p>" if $course_student || $course_trainer || $course_name || $course_code || $course_date || $course_center;
  1.1301  
  1.1302 -	my $toc = collapse_list (\@toc);
  1.1303 -	$Result{"header"} .= <<HEADER;
  1.1304 -	<table border=0 id='toc' class='toc'>
  1.1305 -	<tr>
  1.1306 -	<td>
  1.1307 -	<div class='toc_title'>Содержание</div>
  1.1308 -	<ul>
  1.1309 -		<li><a href='#log'>Журнал</a></li>
  1.1310 -		<ul>$toc</ul>
  1.1311 -		<li><a href='#stat'>Статистика</a></li>
  1.1312 -		<li><a href='#help'>Справка</a></li>
  1.1313 -		<li><a href='#about'>О программе</a></li>
  1.1314 -	</ul>
  1.1315 -	</td>
  1.1316 -	</tr>
  1.1317 -	</table>
  1.1318 +    my $toc = collapse_list (\@toc);
  1.1319 +    $Result{"header"} .= <<HEADER;
  1.1320 +    <table border=0 id='toc' class='toc'>
  1.1321 +    <tr>
  1.1322 +    <td>
  1.1323 +    <div class='toc_title'>Содержание</div>
  1.1324 +    <ul>
  1.1325 +        <li><a href='#log'>Журнал</a></li>
  1.1326 +        <ul>$toc</ul>
  1.1327 +        <li><a href='#stat'>Статистика</a></li>
  1.1328 +        <li><a href='#help'>Справка</a></li>
  1.1329 +        <li><a href='#about'>О программе</a></li>
  1.1330 +    </ul>
  1.1331 +    </td>
  1.1332 +    </tr>
  1.1333 +    </table>
  1.1334  
  1.1335 -	<h2 id="log">Журнал</h2>
  1.1336 +    <h2 id="log">Журнал</h2>
  1.1337  HEADER
  1.1338 -	$Result{"header"} .= "<table id='visibility_form' class='visibility_form'><tr><td><form>\n";
  1.1339 -	for my $element (keys %Elements_Visibility)
  1.1340 -	{
  1.1341 -		my @e = split /\s+/, $element;
  1.1342 -		my $showhide = join "", map { "ShowHide('$_');" } @e ;
  1.1343 -		$Result{"header"} .= "<input type='checkbox' name='$e[0]' onclick=\"$showhide\" checked>".
  1.1344 -				$Elements_Visibility{$element}.
  1.1345 -				"</input><br>\n";
  1.1346 -	}
  1.1347 +    $Result{"header"} .= "<table id='visibility_form' class='visibility_form'><tr><td><form>\n";
  1.1348 +    for my $element (keys %Elements_Visibility)
  1.1349 +    {
  1.1350 +        my @e = split /\s+/, $element;
  1.1351 +        my $showhide = join "", map { "ShowHide('$_');" } @e ;
  1.1352 +        $Result{"header"} .= "<input type='checkbox' name='$e[0]' onclick=\"$showhide\" checked>".
  1.1353 +                $Elements_Visibility{$element}.
  1.1354 +                "</input><br>\n";
  1.1355 +    }
  1.1356  
  1.1357 -	$Result{"header"} .= "</form></td></tr></table>\n";
  1.1358 +    $Result{"header"} .= "</form></td></tr></table>\n";
  1.1359  
  1.1360 -	if ($output_filename eq "-") {
  1.1361 -		print $Result{"header"}, $Result{"body"}, $Result{"stat"}, $Result{"help"}, $Result{"about"}, $Result{"footer"};
  1.1362 -	}
  1.1363 -	else {
  1.1364 -		open(OUT, ">", $output_filename)
  1.1365 -			or die "Can't open $output_filename for writing\n";
  1.1366 -		print OUT $Result{"header"}, $Result{"body"}, $Result{"stat"}, $Result{"help"}, $Result{"about"}, $Result{"footer"};
  1.1367 -		close(OUT);
  1.1368 -	}
  1.1369 +    if ($output_filename eq "-") {
  1.1370 +        print $Result{"header"}, $Result{"body"}, $Result{"stat"}, $Result{"help"}, $Result{"about"}, $Result{"footer"};
  1.1371 +    }
  1.1372 +    else {
  1.1373 +        open(OUT, ">", $output_filename)
  1.1374 +            or die "Can't open $output_filename for writing\n";
  1.1375 +        print OUT $Result{"header"}, $Result{"body"}, $Result{"stat"}, $Result{"help"}, $Result{"about"}, $Result{"footer"};
  1.1376 +        close(OUT);
  1.1377 +    }
  1.1378  }
  1.1379  
  1.1380  
  1.1381  
  1.1382  sub collapse_list($)
  1.1383  {
  1.1384 -	my $res = "";
  1.1385 -	for my $elem (@{$_[0]}) {
  1.1386 -		if (ref $elem eq "ARRAY") {
  1.1387 -			$res .= "<ul>".collapse_list($elem)."</ul>";
  1.1388 -		}
  1.1389 -		else
  1.1390 -		{
  1.1391 -			$res .= "<li>".$elem."</li>";
  1.1392 -		}
  1.1393 -	}
  1.1394 -	return $res;
  1.1395 +    my $res = "";
  1.1396 +    for my $elem (@{$_[0]}) {
  1.1397 +        if (ref $elem eq "ARRAY") {
  1.1398 +            $res .= "<ul>".collapse_list($elem)."</ul>";
  1.1399 +        }
  1.1400 +        else
  1.1401 +        {
  1.1402 +            $res .= "<li>".$elem."</li>";
  1.1403 +        }
  1.1404 +    }
  1.1405 +    return $res;
  1.1406  }
  1.1407  
  1.1408  
  1.1409 @@ -822,24 +822,24 @@
  1.1410  sub init_variables
  1.1411  {
  1.1412  $Html_Help = <<HELP;
  1.1413 -	Для того чтобы использовать LiLaLo, не нужно знать ничего особенного:
  1.1414 -	всё происходит само собой.
  1.1415 -	Однако, чтобы ведение и последующее использование журналов
  1.1416 -	было как можно более эффективным, желательно иметь в виду следующее:
  1.1417 -	<ul>
  1.1418 -	<li><p> 
  1.1419 -	В журнал автоматически попадают все команды, данные в любом терминале системы.
  1.1420 -	</p></li>
  1.1421 -	<li><p>
  1.1422 -	Для того чтобы убедиться, что журнал на текущем терминале ведётся, 
  1.1423 -	и команды записываются, дайте команду w.
  1.1424 -	В поле WHAT, соответствующем текущему терминалу, 
  1.1425 -	должна быть указана программа script.
  1.1426 -	</p></li>
  1.1427 -	<li><p>
  1.1428 -	Если код завершения команды равен нулю, 
  1.1429 -	команда была выполнена без ошибок.
  1.1430 -	Команды, код завершения которых отличен от нуля, выделяются цветом.
  1.1431 +    Для того чтобы использовать LiLaLo, не нужно знать ничего особенного:
  1.1432 +    всё происходит само собой.
  1.1433 +    Однако, чтобы ведение и последующее использование журналов
  1.1434 +    было как можно более эффективным, желательно иметь в виду следующее:
  1.1435 +    <ul>
  1.1436 +    <li><p> 
  1.1437 +    В журнал автоматически попадают все команды, данные в любом терминале системы.
  1.1438 +    </p></li>
  1.1439 +    <li><p>
  1.1440 +    Для того чтобы убедиться, что журнал на текущем терминале ведётся, 
  1.1441 +    и команды записываются, дайте команду w.
  1.1442 +    В поле WHAT, соответствующем текущему терминалу, 
  1.1443 +    должна быть указана программа script.
  1.1444 +    </p></li>
  1.1445 +    <li><p>
  1.1446 +    Если код завершения команды равен нулю, 
  1.1447 +    команда была выполнена без ошибок.
  1.1448 +    Команды, код завершения которых отличен от нуля, выделяются цветом.
  1.1449  <table>
  1.1450  <tr class='command'>
  1.1451  <td class='script'>
  1.1452 @@ -851,9 +851,9 @@
  1.1453  </tr>
  1.1454  </table>
  1.1455  <br/>
  1.1456 -	</p></li>
  1.1457 -	<li><p>
  1.1458 -	Команды, ход выполнения которых был прерван пользователем, выделяются цветом.
  1.1459 +    </p></li>
  1.1460 +    <li><p>
  1.1461 +    Команды, ход выполнения которых был прерван пользователем, выделяются цветом.
  1.1462  <table>
  1.1463  <tr class='command'>
  1.1464  <td class='script'>
  1.1465 @@ -870,10 +870,10 @@
  1.1466  </tr>
  1.1467  </table>
  1.1468  <br/>
  1.1469 -	</p></li>
  1.1470 -	<li><p>
  1.1471 -	Команды, выполненные с привилегиями суперпользователя,
  1.1472 -	выделяются слева красной чертой.
  1.1473 +    </p></li>
  1.1474 +    <li><p>
  1.1475 +    Команды, выполненные с привилегиями суперпользователя,
  1.1476 +    выделяются слева красной чертой.
  1.1477  <table>
  1.1478  <tr class='command'>
  1.1479  <td class='script'>
  1.1480 @@ -885,33 +885,33 @@
  1.1481  </td>
  1.1482  </tr>
  1.1483  </table>
  1.1484 -	<br/>
  1.1485 -	</p></li>
  1.1486 -	<li><p>
  1.1487 -	Изменения, внесённые в текстовый файл с помощью редактора, 
  1.1488 -	запоминаются и показываются в журнале в формате ed.
  1.1489 -	Строки, начинающиеся символом "&lt;", удалены, а строки,
  1.1490 -	начинающиеся символом "&gt;" -- добавлены.
  1.1491 +    <br/>
  1.1492 +    </p></li>
  1.1493 +    <li><p>
  1.1494 +    Изменения, внесённые в текстовый файл с помощью редактора, 
  1.1495 +    запоминаются и показываются в журнале в формате ed.
  1.1496 +    Строки, начинающиеся символом "&lt;", удалены, а строки,
  1.1497 +    начинающиеся символом "&gt;" -- добавлены.
  1.1498  <table>
  1.1499  <tr class='command'>
  1.1500  <td class='script'>
  1.1501  <pre class='cline'>
  1.1502  \$ vi ~/.bashrc</pre>
  1.1503  <table><tr><td width='5'/><td class='diff'><pre>2a3,5
  1.1504 -&gt; 	if [ -f /usr/local/etc/bash_completion ]; then
  1.1505 +&gt;    if [ -f /usr/local/etc/bash_completion ]; then
  1.1506  &gt;         . /usr/local/etc/bash_completion
  1.1507 -&gt;     	fi
  1.1508 +&gt;        fi
  1.1509  </pre></td></tr></table></td>
  1.1510  </tr>
  1.1511  </table>
  1.1512 -	<br/>
  1.1513 -	</p></li>
  1.1514 -	<li><p>
  1.1515 -	Для того чтобы изменить файл в соответствии с показанными в диффшоте
  1.1516 -	изменениями, можно воспользоваться командой patch.
  1.1517 -	Нужно скопировать изменения, запустить программу patch, указав в
  1.1518 -	качестве её аргумента файл, к которому применяются изменения,
  1.1519 -	и всавить скопированный текст:
  1.1520 +    <br/>
  1.1521 +    </p></li>
  1.1522 +    <li><p>
  1.1523 +    Для того чтобы изменить файл в соответствии с показанными в диффшоте
  1.1524 +    изменениями, можно воспользоваться командой patch.
  1.1525 +    Нужно скопировать изменения, запустить программу patch, указав в
  1.1526 +    качестве её аргумента файл, к которому применяются изменения,
  1.1527 +    и всавить скопированный текст:
  1.1528  <table>
  1.1529  <tr class='command'>
  1.1530  <td class='script'>
  1.1531 @@ -920,35 +920,35 @@
  1.1532  </td>
  1.1533  </tr>
  1.1534  </table>
  1.1535 -	В данном случае изменения применяются к файлу ~/.bashrc
  1.1536 -	</p></li>
  1.1537 -	<li><p>
  1.1538 -	Для того чтобы получить краткую справочную информацию о команде, 
  1.1539 -	нужно подвести к ней мышь. Во всплывающей подсказке появится краткое
  1.1540 -	описание команды.
  1.1541 -	</p></li>
  1.1542 -	<li><p>
  1.1543 -	Время ввода команды, показанное в журнале, соответствует времени 
  1.1544 -	<i>начала ввода командной строки</i>, которое равно тому моменту, 
  1.1545 -	когда на терминале появилось приглашение интерпретатора
  1.1546 -	</p></li>
  1.1547 -	<li><p>
  1.1548 -	Имя терминала, на котором была введена команда, показано в специальном блоке.
  1.1549 -	Этот блок показывается только в том случае, если терминал
  1.1550 -	текущей команды отличается от терминала предыдущей.
  1.1551 -	</p></li>
  1.1552 -	<li><p>
  1.1553 -	Вывод не интересующих вас в настоящий момент элементов журнала,
  1.1554 -	таких как время, имя терминала и других, можно отключить.
  1.1555 -	Для этого нужно воспользоваться <a href='#visibility_form'>формой управления журналом</a>
  1.1556 -	вверху страницы.
  1.1557 -	</p></li>
  1.1558 -	<li><p>
  1.1559 -	Небольшие комментарии к командам можно вставлять прямо из командной строки.
  1.1560 -	Комментарий вводится прямо в командную строку, после символов #^ или #v.
  1.1561 -	Символы ^ и v показывают направление выбора команды, к которой относится комментарий:
  1.1562 -	^ - к предыдущей, v - к следующей.
  1.1563 -	Например, если в командной строке было введено:
  1.1564 +    В данном случае изменения применяются к файлу ~/.bashrc
  1.1565 +    </p></li>
  1.1566 +    <li><p>
  1.1567 +    Для того чтобы получить краткую справочную информацию о команде, 
  1.1568 +    нужно подвести к ней мышь. Во всплывающей подсказке появится краткое
  1.1569 +    описание команды.
  1.1570 +    </p></li>
  1.1571 +    <li><p>
  1.1572 +    Время ввода команды, показанное в журнале, соответствует времени 
  1.1573 +    <i>начала ввода командной строки</i>, которое равно тому моменту, 
  1.1574 +    когда на терминале появилось приглашение интерпретатора
  1.1575 +    </p></li>
  1.1576 +    <li><p>
  1.1577 +    Имя терминала, на котором была введена команда, показано в специальном блоке.
  1.1578 +    Этот блок показывается только в том случае, если терминал
  1.1579 +    текущей команды отличается от терминала предыдущей.
  1.1580 +    </p></li>
  1.1581 +    <li><p>
  1.1582 +    Вывод не интересующих вас в настоящий момент элементов журнала,
  1.1583 +    таких как время, имя терминала и других, можно отключить.
  1.1584 +    Для этого нужно воспользоваться <a href='#visibility_form'>формой управления журналом</a>
  1.1585 +    вверху страницы.
  1.1586 +    </p></li>
  1.1587 +    <li><p>
  1.1588 +    Небольшие комментарии к командам можно вставлять прямо из командной строки.
  1.1589 +    Комментарий вводится прямо в командную строку, после символов #^ или #v.
  1.1590 +    Символы ^ и v показывают направление выбора команды, к которой относится комментарий:
  1.1591 +    ^ - к предыдущей, v - к следующей.
  1.1592 +    Например, если в командной строке было введено:
  1.1593  <pre class='cline'>
  1.1594  \$ whoami
  1.1595  </pre>
  1.1596 @@ -958,8 +958,8 @@
  1.1597  <pre class='cline'>
  1.1598  \$ #^ Интересно, кто я?
  1.1599  </pre>
  1.1600 -	в журнале это будет выглядеть так:
  1.1601 -	
  1.1602 +    в журнале это будет выглядеть так:
  1.1603 +    
  1.1604  <pre class='cline'>
  1.1605  \$ whoami
  1.1606  </pre>
  1.1607 @@ -968,10 +968,10 @@
  1.1608  </pre>
  1.1609  <table class='note'><tr><td width='100%' class='note_text'>
  1.1610  <tr> <td> Интересно, кто я?<br/> </td></tr></table> 
  1.1611 -	</p></li>
  1.1612 -	<li><p>
  1.1613 -	Если комментарий содержит несколько строк,
  1.1614 -	его можно вставить в журнал следующим образом:
  1.1615 +    </p></li>
  1.1616 +    <li><p>
  1.1617 +    Если комментарий содержит несколько строк,
  1.1618 +    его можно вставить в журнал следующим образом:
  1.1619  <pre class='cline'>
  1.1620  \$ whoami
  1.1621  </pre>
  1.1622 @@ -988,7 +988,7 @@
  1.1623  Она не может ответить на вопрос о нашем назначении 
  1.1624  в этом мире.
  1.1625  </pre>
  1.1626 -	В журнале это будет выглядеть так:
  1.1627 +    В журнале это будет выглядеть так:
  1.1628  <table>
  1.1629  <tr class='command'>
  1.1630  <td class='script'>
  1.1631 @@ -1006,103 +1006,103 @@
  1.1632  </td>
  1.1633  </tr>
  1.1634  </table>
  1.1635 -	Для разделения нескольких абзацев между собой
  1.1636 -	используйте символ "-", один в строке.
  1.1637 -	<br/>
  1.1638 +    Для разделения нескольких абзацев между собой
  1.1639 +    используйте символ "-", один в строке.
  1.1640 +    <br/>
  1.1641  </p></li>
  1.1642 -	<li><p>
  1.1643 -	Комментарии, не относящиеся непосредственно ни к какой из команд, 
  1.1644 -	добавляются точно таким же способом, только вместо симолов #^ или #v 
  1.1645 -	нужно использовать символы #=
  1.1646 -	</p></li>
  1.1647 +    <li><p>
  1.1648 +    Комментарии, не относящиеся непосредственно ни к какой из команд, 
  1.1649 +    добавляются точно таким же способом, только вместо симолов #^ или #v 
  1.1650 +    нужно использовать символы #=
  1.1651 +    </p></li>
  1.1652  </ul>
  1.1653  HELP
  1.1654  
  1.1655  $Html_About = <<ABOUT;
  1.1656 -	<p>
  1.1657 -	LiLaLo (L3) расшифровывается как Live Lab Log.<br/>
  1.1658 -	Программа разработана для повышения эффективности обучения Unix/Linux-системам.<br/>
  1.1659 -	(c) Игорь Чубин, 2004-2005<br/>
  1.1660 -	</p>
  1.1661 +    <p>
  1.1662 +    LiLaLo (L3) расшифровывается как Live Lab Log.<br/>
  1.1663 +    Программа разработана для повышения эффективности обучения Unix/Linux-системам.<br/>
  1.1664 +    (c) Игорь Чубин, 2004-2005<br/>
  1.1665 +    </p>
  1.1666  ABOUT
  1.1667  $Html_About.='$Id$ </p>';
  1.1668  
  1.1669  $Html_JavaScript = <<JS;
  1.1670 -	function getElementsByClassName(Class_Name)
  1.1671 -	{
  1.1672 -		var Result=new Array();
  1.1673 -		var All_Elements=document.all || document.getElementsByTagName('*');
  1.1674 -		for (i=0; i<All_Elements.length; i++)
  1.1675 -			if (All_Elements[i].className==Class_Name)
  1.1676 -		Result.push(All_Elements[i]);
  1.1677 -		return Result;
  1.1678 -	}
  1.1679 -	function ShowHide (name)
  1.1680 -	{
  1.1681 -		elements=getElementsByClassName(name);
  1.1682 -		for(i=0; i<elements.length; i++)
  1.1683 -			if (elements[i].style.display == "none")
  1.1684 -				elements[i].style.display = "";
  1.1685 -			else
  1.1686 -				elements[i].style.display = "none";
  1.1687 -			//if (elements[i].style.visibility == "hidden")
  1.1688 -			//	elements[i].style.visibility = "visible";
  1.1689 -			//else
  1.1690 -			//	elements[i].style.visibility = "hidden";
  1.1691 -	}
  1.1692 -	function filter_by_output(text)
  1.1693 -	{
  1.1694 -		
  1.1695 -		var jjj=0;
  1.1696 -		
  1.1697 -		elements=getElementsByClassName('command');
  1.1698 -		for(i=0; i<elements.length; i++) {
  1.1699 -			subelems = elements[i].getElementsByTagName('pre');
  1.1700 -			for(j=0; j<subelems.length; j++) {
  1.1701 -				if (subelems[j].className = 'output') {
  1.1702 -					var str = new String(subelems[j].nodeValue);
  1.1703 -					if (jjj != 1) { 
  1.1704 -						alert(str);
  1.1705 -						jjj=1;
  1.1706 -					}
  1.1707 -					if (str.indexOf(text) >0) 
  1.1708 -						subelems[j].style.display = "none";
  1.1709 -					else
  1.1710 -						subelems[j].style.display = "";
  1.1711 +    function getElementsByClassName(Class_Name)
  1.1712 +    {
  1.1713 +        var Result=new Array();
  1.1714 +        var All_Elements=document.all || document.getElementsByTagName('*');
  1.1715 +        for (i=0; i<All_Elements.length; i++)
  1.1716 +            if (All_Elements[i].className==Class_Name)
  1.1717 +        Result.push(All_Elements[i]);
  1.1718 +        return Result;
  1.1719 +    }
  1.1720 +    function ShowHide (name)
  1.1721 +    {
  1.1722 +        elements=getElementsByClassName(name);
  1.1723 +        for(i=0; i<elements.length; i++)
  1.1724 +            if (elements[i].style.display == "none")
  1.1725 +                elements[i].style.display = "";
  1.1726 +            else
  1.1727 +                elements[i].style.display = "none";
  1.1728 +            //if (elements[i].style.visibility == "hidden")
  1.1729 +            //  elements[i].style.visibility = "visible";
  1.1730 +            //else
  1.1731 +            //  elements[i].style.visibility = "hidden";
  1.1732 +    }
  1.1733 +    function filter_by_output(text)
  1.1734 +    {
  1.1735 +        
  1.1736 +        var jjj=0;
  1.1737 +        
  1.1738 +        elements=getElementsByClassName('command');
  1.1739 +        for(i=0; i<elements.length; i++) {
  1.1740 +            subelems = elements[i].getElementsByTagName('pre');
  1.1741 +            for(j=0; j<subelems.length; j++) {
  1.1742 +                if (subelems[j].className = 'output') {
  1.1743 +                    var str = new String(subelems[j].nodeValue);
  1.1744 +                    if (jjj != 1) { 
  1.1745 +                        alert(str);
  1.1746 +                        jjj=1;
  1.1747 +                    }
  1.1748 +                    if (str.indexOf(text) >0) 
  1.1749 +                        subelems[j].style.display = "none";
  1.1750 +                    else
  1.1751 +                        subelems[j].style.display = "";
  1.1752  
  1.1753 -				}
  1.1754 -					
  1.1755 -			}
  1.1756 -		}		
  1.1757 +                }
  1.1758 +                    
  1.1759 +            }
  1.1760 +        }       
  1.1761  
  1.1762 -	}
  1.1763 +    }
  1.1764  JS
  1.1765  
  1.1766  %Search_Machines = (
  1.1767 -		"google" => 	{ 	"query" => 	"http://www.google.com/search?q=" ,
  1.1768 -					"icon" 	=> 	"$Config{frontend_google_ico}" },
  1.1769 -		"freebsd" => 	{ 	"query" => 	"http://www.freebsd.org/cgi/man.cgi?query=",
  1.1770 -					"icon"	=>	"$Config{frontend_freebsd_ico}" },
  1.1771 -		"linux"  => 	{ 	"query" => 	"http://man.he.net/?topic=",
  1.1772 -					"icon"	=>	"$Config{frontend_linux_ico}"},
  1.1773 -		"opennet"  => 	{ 	"query" => 	"http://www.opennet.ru/search.shtml?words=",
  1.1774 -					"icon"	=>	"$Config{frontend_opennet_ico}"},
  1.1775 -		"local" => 	{ 	"query" => 	"http://www.freebsd.org/cgi/man.cgi?query=",
  1.1776 -					"icon"	=>	"$Config{frontend_local_ico}" },
  1.1777 +        "google" =>     {   "query" =>  "http://www.google.com/search?q=" ,
  1.1778 +                    "icon"  =>  "$Config{frontend_google_ico}" },
  1.1779 +        "freebsd" =>    {   "query" =>  "http://www.freebsd.org/cgi/man.cgi?query=",
  1.1780 +                    "icon"  =>  "$Config{frontend_freebsd_ico}" },
  1.1781 +        "linux"  =>     {   "query" =>  "http://man.he.net/?topic=",
  1.1782 +                    "icon"  =>  "$Config{frontend_linux_ico}"},
  1.1783 +        "opennet"  =>   {   "query" =>  "http://www.opennet.ru/search.shtml?words=",
  1.1784 +                    "icon"  =>  "$Config{frontend_opennet_ico}"},
  1.1785 +        "local" =>  {   "query" =>  "http://www.freebsd.org/cgi/man.cgi?query=",
  1.1786 +                    "icon"  =>  "$Config{frontend_local_ico}" },
  1.1787  
  1.1788 -	);
  1.1789 +    );
  1.1790  
  1.1791  %Elements_Visibility = (
  1.1792 -		"note"		=>	"замечания",
  1.1793 -		"diff"		=>	"редактор",
  1.1794 -		"time"		=>	"время",
  1.1795 -		"ttychange" 	=>	"терминал",
  1.1796 -		"wrong_output wrong_cline wrong_root_output wrong_root_cline" 
  1.1797 -				=>	"команды с ошибками",
  1.1798 -		"interrupted_output interrupted_cline interrupted_root_output interrupted_root_cline" 
  1.1799 -				=>	"прерванные команды",
  1.1800 -		"tab_completion_output tab_completion_cline"	
  1.1801 -				=> 	"продолжение с помощью tab"
  1.1802 +        "note"      =>  "замечания",
  1.1803 +        "diff"      =>  "редактор",
  1.1804 +        "time"      =>  "время",
  1.1805 +        "ttychange"     =>  "терминал",
  1.1806 +        "wrong_output wrong_cline wrong_root_output wrong_root_cline" 
  1.1807 +                =>  "команды с ошибками",
  1.1808 +        "interrupted_output interrupted_cline interrupted_root_output interrupted_root_cline" 
  1.1809 +                =>  "прерванные команды",
  1.1810 +        "tab_completion_output tab_completion_cline"    
  1.1811 +                =>  "продолжение с помощью tab"
  1.1812  );
  1.1813  
  1.1814  @Day_Name      = qw/ Воскресенье Понедельник Вторник Среда Четверг Пятница Суббота /;