l3-cgi:
* Сделана поддержка кодировок клиента отличных от utf-8 (пока что почему-то не работает)
* Сделана поддержка комментирования из самой командной строки.
Комментарии вставлюятся с помощью символов #^, #v или #=
Комментарии записываются в элементы note и note_title

l3-frontend:

* Сделана поддержка комментирования из самой командной строки.
Комментарии вставлюятся с помощью символов #^, #v или #=
* Вместо использования программы mywi-client, обращение к mywi-серверу выполняется самостоятельно
* Выполняется разбор команды с целью выявления новых команд, ведения статистики, генерирования подсказок и т.д.
* Во всплывающих командах к подсказкам выводится информация от mywi
* Выводится статистическая информация о журнале
"Время первой команды журнала"
"Время последней команды журнала"
"Количество командных строк в журнале"
"Процент команд с кодом ненулевым кодом завершения, %"
"Суммарное время работы с терминалом ^{<font size='-2'>*</font>}, час"
"Количество командных строк в единицу времени, команда/мин"
"Частота использования команд"
"Частота использования команд"
"Частота использования этих команд < 0.5%"
* В заголовке страницы выводится информация о курсе и имя слушателя
* Расшифровка к информации о курсе выводится только если есть сама информация
* В оглавлении учитваются пометки notes, вставленные с помощью #=
* Добавлена справка по использованию журнала

Новые параметры:
show_notes - нужно ли показывать заметки "notes"
> note_width - ширина заметок "notes"
mywi_server - IP-адрес сервера mywi
mywi_port - порт сервера mywi
stat_inactivity_interval - при подсчёте времени работы с терминалом,
интервалы превышающие какую длительность не должны учитываться, сек

     1.1 --- a/l3-agent	Tue Nov 08 12:16:20 2005 +0200
     1.2 +++ b/l3-agent	Fri Nov 11 21:29:49 2005 +0200
     1.3 @@ -543,9 +543,10 @@
     1.4  				if (!$last_cl{"suppress_output"} || $last_cl{"err"}) {
     1.5  					for (my $i=0; $i<$Config{"terminal_height"}; $i++) {
     1.6  						my $line= $vt->row_plaintext($i);
     1.7 -						next if !defined ($line) || $line =~ /^\s*$/;
     1.8 +						next if !defined ($line) ; #|| $line =~ /^\s*$/;
     1.9  						$line =~ s/\s*$//;
    1.10 -						$last_cl{"output"} .= $line."\n";
    1.11 +						$line .= "\n" unless $line =~ /^\s*$/;
    1.12 +						$last_cl{"output"} .= $line;
    1.13  					}
    1.14  				}
    1.15  				else {
    1.16 @@ -690,6 +691,13 @@
    1.17  				$Files_Stat{$file}++;
    1.18  			}
    1.19  		}	
    1.20 +
    1.21 +		#if ($$cl->{cline}=~ /#\^(.*)/) {
    1.22 +		#	my $j=$i-1;
    1.23 +		#	$j-- while ($j >=0 && $Command_Lines[$j]->{tty} ne $$cl->{tty});
    1.24 +		#	$Command_Lines[$j]->{note_title}="Замечание";
    1.25 +		#	$Command_Lines[$j]->{note}="$1";
    1.26 +		#}
    1.27  	}	
    1.28  
    1.29  }
    1.30 @@ -773,7 +781,7 @@
    1.31  			# Full output
    1.32  			$output .= $cl->{"output"};
    1.33  		}	
    1.34 -		$output .= "^C\n" if ($cl->{"err"} eq "130");
    1.35 +		#$output .= "^C\n" if ($cl->{"err"} eq "130");
    1.36  
    1.37  
    1.38  		# Совместимость с labmaker
    1.39 @@ -825,6 +833,16 @@
    1.40  				printq(\*OUT,${$Diffs{$cl->{"diff"}}}{"text"});
    1.41  			print OUT "</diff>\n";
    1.42  		}
    1.43 +		if ($cl->{"note"}) {
    1.44 +			print OUT "<note>";
    1.45 +				printq(\*OUT,$cl->{"note"});
    1.46 +			print OUT "</note>\n";
    1.47 +		}
    1.48 +		if ($cl->{"note_title"}) {
    1.49 +			print OUT "<note_title>";
    1.50 +				printq(\*OUT,$cl->{"note_title"});
    1.51 +			print OUT "</note_title>\n";
    1.52 +		}
    1.53  		print OUT "</command>\n";
    1.54  
    1.55  	}