# HG changeset patch
# User devi
# Date 1133714661 -7200
# Node ID d021553f4e9880082538ff2a2b00e6f9b6a6d944
# Parent  568bab7090fc349ce2e9c4bb67d809e8a18e810f
Tabs expanded

diff -r 568bab7090fc -r d021553f4e98 l3-frontend
--- a/l3-frontend	Sat Nov 26 16:15:52 2005 +0200
+++ b/l3-frontend	Sun Dec 04 18:44:21 2005 +0200
@@ -21,7 +21,7 @@
 # ^^^
 
 our %Stat;
-our %CommandsFDistribution;	# Сколько раз в журнале встречается какая команда
+our %CommandsFDistribution; # Сколько раз в журнале встречается какая команда
 
 sub search_buy;
 sub make_comment;
@@ -38,163 +38,163 @@
 
 sub main
 {
-	$| = 1;
+    $| = 1;
 
-	init_variables();
-	init_config();
+    init_variables();
+    init_config();
 
-	open_mywi_socket();
-	load_command_lines_from_xml($Config{"backend_datafile"});
-	load_sessions_from_xml($Config{"backend_datafile"});
-	sort_command_lines;
-	process_command_lines;
-	print_command_lines($Config{"output"});
-	close_mywi_socket;
+    open_mywi_socket();
+    load_command_lines_from_xml($Config{"backend_datafile"});
+    load_sessions_from_xml($Config{"backend_datafile"});
+    sort_command_lines;
+    process_command_lines;
+    print_command_lines($Config{"output"});
+    close_mywi_socket;
 }
 
 
 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>";
+    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>";
 }
 
 sub extract_from_cline
 # Разобрать командную строку $_[1] и возвратить хэш, содержащий 
 # номер первого появление команды в строке:
-# 	команда => первая позиция
+#   команда => первая позиция
 {
-	my $what = $_[0];
-	my $cline = $_[1];
-	my @lists = split /\;/, $cline;
-	
-	
-	my @commands = ();
-	for my $list (@lists) {
-		push @commands, split /\|/, $list;
-	}
+    my $what = $_[0];
+    my $cline = $_[1];
+    my @lists = split /\;/, $cline;
+    
+    
+    my @commands = ();
+    for my $list (@lists) {
+        push @commands, split /\|/, $list;
+    }
 
-	my %commands;
-	my %args;
-	my $i=0;
-	for my $command (@commands) {
-		$command =~ s@^\s*\S+/@@;
-		$command =~ /\s*(\S+)\s*(.*)/;
-		if ($1 && $1 eq "sudo" ) {
-			$commands{"$1"}=$i++;
-			$command =~ s/\s*sudo\s+//;
-		}
-		$command =~ s@^\s*\S+/@@;
-		$command =~ /\s*(\S+)\s*(.*)/;
-		if ($1 && !defined $commands{"$1"}) {
-				$commands{"$1"}=$i++;
-		};	
-		if ($2) {
-			my $args = $2;
-			my @args = split (/\s+/, $args);
-			for my $a (@args) {
-				$args{"$a"}=$i++
-					if !defined $args{"$a"};
-			};	
+    my %commands;
+    my %args;
+    my $i=0;
+    for my $command (@commands) {
+        $command =~ s@^\s*\S+/@@;
+        $command =~ /\s*(\S+)\s*(.*)/;
+        if ($1 && $1 eq "sudo" ) {
+            $commands{"$1"}=$i++;
+            $command =~ s/\s*sudo\s+//;
+        }
+        $command =~ s@^\s*\S+/@@;
+        $command =~ /\s*(\S+)\s*(.*)/;
+        if ($1 && !defined $commands{"$1"}) {
+                $commands{"$1"}=$i++;
+        };  
+        if ($2) {
+            my $args = $2;
+            my @args = split (/\s+/, $args);
+            for my $a (@args) {
+                $args{"$a"}=$i++
+                    if !defined $args{"$a"};
+            };  
 
-				
-		}
-	}
+                
+        }
+    }
 
-	if ($what eq "commands") {
-		return \%commands;
-	} else {
-		return \%args;
-	}
-	
+    if ($what eq "commands") {
+        return \%commands;
+    } else {
+        return \%args;
+    }
+    
 }
 
 sub open_mywi_socket
 {
-	$Mywi_Socket = IO::Socket::INET->new(
-				PeerAddr => $Config{mywi_server},
-				PeerPort => $Config{mywi_port},
-				Proto	 => "tcp",
-				Type	 => SOCK_STREAM);
+    $Mywi_Socket = IO::Socket::INET->new(
+                PeerAddr => $Config{mywi_server},
+                PeerPort => $Config{mywi_port},
+                Proto    => "tcp",
+                Type     => SOCK_STREAM);
 }
 
 sub close_mywi_socket
 {
-	close ($Mywi_Socket);
+    close ($Mywi_Socket);
 }
 
 
 sub mywi_client
 {
-	my $query = $_[0];
-	my $mywi;
+    my $query = $_[0];
+    my $mywi;
 
-	open_mywi_socket;
-	if ($Mywi_Socket) {
-		local $| = 1;
-		local $/ = "";
-		print $Mywi_Socket $query."\n";
-		$mywi = <$Mywi_Socket>;
-		$mywi = "" if $mywi =~ /nothing app/;
-	}
-	close_mywi_socket;
-	return $mywi;
+    open_mywi_socket;
+    if ($Mywi_Socket) {
+        local $| = 1;
+        local $/ = "";
+        print $Mywi_Socket $query."\n";
+        $mywi = <$Mywi_Socket>;
+        $mywi = "" if $mywi =~ /nothing app/;
+    }
+    close_mywi_socket;
+    return $mywi;
 }
 
 sub make_comment
 {
-	my $cline = $_[0];
-	#my $files = $_[1];
+    my $cline = $_[0];
+    #my $files = $_[1];
 
-	my @comments=(); 
-	my @commands = keys %{extract_from_cline("commands", $cline)};
-	my @args = keys %{extract_from_cline("args", $cline)};
-	return if (!@commands && !@args);
-	#return "commands=".join(" ",@commands)."; files=".join(" ",@files);
+    my @comments=(); 
+    my @commands = keys %{extract_from_cline("commands", $cline)};
+    my @args = keys %{extract_from_cline("args", $cline)};
+    return if (!@commands && !@args);
+    #return "commands=".join(" ",@commands)."; files=".join(" ",@files);
 
-	# Commands
-	for my $command (@commands) {
-		$command =~ s/'//g;
-		$CommandsFDistribution{$command}++;
-		if (!$Commands_Description{$command}) {
-			my $mywi="";
-			$mywi = mywi_client ($command);
-			$mywi = join ("\n", grep(/\([18]\)/, split(/\n/, $mywi)));
-			$mywi =~ s/\s+/ /;
-			if ($mywi !~ /^\s*$/) {
-				$Commands_Description{$command} = $mywi;
-			}
-			else {
-				next;
-			}
-		}
+    # Commands
+    for my $command (@commands) {
+        $command =~ s/'//g;
+        $CommandsFDistribution{$command}++;
+        if (!$Commands_Description{$command}) {
+            my $mywi="";
+            $mywi = mywi_client ($command);
+            $mywi = join ("\n", grep(/\([18]\)/, split(/\n/, $mywi)));
+            $mywi =~ s/\s+/ /;
+            if ($mywi !~ /^\s*$/) {
+                $Commands_Description{$command} = $mywi;
+            }
+            else {
+                next;
+            }
+        }
 
-		push @comments, $Commands_Description{$command};
-	}
-	return join("&#10;\n", @comments);
-	
-	# Files
-	for my $arg (@args) {
-		$arg =~ s/'//g;
-		if (!$Args_Description{$arg}) {
-			my $mywi;
-			$mywi = mywi_client ($arg);
-			$mywi = join ("\n", grep(/\([5]\)/, split(/\n/, $mywi)));
-			$mywi =~ s/\s+/ /;
-			if ($mywi !~ /^\s*$/) {
-				$Args_Description{$arg} = $mywi;
-			}
-			else {
-				next;
-			}
-		}
+        push @comments, $Commands_Description{$command};
+    }
+    return join("&#10;\n", @comments);
+    
+    # Files
+    for my $arg (@args) {
+        $arg =~ s/'//g;
+        if (!$Args_Description{$arg}) {
+            my $mywi;
+            $mywi = mywi_client ($arg);
+            $mywi = join ("\n", grep(/\([5]\)/, split(/\n/, $mywi)));
+            $mywi =~ s/\s+/ /;
+            if ($mywi !~ /^\s*$/) {
+                $Args_Description{$arg} = $mywi;
+            }
+            else {
+                next;
+            }
+        }
 
-		push @comments, $Args_Description{$arg};
-	}
+        push @comments, $Args_Description{$arg};
+    }
 
 }
 
@@ -209,157 +209,157 @@
 =cut
 sub load_command_lines_from_xml
 {
-	my $datafile = $_[0];
+    my $datafile = $_[0];
 
-	open (CLASS, $datafile)
-		or die "Can't open file of the class ",$datafile,"\n";
-	local $/;
-	$data = <CLASS>;
-	close(CLASS);
+    open (CLASS, $datafile)
+        or die "Can't open file of the class ",$datafile,"\n";
+    local $/;
+    $data = <CLASS>;
+    close(CLASS);
 
-	for $command ($data =~ m@<command>(.*?)</command>@sg) {
-		my %cl;
-		while ($command =~ m@<([^>]*?)>(.*?)</\1>@sg) {
-			$cl{$1} = $2;
-		}
-		push @Command_Lines, \%cl;
-	}
+    for $command ($data =~ m@<command>(.*?)</command>@sg) {
+        my %cl;
+        while ($command =~ m@<([^>]*?)>(.*?)</\1>@sg) {
+            $cl{$1} = $2;
+        }
+        push @Command_Lines, \%cl;
+    }
 }
 
 sub load_sessions_from_xml
 {
-	my $datafile = $_[0];
+    my $datafile = $_[0];
 
-	open (CLASS, $datafile)
-		or die "Can't open file of the class ",$datafile,"\n";
-	local $/;
-	my $data = <CLASS>;
-	close(CLASS);
+    open (CLASS, $datafile)
+        or die "Can't open file of the class ",$datafile,"\n";
+    local $/;
+    my $data = <CLASS>;
+    close(CLASS);
 
-	for my $session ($data =~ m@<session>(.*?)</session>@sg) {
-		my %session;
-		while ($session =~ m@<([^>]*?)>(.*?)</\1>@sg) {
-			$session{$1} = $2;
-		}
-		$Sessions{$session{local_session_id}} = \%session;
-	}
+    for my $session ($data =~ m@<session>(.*?)</session>@sg) {
+        my %session;
+        while ($session =~ m@<([^>]*?)>(.*?)</\1>@sg) {
+            $session{$1} = $2;
+        }
+        $Sessions{$session{local_session_id}} = \%session;
+    }
 }
 
 
 
 sub sort_command_lines
 {
-	# Sort Command_Lines
-	# Write Command_Lines to Command_Lines_Index
+    # Sort Command_Lines
+    # Write Command_Lines to Command_Lines_Index
 
-	my @index;
-	for (my $i=0;$i<=$#Command_Lines;$i++) {
-		$index[$i]=$i;
-	}
+    my @index;
+    for (my $i=0;$i<=$#Command_Lines;$i++) {
+        $index[$i]=$i;
+    }
 
-	@Command_Lines_Index = sort {
-		$Command_Lines[$index[$a]]->{"time"} <=> $Command_Lines[$index[$b]]->{"time"}
-	} @index;
+    @Command_Lines_Index = sort {
+        $Command_Lines[$index[$a]]->{"time"} <=> $Command_Lines[$index[$b]]->{"time"}
+    } @index;
 
 }
 
 sub process_command_lines
 {
-	for my $i (@Command_Lines_Index) {
+    for my $i (@Command_Lines_Index) {
 
-		my $cl = \$Command_Lines[$i];
-		#@{${$cl}->{"new_commands"}} =();
-		#@{${$cl}->{"new_files"}} =();
-		$$cl->{"class"} = ""; 
+        my $cl = \$Command_Lines[$i];
+        #@{${$cl}->{"new_commands"}} =();
+        #@{${$cl}->{"new_files"}} =();
+        $$cl->{"class"} = ""; 
 
-		if ($$cl->{"err"}) {
-			$$cl->{"class"}="wrong";
-			$$cl->{"class"}="interrupted"
-				if ($$cl->{"err"} eq 130);
-		}	
-		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;
+        if ($$cl->{"err"}) {
+            $$cl->{"class"}="wrong";
+            $$cl->{"class"}="interrupted"
+                if ($$cl->{"err"} eq 130);
+        }   
+        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;
-		
+#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"});
+#       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}++;
-#			}
-#		}	
+#           # 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}++;
+#           }
+#       }   
 
-		if ($$cl->{cline}=~ m@cat[^#]*#([\^=v])\s*(.*)@) {
-			if ($1 eq "=") {
-				$$cl->{"class"} = "note";
-				$$cl->{"note"} = $$cl->{"output"};
-				$$cl->{"note_title"} = $2;
-			}
-			else {
-				my $j = $i;
-				if ($1 eq "^") {
-					$j--;
-					$j-- while ($j >=0  && (!$Command_Lines[$j] || $Command_Lines[$j]->{tty} ne $$cl->{tty}));
-				}
-				elsif ($1 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};
-				$$cl=0;
-			}
-		}
-		elsif ($$cl->{cline}=~ /#([\^=v])(.*)/) {
-			if ($1 eq "=") {
-				$$cl->{"class"} = "note";
-				$$cl->{"note"} = $2;
-			}
-			else {
-				my $j=$i;
-				if ($1 eq "^") {
-					$j--;
-					$j-- while ($j >=0  && (!$Command_Lines[$j] || $Command_Lines[$j]->{tty} ne $$cl->{tty}));
-				}
-				elsif ($1 eq "v") {
-					$j++;
-					$j++ while ($j <= @Command_Lines  && $Command_Lines[$j]->{tty} ne $$cl->{tty} || !$Command_Lines[$j]);
-				}
-				$Command_Lines[$j]->{note}.="$2\n";
-				$$cl=0;
-			}
-		}
-	}	
+        if ($$cl->{cline}=~ m@cat[^#]*#([\^=v])\s*(.*)@) {
+            if ($1 eq "=") {
+                $$cl->{"class"} = "note";
+                $$cl->{"note"} = $$cl->{"output"};
+                $$cl->{"note_title"} = $2;
+            }
+            else {
+                my $j = $i;
+                if ($1 eq "^") {
+                    $j--;
+                    $j-- while ($j >=0  && (!$Command_Lines[$j] || $Command_Lines[$j]->{tty} ne $$cl->{tty}));
+                }
+                elsif ($1 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};
+                $$cl=0;
+            }
+        }
+        elsif ($$cl->{cline}=~ /#([\^=v])(.*)/) {
+            if ($1 eq "=") {
+                $$cl->{"class"} = "note";
+                $$cl->{"note"} = $2;
+            }
+            else {
+                my $j=$i;
+                if ($1 eq "^") {
+                    $j--;
+                    $j-- while ($j >=0  && (!$Command_Lines[$j] || $Command_Lines[$j]->{tty} ne $$cl->{tty}));
+                }
+                elsif ($1 eq "v") {
+                    $j++;
+                    $j++ while ($j <= @Command_Lines  && $Command_Lines[$j]->{tty} ne $$cl->{tty} || !$Command_Lines[$j]);
+                }
+                $Command_Lines[$j]->{note}.="$2\n";
+                $$cl=0;
+            }
+        }
+    }   
 
 }
 
@@ -373,447 +373,447 @@
 
 sub print_command_lines
 {
-	my $output_filename=$_[0];
+    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"};
-	
+    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 $note_number=0;
+    # Результат выполнения процедуры равен 
+    # join("", @Result{header,body,stat,help,about,footer})
+    my %Result;
+    my @toc;  # Хранит оглавление
+    my $note_number=0;
 
-	$Result{"body"} = "<table width='100%'>\n";
-	
-	my $cl;
-	my $last_tty="";
-	my $last_day="";
-	my $in_range=0;
+    $Result{"body"} = "<table width='100%'>\n";
+    
+    my $cl;
+    my $last_tty="";
+    my $last_day="";
+    my $in_range=0;
 
-	my $current_command=0;
+    my $current_command=0;
 
 COMMAND_LINE:
-	for my $k (@Command_Lines_Index) {
+    for my $k (@Command_Lines_Index) {
 
-		my $cl=$Command_Lines[$Command_Lines_Index[$current_command++]];
-		
-		next unless $cl;
+        my $cl=$Command_Lines[$Command_Lines_Index[$current_command++]];
+        
+        next unless $cl;
 
 
-		if ($Config{filter}) {
-			# Инициализация фильтра
-			my %filter;
-			for (split /&/,$Config{filter}) {
-				my ($var, $val) = split /=/;
-				$filter{$var} = $val || "";
-			}
+        if ($Config{filter}) {
+            # Инициализация фильтра
+            my %filter;
+            for (split /&/,$Config{filter}) {
+                my ($var, $val) = split /=/;
+                $filter{$var} = $val || "";
+            }
 
-			for my $filter_key (keys %filter) {
-				next COMMAND_LINE unless (
-					not defined($cl->{local_session_id}) 
-					|| not defined($Sessions{$cl->{local_session_id}}->{$filter_key}) 
-					|| $Sessions{$cl->{local_session_id}}->{$filter_key} eq $filter{$filter_key});
-			}
+            for my $filter_key (keys %filter) {
+                next COMMAND_LINE unless (
+                    not defined($cl->{local_session_id}) 
+                    || not defined($Sessions{$cl->{local_session_id}}->{$filter_key}) 
+                    || $Sessions{$cl->{local_session_id}}->{$filter_key} eq $filter{$filter_key});
+            }
 
-			#if ($filter{user}) {
-			#	next COMMAND_LINE unless $Sessions{$cl->{local_session_id}}->{user} eq $filter{user};
-			#}
+            #if ($filter{user}) {
+            #   next COMMAND_LINE unless $Sessions{$cl->{local_session_id}}->{user} eq $filter{user};
+            #}
 
-			#for my $filter_field (keys %filter) {
-			#	next COMMAND_LINE unless $Sessions{$cl->{local_session_id}}->{$filter_field} eq $filter{$filter_field};
-			#}
-		}
+            #for my $filter_field (keys %filter) {
+            #   next COMMAND_LINE unless $Sessions{$cl->{local_session_id}}->{$filter_field} eq $filter{$filter_field};
+            #}
+        }
 
-		if ($Config{"from"} && $cl->{"cline"} =~ /$Config{"signature"}\s*$Config{"from"}/) {
-			$in_range=1;
-			next;
-		}
-		if ($Config{"to"} && $cl->{"cline"} =~ /$Config{"signature"}\s*$Config{"to"}/) {
-			$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);
-		
-		#my @new_commands=@{$cl->{"new_commands"}};
-		#my @new_files=@{$cl->{"new_files"}};
+        if ($Config{"from"} && $cl->{"cline"} =~ /$Config{"signature"}\s*$Config{"from"}/) {
+            $in_range=1;
+            next;
+        }
+        if ($Config{"to"} && $cl->{"cline"} =~ /$Config{"signature"}\s*$Config{"to"}/) {
+            $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);
+        
+        #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>";
+        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>";
 
-			if ($cl->{note_title}) {
-				push @{$toc[@toc]},"<a href='#note$note_number'>".$cl->{note_title}."</a>";
-				$note_number++;
-			}
-			next;
-		}
+            if ($cl->{note_title}) {
+                push @{$toc[@toc]},"<a href='#note$note_number'>".$cl->{note_title}."</a>";
+                $note_number++;
+            }
+            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 $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 @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;
-			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 .= $lines[$i]."\n";
-			}
-		} 
-		else {
-			# Full output
-			$output .= $cl->{"output"};
-		}	
-		#$output .= "^C\n" if ($cl->{"err"} eq "130");
+        my $output="";
+        if ($Config{"head_lines"} || $Config{"tail_lines"}) {
+            # Partialy output
+            my @lines = split '\n', $cl->{"output"};
+            # head
+            my $mark=1;
+            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 .= $lines[$i]."\n";
+            }
+        } 
+        else {
+            # Full output
+            $output .= $cl->{"output"};
+        }   
+        #$output .= "^C\n" if ($cl->{"err"} eq "130");
 
-		#
-		##
-		## Начинается собственно вывод
-		##
-		#
+        #
+        ##
+        ## Начинается собственно вывод
+        ##
+        #
 
-		# <command>
+        # <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}++;
+        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 =~ /^.$/;
-		$hour = "0".$hour if $hour =~ /^.$/;
-		$sec = "0".$sec if $sec =~ /^.$/;
+        # Добавляем спереди 0 для удобочитаемости
+        $min = "0".$min if $min =~ /^.$/;
+        $hour = "0".$hour if $hour =~ /^.$/;
+        $sec = "0".$sec if $sec =~ /^.$/;
 
-		$class=$cl->{"out_class"};
-		$class =~ s/output$//;
+        $class=$cl->{"out_class"};
+        $class =~ s/output$//;
 
-		$Stat{ErrorCommands}++
-			if $class =~ /wrong/;
-		
-		$Result{"body"} .= "<tr class='command'>\n";
-						
-		
-		# 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>";
-			push @toc, "<a href='#day$day'>".$Day_Name[$wday]."</a>\n";
-			$last_day=$day;
-		}
+        $Stat{ErrorCommands}++
+            if $class =~ /wrong/;
+        
+        $Result{"body"} .= "<tr class='command'>\n";
+                        
+        
+        # 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>";
+            push @toc, "<a href='#day$day'>".$Day_Name[$wday]."</a>\n";
+            $last_day=$day;
+        }
 
-		# 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>";
-			$last_tty=$cl->{"tty"};
-		}
+        # 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>";
+            $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
+        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'/>"
+        }
 
-		# COMMAND
-		$Result{"body"} .= "<td class='script'>\n";
-		$Result{"body"} .= "<pre class='${class}cline'>\n";
-		my $cline = $cl->{"prompt"}.$cl->{"cline"};
-		$cline =~ s/\n//;
+        # COMMAND
+        $Result{"body"} .= "<td class='script'>\n";
+        $Result{"body"} .= "<pre class='${class}cline'>\n";
+        my $cline = $cl->{"prompt"}.$cl->{"cline"};
+        $cline =~ s/\n//;
 
-		#$cline .= "(".$Sessions{$cl->{local_session_id}}.")";
-		
-		my $hint = make_comment($cl->{"cline"});
-		$cline = "<div title='$hint'>$cline</div>" if $hint;
-		$Result{"body"} .= $cline;
-		$Result{"body"} .= "</pre>\n";
+        #$cline .= "(".$Sessions{$cl->{local_session_id}}.")";
+        
+        my $hint = make_comment($cl->{"cline"});
+        $cline = "<div title='$hint'>$cline</div>" if $hint;
+        $Result{"body"} .= $cline;
+        $Result{"body"} .= "</pre>\n";
 
-		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"}})
-			)) {
+        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";
-		}	
+            $Result{"body"} .= "<pre class='".$cl->{out_class}."'>";
+            $Result{"body"} .= $output;
+            $Result{"body"} .= "</pre>\n";
+        }   
 
-		# 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>";
-		}
-		
-		#NOTES
-		if ( $Config{"show_notes"} =~ /^y/i && $cl->{"note"}) {
-			my $note=$cl->{"note"};
-			$note =~ s/\n/<br\/>\n/msg;
-			$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"} .= "<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";
-		}
+        # 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>";
+        }
+        
+        #NOTES
+        if ( $Config{"show_notes"} =~ /^y/i && $cl->{"note"}) {
+            my $note=$cl->{"note"};
+            $note =~ s/\n/<br\/>\n/msg;
+            $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"} .= "<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";
+        }
 
-		# 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>";
-			}
-		}
+        # 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>";
+            }
+        }
 
-		# Вывод очередной команды окончен
-		$Result{"body"} .= "</td>\n";
-		$Result{"body"} .= "</tr>\n";
-	}
+        # Вывод очередной команды окончен
+        $Result{"body"} .= "</td>\n";
+        $Result{"body"} .= "</tr>\n";
+    }
 
-	$Result{"body"} .= "</table>\n";
+    $Result{"body"} .= "</table>\n";
 
-	#$Result{"stat"} = "<hr/>";
+    #$Result{"stat"} = "<hr/>";
 
-	%StatNames = (
-		FirstCommand => "Время первой команды журнала",
-		LastCommand => "Время последней команды журнала",
-		TotalCommands => "Количество командных строк в журнале",
-		ErrorsPercentage => "Процент команд с ненулевым кодом завершения, %",
-		TotalTime => "Суммарное время работы с терминалом <sup><font size='-2'>*</font></sup>, час",
-		CommandsPerTime => "Количество командных строк в единицу времени, команда/мин",
-		CommandsFrequency => "Частота использования команд",
-		RareCommands	=> "Частота использования этих команд < 0.5%",
-	);
-	@StatOrder = (
-		FirstCommand,
-		LastCommand,
-		TotalCommands,
-		ErrorsPercentage,
-		TotalTime,
-		CommandsPerTime,
-		CommandsFrequency,
-		RareCommands,
-	);
+    %StatNames = (
+        FirstCommand => "Время первой команды журнала",
+        LastCommand => "Время последней команды журнала",
+        TotalCommands => "Количество командных строк в журнале",
+        ErrorsPercentage => "Процент команд с ненулевым кодом завершения, %",
+        TotalTime => "Суммарное время работы с терминалом <sup><font size='-2'>*</font></sup>, час",
+        CommandsPerTime => "Количество командных строк в единицу времени, команда/мин",
+        CommandsFrequency => "Частота использования команд",
+        RareCommands    => "Частота использования этих команд < 0.5%",
+    );
+    @StatOrder = (
+        FirstCommand,
+        LastCommand,
+        TotalCommands,
+        ErrorsPercentage,
+        TotalTime,
+        CommandsPerTime,
+        CommandsFrequency,
+        RareCommands,
+    );
 
-	# Подготовка статистики к выводу
-	# Некоторые значения пересчитываются!
-	# Дальше их лучше уже не использовать!!!
+    # Подготовка статистики к выводу
+    # Некоторые значения пересчитываются!
+    # Дальше их лучше уже не использовать!!!
 
-	my %CommandsFrequency = %CommandsFDistribution;
+    my %CommandsFrequency = %CommandsFDistribution;
 
-	$Stat{TotalTime} ||= 0;
-	my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($Stat{FirstCommand} || 0);
-	$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};
-	$Stat{CommandsPerTime} = sprintf "%5.2f", $Stat{TotalCommands}*60/$Stat{TotalTime}
-		if $Stat{TotalTime};
-	$Stat{TotalTime} = sprintf "%5.2f", $Stat{TotalTime}/60/60;
+    $Stat{TotalTime} ||= 0;
+    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($Stat{FirstCommand} || 0);
+    $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};
+    $Stat{CommandsPerTime} = sprintf "%5.2f", $Stat{TotalCommands}*60/$Stat{TotalTime}
+        if $Stat{TotalTime};
+    $Stat{TotalTime} = sprintf "%5.2f", $Stat{TotalTime}/60/60;
 
-	my $total_commands=0;
-	for $command (keys %CommandsFrequency){
-		$total_commands += $CommandsFrequency{$command};
-	}
-	if ($total_commands) {
-		for $command (reverse sort {$CommandsFrequency{$a} <=> $CommandsFrequency{$b}} keys %CommandsFrequency){
-			my $command_html;
-			my $percentage = sprintf "%5.2f",$CommandsFrequency{$command}*100/$total_commands;
-			if ($percentage < 0.5) {
-				my $hint = make_comment($command);
-				$command_html = "$command";
-				$command_html = "<span title='$hint' class='hint'>$command_html</span>" if $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;
-				my $command_html = "<tt>$command_html</tt>";
-				$percentage = sprintf "%5.2f",$percentage;
-				$Stat{CommandsFrequency} .= "<tr><td>".$command_html."</td><td>".$CommandsFrequency{$command}."</td>".
-					"<td>|".("="x int($CommandsFrequency{$command}*100/$total_commands))."| $percentage%</td></tr>";
-			}
-		}
-		$Stat{CommandsFrequency} = "<table>".$Stat{CommandsFrequency}."</table>";
-		$Stat{RareCommands} =~ s/, $// if $Stat{RareCommands};
-	}
+    my $total_commands=0;
+    for $command (keys %CommandsFrequency){
+        $total_commands += $CommandsFrequency{$command};
+    }
+    if ($total_commands) {
+        for $command (reverse sort {$CommandsFrequency{$a} <=> $CommandsFrequency{$b}} keys %CommandsFrequency){
+            my $command_html;
+            my $percentage = sprintf "%5.2f",$CommandsFrequency{$command}*100/$total_commands;
+            if ($percentage < 0.5) {
+                my $hint = make_comment($command);
+                $command_html = "$command";
+                $command_html = "<span title='$hint' class='hint'>$command_html</span>" if $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;
+                my $command_html = "<tt>$command_html</tt>";
+                $percentage = sprintf "%5.2f",$percentage;
+                $Stat{CommandsFrequency} .= "<tr><td>".$command_html."</td><td>".$CommandsFrequency{$command}."</td>".
+                    "<td>|".("="x int($CommandsFrequency{$command}*100/$total_commands))."| $percentage%</td></tr>";
+            }
+        }
+        $Stat{CommandsFrequency} = "<table>".$Stat{CommandsFrequency}."</table>";
+        $Stat{RareCommands} =~ s/, $// if $Stat{RareCommands};
+    }
 
-	$Result{"stat"} .= "<h2 id='stat'>Статистика</h2>";
-	$Result{"stat"} .= "<table>";
-	for my $stat (@StatOrder) {
-	$Result{"stat"} .= "<tr valign='top'><td width='300'>".$StatNames{"$stat"}."</td><td>".$Stat{"$stat"}."</td></tr>"
-		if $Stat{"$stat"};
-	}
-	
-	$Result{"stat"} .= "</table>";
-	$Result{"stat"} .= "<font size='-2'>____<br/>*) Интервалы неактивности длительностью ".($Config{stat_inactivity_interval}/60)." минут и более не учитываются</font></br>";
+    $Result{"stat"} .= "<h2 id='stat'>Статистика</h2>";
+    $Result{"stat"} .= "<table>";
+    for my $stat (@StatOrder) {
+    $Result{"stat"} .= "<tr valign='top'><td width='300'>".$StatNames{"$stat"}."</td><td>".$Stat{"$stat"}."</td></tr>"
+        if $Stat{"$stat"};
+    }
+    
+    $Result{"stat"} .= "</table>";
+    $Result{"stat"} .= "<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{"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{"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>
+    # Заголовок генерируется позже всего
+    # Тогда, когда известно уже, что должно быть написано в 
+    # оглавлении
+    $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;
+    $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>
+    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>
+    <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"} .= "<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";
+    $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);
-	}
+    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);
+    }
 }
 
 
 
 sub collapse_list($)
 {
-	my $res = "";
-	for my $elem (@{$_[0]}) {
-		if (ref $elem eq "ARRAY") {
-			$res .= "<ul>".collapse_list($elem)."</ul>";
-		}
-		else
-		{
-			$res .= "<li>".$elem."</li>";
-		}
-	}
-	return $res;
+    my $res = "";
+    for my $elem (@{$_[0]}) {
+        if (ref $elem eq "ARRAY") {
+            $res .= "<ul>".collapse_list($elem)."</ul>";
+        }
+        else
+        {
+            $res .= "<li>".$elem."</li>";
+        }
+    }
+    return $res;
 }
 
 
@@ -822,24 +822,24 @@
 sub init_variables
 {
 $Html_Help = <<HELP;
-	Для того чтобы использовать LiLaLo, не нужно знать ничего особенного:
-	всё происходит само собой.
-	Однако, чтобы ведение и последующее использование журналов
-	было как можно более эффективным, желательно иметь в виду следующее:
-	<ul>
-	<li><p> 
-	В журнал автоматически попадают все команды, данные в любом терминале системы.
-	</p></li>
-	<li><p>
-	Для того чтобы убедиться, что журнал на текущем терминале ведётся, 
-	и команды записываются, дайте команду w.
-	В поле WHAT, соответствующем текущему терминалу, 
-	должна быть указана программа script.
-	</p></li>
-	<li><p>
-	Если код завершения команды равен нулю, 
-	команда была выполнена без ошибок.
-	Команды, код завершения которых отличен от нуля, выделяются цветом.
+    Для того чтобы использовать LiLaLo, не нужно знать ничего особенного:
+    всё происходит само собой.
+    Однако, чтобы ведение и последующее использование журналов
+    было как можно более эффективным, желательно иметь в виду следующее:
+    <ul>
+    <li><p> 
+    В журнал автоматически попадают все команды, данные в любом терминале системы.
+    </p></li>
+    <li><p>
+    Для того чтобы убедиться, что журнал на текущем терминале ведётся, 
+    и команды записываются, дайте команду w.
+    В поле WHAT, соответствующем текущему терминалу, 
+    должна быть указана программа script.
+    </p></li>
+    <li><p>
+    Если код завершения команды равен нулю, 
+    команда была выполнена без ошибок.
+    Команды, код завершения которых отличен от нуля, выделяются цветом.
 <table>
 <tr class='command'>
 <td class='script'>
@@ -851,9 +851,9 @@
 </tr>
 </table>
 <br/>
-	</p></li>
-	<li><p>
-	Команды, ход выполнения которых был прерван пользователем, выделяются цветом.
+    </p></li>
+    <li><p>
+    Команды, ход выполнения которых был прерван пользователем, выделяются цветом.
 <table>
 <tr class='command'>
 <td class='script'>
@@ -870,10 +870,10 @@
 </tr>
 </table>
 <br/>
-	</p></li>
-	<li><p>
-	Команды, выполненные с привилегиями суперпользователя,
-	выделяются слева красной чертой.
+    </p></li>
+    <li><p>
+    Команды, выполненные с привилегиями суперпользователя,
+    выделяются слева красной чертой.
 <table>
 <tr class='command'>
 <td class='script'>
@@ -885,33 +885,33 @@
 </td>
 </tr>
 </table>
-	<br/>
-	</p></li>
-	<li><p>
-	Изменения, внесённые в текстовый файл с помощью редактора, 
-	запоминаются и показываются в журнале в формате ed.
-	Строки, начинающиеся символом "&lt;", удалены, а строки,
-	начинающиеся символом "&gt;" -- добавлены.
+    <br/>
+    </p></li>
+    <li><p>
+    Изменения, внесённые в текстовый файл с помощью редактора, 
+    запоминаются и показываются в журнале в формате ed.
+    Строки, начинающиеся символом "&lt;", удалены, а строки,
+    начинающиеся символом "&gt;" -- добавлены.
 <table>
 <tr class='command'>
 <td class='script'>
 <pre class='cline'>
 \$ vi ~/.bashrc</pre>
 <table><tr><td width='5'/><td class='diff'><pre>2a3,5
-&gt; 	if [ -f /usr/local/etc/bash_completion ]; then
+&gt;    if [ -f /usr/local/etc/bash_completion ]; then
 &gt;         . /usr/local/etc/bash_completion
-&gt;     	fi
+&gt;        fi
 </pre></td></tr></table></td>
 </tr>
 </table>
-	<br/>
-	</p></li>
-	<li><p>
-	Для того чтобы изменить файл в соответствии с показанными в диффшоте
-	изменениями, можно воспользоваться командой patch.
-	Нужно скопировать изменения, запустить программу patch, указав в
-	качестве её аргумента файл, к которому применяются изменения,
-	и всавить скопированный текст:
+    <br/>
+    </p></li>
+    <li><p>
+    Для того чтобы изменить файл в соответствии с показанными в диффшоте
+    изменениями, можно воспользоваться командой patch.
+    Нужно скопировать изменения, запустить программу patch, указав в
+    качестве её аргумента файл, к которому применяются изменения,
+    и всавить скопированный текст:
 <table>
 <tr class='command'>
 <td class='script'>
@@ -920,35 +920,35 @@
 </td>
 </tr>
 </table>
-	В данном случае изменения применяются к файлу ~/.bashrc
-	</p></li>
-	<li><p>
-	Для того чтобы получить краткую справочную информацию о команде, 
-	нужно подвести к ней мышь. Во всплывающей подсказке появится краткое
-	описание команды.
-	</p></li>
-	<li><p>
-	Время ввода команды, показанное в журнале, соответствует времени 
-	<i>начала ввода командной строки</i>, которое равно тому моменту, 
-	когда на терминале появилось приглашение интерпретатора
-	</p></li>
-	<li><p>
-	Имя терминала, на котором была введена команда, показано в специальном блоке.
-	Этот блок показывается только в том случае, если терминал
-	текущей команды отличается от терминала предыдущей.
-	</p></li>
-	<li><p>
-	Вывод не интересующих вас в настоящий момент элементов журнала,
-	таких как время, имя терминала и других, можно отключить.
-	Для этого нужно воспользоваться <a href='#visibility_form'>формой управления журналом</a>
-	вверху страницы.
-	</p></li>
-	<li><p>
-	Небольшие комментарии к командам можно вставлять прямо из командной строки.
-	Комментарий вводится прямо в командную строку, после символов #^ или #v.
-	Символы ^ и v показывают направление выбора команды, к которой относится комментарий:
-	^ - к предыдущей, v - к следующей.
-	Например, если в командной строке было введено:
+    В данном случае изменения применяются к файлу ~/.bashrc
+    </p></li>
+    <li><p>
+    Для того чтобы получить краткую справочную информацию о команде, 
+    нужно подвести к ней мышь. Во всплывающей подсказке появится краткое
+    описание команды.
+    </p></li>
+    <li><p>
+    Время ввода команды, показанное в журнале, соответствует времени 
+    <i>начала ввода командной строки</i>, которое равно тому моменту, 
+    когда на терминале появилось приглашение интерпретатора
+    </p></li>
+    <li><p>
+    Имя терминала, на котором была введена команда, показано в специальном блоке.
+    Этот блок показывается только в том случае, если терминал
+    текущей команды отличается от терминала предыдущей.
+    </p></li>
+    <li><p>
+    Вывод не интересующих вас в настоящий момент элементов журнала,
+    таких как время, имя терминала и других, можно отключить.
+    Для этого нужно воспользоваться <a href='#visibility_form'>формой управления журналом</a>
+    вверху страницы.
+    </p></li>
+    <li><p>
+    Небольшие комментарии к командам можно вставлять прямо из командной строки.
+    Комментарий вводится прямо в командную строку, после символов #^ или #v.
+    Символы ^ и v показывают направление выбора команды, к которой относится комментарий:
+    ^ - к предыдущей, v - к следующей.
+    Например, если в командной строке было введено:
 <pre class='cline'>
 \$ whoami
 </pre>
@@ -958,8 +958,8 @@
 <pre class='cline'>
 \$ #^ Интересно, кто я?
 </pre>
-	в журнале это будет выглядеть так:
-	
+    в журнале это будет выглядеть так:
+    
 <pre class='cline'>
 \$ whoami
 </pre>
@@ -968,10 +968,10 @@
 </pre>
 <table class='note'><tr><td width='100%' class='note_text'>
 <tr> <td> Интересно, кто я?<br/> </td></tr></table> 
-	</p></li>
-	<li><p>
-	Если комментарий содержит несколько строк,
-	его можно вставить в журнал следующим образом:
+    </p></li>
+    <li><p>
+    Если комментарий содержит несколько строк,
+    его можно вставить в журнал следующим образом:
 <pre class='cline'>
 \$ whoami
 </pre>
@@ -988,7 +988,7 @@
 Она не может ответить на вопрос о нашем назначении 
 в этом мире.
 </pre>
-	В журнале это будет выглядеть так:
+    В журнале это будет выглядеть так:
 <table>
 <tr class='command'>
 <td class='script'>
@@ -1006,103 +1006,103 @@
 </td>
 </tr>
 </table>
-	Для разделения нескольких абзацев между собой
-	используйте символ "-", один в строке.
-	<br/>
+    Для разделения нескольких абзацев между собой
+    используйте символ "-", один в строке.
+    <br/>
 </p></li>
-	<li><p>
-	Комментарии, не относящиеся непосредственно ни к какой из команд, 
-	добавляются точно таким же способом, только вместо симолов #^ или #v 
-	нужно использовать символы #=
-	</p></li>
+    <li><p>
+    Комментарии, не относящиеся непосредственно ни к какой из команд, 
+    добавляются точно таким же способом, только вместо симолов #^ или #v 
+    нужно использовать символы #=
+    </p></li>
 </ul>
 HELP
 
 $Html_About = <<ABOUT;
-	<p>
-	LiLaLo (L3) расшифровывается как Live Lab Log.<br/>
-	Программа разработана для повышения эффективности обучения Unix/Linux-системам.<br/>
-	(c) Игорь Чубин, 2004-2005<br/>
-	</p>
+    <p>
+    LiLaLo (L3) расшифровывается как Live Lab Log.<br/>
+    Программа разработана для повышения эффективности обучения Unix/Linux-системам.<br/>
+    (c) Игорь Чубин, 2004-2005<br/>
+    </p>
 ABOUT
 $Html_About.='$Id$ </p>';
 
 $Html_JavaScript = <<JS;
-	function getElementsByClassName(Class_Name)
-	{
-		var Result=new Array();
-		var All_Elements=document.all || document.getElementsByTagName('*');
-		for (i=0; i<All_Elements.length; i++)
-			if (All_Elements[i].className==Class_Name)
-		Result.push(All_Elements[i]);
-		return Result;
-	}
-	function ShowHide (name)
-	{
-		elements=getElementsByClassName(name);
-		for(i=0; i<elements.length; i++)
-			if (elements[i].style.display == "none")
-				elements[i].style.display = "";
-			else
-				elements[i].style.display = "none";
-			//if (elements[i].style.visibility == "hidden")
-			//	elements[i].style.visibility = "visible";
-			//else
-			//	elements[i].style.visibility = "hidden";
-	}
-	function filter_by_output(text)
-	{
-		
-		var jjj=0;
-		
-		elements=getElementsByClassName('command');
-		for(i=0; i<elements.length; i++) {
-			subelems = elements[i].getElementsByTagName('pre');
-			for(j=0; j<subelems.length; j++) {
-				if (subelems[j].className = 'output') {
-					var str = new String(subelems[j].nodeValue);
-					if (jjj != 1) { 
-						alert(str);
-						jjj=1;
-					}
-					if (str.indexOf(text) >0) 
-						subelems[j].style.display = "none";
-					else
-						subelems[j].style.display = "";
+    function getElementsByClassName(Class_Name)
+    {
+        var Result=new Array();
+        var All_Elements=document.all || document.getElementsByTagName('*');
+        for (i=0; i<All_Elements.length; i++)
+            if (All_Elements[i].className==Class_Name)
+        Result.push(All_Elements[i]);
+        return Result;
+    }
+    function ShowHide (name)
+    {
+        elements=getElementsByClassName(name);
+        for(i=0; i<elements.length; i++)
+            if (elements[i].style.display == "none")
+                elements[i].style.display = "";
+            else
+                elements[i].style.display = "none";
+            //if (elements[i].style.visibility == "hidden")
+            //  elements[i].style.visibility = "visible";
+            //else
+            //  elements[i].style.visibility = "hidden";
+    }
+    function filter_by_output(text)
+    {
+        
+        var jjj=0;
+        
+        elements=getElementsByClassName('command');
+        for(i=0; i<elements.length; i++) {
+            subelems = elements[i].getElementsByTagName('pre');
+            for(j=0; j<subelems.length; j++) {
+                if (subelems[j].className = 'output') {
+                    var str = new String(subelems[j].nodeValue);
+                    if (jjj != 1) { 
+                        alert(str);
+                        jjj=1;
+                    }
+                    if (str.indexOf(text) >0) 
+                        subelems[j].style.display = "none";
+                    else
+                        subelems[j].style.display = "";
 
-				}
-					
-			}
-		}		
+                }
+                    
+            }
+        }       
 
-	}
+    }
 JS
 
 %Search_Machines = (
-		"google" => 	{ 	"query" => 	"http://www.google.com/search?q=" ,
-					"icon" 	=> 	"$Config{frontend_google_ico}" },
-		"freebsd" => 	{ 	"query" => 	"http://www.freebsd.org/cgi/man.cgi?query=",
-					"icon"	=>	"$Config{frontend_freebsd_ico}" },
-		"linux"  => 	{ 	"query" => 	"http://man.he.net/?topic=",
-					"icon"	=>	"$Config{frontend_linux_ico}"},
-		"opennet"  => 	{ 	"query" => 	"http://www.opennet.ru/search.shtml?words=",
-					"icon"	=>	"$Config{frontend_opennet_ico}"},
-		"local" => 	{ 	"query" => 	"http://www.freebsd.org/cgi/man.cgi?query=",
-					"icon"	=>	"$Config{frontend_local_ico}" },
+        "google" =>     {   "query" =>  "http://www.google.com/search?q=" ,
+                    "icon"  =>  "$Config{frontend_google_ico}" },
+        "freebsd" =>    {   "query" =>  "http://www.freebsd.org/cgi/man.cgi?query=",
+                    "icon"  =>  "$Config{frontend_freebsd_ico}" },
+        "linux"  =>     {   "query" =>  "http://man.he.net/?topic=",
+                    "icon"  =>  "$Config{frontend_linux_ico}"},
+        "opennet"  =>   {   "query" =>  "http://www.opennet.ru/search.shtml?words=",
+                    "icon"  =>  "$Config{frontend_opennet_ico}"},
+        "local" =>  {   "query" =>  "http://www.freebsd.org/cgi/man.cgi?query=",
+                    "icon"  =>  "$Config{frontend_local_ico}" },
 
-	);
+    );
 
 %Elements_Visibility = (
-		"note"		=>	"замечания",
-		"diff"		=>	"редактор",
-		"time"		=>	"время",
-		"ttychange" 	=>	"терминал",
-		"wrong_output wrong_cline wrong_root_output wrong_root_cline" 
-				=>	"команды с ошибками",
-		"interrupted_output interrupted_cline interrupted_root_output interrupted_root_cline" 
-				=>	"прерванные команды",
-		"tab_completion_output tab_completion_cline"	
-				=> 	"продолжение с помощью tab"
+        "note"      =>  "замечания",
+        "diff"      =>  "редактор",
+        "time"      =>  "время",
+        "ttychange"     =>  "терминал",
+        "wrong_output wrong_cline wrong_root_output wrong_root_cline" 
+                =>  "команды с ошибками",
+        "interrupted_output interrupted_cline interrupted_root_output interrupted_root_cline" 
+                =>  "прерванные команды",
+        "tab_completion_output tab_completion_cline"    
+                =>  "продолжение с помощью tab"
 );
 
 @Day_Name      = qw/ Воскресенье Понедельник Вторник Среда Четверг Пятница Суббота /;
diff -r 568bab7090fc -r d021553f4e98 l3scripts
--- a/l3scripts	Sat Nov 26 16:15:52 2005 +0200
+++ b/l3scripts	Sun Dec 04 18:44:21 2005 +0200
@@ -71,8 +71,8 @@
 
 
 ###send-logs
-cat >> /tmp/letters <<LETTER
-mutt -a /tmp/lilalo-$course-$date.zip -s 'Журналы лабораторных работ' imchubin@mail.ru
+#cat >> /tmp/letters <<LETTER
+mutt -a /tmp/lilalo-$course-$date.zip -s 'Журналы лабораторных работ' $email <<LETTER
 $firstname,
 
 высылаю вам журналы лабораторных работ по курсу $course,