#!/usr/bin/perl -w use IO::Socket; use lib '.'; use l3config; use locale; our @Command_Lines; our @Command_Lines_Index; our %Commands_Description; our %Args_Description; our $Mywi_Socket; our %Sessions; # vvv Инициализация переменных выполняется процедурой init_variables our @Day_Name; our @Month_Name; our @Of_Month_Name; our %Search_Machines; our %Elements_Visibility; # ^^^ our %Stat; our %CommandsFDistribution; # Сколько раз в журнале встречается какая команда sub search_buy; sub make_comment; sub load_command_lines_from_xml; sub load_sessions_from_xml; sub print_command_lines; sub sort_command_lines; sub process_command_lines; sub init_variables; sub main; sub collapse_list($); main(); sub main { $| = 1; 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; } sub search_by { my $sm = shift; my $topic = shift; $topic =~ s/ /+/; return ""; } 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 %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; } } sub open_mywi_socket { $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); } sub mywi_client { 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; } sub make_comment { 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); # 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(" \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}; } } =cut Процедура load_command_lines_from_xml выполняет загрузку разобранного lab-скрипта из XML-документа в переменную @Command_Lines Предупреждение! Процедура не в состоянии обрабатывать XML-документ любой структуры. В действительности файл cache из которого загружаются данные просто напоминает XML с виду. =cut sub load_command_lines_from_xml { my $datafile = $_[0]; open (CLASS, $datafile) or die "Can't open file of the class ",$datafile,"\n"; local $/; $data = ; close(CLASS); for $command ($data =~ m@(.*?)@sg) { my %cl; while ($command =~ m@<([^>]*?)>(.*?)@sg) { $cl{$1} = $2; } push @Command_Lines, \%cl; } } sub load_sessions_from_xml { my $datafile = $_[0]; open (CLASS, $datafile) or die "Can't open file of the class ",$datafile,"\n"; local $/; my $data = ; close(CLASS); for my $session ($data =~ m@(.*?)@sg) { my %session; while ($session =~ m@<([^>]*?)>(.*?)@sg) { $session{$1} = $2; } $Sessions{$session{local_session_id}} = \%session; } } sub sort_command_lines { # Sort Command_Lines # Write Command_Lines to Command_Lines_Index 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; } sub process_command_lines { for my $i (@Command_Lines_Index) { 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; #tab# #tab# if ($last_word && @tab_words >2) { #tab# for my $tab_words (@tab_words) { #tab# if ($tab_words !~ /^$last_word/) { #tab# $this_is_tab=0; #tab# last; #tab# } #tab# } #tab# } #tab# $$cl->{"class"}="tab" if $this_is_tab; # if ( !$$cl->{"err"}) { # # Command does not contain mistakes # # my %commands = extract_from_cline("commands", ${$cl}->{"cline"}); # my %files = extract_from_cline("files", ${$cl}->{"cline"}); # # # Searching for new commands only # for my $command (keys %commands) { # if (!defined $Commands_Stat{$command}) { # push @{$$cl->{new_commands}}, $command; # } # $Commands_Stat{$command}++; # } # # for my $file (keys %files) { # if (!defined $Files_Stat{$file}) { # push @{$$cl->{new_files}}, $file; # } # $Files_Stat{$file}++; # } # } 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"; $$cl=0; } } } } =cut Процедура print_command_lines выводит HTML-представление разобранного lab-скрипта. Разобранный lab-скрипт должен находиться в массиве @Command_Lines =cut sub print_command_lines { my $output_filename=$_[0]; my $course_name = $Config{"course-name"}; my $course_code = $Config{"course-code"}; my $course_date = $Config{"course-date"}; my $course_center = $Config{"course-center"}; my $course_trainer = $Config{"course-trainer"}; my $course_student = $Config{"course-student"}; # Результат выполнения процедуры равен # join("", @Result{header,body,stat,help,about,footer}) my %Result; my @toc; # Хранит оглавление my $note_number=0; $Result{"body"} = "\n"; my $cl; my $last_tty=""; my $last_day=""; my $in_range=0; my $i=0; COMMAND_LINE: for my $k (@Command_Lines_Index) { my $cl=$Command_Lines[$Command_Lines_Index[$i++]]; next unless $cl; if ($Config{filter}) { # Инициализация фильтра my %filter; for (split /&/,$Config{filter}) { my ($var, $val) = split /=/; $filter{$var} = $val; } if ($filter{hostname}) { next COMMAND_LINE unless $Sessions{$cl->{local_session_id}}->{hostname} eq $filter{hostname}; } 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}; #} } 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 ("

$_

", split (/-\n/, $note))); $note =~ s@(http:[a-zA-Z.0-9/?%-]*)@$1@g; $note =~ s@(www\.[a-zA-Z.0-9/?%-]*)@$1@g; $Result{"body"} .= ""; if ($cl->{note_title}) { push @{$toc[@toc]},"".$cl->{note_title}.""; $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 @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 (my $i=$start; $i<= $#lines; $i++) { $output .= $lines[$i]."\n"; } } else { # Full output $output .= $cl->{"output"}; } #$output .= "^C\n" if ($cl->{"err"} eq "130"); # ## ## Начинается собственно вывод ## # # my ($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = localtime($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 =~ /^.$/; $class=$cl->{"out_class"}; $class =~ s/output$//; $Stat{ErrorCommands}++ if $class =~ /wrong/; $Result{"body"} .= "\n"; # DAY CHANGE if ( $last_day ne $day) { #$Result{"body"} .= ""; $Result{"body"} .= ""; push @toc, "".$Day_Name[$wday]."\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}; $Result{"body"} .= ""; $last_tty=$cl->{"tty"}; } # TIME if ($Config{"show_time"} =~ /^y/i) { $Result{"body"} .= ""; } else { $Result{"body"} .= "\n"; $Result{"body"} .= "\n"; } $Result{"body"} .= "
"; $Result{"body"} .= "

".$cl->{note_title}."

" if $cl->{note_title}; $Result{"body"} .= "".$note."

День ",$day,"

".$Day_Name[$wday]."

".$cl->{"tty"}."$host
".
				$hour. ":". $min. ":". $sec.
				"
" } # COMMAND $Result{"body"} .= "\n"; $Result{"body"} .= "
\n";
		my $cline = $cl->{"prompt"}.$cl->{"cline"};
		$cline =~ s/\n//;

		#$cline .= "(".$Sessions{$cl->{local_session_id}}.")";
		
		my $hint = make_comment($cl->{"cline"});
		$cline = "
$cline
" if $hint; $Result{"body"} .= $cline; $Result{"body"} .= "
\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"}}) )) { $Result{"body"} .= "
";
			$Result{"body"} .= $output;
			$Result{"body"} .= "
\n"; } # DIFF if ( $Config{"show_diffs"} =~ /^y/i && $cl->{"diff"}) { $Result{"body"} .= "
";
			$Result{"body"} .= $cl->{"diff"};
			$Result{"body"} .= "
"; } #NOTES if ( $Config{"show_notes"} =~ /^y/i && $cl->{"note"}) { my $note=$cl->{"note"}; $note =~ s/\n/\n/msg; $note =~ s@(http:[a-zA-Z.0-9/?%-]*)@$1@g; $note =~ s@(www\.[a-zA-Z.0-9/?%-]*)@$1@g; # Ширину пока не используем # $Result{"body"} .= ""; $Result{"body"} .= "
"; $Result{"body"} .= "" if $cl->{note_title}; $Result{"body"} .= ""; $Result{"body"} .= "
".$cl->{note_title}."
".$note."
\n"; } # COMMENT if ( $Config{"show_comments"} =~ /^y/i) { my $comment = make_comment($cl->{"cline"}); if ($comment) { $Result{"body"} .= "". "
"; $Result{"body"} .= ""; $Result{"body"} .= $comment; $Result{"body"} .= "
\n"; $Result{"body"} .= "
"; } } # Вывод очередной команды окончен $Result{"body"} .= "
\n"; #$Result{"stat"} = "
"; %StatNames = ( FirstCommand => "Время первой команды журнала", LastCommand => "Время последней команды журнала", TotalCommands => "Количество командных строк в журнале", ErrorsPercentage => "Процент команд с ненулевым кодом завершения, %", TotalTime => "Суммарное время работы с терминалом *, час", CommandsPerTime => "Количество командных строк в единицу времени, команда/мин", CommandsFDistribution => "Частота использования команд", CommandsFDistribution => "Частота использования команд", RareCommands => "Частота использования этих команд < 0.5%", ); @StatOrder = ( FirstCommand, LastCommand, TotalCommands, ErrorsPercentage, TotalTime, CommandsPerTime, CommandsFDistribution, RareCommands, ); # Подготовка статистики к выводу # Некоторые значения пересчитываются! # Дальше их лучше уже не использовать!!! my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($Stat{FirstCommand}); $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}); $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 %CommandsFDistribution){ $total_commands += $CommandsFDistribution{$command}; } if ($total_commands) { for $command (reverse sort {$CommandsFDistribution{$a} <=> $CommandsFDistribution{$b}} keys %CommandsFDistribution){ my $command_html; my $percentage = sprintf "%5.2f",$CommandsFDistribution{$command}*100/$total_commands; if ($percentage < 0.5) { my $hint = make_comment($command); $command_html = "$command"; $command_html = "$command_html" if $hint; my $command_html = "$command_html"; $Stat{RareCommands} .= $command_html."".$CommandsFDistribution{$command}." , "; } else { my $hint = make_comment($command); $command_html = "$command"; $command_html = "$command_html" if $hint; my $command_html = "$command_html"; $percentage = sprintf "%5.2f",$percentage; $Stat{CommandsFDistribution} .= "".$command_html."".$CommandsFDistribution{$command}."". "|".("="x int($CommandsFDistribution{$command}*100/$total_commands))."| $percentage%"; } } $Stat{CommandsFDistribution} = "".$Stat{CommandsFDistribution}."
"; $Stat{RareCommands} =~ s/, $// if $Stat{RareCommands}; } $Result{"stat"} .= "

Статистика

"; $Result{"stat"} .= ""; for my $stat (@StatOrder) { $Result{"stat"} .= "" if $Stat{"$stat"}; } $Result{"stat"} .= "
".$StatNames{"$stat"}."".$Stat{"$stat"}."
"; $Result{"stat"} .= "____
*) Интервалы неактивности длительностью ".($Config{stat_inactivity_interval}/60)." минут и более не учитываются

"; #$Result{"help"} .= "
"; $Result{"help"} .= "

Справка

"; $Result{"help"} .= "$Html_Help
"; #$Result{"about"} .= "
"; $Result{"about"} .= "

О программе

"; $Result{"about"} .= "$Html_About"; $Result{"footer"} .= "\n"; $Result{"footer"} .= "\n"; $Result{"title"} = "Журнал лабораторных работ"; $Result{"title"}.= " -- ".$course_student if $course_student; if ($course_date) { $Result{"title"}.= " -- ".$course_date; $Result{"title"}.= "/".$course_code if $course_code; } else { $Result{"title"}.= " -- ".$course_code if $course_code; } # Заголовок генерируется позже всего # Тогда, когда известно уже, что должно быть написано в # оглавлении $Result{"header"} = < $Result{title}

Журнал лабораторных работ

HEADER $Result{"header"} .= "

" if $course_student || $course_trainer || $course_name || $course_code || $course_date || $course_center; $Result{"header"} .= "Выполнил $course_student
" if $course_student; $Result{"header"} .= "Проверил $course_trainer
" 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
" if $course_date; $Result{"header"} .= "Учебный центр $course_center
" if $course_center; $Result{"header"} .= "

" if $course_student || $course_trainer || $course_name || $course_code || $course_date || $course_center; my $toc = collapse_list (\@toc); $Result{"header"} .= <
  • Журнал
    • $toc
  • Статистика
  • Справка
  • О программе
  • Журнал

    HEADER $Result{"header"} .= "
    \n"; for my $element (keys %Elements_Visibility) { my @e = split /\s+/, $element; my $showhide = join "", map { "ShowHide('$_');" } @e ; $Result{"header"} .= "". $Elements_Visibility{$element}. "
    \n"; } $Result{"header"} .= "
    \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); } } sub collapse_list($) { my $res = ""; for my $elem (@{$_[0]}) { if (ref $elem eq "ARRAY") { $res .= "
      ".collapse_list($elem)."
    "; } else { $res .= "
  • ".$elem."
  • "; } } return $res; } sub init_variables { $Html_Help = <
  • В журнал автоматически попадают все команды, данные в любом терминале системы.

  • Для того чтобы убедиться, что журнал на текущем терминале ведётся, и команды записываются, дайте команду w. В поле WHAT, соответствующем текущему терминалу, должна быть указана программа script.

  • Если код завершения команды равен нулю, команда была выполнена без ошибок. Команды, код завершения которых отличен от нуля, выделяются цветом.
    \$ l s-l
    bash: l: command not found
    

  • Команды, ход выполнения которых был прерван пользователем, выделяются цветом.
    \$ find / -name abc
    find: /home/devi-orig/.gnome2: Keine Berechtigung
    find: /home/devi-orig/.gnome2_private: Keine Berechtigung
    find: /home/devi-orig/.nautilus/metafiles: Keine Berechtigung
    find: /home/devi-orig/.metacity: Keine Berechtigung
    find: /home/devi-orig/.inkscape: Keine Berechtigung
    ^C
    

  • Команды, выполненные с привилегиями суперпользователя, выделяются слева красной чертой.
    # id
    uid=0(root) gid=0(root) Gruppen=0(root)
    

  • Изменения, внесённые в текстовый файл с помощью редактора, запоминаются и показываются в журнале в формате ed. Строки, начинающиеся символом "<", удалены, а строки, начинающиеся символом ">" -- добавлены.
    \$ vi ~/.bashrc
    2a3,5
    > 	if [ -f /usr/local/etc/bash_completion ]; then
    >         . /usr/local/etc/bash_completion
    >     	fi
    

  • Для того чтобы получить краткую справочную информацию о команде, нужно подвести к ней мышь. Во всплывающей подсказке появится краткое описание команды.

  • Время ввода команды, показанное в журнале, соответствует времени начала ввода командной строки, которое равно тому моменту, когда на терминале появилось приглашение интерпретатора

  • Имя терминала, на котором была введена команда, показано в специальном блоке. Этот блок показывается только в том случае, если терминал текущей команды отличается от терминала предыдущей.

  • Вывод не интересующих вас в настоящий момент элементов журнала, таких как время, имя терминала и других, можно отключить. Для этого нужно воспользоваться формой управления журналом вверху страницы.

  • Небольшие комментарии к командам можно вставлять прямо из командной строки. Комментарий вводится прямо в командную строку, после символов #^ или #v. Символы ^ и v показывают направление выбора команды, к которой относится комментарий: ^ - к предыдущей, v - к следующей. Например, если в командной строке было введено:

    \$ whoami
    
    user
    
    \$ #^ Интересно, кто я?
    
    в журнале это будет выглядеть так:
    \$ whoami
    
    user
    
    Интересно, кто я?

  • Если комментарий содержит несколько строк, его можно вставить в журнал следующим образом:

    \$ whoami
    
    user
    
    \$ cat > /dev/null #^ Интересно, кто я?
    
    Программа whoami выводит имя пользователя, под которым 
    мы зарегистрировались в системе.
    -
    Она не может ответить на вопрос о нашем назначении 
    в этом мире.
    
    В журнале это будет выглядеть так:
    \$ whoami
    user
    
    Интересно, кто я?
    Программа whoami выводит имя пользователя, под которым
    мы зарегистрировались в системе.

    Она не может ответить на вопрос о нашем назначении
    в этом мире.
    Для разделения нескольких абзацев между собой используйте символ "-", один в строке.

  • Комментарии, не относящиеся непосредственно ни к какой из команд, добавляются точно таким же способом, только вместо симолов #^ или #v нужно использовать символы #=

  • HELP $Html_About = < LiLaLo (L3) расшифровывается как Live Lab Log.
    Программа разработана для повышения эффективности обучения Unix/Linux-системам.
    (c) Игорь Чубин, 2004-2005

    ABOUT $Html_About.='$Id$

    '; $Html_JavaScript = <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}" }, ); %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" ); @Day_Name = qw/ Воскресенье Понедельник Вторник Среда Четверг Пятница Суббота /; @Month_Name = qw/ Январь Февраль Март Апрель Май Июнь Июль Август Сентябрь Октябрь Ноябрь Декабрь /; @Of_Month_Name = qw/ Января Февраля Марта Апреля Мая Июня Июля Августа Сентября Октября Ноября Декабря /; }