lilalo
diff l3-frontend @ 80:d28dda8ea18f
1)
Изменён формат имени diff-файлов.
Теперь в имени присутствует только название сессии, время и имя файла.
2)
Можно просмотреть отдельную сессию.
Для этого нужно щёлкнуть по блоку сессии в журнале
3)
Исправлена ошибка с таблицей новых команд в последнем дне.
Раньше она просто не показывалась
4)
Запись lablog-ов теперь ведётся только для интерактивных shell'ов
Неинтерактивные работают как обычно.
Изменён формат имени diff-файлов.
Теперь в имени присутствует только название сессии, время и имя файла.
2)
Можно просмотреть отдельную сессию.
Для этого нужно щёлкнуть по блоку сессии в журнале
3)
Исправлена ошибка с таблицей новых команд в последнем дне.
Раньше она просто не показывалась
4)
Запись lablog-ов теперь ведётся только для интерактивных shell'ов
Неинтерактивные работают как обычно.
| author | devi |
|---|---|
| date | Mon Feb 20 17:52:40 2006 +0200 (2006-02-20) |
| parents | 58ea78973bbb |
| children | d9a700d48bef |
line diff
1.1 --- a/l3-frontend Fri Feb 10 23:35:24 2006 +0200 1.2 +++ b/l3-frontend Mon Feb 20 17:52:40 2006 +0200 1.3 @@ -394,6 +394,7 @@ 1.4 1.5 my $cl; 1.6 my $last_tty=""; 1.7 + my $last_session=""; 1.8 my $last_day=q(); 1.9 my $last_wday=q(); 1.10 my $in_range=0; 1.11 @@ -565,11 +566,20 @@ 1.12 for my $entry_class (sort keys %new_entries_of) { 1.13 my $new_commands_section = make_new_entries_table($entry_class=~/[0-9]+\s+(.*)/, \@known_commands); 1.14 1.15 - my $table_caption = "Таблица ".$table_number++.". ".$Day_Name[$last_wday].". Новые ".$new_entries_of{$entry_class}; 1.16 + my $table_caption = "Таблица " 1.17 + . $table_number++ 1.18 + . ". " 1.19 + . $Day_Name[$last_wday] 1.20 + . ". Новые " 1.21 + . $new_entries_of{$entry_class}; 1.22 if ($new_commands_section) { 1.23 $result .= "<table class='new_commands_table' width='700' cellspacing='0' cellpadding='0'>" 1.24 - . "<tr class='new_commands_caption'><td colspan='2' align='right'>$table_caption</td></tr>" 1.25 - . "<tr class='new_commands_header'><td width=100>Команда</td><td width=600>Описание</td></tr>" 1.26 + . "<tr class='new_commands_caption'>" 1.27 + . "<td colspan='2' align='right'>$table_caption</td>" 1.28 + . "</tr>" 1.29 + . "<tr class='new_commands_header'>" 1.30 + . "<td width=100>Команда</td><td width=600>Описание</td>" 1.31 + . "</tr>" 1.32 . $new_commands_section 1.33 . "</table>" 1.34 } 1.35 @@ -637,6 +647,15 @@ 1.36 $last_tty=$cl->{"tty"}; 1.37 } 1.38 1.39 +# Session change 1.40 + if ( $last_session ne $cl->{"local_session_id"}) { 1.41 + my $tty = $cl->{"tty"}; 1.42 + $this_day_result .= "<a href='?local_session_id=".$cl->{"local_session_id"}."'><div class='ttychange'>" 1.43 + . $Sessions{$cl->{"local_session_id"}}->{"tty"} 1.44 + ."</div></a>"; 1.45 + $last_session=$cl->{"local_session_id"}; 1.46 + } 1.47 + 1.48 # TIME 1.49 $this_day_result .= "<div class='time'>$hour:$min:$sec</div>" 1.50 if $Config{"show_time"} =~ /^y/i; 1.51 @@ -725,24 +744,29 @@ 1.52 $result .= "<h3 id='day$last_day'>".$Day_Name[$last_wday]."</h3>"; 1.53 1.54 for my $entry_class (keys %new_entries_of) { 1.55 - my $new_commands_section = make_new_entries_table("$entry_class", \@known_commands); 1.56 - @known_commands = keys %CommandsFDistribution; 1.57 - 1.58 - my $table_caption = "Таблица ".$table_number++.". Новые ".$new_entries_of{$entry_class}. ". ".$Day_Name[$last_wday]; 1.59 + my $new_commands_section = make_new_entries_table($entry_class=~/[0-9]+\s+(.*)/, \@known_commands); 1.60 + my $table_caption = "Таблица " 1.61 + . $table_number++ 1.62 + . ". " 1.63 + . $Day_Name[$last_wday] 1.64 + . ". Новые " 1.65 + . $new_entries_of{$entry_class}; 1.66 if ($new_commands_section) { 1.67 - $result .= "<table class='new_commands_table'>" 1.68 - . "<tr class='new_commands_caption'><td colspan='2' align='right'>$table_caption</td></tr>" 1.69 - . "<tr class='new_commands_header'><td width='200'>Команда</td><td width='600'>Описание</td></tr>" 1.70 + $result .= "<table class='new_commands_table' width='700' cellspacing='0' cellpadding='0'>" 1.71 + . "<tr class='new_commands_caption'>" 1.72 + . "<td colspan='2' align='right'>$table_caption</td>" 1.73 + . "</tr>" 1.74 + . "<tr class='new_commands_header'>" 1.75 + . "<td width=100>Команда</td><td width=600>Описание</td>" 1.76 + . "</tr>" 1.77 . $new_commands_section 1.78 . "</table>" 1.79 - ; 1.80 } 1.81 1.82 } 1.83 + @known_commands = keys %CommandsFDistribution; 1.84 1.85 - #$result .= "<table width='100%'>\n"; 1.86 $result .= $this_day_result; 1.87 - #$result .= "</table>"; 1.88 } 1.89 1.90 return ($result, collapse_list (\@toc));