# HG changeset patch # User igor@chub.in # Date 1245709050 -10800 # Node ID 80691b40e6db185b7f6d27a6e663aa313cd01341 # Parent 822b36252d7fd11f9933f16a0e321bfa2541523b см. предыдущий коммит diff -r 822b36252d7f -r 80691b40e6db l3-frontend --- a/l3-frontend Tue Jun 23 01:15:02 2009 +0300 +++ b/l3-frontend Tue Jun 23 01:17:30 2009 +0300 @@ -4,6 +4,7 @@ use lib '/etc/lilalo'; use l3config; use utf8; +no warnings; our @Command_Lines; our @Command_Lines_Index; @@ -60,6 +61,7 @@ sub print_files_html; sub print_stat_html; sub print_header_html; +sub print_header2_html; sub print_footer_html; sub tigra_hints_generate; @@ -419,6 +421,7 @@ my $cl = \$Command_Lines[$i]; + # Запоминаем предыщуюу команду # Она нам потребуется, в частности, для ввода tab_seq рпи обработке tab_completion my $prev_cl; @@ -436,6 +439,7 @@ $$cl->{id} = $$cl->{"time"}; + $$cl->{err} ||=0; @@ -475,7 +479,8 @@ $Files{$filename}->{"source_command_id"} = $$cl->{"id"} } my @lines = split '\n', $$cl->{"output"}; - if (( + if ( !$Config{"command_id"} && + ( $Config{"head_lines"} || $Config{"tail_lines"} ) @@ -484,7 +489,7 @@ for (my $i=0; $i<= $#lines && $i < $Config{"head_lines"}; $i++) { $output .= $lines[$i]."\n"; } - $output .= $Config{"skip_text"}."\n"; + $output .= "".$Config{"skip_text"}."\n"; my $start_line=$#lines-$Config{"tail_lines"}+1; for (my $i=$start_line; $i<= $#lines; $i++) { @@ -643,6 +648,7 @@ next if $current_command < $Config{"start_from_command"}; last if $current_command > $Config{"start_from_command"} + $Config{"commands_to_show_at_a_go"}; + next if $Config{"command_id"} && $cl->{id} ne $Config{"command_id"}; # Пропускаем строки, которые противоречат фильтру @@ -1287,19 +1293,17 @@ $result = $debug_output; $result .= print_header_html($toc); - - -# $result.= join "
", keys %Sessions; -# for my $sess (keys %Sessions) { -# $result .= join " ", keys (%{$Sessions{$sess}}); -# $result .= "
"; -# } - - $result.= "

Журнал

" . $command_lines; - $result.= "

Файлы

" . $files_section if $files_section; - $result.= "

Статистика

" . print_stat_html; - $result.= "

Справка

" . $Html_Help . "
"; - $result.= "

О программе

". $Html_About. "
"; + if ($Config{"command_id"}) { + $result .= $command_lines; + } + else { + $result .= print_header2_html($toc); + $result.= "

Журнал

" . $command_lines; + $result.= "

Файлы

" . $files_section if $files_section; + $result.= "

Статистика

" . print_stat_html; + $result.= "

Справка

" . $Html_Help . "
"; + $result.= "

О программе

". $Html_About. "
"; + } $result.= print_footer_html; if ($output_filename eq "-") { @@ -1324,6 +1328,55 @@ sub print_header_html { + my $tigra_hints_array=tigra_hints_generate; + + my $result; + $result = < + + + + $title + + + + + + + + + + +HEADER + return $result; +} + +sub print_header2_html +{ + my $result =""; my $toc = $_[0]; my $course_name = $Config{"course-name"}; my $course_code = $Config{"course-code"}; @@ -1364,63 +1417,8 @@ # Она слишком сильно мешает, нужно что-то переделать $control_form = ""; - my $tigra_hints_array=tigra_hints_generate; - my $result; - $result = < - - - - $title - - - - - - - - - - - - - - + $result .= < [ править ]