lilalo
annotate l3-frontend @ 143:51a232faeb27
Ссылки в блоках на wiki на команды
Если кликнуть на команду в wiki,
попадёшь на соответствующую команду
в журнале.
Пока что не поддерживаются
многостраничные журналы
Если кликнуть на команду в wiki,
попадёшь на соответствующую команду
в журнале.
Пока что не поддерживаются
многостраничные журналы
| author | igor@chub.in |
|---|---|
| date | Wed Jul 23 00:41:26 2008 +0300 (2008-07-23) |
| parents | 31ebdfe9797d |
| children | 2c9ea8e4fa14 |
| rev | line source |
|---|---|
| igor@121 | 1 #!/usr/bin/perl |
| devi@23 | 2 |
| igor@109 | 3 use POSIX qw(strftime); |
| igor@115 | 4 use lib '/etc/lilalo'; |
| devi@23 | 5 use l3config; |
| devi@88 | 6 use utf8; |
| devi@23 | 7 |
| devi@23 | 8 our @Command_Lines; |
| devi@31 | 9 our @Command_Lines_Index; |
| devi@31 | 10 our %Commands_Description; |
| devi@31 | 11 our %Args_Description; |
| devi@32 | 12 our %Sessions; |
| devi@89 | 13 |
| igor@109 | 14 our $debug_output=""; # Используйте эту переменную, если нужно передать отладочную информацию |
| igor@109 | 15 |
| devi@84 | 16 our %filter; |
| devi@89 | 17 our $filter_url; |
| devi@89 | 18 sub init_filter; |
| devi@23 | 19 |
| devi@69 | 20 our %Files; |
| devi@69 | 21 |
| devi@23 | 22 # vvv Инициализация переменных выполняется процедурой init_variables |
| devi@23 | 23 our @Day_Name; |
| devi@23 | 24 our @Month_Name; |
| devi@23 | 25 our @Of_Month_Name; |
| devi@23 | 26 our %Search_Machines; |
| devi@23 | 27 our %Elements_Visibility; |
| devi@23 | 28 # ^^^ |
| devi@23 | 29 |
| igor@109 | 30 our $First_Command=$0; |
| igor@109 | 31 our $Last_Command=40; |
| igor@109 | 32 |
| devi@31 | 33 our %Stat; |
| devi@87 | 34 our %frequency_of_command; # Сколько раз в журнале встречается какая команда |
| devi@63 | 35 our $table_number=1; |
| igor@109 | 36 our %tigra_hints; |
| devi@31 | 37 |
| devi@55 | 38 my %mywi_cache_for; # Кэш для экономии обращений к mywi |
| devi@55 | 39 |
| igor@109 | 40 sub count_frequency_of_commands; |
| devi@23 | 41 sub make_comment; |
| devi@63 | 42 sub make_new_entries_table; |
| devi@23 | 43 sub load_command_lines_from_xml; |
| devi@32 | 44 sub load_sessions_from_xml; |
| devi@31 | 45 sub sort_command_lines; |
| devi@31 | 46 sub process_command_lines; |
| devi@23 | 47 sub init_variables; |
| devi@23 | 48 sub main; |
| devi@31 | 49 sub collapse_list($); |
| devi@23 | 50 |
| devi@87 | 51 sub minutes_passed; |
| devi@87 | 52 |
| devi@88 | 53 sub print_all_txt; |
| devi@88 | 54 sub print_all_html; |
| devi@89 | 55 sub print_edit_all_html; |
| devi@88 | 56 sub print_command_lines_html; |
| devi@89 | 57 sub print_command_lines_txt; |
| devi@88 | 58 sub print_files_html; |
| devi@88 | 59 sub print_stat_html; |
| devi@88 | 60 sub print_header_html; |
| devi@88 | 61 sub print_footer_html; |
| igor@109 | 62 sub tigra_hints_generate; |
| igor@109 | 63 |
| igor@109 | 64 #### mywi |
| igor@109 | 65 # |
| igor@109 | 66 sub mywi_init; |
| igor@109 | 67 sub load_mywitxt; |
| igor@109 | 68 sub mywi_process_query($); |
| igor@109 | 69 # |
| igor@109 | 70 sub add_to_log($$); |
| igor@109 | 71 sub parse_query; |
| igor@109 | 72 sub search_in_txt; |
| igor@109 | 73 sub add_to_log($$); |
| igor@109 | 74 sub mywi_guess($); |
| igor@109 | 75 # |
| devi@56 | 76 |
| devi@23 | 77 main(); |
| devi@23 | 78 |
| devi@23 | 79 sub main |
| devi@23 | 80 { |
| devi@49 | 81 $| = 1; |
| devi@23 | 82 |
| devi@49 | 83 init_variables(); |
| devi@49 | 84 init_config(); |
| devi@68 | 85 $Config{frontend_ico_path}=$Config{frontend_css}; |
| devi@68 | 86 $Config{frontend_ico_path}=~s@/[^/]*$@@; |
| devi@89 | 87 init_filter(); |
| igor@109 | 88 mywi_init(); |
| devi@23 | 89 |
| devi@49 | 90 load_command_lines_from_xml($Config{"backend_datafile"}); |
| devi@49 | 91 load_sessions_from_xml($Config{"backend_datafile"}); |
| devi@49 | 92 sort_command_lines; |
| devi@49 | 93 process_command_lines; |
| devi@89 | 94 if (defined($filter{action}) && $filter{action} eq "edit") { |
| devi@89 | 95 print_edit_all_html($Config{"output"}); |
| devi@89 | 96 } |
| devi@89 | 97 else { |
| devi@89 | 98 print_all_html($Config{"output"}); |
| devi@89 | 99 } |
| devi@23 | 100 } |
| devi@23 | 101 |
| devi@89 | 102 sub init_filter |
| devi@89 | 103 { |
| devi@89 | 104 if ($Config{filter}) { |
| devi@89 | 105 # Инициализация фильтра |
| igor@141 | 106 for (split /;;/,$Config{filter}) { |
| igor@141 | 107 my ($var, $val) = split /::/; |
| devi@89 | 108 $filter{$var} = $val || ""; |
| devi@89 | 109 } |
| devi@89 | 110 } |
| igor@141 | 111 $filter_url = join (";;", map("$_::$filter{$_}", keys %filter)); |
| devi@89 | 112 } |
| devi@89 | 113 |
| devi@56 | 114 # extract_from_cline |
| devi@23 | 115 |
| devi@56 | 116 # In: $what = commands | args |
| devi@56 | 117 # Out: return ссылка на хэш, содержащий результаты разбора |
| devi@56 | 118 # команда => позиция |
| devi@23 | 119 |
| devi@31 | 120 # Разобрать командную строку $_[1] и возвратить хэш, содержащий |
| devi@31 | 121 # номер первого появление команды в строке: |
| devi@49 | 122 # команда => первая позиция |
| devi@56 | 123 sub extract_from_cline |
| devi@31 | 124 { |
| devi@49 | 125 my $what = $_[0]; |
| devi@49 | 126 my $cline = $_[1]; |
| devi@49 | 127 my @lists = split /\;/, $cline; |
| devi@49 | 128 |
| devi@49 | 129 |
| devi@56 | 130 my @command_lines = (); |
| devi@56 | 131 for my $command_list (@lists) { |
| devi@56 | 132 push(@command_lines, split(/\|/, $command_list)); |
| devi@49 | 133 } |
| devi@31 | 134 |
| devi@56 | 135 my %position_of_command; |
| devi@56 | 136 my %position_of_arg; |
| devi@49 | 137 my $i=0; |
| devi@56 | 138 for my $command_line (@command_lines) { |
| devi@56 | 139 $command_line =~ s@^\s*@@; |
| devi@56 | 140 $command_line =~ /\s*(\S+)\s*(.*)/; |
| devi@49 | 141 if ($1 && $1 eq "sudo" ) { |
| devi@56 | 142 $position_of_command{"$1"}=$i++; |
| devi@56 | 143 $command_line =~ s/\s*sudo\s+//; |
| devi@49 | 144 } |
| devi@56 | 145 if ($command_line !~ m@^\s*\S*/etc/@) { |
| devi@56 | 146 $command_line =~ s@^\s*\S+/@@; |
| devi@56 | 147 } |
| devi@56 | 148 |
| devi@56 | 149 $command_line =~ /\s*(\S+)\s*(.*)/; |
| devi@56 | 150 my $command = $1; |
| devi@56 | 151 my $args = $2; |
| devi@56 | 152 if ($command && !defined $position_of_command{"$command"}) { |
| devi@56 | 153 $position_of_command{"$command"}=$i++; |
| devi@49 | 154 }; |
| devi@56 | 155 if ($args) { |
| devi@49 | 156 my @args = split (/\s+/, $args); |
| devi@49 | 157 for my $a (@args) { |
| devi@56 | 158 $position_of_arg{"$a"}=$i++ |
| devi@56 | 159 if !defined $position_of_arg{"$a"}; |
| devi@49 | 160 }; |
| devi@49 | 161 } |
| devi@49 | 162 } |
| devi@31 | 163 |
| devi@49 | 164 if ($what eq "commands") { |
| devi@56 | 165 return \%position_of_command; |
| devi@49 | 166 } else { |
| devi@56 | 167 return \%position_of_arg; |
| devi@49 | 168 } |
| devi@49 | 169 |
| devi@31 | 170 } |
| devi@31 | 171 |
| igor@109 | 172 sub mywrap($) |
| devi@31 | 173 { |
| igor@109 | 174 return '<div class="t"><div class="b"><div class="l"><div class="r"><div class="bl"><div class="br"><div class="tl"><div class="tr">'.$_[0]. |
| igor@109 | 175 '</div></div></div></div></div></div></div></div>'; |
| devi@31 | 176 } |
| devi@31 | 177 |
| igor@109 | 178 sub tigra_hints_generate |
| devi@31 | 179 { |
| igor@109 | 180 my $tigra_hints_items=""; |
| igor@109 | 181 for my $hint_id (keys %tigra_hints) { |
| igor@109 | 182 $tigra_hints{$hint_id} =~ s@\n@<br/>@gs; |
| igor@109 | 183 $tigra_hints{$hint_id} =~ s@ - @ — @gs; |
| igor@109 | 184 $tigra_hints{$hint_id} =~ s@'@\\'@gs; |
| igor@109 | 185 # $tigra_hints_items .= "'$hint_id' : mywrap('".$tigra_hints{$hint_id}."'),"; |
| igor@109 | 186 $tigra_hints_items .= "'$hint_id' : '".mywrap($tigra_hints{$hint_id})."',"; |
| igor@109 | 187 } |
| igor@109 | 188 $tigra_hints_items =~ s/,$//; |
| igor@109 | 189 return <<TIGRA; |
| igor@109 | 190 |
| igor@109 | 191 var HINTS_CFG = { |
| igor@109 | 192 'top' : 5, // a vertical offset of a hint from mouse pointer |
| igor@109 | 193 'left' : 5, // a horizontal offset of a hint from mouse pointer |
| igor@109 | 194 'css' : 'hintsClass', // a style class name for all hints, TD object |
| igor@109 | 195 'show_delay' : 500, // a delay between object mouseover and hint appearing |
| igor@109 | 196 'hide_delay' : 2000, // a delay between hint appearing and hint hiding |
| igor@109 | 197 'wise' : true, |
| igor@109 | 198 'follow' : true, |
| igor@109 | 199 'z-index' : 0 // a z-index for all hint layers |
| igor@109 | 200 }, |
| igor@109 | 201 |
| igor@109 | 202 HINTS_CFG_NEW = { |
| igor@109 | 203 'wise' : true, // don't go off screen, don't overlap the object in the document |
| igor@109 | 204 'margin' : 10, // minimum allowed distance between the hint and the window edge (negative values accepted) |
| igor@109 | 205 'gap' : 20, // minimum allowed distance between the hint and the origin (negative values accepted) |
| igor@109 | 206 'align' : 'bctl', // align of the hint and the origin (by first letters origin's top|middle|bottom left|center|right to hint's top|middle|bottom left|center|right) |
| igor@109 | 207 'css' : 'hintsClass', // a style class name for all hints, applied to DIV element (see style section in the header of the document) |
| igor@109 | 208 'show_delay' : 0, // a delay between initiating event (mouseover for example) and hint appearing |
| igor@109 | 209 'hide_delay' : 200, // a delay between closing event (mouseout for example) and hint disappearing |
| igor@109 | 210 'follow' : true, // hint follows the mouse as it moves |
| igor@109 | 211 'z-index' : 100, // a z-index for all hint layers |
| igor@109 | 212 'IEfix' : false, // fix IE problem with windowed controls visible through hints (activate if select boxes are visible through the hints) |
| igor@109 | 213 'IEtrans' : ['blendTrans(DURATION=.3)', null], // [show transition, hide transition] - nice transition effects, only work in IE5+ |
| igor@109 | 214 'opacity' : 90 // opacity of the hint in %% |
| igor@109 | 215 }, |
| igor@109 | 216 |
| igor@109 | 217 HINTS_ITEMS = { |
| igor@109 | 218 $tigra_hints_items |
| igor@109 | 219 }; |
| igor@109 | 220 var myHint = new THints (HINTS_CFG, HINTS_ITEMS); |
| igor@109 | 221 |
| igor@109 | 222 |
| igor@109 | 223 function mywrap (s_) { |
| igor@109 | 224 return '<div class="t"><div class="b"><div class="l"><div class="r"><div class="bl"><div class="br"><div class="tl"><div class="tr">'+s_+ |
| igor@109 | 225 '</div></div></div></div></div></div></div></div>'; |
| igor@109 | 226 |
| igor@109 | 227 } |
| igor@109 | 228 TIGRA |
| igor@109 | 229 $a=<<TIGRA; |
| igor@109 | 230 TIGRA |
| devi@31 | 231 } |
| devi@31 | 232 |
| devi@31 | 233 |
| igor@109 | 234 sub count_frequency_of_commands |
| devi@31 | 235 { |
| igor@109 | 236 my $cline = $_[0]; |
| igor@109 | 237 my @commands = keys %{extract_from_cline("commands", $cline)}; |
| igor@109 | 238 for my $command (@commands) { |
| igor@109 | 239 $frequency_of_command{$command}++; |
| devi@49 | 240 } |
| devi@31 | 241 } |
| devi@31 | 242 |
| devi@23 | 243 sub make_comment |
| devi@23 | 244 { |
| devi@49 | 245 my $cline = $_[0]; |
| devi@49 | 246 #my $files = $_[1]; |
| devi@23 | 247 |
| devi@55 | 248 my @comments; |
| devi@49 | 249 my @commands = keys %{extract_from_cline("commands", $cline)}; |
| devi@49 | 250 my @args = keys %{extract_from_cline("args", $cline)}; |
| devi@49 | 251 return if (!@commands && !@args); |
| devi@49 | 252 #return "commands=".join(" ",@commands)."; files=".join(" ",@files); |
| devi@23 | 253 |
| devi@49 | 254 # Commands |
| devi@49 | 255 for my $command (@commands) { |
| devi@49 | 256 $command =~ s/'//g; |
| igor@109 | 257 #$frequency_of_command{$command}++; |
| devi@49 | 258 if (!$Commands_Description{$command}) { |
| igor@109 | 259 $mywi_cache_for{$command} ||= mywi_process_query($command) || ""; |
| devi@63 | 260 my $mywi = join ("\n", grep(/\([18]|sh|script\)/, split(/\n/, $mywi_cache_for{$command}))); |
| devi@49 | 261 $mywi =~ s/\s+/ /; |
| devi@49 | 262 if ($mywi !~ /^\s*$/) { |
| devi@49 | 263 $Commands_Description{$command} = $mywi; |
| devi@49 | 264 } |
| devi@49 | 265 else { |
| devi@49 | 266 next; |
| devi@49 | 267 } |
| devi@49 | 268 } |
| devi@23 | 269 |
| devi@49 | 270 push @comments, $Commands_Description{$command}; |
| devi@49 | 271 } |
| devi@49 | 272 return join(" \n", @comments); |
| devi@49 | 273 |
| devi@49 | 274 # Files |
| devi@49 | 275 for my $arg (@args) { |
| devi@49 | 276 $arg =~ s/'//g; |
| devi@49 | 277 if (!$Args_Description{$arg}) { |
| devi@49 | 278 my $mywi; |
| devi@49 | 279 $mywi = mywi_client ($arg); |
| devi@49 | 280 $mywi = join ("\n", grep(/\([5]\)/, split(/\n/, $mywi))); |
| devi@49 | 281 $mywi =~ s/\s+/ /; |
| devi@49 | 282 if ($mywi !~ /^\s*$/) { |
| devi@49 | 283 $Args_Description{$arg} = $mywi; |
| devi@49 | 284 } |
| devi@49 | 285 else { |
| devi@49 | 286 next; |
| devi@49 | 287 } |
| devi@49 | 288 } |
| devi@23 | 289 |
| devi@49 | 290 push @comments, $Args_Description{$arg}; |
| devi@49 | 291 } |
| devi@23 | 292 |
| devi@23 | 293 } |
| devi@23 | 294 |
| devi@23 | 295 =cut |
| devi@23 | 296 Процедура load_command_lines_from_xml выполняет загрузку разобранного lab-скрипта |
| devi@23 | 297 из XML-документа в переменную @Command_Lines |
| devi@23 | 298 |
| devi@56 | 299 # In: $datafile имя файла |
| devi@56 | 300 # Out: @CommandLines загруженные командные строки |
| devi@56 | 301 |
| devi@23 | 302 Предупреждение! |
| devi@23 | 303 Процедура не в состоянии обрабатывать XML-документ любой структуры. |
| devi@23 | 304 В действительности файл cache из которого загружаются данные |
| devi@23 | 305 просто напоминает XML с виду. |
| devi@23 | 306 =cut |
| devi@23 | 307 sub load_command_lines_from_xml |
| devi@23 | 308 { |
| devi@49 | 309 my $datafile = $_[0]; |
| devi@23 | 310 |
| devi@49 | 311 open (CLASS, $datafile) |
| devi@81 | 312 or die "Can't open file with xml lablog ",$datafile,"\n"; |
| devi@49 | 313 local $/; |
| devi@89 | 314 binmode CLASS, ":utf8"; |
| devi@49 | 315 $data = <CLASS>; |
| devi@49 | 316 close(CLASS); |
| devi@23 | 317 |
| devi@49 | 318 for $command ($data =~ m@<command>(.*?)</command>@sg) { |
| devi@49 | 319 my %cl; |
| devi@49 | 320 while ($command =~ m@<([^>]*?)>(.*?)</\1>@sg) { |
| devi@49 | 321 $cl{$1} = $2; |
| devi@49 | 322 } |
| devi@49 | 323 push @Command_Lines, \%cl; |
| devi@49 | 324 } |
| devi@23 | 325 } |
| devi@23 | 326 |
| devi@32 | 327 sub load_sessions_from_xml |
| devi@32 | 328 { |
| devi@49 | 329 my $datafile = $_[0]; |
| devi@32 | 330 |
| devi@89 | 331 open (CLASS, $datafile) |
| devi@81 | 332 or die "Can't open file with xml lablog ",$datafile,"\n"; |
| devi@49 | 333 local $/; |
| devi@89 | 334 binmode CLASS, ":utf8"; |
| devi@49 | 335 my $data = <CLASS>; |
| devi@49 | 336 close(CLASS); |
| devi@32 | 337 |
| devi@84 | 338 my $i=0; |
| devi@84 | 339 for my $session ($data =~ m@<session>(.*?)</session>@msg) { |
| devi@84 | 340 my %session_hash; |
| devi@49 | 341 while ($session =~ m@<([^>]*?)>(.*?)</\1>@sg) { |
| devi@84 | 342 $session_hash{$1} = $2; |
| devi@49 | 343 } |
| devi@84 | 344 $Sessions{$session_hash{local_session_id}} = \%session_hash; |
| devi@49 | 345 } |
| devi@32 | 346 } |
| devi@32 | 347 |
| devi@32 | 348 |
| devi@56 | 349 # sort_command_lines |
| devi@56 | 350 # In: @Command_Lines |
| devi@56 | 351 # Out: @Command_Lies_Index |
| devi@32 | 352 |
| devi@31 | 353 sub sort_command_lines |
| devi@31 | 354 { |
| devi@31 | 355 |
| devi@49 | 356 my @index; |
| devi@49 | 357 for (my $i=0;$i<=$#Command_Lines;$i++) { |
| devi@49 | 358 $index[$i]=$i; |
| devi@49 | 359 } |
| devi@31 | 360 |
| devi@49 | 361 @Command_Lines_Index = sort { |
| devi@49 | 362 $Command_Lines[$index[$a]]->{"time"} <=> $Command_Lines[$index[$b]]->{"time"} |
| devi@49 | 363 } @index; |
| devi@31 | 364 |
| devi@31 | 365 } |
| devi@31 | 366 |
| devi@56 | 367 ################## |
| devi@56 | 368 # process_command_lines |
| devi@56 | 369 # |
| devi@56 | 370 # Обрабатываются командные строки @Command_Lines |
| devi@56 | 371 # Для каждой строки определяется: |
| devi@56 | 372 # class класс |
| devi@56 | 373 # note комментарий |
| devi@56 | 374 # |
| devi@56 | 375 # In: @Command_Lines_Index |
| devi@56 | 376 # In-Out: @Command_Lines |
| devi@56 | 377 |
| devi@31 | 378 sub process_command_lines |
| devi@31 | 379 { |
| devi@89 | 380 |
| igor@109 | 381 |
| igor@109 | 382 my $current_command=0; |
| igor@115 | 383 my $prev_i; |
| igor@115 | 384 |
| igor@115 | 385 my $tab_seq =0 ; # номер команды в последовательности tab-completion |
| igor@115 | 386 # отличен от нуля только для тех последовательностей, |
| igor@115 | 387 # где постоянно нажимается клавиша tab |
| igor@109 | 388 |
| devi@89 | 389 COMMAND_LINE_PROCESSING: |
| devi@49 | 390 for my $i (@Command_Lines_Index) { |
| igor@109 | 391 |
| igor@109 | 392 $current_command++; |
| igor@109 | 393 next if $current_command < $Config{"start_from_command"}; |
| igor@109 | 394 last if $current_command > $Config{"start_from_command"} + $Config{"commands_to_show_at_a_go"}; |
| igor@109 | 395 |
| devi@56 | 396 my $cl = \$Command_Lines[$i]; |
| devi@31 | 397 |
| igor@115 | 398 # Запоминаем предыщуюу команду |
| igor@115 | 399 # Она нам потребуется, в частности, для ввода tab_seq рпи обработке tab_completion |
| igor@115 | 400 my $prev_cl; |
| igor@115 | 401 $prev_cl = \$Command_Lines[$prev_i] if defined($prev_i); |
| igor@115 | 402 $prev_i = $i; |
| igor@115 | 403 |
| devi@56 | 404 next if !$cl; |
| devi@31 | 405 |
| devi@89 | 406 for my $filter_key (keys %filter) { |
| devi@89 | 407 next COMMAND_LINE_PROCESSING |
| devi@89 | 408 if defined($$cl->{local_session_id}) |
| devi@89 | 409 && defined($Sessions{$$cl->{local_session_id}}->{$filter_key}) |
| devi@89 | 410 && $Sessions{$$cl->{local_session_id}}->{$filter_key} ne $filter{$filter_key}; |
| devi@89 | 411 } |
| devi@89 | 412 |
| devi@73 | 413 $$cl->{id} = $$cl->{"time"}; |
| devi@73 | 414 |
| devi@56 | 415 $$cl->{err} ||=0; |
| devi@56 | 416 |
| igor@115 | 417 |
| devi@56 | 418 # Класс команды |
| devi@56 | 419 |
| devi@56 | 420 $$cl->{"class"} = $$cl->{"err"} eq 130 ? "interrupted" |
| devi@56 | 421 : $$cl->{"err"} eq 127 ? "mistyped" |
| devi@56 | 422 : $$cl->{"err"} ? "wrong" |
| devi@57 | 423 : "normal"; |
| devi@56 | 424 |
| devi@73 | 425 if ($$cl->{"cline"} && |
| devi@73 | 426 $$cl->{"cline"} =~ /[^|`]\s*sudo/ |
| devi@57 | 427 || $$cl->{"uid"} eq 0) { |
| devi@49 | 428 $$cl->{"class"}.="_root"; |
| devi@49 | 429 } |
| devi@31 | 430 |
| devi@91 | 431 my $hint; |
| igor@109 | 432 count_frequency_of_commands($$cl->{"cline"}); |
| devi@91 | 433 $hint = make_comment($$cl->{"cline"}); |
| igor@109 | 434 |
| devi@91 | 435 if ($hint) { |
| devi@91 | 436 $$cl->{hint} = $hint; |
| devi@91 | 437 } |
| igor@109 | 438 $tigra_hints{$$cl->{"time"}} = $hint; |
| igor@109 | 439 |
| igor@111 | 440 #$$cl->{hint}=""; |
| devi@87 | 441 |
| devi@87 | 442 # Выводим <head_lines> верхних строк |
| devi@87 | 443 # и <tail_lines> нижних строк, |
| devi@87 | 444 # если эти параметры существуют |
| devi@87 | 445 my $output=""; |
| devi@87 | 446 |
| devi@87 | 447 if ($$cl->{"last_command"} eq "cat" && !$$cl->{"err"} && !($$cl->{"cline"} =~ /</)) { |
| devi@87 | 448 my $filename = $$cl->{"cline"}; |
| devi@87 | 449 $filename =~ s/.*\s+(\S+)\s*$/$1/; |
| devi@87 | 450 $Files{$filename}->{"content"} = $$cl->{"output"}; |
| devi@87 | 451 $Files{$filename}->{"source_command_id"} = $$cl->{"id"} |
| devi@87 | 452 } |
| devi@87 | 453 my @lines = split '\n', $$cl->{"output"}; |
| devi@87 | 454 if (( |
| devi@87 | 455 $Config{"head_lines"} |
| devi@87 | 456 || $Config{"tail_lines"} |
| devi@87 | 457 ) |
| devi@87 | 458 && $#lines > $Config{"head_lines"} + $Config{"tail_lines"} ) { |
| devi@87 | 459 # |
| devi@87 | 460 for (my $i=0; $i<= $#lines && $i < $Config{"head_lines"}; $i++) { |
| devi@87 | 461 $output .= $lines[$i]."\n"; |
| devi@87 | 462 } |
| devi@87 | 463 $output .= $Config{"skip_text"}."\n"; |
| devi@87 | 464 |
| devi@87 | 465 my $start_line=$#lines-$Config{"tail_lines"}+1; |
| devi@87 | 466 for (my $i=$start_line; $i<= $#lines; $i++) { |
| devi@87 | 467 $output .= $lines[$i]."\n"; |
| devi@87 | 468 } |
| devi@87 | 469 } |
| devi@87 | 470 else { |
| devi@87 | 471 $output = $$cl->{"output"}; |
| devi@87 | 472 } |
| devi@87 | 473 $$cl->{short_output} = $output; |
| devi@56 | 474 |
| igor@115 | 475 # Обработка команд с одинаковым временем |
| igor@115 | 476 # Скорее всего они набраны с помощью tab-completion |
| igor@115 | 477 if (defined($prev_cl)) { |
| igor@119 | 478 if ($$prev_cl->{time} == $$cl->{time} && $$prev_cl->{nonce} == $$cl->{nonce}) { |
| igor@115 | 479 $tab_seq++; |
| igor@115 | 480 } |
| igor@115 | 481 else { |
| igor@115 | 482 $tab_seq=0; |
| igor@115 | 483 }; |
| igor@115 | 484 $$prev_cl->{tab_seq}=$tab_seq; |
| igor@115 | 485 |
| igor@115 | 486 # Обработка команд с одинаковым номером в истории |
| igor@115 | 487 # Скорее всего они набраны с помощью Ctrl-C |
| igor@119 | 488 #if ($$prev_cl->{history} == $$cl->{history}) { |
| igor@119 | 489 # $$prev_cl->{break}=1; |
| igor@119 | 490 #} |
| igor@115 | 491 } |
| igor@115 | 492 |
| igor@115 | 493 |
| devi@56 | 494 #Обработка пометок |
| devi@56 | 495 # Если несколько пометок (notes) идут подряд, |
| devi@56 | 496 # они все объединяются |
| devi@31 | 497 |
| devi@81 | 498 if ($$cl->{cline} =~ /l3shot/) { |
| devi@81 | 499 if ($$cl->{output} =~ m@Screenshot is written to.*/(.*)\.xwd@) { |
| igor@111 | 500 $$cl->{screenshot}="$1".$Config{l3shot_suffix}; |
| igor@111 | 501 } |
| igor@111 | 502 } |
| igor@111 | 503 if ($$cl->{cline} =~ /l3upload/) { |
| igor@111 | 504 if ($$cl->{output} =~ m@Uploaded file name is (.*)@) { |
| devi@81 | 505 $$cl->{screenshot}="$1"; |
| devi@81 | 506 } |
| devi@81 | 507 } |
| devi@81 | 508 |
| devi@49 | 509 if ($$cl->{cline}=~ m@cat[^#]*#([\^=v])\s*(.*)@) { |
| devi@56 | 510 |
| devi@56 | 511 my $note_operator = $1; |
| devi@56 | 512 my $note_title = $2; |
| devi@56 | 513 |
| devi@56 | 514 if ($note_operator eq "=") { |
| devi@49 | 515 $$cl->{"class"} = "note"; |
| devi@49 | 516 $$cl->{"note"} = $$cl->{"output"}; |
| devi@49 | 517 $$cl->{"note_title"} = $2; |
| devi@49 | 518 } |
| devi@49 | 519 else { |
| devi@49 | 520 my $j = $i; |
| devi@56 | 521 if ($note_operator eq "^") { |
| devi@49 | 522 $j--; |
| devi@49 | 523 $j-- while ($j >=0 && (!$Command_Lines[$j] || $Command_Lines[$j]->{tty} ne $$cl->{tty})); |
| devi@49 | 524 } |
| devi@56 | 525 elsif ($note_operator eq "v") { |
| devi@49 | 526 $j++; |
| devi@49 | 527 $j++ while ($j <= @Command_Lines && (!$Command_Lines[$j] || $Command_Lines[$j]->{tty} ne $$cl->{tty})); |
| devi@49 | 528 } |
| devi@56 | 529 $Command_Lines[$j]->{note_title}=$note_title; |
| devi@56 | 530 $Command_Lines[$j]->{note}.=$$cl->{output}; |
| devi@49 | 531 $$cl=0; |
| devi@49 | 532 } |
| devi@49 | 533 } |
| devi@49 | 534 elsif ($$cl->{cline}=~ /#([\^=v])(.*)/) { |
| devi@56 | 535 |
| devi@56 | 536 my $note_operator = $1; |
| devi@56 | 537 my $note_text = $2; |
| devi@56 | 538 |
| devi@56 | 539 if ($note_operator eq "=") { |
| devi@49 | 540 $$cl->{"class"} = "note"; |
| devi@56 | 541 $$cl->{"note"} = $note_text; |
| devi@49 | 542 } |
| devi@49 | 543 else { |
| devi@49 | 544 my $j=$i; |
| devi@56 | 545 if ($note_operator eq "^") { |
| devi@49 | 546 $j--; |
| devi@49 | 547 $j-- while ($j >=0 && (!$Command_Lines[$j] || $Command_Lines[$j]->{tty} ne $$cl->{tty})); |
| devi@49 | 548 } |
| devi@56 | 549 elsif ($note_operator eq "v") { |
| devi@49 | 550 $j++; |
| devi@49 | 551 $j++ while ($j <= @Command_Lines && $Command_Lines[$j]->{tty} ne $$cl->{tty} || !$Command_Lines[$j]); |
| devi@49 | 552 } |
| devi@56 | 553 $Command_Lines[$j]->{note}.="$note_text\n"; |
| devi@49 | 554 $$cl=0; |
| devi@49 | 555 } |
| devi@49 | 556 } |
| devi@88 | 557 if ($$cl->{"class"} eq "note") { |
| devi@87 | 558 my $note_html = $$cl->{note}; |
| devi@88 | 559 $note_html = join ("\n", map ("<p>$_</p>", split (/-\n/, $note_html))); |
| devi@87 | 560 $note_html =~ s@(http:[a-zA-Z.0-9/?\_%-]*)@<a href='$1'>$1</a>@g; |
| devi@87 | 561 $note_html =~ s@(www\.[a-zA-Z.0-9/?\_%-]*)@<a href='$1'>$1</a>@g; |
| devi@87 | 562 $$cl->{"note_html"} = $note_html; |
| devi@87 | 563 } |
| devi@49 | 564 } |
| devi@31 | 565 |
| devi@31 | 566 } |
| devi@31 | 567 |
| devi@31 | 568 |
| devi@23 | 569 =cut |
| devi@23 | 570 Процедура print_command_lines выводит HTML-представление |
| devi@23 | 571 разобранного lab-скрипта. |
| devi@23 | 572 |
| devi@23 | 573 Разобранный lab-скрипт должен находиться в массиве @Command_Lines |
| devi@23 | 574 =cut |
| devi@23 | 575 |
| devi@88 | 576 sub print_command_lines_html |
| devi@23 | 577 { |
| devi@23 | 578 |
| devi@56 | 579 my @toc; # Оглавление |
| devi@49 | 580 my $note_number=0; |
| devi@23 | 581 |
| devi@56 | 582 my $result = q(); |
| devi@56 | 583 my $this_day_resut = q(); |
| devi@49 | 584 |
| devi@49 | 585 my $cl; |
| devi@49 | 586 my $last_tty=""; |
| devi@80 | 587 my $last_session=""; |
| devi@56 | 588 my $last_day=q(); |
| devi@56 | 589 my $last_wday=q(); |
| igor@109 | 590 my $first_command_of_the_day_unix_time=q(); |
| igor@109 | 591 my $human_readable_time=q(); |
| devi@49 | 592 my $in_range=0; |
| devi@23 | 593 |
| devi@49 | 594 my $current_command=0; |
| devi@32 | 595 |
| devi@57 | 596 my @known_commands; |
| devi@57 | 597 |
| devi@56 | 598 |
| devi@56 | 599 |
| devi@56 | 600 $Stat{LastCommand} ||= 0; |
| devi@56 | 601 $Stat{TotalCommands} ||= 0; |
| devi@56 | 602 $Stat{ErrorCommands} ||= 0; |
| devi@56 | 603 $Stat{MistypedCommands} ||= 0; |
| devi@56 | 604 |
| devi@63 | 605 my %new_entries_of = ( |
| devi@64 | 606 "1 1" => "программы пользователя", |
| devi@64 | 607 "2 8" => "программы администратора", |
| devi@64 | 608 "3 sh" => "команды интерпретатора", |
| devi@64 | 609 "4 script"=> "скрипты", |
| devi@63 | 610 ); |
| devi@63 | 611 |
| devi@32 | 612 COMMAND_LINE: |
| devi@49 | 613 for my $k (@Command_Lines_Index) { |
| devi@31 | 614 |
| devi@49 | 615 my $cl=$Command_Lines[$Command_Lines_Index[$current_command++]]; |
| devi@49 | 616 next unless $cl; |
| devi@23 | 617 |
| igor@109 | 618 next if $current_command < $Config{"start_from_command"}; |
| igor@109 | 619 last if $current_command > $Config{"start_from_command"} + $Config{"commands_to_show_at_a_go"}; |
| igor@109 | 620 |
| igor@109 | 621 |
| devi@32 | 622 |
| devi@56 | 623 # Пропускаем строки, которые противоречат фильтру |
| devi@56 | 624 # Если у нас недостаточно информации о том, подходит строка под фильтр или нет, |
| devi@56 | 625 # мы её выводим |
| devi@56 | 626 |
| devi@56 | 627 for my $filter_key (keys %filter) { |
| devi@84 | 628 next COMMAND_LINE |
| devi@84 | 629 if defined($cl->{local_session_id}) |
| devi@84 | 630 && defined($Sessions{$cl->{local_session_id}}->{$filter_key}) |
| devi@56 | 631 && $Sessions{$cl->{local_session_id}}->{$filter_key} ne $filter{$filter_key}; |
| devi@49 | 632 } |
| devi@32 | 633 |
| devi@64 | 634 # Набираем статистику |
| devi@64 | 635 # Хэш %Stat |
| devi@64 | 636 |
| devi@64 | 637 $Stat{FirstCommand} = $cl->{time} unless $Stat{FirstCommand}; |
| devi@64 | 638 if ($cl->{time} - $Stat{LastCommand} < $Config{stat_inactivity_interval}) { |
| devi@64 | 639 $Stat{TotalTime} += $cl->{time} - $Stat{LastCommand} |
| devi@64 | 640 } |
| devi@64 | 641 my $seconds_since_last_command = $cl->{time} - $Stat{LastCommand}; |
| devi@87 | 642 |
| devi@87 | 643 if ($Stat{LastCommand} > $cl->{time}) { |
| devi@87 | 644 $result .= "Время идёт вспять<br/>"; |
| devi@87 | 645 }; |
| devi@64 | 646 $Stat{LastCommand} = $cl->{time}; |
| devi@64 | 647 $Stat{TotalCommands}++; |
| devi@64 | 648 |
| devi@56 | 649 # Пропускаем строки, выходящие за границу "signature", |
| devi@56 | 650 # при условии, что границы указаны |
| devi@56 | 651 # Пропускаем неправильные/прерванные/другие команды |
| devi@49 | 652 if ($Config{"from"} && $cl->{"cline"} =~ /$Config{"signature"}\s*$Config{"from"}/) { |
| devi@49 | 653 $in_range=1; |
| devi@49 | 654 next; |
| devi@49 | 655 } |
| devi@49 | 656 if ($Config{"to"} && $cl->{"cline"} =~ /$Config{"signature"}\s*$Config{"to"}/) { |
| devi@49 | 657 $in_range=0; |
| devi@49 | 658 next; |
| devi@49 | 659 } |
| devi@56 | 660 next if ($Config{"from"} && $Config{"to"} && !$in_range) |
| devi@56 | 661 || ($Config{"skip_empty"} =~ /^y/i && $cl->{"cline"} =~ /^\s*$/ ) |
| devi@56 | 662 || ($Config{"skip_wrong"} =~ /^y/i && $cl->{"err"} != 0) |
| devi@56 | 663 || ($Config{"skip_interrupted"} =~ /^y/i && $cl->{"err"} == 130); |
| devi@49 | 664 |
| devi@87 | 665 |
| devi@87 | 666 |
| devi@87 | 667 |
| devi@87 | 668 # |
| devi@87 | 669 ## |
| devi@87 | 670 ## Начинается собственно вывод |
| devi@87 | 671 ## |
| devi@87 | 672 # |
| devi@87 | 673 |
| devi@87 | 674 ### Сначала обрабатываем границы разделов |
| devi@87 | 675 ### Если тип команды "note", это граница |
| devi@87 | 676 |
| devi@49 | 677 if ($cl->{class} eq "note") { |
| devi@57 | 678 $this_day_result .= "<tr><td colspan='6'>" |
| devi@57 | 679 . "<h4 id='note$note_number'>".$cl->{note_title}."</h4>" if $cl->{note_title} |
| devi@87 | 680 . "".$cl->{note_html}."<p/><p/></td></tr>"; |
| devi@31 | 681 |
| devi@49 | 682 if ($cl->{note_title}) { |
| devi@49 | 683 push @{$toc[@toc]},"<a href='#note$note_number'>".$cl->{note_title}."</a>"; |
| devi@49 | 684 $note_number++; |
| devi@49 | 685 } |
| devi@49 | 686 next; |
| devi@49 | 687 } |
| devi@31 | 688 |
| devi@49 | 689 my ($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = localtime($cl->{time}); |
| devi@31 | 690 |
| igor@109 | 691 |
| devi@49 | 692 # Добавляем спереди 0 для удобочитаемости |
| devi@56 | 693 $min = "0".$min if $min =~ /^.$/; |
| devi@49 | 694 $hour = "0".$hour if $hour =~ /^.$/; |
| devi@56 | 695 $sec = "0".$sec if $sec =~ /^.$/; |
| devi@23 | 696 |
| devi@56 | 697 $class=$cl->{"class"}; |
| devi@56 | 698 $Stat{ErrorCommands}++ if $class =~ /wrong/; |
| devi@56 | 699 $Stat{MistypedCommands}++ if $class =~ /mistype/; |
| devi@87 | 700 |
| devi@56 | 701 # DAY CHANGE |
| devi@49 | 702 if ( $last_day ne $day) { |
| igor@109 | 703 $prev_unix_time=$first_command_of_the_day_unix_time; |
| igor@109 | 704 $first_command_of_the_day_unix_time = $cl->{time}; |
| igor@109 | 705 $human_readable_time = strftime "%D", localtime($prev_unix_time); |
| devi@56 | 706 if ($last_day) { |
| devi@57 | 707 |
| devi@57 | 708 # Вычисляем разность множеств. |
| devi@57 | 709 # Что-то вроде этого, если бы так можно было писать: |
| devi@87 | 710 # @new_commands = keys %frequency_of_command - @known_commands; |
| devi@57 | 711 |
| devi@57 | 712 |
| igor@109 | 713 # Выводим предыдущий день |
| igor@109 | 714 |
| igor@109 | 715 $result .= "<h3 id='day_on_sec_$prev_unix_time'>".$Day_Name[$last_wday]." ($human_readable_time)</h3>"; |
| devi@64 | 716 for my $entry_class (sort keys %new_entries_of) { |
| devi@87 | 717 my $table_caption = "Таблица ".$table_number++.".".$Day_Name[$last_wday] |
| devi@87 | 718 .". Новые ".$new_entries_of{$entry_class}; |
| devi@87 | 719 my $new_commands_section = make_new_entries_table( |
| devi@87 | 720 $table_caption, |
| devi@87 | 721 $entry_class=~/[0-9]+\s+(.*)/, |
| devi@87 | 722 \@known_commands); |
| devi@63 | 723 } |
| devi@87 | 724 @known_commands = keys %frequency_of_command; |
| devi@56 | 725 $result .= $this_day_result; |
| devi@56 | 726 } |
| devi@56 | 727 |
| igor@109 | 728 # Добавляем текущий день в оглавление |
| igor@109 | 729 |
| igor@109 | 730 $human_readable_time = strftime "%D", localtime($first_command_of_the_day_unix_time); |
| igor@109 | 731 push @toc, "<a href='#day_on_sec_$first_command_of_the_day_unix_time'>".$Day_Name[$wday]." ($human_readable_time)</a>\n"; |
| igor@109 | 732 |
| igor@109 | 733 |
| devi@49 | 734 $last_day=$day; |
| devi@56 | 735 $last_wday=$wday; |
| devi@56 | 736 $this_day_result = q(); |
| devi@49 | 737 } |
| devi@87 | 738 else { |
| devi@87 | 739 $this_day_result .= minutes_passed($seconds_since_last_command); |
| devi@64 | 740 } |
| devi@23 | 741 |
| devi@75 | 742 $this_day_result .= "<div class='command' id='command:".$cl->{"id"}."' >\n"; |
| devi@56 | 743 |
| devi@56 | 744 # CONSOLE CHANGE |
| devi@81 | 745 if ($cl->{"tty"} && $last_tty ne $cl->{"tty"} && 0) { |
| devi@56 | 746 my $tty = $cl->{"tty"}; |
| devi@75 | 747 $this_day_result .= "<div class='ttychange'>" |
| devi@56 | 748 . $tty |
| devi@75 | 749 ."</div>"; |
| devi@49 | 750 $last_tty=$cl->{"tty"}; |
| devi@49 | 751 } |
| devi@23 | 752 |
| devi@80 | 753 # Session change |
| devi@80 | 754 if ( $last_session ne $cl->{"local_session_id"}) { |
| devi@89 | 755 my $tty; |
| devi@89 | 756 if (defined $Sessions{$cl->{"local_session_id"}}->{"tty"}) { |
| igor@141 | 757 $this_day_result .= "<div class='ttychange'><a href='?filter=local_session_id::".$cl->{"local_session_id"}."'>" |
| devi@80 | 758 . $Sessions{$cl->{"local_session_id"}}->{"tty"} |
| devi@87 | 759 ."</a></div>"; |
| devi@89 | 760 } |
| devi@80 | 761 $last_session=$cl->{"local_session_id"}; |
| devi@80 | 762 } |
| devi@80 | 763 |
| devi@56 | 764 # TIME |
| devi@87 | 765 if ($Config{"show_time"} =~ /^y/i) { |
| devi@87 | 766 $this_day_result .= "<div class='time'>$hour:$min:$sec</div>" |
| devi@87 | 767 } |
| devi@64 | 768 |
| devi@56 | 769 # COMMAND |
| devi@56 | 770 my $cline; |
| igor@119 | 771 $prompt_hint = join (" ", |
| igor@119 | 772 map("$_=$cl->{$_}", |
| igor@119 | 773 grep (!/^(output|short_output|diff)$/, |
| igor@119 | 774 sort(keys(%{$cl}))))); |
| igor@119 | 775 |
| igor@135 | 776 $cl->{"prompt"} =~ s/ $//; |
| igor@135 | 777 $cline = "<span title='$prompt_hint' class='prompt'><a href='#".$cl->{time}."' id='".$cl->{time}."'>".$cl->{"prompt"}."</a></span>" |
| igor@111 | 778 ."<span onmouseover=\"myHint.show('".$cl->{time}."')\" onmouseout=\"myHint.hide()\">".$cl->{"cline"}."</span>"; |
| devi@49 | 779 $cline =~ s/\n//; |
| devi@32 | 780 |
| devi@87 | 781 if ($cl->{"hint"}) { |
| igor@111 | 782 # $cline = "<span title='$cl->{hint}' class='with_hint'>$cline</span>" ; |
| igor@111 | 783 $cline = "<span class='with_hint'>$cline</span>" ; |
| devi@87 | 784 } |
| devi@87 | 785 else { |
| devi@87 | 786 $cline = "<span class='without_hint'>$cline</span>"; |
| devi@87 | 787 } |
| devi@23 | 788 |
| igor@109 | 789 $this_day_result .= "<DIV class='fixed_div'><table cellpadding='0' cellspacing='0'><tr><td>\n<div class='cblock_$cl->{class}'>\n"; |
| igor@111 | 790 $this_day_result .= "<div class='cline'>" . $cline ; #cline |
| devi@75 | 791 $this_day_result .= "<span title='Код завершения ".$cl->{"err"}."'>\n" |
| devi@75 | 792 . "<img src='".$Config{frontend_ico_path}."/error.png'/>\n" |
| igor@115 | 793 . "</span>\n" if ($cl->{"err"} and not $cl->{tab_seq} and not $cl->{break}); |
| igor@115 | 794 $this_day_result .= "<span title='Tab completion ".$cl->{tab_seq}."'>\n" |
| igor@115 | 795 . "<img src='".$Config{frontend_ico_path}."/tab.png'/>\n" |
| igor@115 | 796 . "</span>\n" if $cl->{tab_seq}; |
| igor@115 | 797 $this_day_result .= "<span title='Ctrl-C pressed'>\n" |
| igor@115 | 798 . "<img src='".$Config{frontend_ico_path}."/break.png'/>\n" |
| igor@115 | 799 . "</span>\n" if ($cl->{break} and not $cl->{tab_seq}); |
| devi@75 | 800 $this_day_result .= "</div>\n"; #cline |
| devi@56 | 801 |
| devi@56 | 802 # OUTPUT |
| devi@49 | 803 my $last_command = $cl->{"last_command"}; |
| devi@49 | 804 if (!( |
| devi@49 | 805 $Config{"suppress_editors"} =~ /^y/i && grep ($_ eq $last_command, @{$Config{"editors"}}) || |
| devi@49 | 806 $Config{"suppress_pagers"} =~ /^y/i && grep ($_ eq $last_command, @{$Config{"pagers"}}) || |
| devi@49 | 807 $Config{"suppress_terminal"}=~ /^y/i && grep ($_ eq $last_command, @{$Config{"terminal"}}) |
| devi@49 | 808 )) { |
| devi@87 | 809 $this_day_result .= "<pre class='output'>\n" . $cl->{short_output} . "</pre>\n"; |
| devi@87 | 810 } |
| devi@23 | 811 |
| devi@56 | 812 # DIFF |
| devi@75 | 813 $this_day_result .= "<pre class='diff'>".$cl->{"diff"}."</pre>" |
| devi@75 | 814 if ( $Config{"show_diffs"} =~ /^y/i && $cl->{"diff"}); |
| devi@81 | 815 # SHOT |
| devi@81 | 816 $this_day_result .= "<img src='" |
| devi@81 | 817 .$Config{l3shot_path} |
| devi@81 | 818 .$cl->{"screenshot"} |
| devi@81 | 819 ."' alt ='screenshot id ".$cl->{"screenshot"} |
| devi@81 | 820 ."'/>" |
| devi@81 | 821 if ( $Config{"show_screenshots"} =~ /^y/i && $cl->{"screenshot"}); |
| devi@56 | 822 |
| devi@56 | 823 #NOTES |
| devi@49 | 824 if ( $Config{"show_notes"} =~ /^y/i && $cl->{"note"}) { |
| devi@49 | 825 my $note=$cl->{"note"}; |
| devi@49 | 826 $note =~ s/\n/<br\/>\n/msg; |
| devi@52 | 827 if (not $note =~ s@(http:[a-zA-Z.0-9/_?%-]*)@<a href='$1'>$1</a>@g) { |
| devi@56 | 828 $note =~ s@(www\.[a-zA-Z.0-9/_?%-]*)@<a href='$1'>$1</a>@g; |
| devi@56 | 829 }; |
| devi@75 | 830 $this_day_result .= "<div class='note'>"; |
| devi@75 | 831 $this_day_result .= "<div class='note_title'>".$cl->{note_title}."</div>" if $cl->{note_title}; |
| devi@75 | 832 $this_day_result .= "<div class='note_text'>".$note."</div>"; |
| devi@75 | 833 $this_day_result .= "</div>\n"; |
| devi@49 | 834 } |
| devi@23 | 835 |
| devi@49 | 836 # Вывод очередной команды окончен |
| devi@75 | 837 $this_day_result .= "</div>\n"; # cblock |
| igor@109 | 838 $this_day_result .= "</td></tr></table></DIV>\n" |
| devi@75 | 839 . "</div>\n"; # command |
| devi@49 | 840 } |
| devi@57 | 841 last: { |
| igor@109 | 842 $prev_unix_time=$first_command_of_the_day_unix_time; |
| igor@109 | 843 $first_command_of_the_day_unix_time = $cl->{time}; |
| igor@109 | 844 $human_readable_time = strftime "%D", localtime($prev_unix_time); |
| igor@109 | 845 |
| igor@109 | 846 $result .= "<h3 id='day_on_sec_$prev_unix_time'>".$Day_Name[$last_wday]." ($human_readable_time)</h3>"; |
| devi@23 | 847 |
| devi@63 | 848 for my $entry_class (keys %new_entries_of) { |
| devi@87 | 849 my $table_caption = "Таблица ".$table_number++.".".$Day_Name[$last_wday] |
| devi@87 | 850 . ". Новые ".$new_entries_of{$entry_class}; |
| devi@87 | 851 my $new_commands_section = make_new_entries_table( |
| devi@87 | 852 $table_caption, |
| devi@87 | 853 $entry_class=~/[0-9]+\s+(.*)/, |
| devi@87 | 854 \@known_commands); |
| devi@57 | 855 } |
| devi@87 | 856 @known_commands = keys %frequency_of_command; |
| devi@57 | 857 $result .= $this_day_result; |
| devi@57 | 858 } |
| devi@23 | 859 |
| devi@56 | 860 return ($result, collapse_list (\@toc)); |
| devi@31 | 861 |
| devi@56 | 862 } |
| devi@56 | 863 |
| devi@87 | 864 ############# |
| devi@88 | 865 # make_new_entries_table |
| devi@87 | 866 # |
| devi@87 | 867 # Напечатать таблицу неизвестных команд |
| devi@87 | 868 # |
| devi@87 | 869 # In: $_[0] table_caption |
| devi@87 | 870 # $_[1] entries_class |
| devi@87 | 871 # @_[2..] known_commands |
| devi@87 | 872 # Out: |
| devi@87 | 873 |
| devi@63 | 874 sub make_new_entries_table |
| devi@57 | 875 { |
| devi@87 | 876 my $table_caption; |
| devi@63 | 877 my $entries_class = shift; |
| devi@57 | 878 my @known_commands = @{$_[0]}; |
| devi@87 | 879 my $result = ""; |
| devi@56 | 880 |
| devi@57 | 881 my %count; |
| devi@57 | 882 my @new_commands = (); |
| devi@87 | 883 for my $c (keys %frequency_of_command, @known_commands) { |
| devi@57 | 884 $count{$c}++ |
| devi@57 | 885 } |
| devi@87 | 886 for my $c (keys %frequency_of_command) { |
| devi@57 | 887 push @new_commands, $c if $count{$c} != 2; |
| devi@57 | 888 } |
| devi@57 | 889 |
| devi@57 | 890 my $new_commands_section; |
| devi@57 | 891 if (@new_commands){ |
| devi@57 | 892 my $hint; |
| devi@87 | 893 for my $c (reverse sort { $frequency_of_command{$a} <=> $frequency_of_command{$b} } @new_commands) { |
| devi@57 | 894 $hint = make_comment($c); |
| devi@69 | 895 next unless $hint; |
| devi@57 | 896 my ($command, $hint) = $hint =~ m/(.*?) \s*- \s*(.*)/; |
| devi@64 | 897 next unless $command =~ s/\($entries_class\)//i; |
| devi@69 | 898 $new_commands_section .= "<tr><td valign='top'>$command</td><td>$hint</td></tr>"; |
| devi@57 | 899 } |
| devi@57 | 900 } |
| devi@87 | 901 if ($new_commands_section) { |
| devi@87 | 902 $result .= "<table class='new_commands_table' width='700' cellspacing='0' cellpadding='0'>" |
| devi@87 | 903 . "<tr class='new_commands_caption'>" |
| devi@87 | 904 . "<td colspan='2' align='right'>$table_caption</td>" |
| devi@87 | 905 . "</tr>" |
| devi@87 | 906 . "<tr class='new_commands_header'>" |
| devi@87 | 907 . "<td width=100>Команда</td><td width=600>Описание</td>" |
| devi@87 | 908 . "</tr>" |
| devi@87 | 909 . $new_commands_section |
| devi@87 | 910 . "</table>" |
| devi@87 | 911 } |
| devi@87 | 912 return $result; |
| devi@57 | 913 } |
| devi@56 | 914 |
| devi@87 | 915 ############# |
| devi@88 | 916 # minutes_passed |
| devi@87 | 917 # |
| devi@87 | 918 # |
| devi@87 | 919 # |
| devi@87 | 920 # In: $_[0] seconds_since_last_command |
| devi@87 | 921 # Out: "minutes passed" text |
| devi@87 | 922 |
| devi@87 | 923 sub minutes_passed |
| devi@87 | 924 { |
| devi@87 | 925 my $seconds_since_last_command = shift; |
| devi@87 | 926 my $result = ""; |
| devi@87 | 927 if ($seconds_since_last_command > 7200) { |
| devi@87 | 928 my $hours_passed = int($seconds_since_last_command/3600); |
| devi@87 | 929 my $passed_word = $hours_passed % 10 == 1 ? "прошла" |
| devi@87 | 930 : "прошло"; |
| devi@87 | 931 my $hours_word = $hours_passed % 10 == 1 ? "часа": |
| devi@87 | 932 "часов"; |
| devi@87 | 933 $result .= "<div class='much_time_passed'>" |
| devi@87 | 934 . $passed_word." >".$hours_passed." ".$hours_word |
| devi@87 | 935 . "</div>\n"; |
| devi@87 | 936 } |
| devi@87 | 937 elsif ($seconds_since_last_command > 600) { |
| devi@87 | 938 my $minutes_passed = int($seconds_since_last_command/60); |
| devi@87 | 939 |
| devi@87 | 940 |
| devi@87 | 941 my $passed_word = $minutes_passed % 100 > 10 |
| devi@87 | 942 && $minutes_passed % 100 < 20 ? "прошло" |
| devi@87 | 943 : $minutes_passed % 10 == 1 ? "прошла" |
| devi@87 | 944 : "прошло"; |
| devi@87 | 945 |
| devi@87 | 946 my $minutes_word = $minutes_passed % 100 > 10 |
| devi@87 | 947 && $minutes_passed % 100 < 20 ? "минут" : |
| devi@87 | 948 $minutes_passed % 10 == 1 ? "минута": |
| devi@87 | 949 $minutes_passed % 10 == 0 ? "минут" : |
| devi@87 | 950 $minutes_passed % 10 > 4 ? "минут" : |
| devi@87 | 951 "минуты"; |
| devi@87 | 952 |
| devi@87 | 953 if ($seconds_since_last_command < 1800) { |
| devi@87 | 954 $result .= "<div class='time_passed'>" |
| devi@87 | 955 . $passed_word." ".$minutes_passed." ".$minutes_word |
| devi@87 | 956 . "</div>\n"; |
| devi@87 | 957 } |
| devi@87 | 958 else { |
| devi@87 | 959 $result .= "<div class='much_time_passed'>" |
| devi@87 | 960 . $passed_word." ".$minutes_passed." ".$minutes_word |
| devi@87 | 961 . "</div>\n"; |
| devi@87 | 962 } |
| devi@87 | 963 } |
| devi@87 | 964 return $result; |
| devi@87 | 965 } |
| devi@56 | 966 |
| devi@56 | 967 ############# |
| devi@88 | 968 # print_all_txt |
| devi@56 | 969 # |
| devi@88 | 970 # Вывести журнал в текстовом формате |
| devi@56 | 971 # |
| devi@56 | 972 # In: $_[0] output_filename |
| devi@56 | 973 # Out: |
| devi@56 | 974 |
| devi@89 | 975 sub print_command_lines_txt |
| devi@88 | 976 { |
| devi@56 | 977 |
| devi@88 | 978 my $output_filename=$_[0]; |
| devi@88 | 979 my $note_number=0; |
| devi@88 | 980 |
| devi@88 | 981 my $result = q(); |
| devi@88 | 982 my $this_day_resut = q(); |
| devi@88 | 983 |
| devi@88 | 984 my $cl; |
| devi@88 | 985 my $last_tty=""; |
| devi@88 | 986 my $last_session=""; |
| devi@88 | 987 my $last_day=q(); |
| devi@88 | 988 my $last_wday=q(); |
| devi@88 | 989 my $in_range=0; |
| devi@88 | 990 |
| devi@88 | 991 my $current_command=0; |
| devi@88 | 992 |
| devi@88 | 993 my $cursor_position = 0; |
| devi@88 | 994 |
| devi@88 | 995 |
| devi@88 | 996 if ($Config{filter}) { |
| devi@88 | 997 # Инициализация фильтра |
| devi@88 | 998 for (split /&/,$Config{filter}) { |
| igor@141 | 999 my ($var, $val) = split /::/; |
| devi@88 | 1000 $filter{$var} = $val || ""; |
| devi@88 | 1001 } |
| devi@88 | 1002 } |
| devi@88 | 1003 |
| devi@88 | 1004 |
| devi@88 | 1005 COMMAND_LINE: |
| devi@88 | 1006 for my $k (@Command_Lines_Index) { |
| devi@88 | 1007 |
| devi@88 | 1008 my $cl=$Command_Lines[$Command_Lines_Index[$current_command++]]; |
| devi@88 | 1009 next unless $cl; |
| devi@88 | 1010 |
| devi@88 | 1011 |
| devi@88 | 1012 # Пропускаем строки, которые противоречат фильтру |
| devi@88 | 1013 # Если у нас недостаточно информации о том, подходит строка под фильтр или нет, |
| devi@88 | 1014 # мы её выводим |
| devi@88 | 1015 |
| devi@88 | 1016 for my $filter_key (keys %filter) { |
| devi@88 | 1017 next COMMAND_LINE |
| devi@88 | 1018 if defined($cl->{local_session_id}) |
| devi@88 | 1019 && defined($Sessions{$cl->{local_session_id}}->{$filter_key}) |
| devi@88 | 1020 && $Sessions{$cl->{local_session_id}}->{$filter_key} ne $filter{$filter_key}; |
| devi@88 | 1021 } |
| devi@88 | 1022 |
| devi@88 | 1023 # Пропускаем строки, выходящие за границу "signature", |
| devi@88 | 1024 # при условии, что границы указаны |
| devi@88 | 1025 # Пропускаем неправильные/прерванные/другие команды |
| devi@88 | 1026 if ($Config{"from"} && $cl->{"cline"} =~ /$Config{"signature"}\s*$Config{"from"}/) { |
| devi@88 | 1027 $in_range=1; |
| devi@88 | 1028 next; |
| devi@88 | 1029 } |
| devi@88 | 1030 if ($Config{"to"} && $cl->{"cline"} =~ /$Config{"signature"}\s*$Config{"to"}/) { |
| devi@88 | 1031 $in_range=0; |
| devi@88 | 1032 next; |
| devi@88 | 1033 } |
| devi@88 | 1034 next if ($Config{"from"} && $Config{"to"} && !$in_range) |
| devi@88 | 1035 || ($Config{"skip_empty"} =~ /^y/i && $cl->{"cline"} =~ /^\s*$/ ) |
| devi@88 | 1036 || ($Config{"skip_wrong"} =~ /^y/i && $cl->{"err"} != 0) |
| devi@88 | 1037 || ($Config{"skip_interrupted"} =~ /^y/i && $cl->{"err"} == 130); |
| devi@88 | 1038 |
| devi@88 | 1039 |
| devi@88 | 1040 # |
| devi@88 | 1041 ## |
| devi@88 | 1042 ## Начинается собственно вывод |
| devi@88 | 1043 ## |
| devi@88 | 1044 # |
| devi@88 | 1045 |
| devi@88 | 1046 ### Сначала обрабатываем границы разделов |
| devi@88 | 1047 ### Если тип команды "note", это граница |
| devi@88 | 1048 |
| devi@88 | 1049 if ($cl->{class} eq "note") { |
| devi@88 | 1050 $this_day_result .= " === ".$cl->{note_title}." === \n" if $cl->{note_title}; |
| devi@88 | 1051 $this_day_result .= $cl->{note}."\n"; |
| devi@88 | 1052 next; |
| devi@88 | 1053 } |
| devi@88 | 1054 |
| devi@88 | 1055 my ($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = localtime($cl->{time}); |
| devi@88 | 1056 |
| devi@88 | 1057 # Добавляем спереди 0 для удобочитаемости |
| devi@88 | 1058 $min = "0".$min if $min =~ /^.$/; |
| devi@88 | 1059 $hour = "0".$hour if $hour =~ /^.$/; |
| devi@88 | 1060 $sec = "0".$sec if $sec =~ /^.$/; |
| devi@88 | 1061 |
| devi@88 | 1062 $class=$cl->{"class"}; |
| devi@88 | 1063 |
| devi@88 | 1064 # DAY CHANGE |
| devi@88 | 1065 if ( $last_day ne $day) { |
| devi@88 | 1066 if ($last_day) { |
| devi@88 | 1067 $result .= "== ".$Day_Name[$last_wday]." == \n"; |
| devi@88 | 1068 $result .= $this_day_result; |
| devi@88 | 1069 } |
| devi@88 | 1070 $last_day = $day; |
| devi@88 | 1071 $last_wday = $wday; |
| devi@88 | 1072 $this_day_result = q(); |
| devi@88 | 1073 } |
| devi@88 | 1074 |
| devi@88 | 1075 # CONSOLE CHANGE |
| devi@88 | 1076 if ($cl->{"tty"} && $last_tty ne $cl->{"tty"} && 0) { |
| devi@88 | 1077 my $tty = $cl->{"tty"}; |
| devi@88 | 1078 $this_day_result .= " #l3: ------- другая консоль ----\n"; |
| devi@88 | 1079 $last_tty=$cl->{"tty"}; |
| devi@88 | 1080 } |
| devi@88 | 1081 |
| devi@88 | 1082 # Session change |
| devi@88 | 1083 if ( $last_session ne $cl->{"local_session_id"}) { |
| devi@88 | 1084 $this_day_result .= "# ------------------------------------------------------------" |
| devi@88 | 1085 . " l3: local_session_id=".$cl->{"local_session_id"} |
| devi@88 | 1086 . " ---------------------------------- \n"; |
| devi@88 | 1087 $last_session=$cl->{"local_session_id"}; |
| devi@88 | 1088 } |
| devi@88 | 1089 |
| devi@88 | 1090 # TIME |
| devi@88 | 1091 my @nl_counter = split (/\n/, $result); |
| devi@88 | 1092 $cursor_position=length($result) - @nl_counter; |
| devi@88 | 1093 |
| devi@88 | 1094 if ($Config{"show_time"} =~ /^y/i) { |
| devi@88 | 1095 $this_day_result .= "$hour:$min:$sec" |
| devi@88 | 1096 } |
| devi@88 | 1097 |
| devi@88 | 1098 # COMMAND |
| devi@88 | 1099 $this_day_result .= " ".$cl->{"prompt"}.$cl->{"cline"}."\n"; |
| devi@88 | 1100 if ($cl->{"err"}) { |
| devi@88 | 1101 $this_day_result .= " #l3: err=".$cl->{'err'}."\n"; |
| devi@88 | 1102 } |
| devi@88 | 1103 |
| devi@88 | 1104 # OUTPUT |
| devi@88 | 1105 my $last_command = $cl->{"last_command"}; |
| devi@88 | 1106 if (!( |
| devi@88 | 1107 $Config{"suppress_editors"} =~ /^y/i && grep ($_ eq $last_command, @{$Config{"editors"}}) || |
| devi@88 | 1108 $Config{"suppress_pagers"} =~ /^y/i && grep ($_ eq $last_command, @{$Config{"pagers"}}) || |
| devi@88 | 1109 $Config{"suppress_terminal"}=~ /^y/i && grep ($_ eq $last_command, @{$Config{"terminal"}}) |
| devi@88 | 1110 )) { |
| devi@88 | 1111 my $output = $cl->{short_output}; |
| devi@88 | 1112 if ($output) { |
| devi@88 | 1113 $output =~ s/^/ |/mg; |
| devi@88 | 1114 } |
| devi@88 | 1115 $this_day_result .= $output; |
| devi@88 | 1116 } |
| devi@88 | 1117 |
| devi@88 | 1118 # DIFF |
| devi@88 | 1119 if ( $Config{"show_diffs"} =~ /^y/i && $cl->{"diff"}) { |
| devi@88 | 1120 my $diff = $cl->{"diff"}; |
| devi@88 | 1121 $diff =~ s/^/ |/mg; |
| devi@88 | 1122 $this_day_result .= $diff; |
| devi@88 | 1123 }; |
| devi@88 | 1124 # SHOT |
| devi@88 | 1125 if ($Config{"show_screenshots"} =~ /^y/i && $cl->{"screenshot"}) { |
| devi@88 | 1126 $this_day_result .= " #l3: screenshot=".$cl->{'screenshot'}."\n"; |
| devi@88 | 1127 } |
| devi@88 | 1128 |
| devi@88 | 1129 #NOTES |
| devi@88 | 1130 if ( $Config{"show_notes"} =~ /^y/i && $cl->{"note"}) { |
| devi@88 | 1131 my $note=$cl->{"note"}; |
| devi@88 | 1132 $note =~ s/\n/\n#^/msg; |
| devi@88 | 1133 $this_day_result .= "#^ == ".$cl->{note_title}." ==\n" if $cl->{note_title}; |
| devi@88 | 1134 $this_day_result .= "#^ ".$note."\n"; |
| devi@88 | 1135 } |
| devi@88 | 1136 |
| devi@88 | 1137 } |
| devi@88 | 1138 last: { |
| devi@88 | 1139 $result .= "== ".$Day_Name[$last_wday]." == \n"; |
| devi@88 | 1140 $result .= $this_day_result; |
| devi@88 | 1141 } |
| devi@88 | 1142 |
| devi@89 | 1143 return $result; |
| devi@88 | 1144 |
| devi@88 | 1145 |
| devi@88 | 1146 |
| devi@88 | 1147 } |
| devi@88 | 1148 |
| devi@89 | 1149 ############# |
| devi@89 | 1150 # print_edit_all_html |
| devi@89 | 1151 # |
| devi@89 | 1152 # Вывести страницу с текстовым представлением журнала для редактирования |
| devi@89 | 1153 # |
| devi@89 | 1154 # In: $_[0] output_filename |
| devi@89 | 1155 # Out: |
| devi@89 | 1156 |
| devi@89 | 1157 sub print_edit_all_html |
| devi@89 | 1158 { |
| devi@89 | 1159 my $output_filename= shift; |
| devi@89 | 1160 my $result; |
| devi@89 | 1161 my $cursor_position = 0; |
| devi@89 | 1162 |
| devi@89 | 1163 $result = print_command_lines_txt; |
| devi@93 | 1164 my $title = ">Журнал лабораторных работ. Правка"; |
| devi@89 | 1165 |
| devi@89 | 1166 $result = |
| devi@88 | 1167 "<html>" |
| devi@89 | 1168 ."<head>" |
| devi@89 | 1169 ."<meta content='text/html; charset=utf-8' http-equiv='Content-Type' />" |
| devi@89 | 1170 ."<link rel='stylesheet' href='$Config{frontend_css}' type='text/css'/>" |
| devi@89 | 1171 ."<title>$title</title>" |
| devi@89 | 1172 ."</head>" |
| devi@88 | 1173 ."<script>" |
| devi@88 | 1174 .$SetCursorPosition_JS |
| devi@88 | 1175 ."</script>" |
| devi@88 | 1176 ."<body onLoad='setCursorPosition(document.all.mytextarea, $cursor_position, $cursor_position+10)'>" |
| devi@89 | 1177 ."<h1>Журнал лабораторных работ. Правка</h1>" |
| devi@89 | 1178 ."<form>" |
| devi@88 | 1179 ."<textarea rows='30' cols='100' wrap='off' id='mytextarea'>$result</textarea>" |
| devi@89 | 1180 ."<br/><input type='submit' value='Сохранить' label='label'/>" |
| devi@89 | 1181 ."</form>" |
| devi@89 | 1182 ."<p>Внимательно правим, потом сохраняем</p>" |
| devi@89 | 1183 ."<p>Строки, начинающиеся символами #l3: можно трогать, только если точно знаешь, что делаешь</p>" |
| devi@88 | 1184 ."</body>" |
| devi@89 | 1185 ."</html>"; |
| devi@89 | 1186 |
| devi@89 | 1187 if ($output_filename eq "-") { |
| devi@89 | 1188 print $result; |
| devi@88 | 1189 } |
| devi@88 | 1190 else { |
| devi@88 | 1191 open(OUT, ">", $output_filename) |
| devi@88 | 1192 or die "Can't open $output_filename for writing\n"; |
| devi@89 | 1193 binmode ":utf8"; |
| devi@89 | 1194 print OUT "$result"; |
| devi@89 | 1195 close(OUT); |
| devi@89 | 1196 } |
| devi@89 | 1197 } |
| devi@89 | 1198 |
| devi@89 | 1199 ############# |
| devi@89 | 1200 # print_all_txt |
| devi@89 | 1201 # |
| devi@89 | 1202 # Вывести страницу с текстовым представлением журнала для редактирования |
| devi@89 | 1203 # |
| devi@89 | 1204 # In: $_[0] output_filename |
| devi@89 | 1205 # Out: |
| devi@89 | 1206 |
| devi@89 | 1207 sub print_all_txt |
| devi@89 | 1208 { |
| devi@89 | 1209 my $result; |
| devi@89 | 1210 |
| devi@89 | 1211 $result = print_command_lines_txt; |
| devi@89 | 1212 |
| devi@89 | 1213 $result =~ s/>/>/g; |
| devi@89 | 1214 $result =~ s/</</g; |
| devi@89 | 1215 $result =~ s/&/&/g; |
| devi@89 | 1216 |
| devi@89 | 1217 if ($output_filename eq "-") { |
| devi@89 | 1218 print $result; |
| devi@89 | 1219 } |
| devi@89 | 1220 else { |
| devi@89 | 1221 open(OUT, ">:utf8", $output_filename) |
| devi@89 | 1222 or die "Can't open $output_filename for writing\n"; |
| devi@89 | 1223 print OUT "$result"; |
| devi@88 | 1224 close(OUT); |
| devi@88 | 1225 } |
| devi@88 | 1226 } |
| devi@88 | 1227 |
| devi@88 | 1228 |
| devi@88 | 1229 ############# |
| devi@88 | 1230 # print_all_html |
| devi@88 | 1231 # |
| devi@88 | 1232 # |
| devi@88 | 1233 # |
| devi@88 | 1234 # In: $_[0] output_filename |
| devi@88 | 1235 # Out: |
| devi@88 | 1236 |
| devi@88 | 1237 |
| devi@88 | 1238 sub print_all_html |
| devi@56 | 1239 { |
| devi@56 | 1240 my $output_filename=$_[0]; |
| devi@56 | 1241 |
| devi@56 | 1242 my $result; |
| devi@88 | 1243 my ($command_lines,$toc) = print_command_lines_html; |
| devi@88 | 1244 my $files_section = print_files_html; |
| devi@56 | 1245 |
| igor@109 | 1246 $result = $debug_output; |
| igor@109 | 1247 $result .= print_header_html($toc); |
| devi@84 | 1248 |
| devi@84 | 1249 |
| devi@84 | 1250 # $result.= join " <br/>", keys %Sessions; |
| devi@84 | 1251 # for my $sess (keys %Sessions) { |
| devi@84 | 1252 # $result .= join " ", keys (%{$Sessions{$sess}}); |
| devi@84 | 1253 # $result .= "<br/>"; |
| devi@84 | 1254 # } |
| devi@84 | 1255 |
| devi@56 | 1256 $result.= "<h2 id='log'>Журнал</h2>" . $command_lines; |
| devi@69 | 1257 $result.= "<h2 id='files'>Файлы</h2>" . $files_section if $files_section; |
| devi@89 | 1258 $result.= "<h2 id='stat'>Статистика</h2>" . print_stat_html; |
| devi@56 | 1259 $result.= "<h2 id='help'>Справка</h2>" . $Html_Help . "<br/>"; |
| devi@56 | 1260 $result.= "<h2 id='about'>О программе</h2>". $Html_About. "<br/>"; |
| devi@88 | 1261 $result.= print_footer_html; |
| devi@56 | 1262 |
| devi@56 | 1263 if ($output_filename eq "-") { |
| devi@89 | 1264 binmode STDOUT, ":utf8"; |
| devi@56 | 1265 print $result; |
| devi@56 | 1266 } |
| devi@56 | 1267 else { |
| devi@89 | 1268 open(OUT, ">:utf8", $output_filename) |
| devi@56 | 1269 or die "Can't open $output_filename for writing\n"; |
| devi@56 | 1270 print OUT $result; |
| devi@56 | 1271 close(OUT); |
| devi@56 | 1272 } |
| devi@56 | 1273 } |
| devi@56 | 1274 |
| devi@56 | 1275 ############# |
| devi@88 | 1276 # print_header_html |
| devi@56 | 1277 # |
| devi@56 | 1278 # |
| devi@56 | 1279 # |
| devi@56 | 1280 # In: $_[0] Содержание |
| devi@56 | 1281 # Out: Распечатанный заголовок |
| devi@56 | 1282 |
| devi@88 | 1283 sub print_header_html |
| devi@56 | 1284 { |
| devi@56 | 1285 my $toc = $_[0]; |
| devi@56 | 1286 my $course_name = $Config{"course-name"}; |
| devi@56 | 1287 my $course_code = $Config{"course-code"}; |
| devi@56 | 1288 my $course_date = $Config{"course-date"}; |
| devi@56 | 1289 my $course_center = $Config{"course-center"}; |
| devi@56 | 1290 my $course_trainer = $Config{"course-trainer"}; |
| devi@56 | 1291 my $course_student = $Config{"course-student"}; |
| devi@56 | 1292 |
| devi@56 | 1293 my $title = "Журнал лабораторных работ"; |
| devi@56 | 1294 $title .= " -- ".$course_student if $course_student; |
| devi@56 | 1295 if ($course_date) { |
| devi@56 | 1296 $title .= " -- ".$course_date; |
| devi@56 | 1297 $title .= $course_code ? "/".$course_code |
| devi@56 | 1298 : ""; |
| devi@56 | 1299 } |
| devi@56 | 1300 else { |
| devi@56 | 1301 $title .= " -- ".$course_code if $course_code; |
| devi@56 | 1302 } |
| devi@56 | 1303 |
| devi@56 | 1304 # Управляющая форма |
| devi@69 | 1305 my $control_form .= "<div class='visibility_form' title='Выберите какие элементы должны быть показаны в журнале'>" |
| devi@69 | 1306 . "<span class='header'>Видимые элементы</span>" |
| devi@69 | 1307 . "<span class='window_controls'><a href='' onclick='' title='свернуть форму управления'>_</a> <a href='' onclick='' title='закрыть форму управления'>x</a></span>" |
| devi@69 | 1308 . "<div><form>\n"; |
| devi@69 | 1309 for my $element (sort keys %Elements_Visibility) |
| devi@56 | 1310 { |
| devi@69 | 1311 my ($skip, @e) = split /\s+/, $element; |
| devi@56 | 1312 my $showhide = join "", map { "ShowHide('$_');" } @e ; |
| devi@69 | 1313 $control_form .= "<div><input type='checkbox' name='$e[0]' onclick=\"$showhide\" checked>". |
| devi@56 | 1314 $Elements_Visibility{$element}. |
| devi@69 | 1315 "</input></div>"; |
| devi@56 | 1316 } |
| devi@69 | 1317 $control_form .= "</form>\n" |
| devi@69 | 1318 . "</div>\n"; |
| devi@56 | 1319 |
| devi@99 | 1320 |
| devi@99 | 1321 # Управляющая форма отключена |
| igor@109 | 1322 # Она слишком сильно мешает, нужно что-то переделать |
| devi@99 | 1323 $control_form = ""; |
| devi@99 | 1324 |
| igor@109 | 1325 my $tigra_hints_array=tigra_hints_generate; |
| igor@109 | 1326 |
| devi@56 | 1327 my $result; |
| devi@56 | 1328 $result = <<HEADER; |
| devi@56 | 1329 <html> |
| devi@56 | 1330 <head> |
| devi@56 | 1331 <meta content='text/html; charset=utf-8' http-equiv='Content-Type' /> |
| devi@56 | 1332 <link rel='stylesheet' href='$Config{frontend_css}' type='text/css'/> |
| devi@56 | 1333 <title>$title</title> |
| devi@56 | 1334 </head> |
| devi@56 | 1335 <body> |
| igor@109 | 1336 <!--<script> |
| devi@56 | 1337 $Html_JavaScript |
| igor@109 | 1338 </script>--> |
| devi@62 | 1339 |
| devi@62 | 1340 <!-- vvv Tigra Hints vvv --> |
| devi@62 | 1341 <script language="JavaScript" src="/tigra/hints.js"></script> |
| igor@109 | 1342 <!--<script language="JavaScript" src="/tigra/hints_cfg.js"></script>--> |
| igor@109 | 1343 <script>$tigra_hints_array</script> |
| devi@62 | 1344 <style> |
| devi@62 | 1345 /* a class for all Tigra Hints boxes, TD object */ |
| devi@62 | 1346 .hintsClass |
| igor@109 | 1347 {text-align: left; font-size:80%; font-family: Verdana, Arial, Helvetica; background-color:#ffffee; padding: 0px 0px 0px 0px;} |
| devi@62 | 1348 /* this class is used by Tigra Hints wrappers */ |
| devi@62 | 1349 .row |
| devi@62 | 1350 {background: white;} |
| igor@109 | 1351 |
| igor@109 | 1352 |
| igor@109 | 1353 .bl2 {border: 1px solid #e68200; background:url(/tigra/block/bl2.gif) 0 100% no-repeat; text-align:left} |
| igor@109 | 1354 .bl {background:url(/tigra/block/bl2.gif) 0 100% no-repeat; text-align:left} |
| igor@109 | 1355 .br {background:url(/tigra/block/br2.gif) 100% 100% no-repeat} |
| igor@109 | 1356 .tl {background:url(/tigra/block/tl2.gif) 0 0 no-repeat} |
| igor@109 | 1357 .tr {background:url(/tigra/block/tr2.gif) 100% 0 no-repeat; padding:10px} |
| igor@109 | 1358 .tr2 {background:url(/tigra/block/tr2.gif) 100% 0 no-repeat} |
| igor@109 | 1359 .t {background:url(/tigra/block/dot2.gif) 0 0 repeat-x} |
| igor@109 | 1360 .b {background:url(/tigra/block/dot2.gif) 0 100% repeat-x} |
| igor@109 | 1361 .l {background:url(/tigra/block/dot2.gif) 0 0 repeat-y} |
| igor@109 | 1362 .r {background:url(/tigra/block/dot2.gif) 100% 0 repeat-y} |
| igor@109 | 1363 |
| igor@109 | 1364 |
| devi@62 | 1365 </style> |
| devi@62 | 1366 <!-- ^^^ Tigra Hints ^^^ --> |
| devi@62 | 1367 |
| igor@109 | 1368 <!-- |
| igor@109 | 1369 .bl2 {border: 1px solid #e68200; background:url(/tigra/block/bl2.gif) 0 100% no-repeat; width:20em; text-align:center} |
| igor@109 | 1370 .bl {background:url(/tigra/block/bl2.gif) 0 100% no-repeat; width:20em; text-align:center} |
| igor@109 | 1371 .br {background:url(/tigra/block/br2.gif) 100% 100% no-repeat} |
| igor@109 | 1372 .tl {background:url(/tigra/block/tl2.gif) 0 0 no-repeat} |
| igor@109 | 1373 .tr {background:url(/tigra/block/tr2.gif) 100% 0 no-repeat; padding:10px} |
| igor@109 | 1374 .tr2 {background:url(/tigra/block/tr2.gif) 100% 0 no-repeat} |
| igor@109 | 1375 .t {background:url(/tigra/block/dot2.gif) 0 0 repeat-x; width:20em} |
| igor@109 | 1376 .b {background:url(/tigra/block/dot2.gif) 0 100% repeat-x} |
| igor@109 | 1377 .l {background:url(/tigra/block/dot2.gif) 0 0 repeat-y} |
| igor@109 | 1378 .r {background:url(/tigra/block/dot2.gif) 100% 0 repeat-y} |
| igor@109 | 1379 --> |
| igor@109 | 1380 |
| devi@62 | 1381 |
| devi@89 | 1382 <div class='edit_link'> |
| igor@141 | 1383 [ <a href='?filter=action::edit;;$filter_url'>править</a> ] |
| devi@89 | 1384 </div> |
| devi@89 | 1385 <h1 onmouseover="myHint.show('1')" onmouseout="myHint.hide()" class='lined_header'>Журнал лабораторных работ</h1> |
| devi@56 | 1386 HEADER |
| devi@56 | 1387 if ( $course_student |
| devi@56 | 1388 || $course_trainer |
| devi@56 | 1389 || $course_name |
| devi@56 | 1390 || $course_code |
| devi@56 | 1391 || $course_date |
| devi@56 | 1392 || $course_center) { |
| devi@56 | 1393 $result .= "<p>"; |
| devi@56 | 1394 $result .= "Выполнил $course_student<br/>" if $course_student; |
| devi@56 | 1395 $result .= "Проверил $course_trainer <br/>" if $course_trainer; |
| devi@56 | 1396 $result .= "Курс " if $course_name |
| devi@56 | 1397 || $course_code |
| devi@56 | 1398 || $course_date; |
| devi@56 | 1399 $result .= "$course_name " if $course_name; |
| devi@56 | 1400 $result .= "($course_code)" if $course_code; |
| devi@56 | 1401 $result .= ", $course_date<br/>" if $course_date; |
| devi@56 | 1402 $result .= "Учебный центр $course_center <br/>" if $course_center; |
| devi@84 | 1403 $result .= "Фильтр ".join(" ", map("$filter{$_}=$_", keys %filter))."<br/>" if %filter; |
| devi@56 | 1404 $result .= "</p>"; |
| devi@56 | 1405 } |
| devi@56 | 1406 |
| devi@56 | 1407 $result .= <<HEADER; |
| devi@56 | 1408 <table width='100%'> |
| devi@56 | 1409 <tr> |
| devi@56 | 1410 <td width='*'> |
| devi@56 | 1411 |
| devi@56 | 1412 <table border=0 id='toc' class='toc'> |
| devi@56 | 1413 <tr> |
| devi@56 | 1414 <td> |
| devi@56 | 1415 <div class='toc_title'>Содержание</div> |
| devi@56 | 1416 <ul> |
| devi@56 | 1417 <li><a href='#log'>Журнал</a></li> |
| devi@56 | 1418 <ul>$toc</ul> |
| devi@69 | 1419 <li><a href='#files'>Файлы</a></li> |
| devi@56 | 1420 <li><a href='#stat'>Статистика</a></li> |
| devi@56 | 1421 <li><a href='#help'>Справка</a></li> |
| devi@56 | 1422 <li><a href='#about'>О программе</a></li> |
| devi@56 | 1423 </ul> |
| devi@56 | 1424 </td> |
| devi@56 | 1425 </tr> |
| devi@56 | 1426 </table> |
| devi@56 | 1427 |
| devi@56 | 1428 </td> |
| devi@56 | 1429 <td valign='top' width=200>$control_form</td> |
| devi@56 | 1430 </tr> |
| devi@56 | 1431 </table> |
| devi@56 | 1432 HEADER |
| devi@56 | 1433 |
| devi@56 | 1434 return $result; |
| devi@56 | 1435 } |
| devi@56 | 1436 |
| devi@56 | 1437 |
| devi@56 | 1438 ############# |
| devi@88 | 1439 # print_footer_html |
| devi@56 | 1440 # |
| devi@56 | 1441 # |
| devi@56 | 1442 # |
| devi@56 | 1443 # |
| devi@56 | 1444 # |
| devi@56 | 1445 |
| devi@88 | 1446 sub print_footer_html |
| devi@56 | 1447 { |
| devi@102 | 1448 return "</body>\n</html>\n"; |
| devi@56 | 1449 } |
| devi@56 | 1450 |
| devi@56 | 1451 |
| devi@56 | 1452 |
| devi@56 | 1453 |
| devi@56 | 1454 ############# |
| devi@88 | 1455 # print_stat_html |
| devi@56 | 1456 # |
| devi@56 | 1457 # |
| devi@56 | 1458 # |
| devi@56 | 1459 # In: |
| devi@56 | 1460 # Out: |
| devi@56 | 1461 |
| devi@88 | 1462 sub print_stat_html |
| devi@56 | 1463 { |
| devi@49 | 1464 %StatNames = ( |
| devi@56 | 1465 FirstCommand => "Время первой команды журнала", |
| devi@56 | 1466 LastCommand => "Время последней команды журнала", |
| devi@56 | 1467 TotalCommands => "Количество командных строк в журнале", |
| devi@56 | 1468 ErrorsPercentage => "Процент команд с ненулевым кодом завершения, %", |
| devi@57 | 1469 MistypesPercentage => "Процент синтаксически неверно набранных команд, %", |
| devi@56 | 1470 TotalTime => "Суммарное время работы с терминалом <sup><font size='-2'>*</font></sup>, час", |
| devi@56 | 1471 CommandsPerTime => "Количество командных строк в единицу времени, команда/мин", |
| devi@56 | 1472 CommandsFrequency => "Частота использования команд", |
| devi@56 | 1473 RareCommands => "Частота использования этих команд < 0.5%", |
| devi@49 | 1474 ); |
| devi@49 | 1475 @StatOrder = ( |
| devi@49 | 1476 FirstCommand, |
| devi@49 | 1477 LastCommand, |
| devi@49 | 1478 TotalCommands, |
| devi@49 | 1479 ErrorsPercentage, |
| devi@56 | 1480 MistypesPercentage, |
| devi@49 | 1481 TotalTime, |
| devi@49 | 1482 CommandsPerTime, |
| devi@49 | 1483 CommandsFrequency, |
| devi@49 | 1484 RareCommands, |
| devi@49 | 1485 ); |
| devi@31 | 1486 |
| devi@49 | 1487 # Подготовка статистики к выводу |
| devi@49 | 1488 # Некоторые значения пересчитываются! |
| devi@49 | 1489 # Дальше их лучше уже не использовать!!! |
| devi@31 | 1490 |
| devi@87 | 1491 my %CommandsFrequency = %frequency_of_command; |
| devi@37 | 1492 |
| devi@49 | 1493 $Stat{TotalTime} ||= 0; |
| devi@49 | 1494 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($Stat{FirstCommand} || 0); |
| devi@49 | 1495 $Stat{FirstCommand} = sprintf "%02i:%02i:%02i %04i-%2i-%2i", $hour, $min, $sec, $year+1900, $mon+1, $mday; |
| devi@49 | 1496 ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($Stat{LastCommand} || 0); |
| devi@49 | 1497 $Stat{LastCommand} = sprintf "%02i:%02i:%02i %04i-%2i-%2i", $hour, $min, $sec, $year+1900, $mon+1, $mday; |
| devi@56 | 1498 if ($Stat{TotalCommands}) { |
| devi@56 | 1499 $Stat{ErrorsPercentage} = sprintf "%5.2f", $Stat{ErrorCommands}*100/$Stat{TotalCommands}; |
| devi@56 | 1500 $Stat{MistypesPercentage} = sprintf "%5.2f", $Stat{MistypedCommands}*100/$Stat{TotalCommands}; |
| devi@56 | 1501 } |
| devi@49 | 1502 $Stat{CommandsPerTime} = sprintf "%5.2f", $Stat{TotalCommands}*60/$Stat{TotalTime} |
| devi@49 | 1503 if $Stat{TotalTime}; |
| devi@49 | 1504 $Stat{TotalTime} = sprintf "%5.2f", $Stat{TotalTime}/60/60; |
| devi@31 | 1505 |
| devi@49 | 1506 my $total_commands=0; |
| devi@49 | 1507 for $command (keys %CommandsFrequency){ |
| devi@49 | 1508 $total_commands += $CommandsFrequency{$command}; |
| devi@49 | 1509 } |
| devi@49 | 1510 if ($total_commands) { |
| devi@49 | 1511 for $command (reverse sort {$CommandsFrequency{$a} <=> $CommandsFrequency{$b}} keys %CommandsFrequency){ |
| devi@49 | 1512 my $command_html; |
| devi@49 | 1513 my $percentage = sprintf "%5.2f",$CommandsFrequency{$command}*100/$total_commands; |
| devi@49 | 1514 if ($percentage < 0.5) { |
| devi@49 | 1515 my $hint = make_comment($command); |
| devi@49 | 1516 $command_html = "$command"; |
| devi@56 | 1517 $command_html = "<span title='$hint' class='with_hint'>$command_html</span>" if $hint; |
| devi@56 | 1518 $command_html = "<span class='without_hint'>$command_html</span>" if not $hint; |
| devi@49 | 1519 my $command_html = "<tt>$command_html</tt>"; |
| devi@49 | 1520 $Stat{RareCommands} .= $command_html."<sub><font size='-2'>".$CommandsFrequency{$command}."</font></sub> , "; |
| devi@49 | 1521 } |
| devi@49 | 1522 else { |
| devi@49 | 1523 my $hint = make_comment($command); |
| devi@49 | 1524 $command_html = "$command"; |
| devi@56 | 1525 $command_html = "<span title='$hint' class='with_hint'>$command_html</span>" if $hint; |
| devi@56 | 1526 $command_html = "<span class='without_hint'>$command_html</span>" if not $hint; |
| devi@49 | 1527 my $command_html = "<tt>$command_html</tt>"; |
| devi@49 | 1528 $percentage = sprintf "%5.2f",$percentage; |
| devi@49 | 1529 $Stat{CommandsFrequency} .= "<tr><td>".$command_html."</td><td>".$CommandsFrequency{$command}."</td>". |
| devi@49 | 1530 "<td>|".("="x int($CommandsFrequency{$command}*100/$total_commands))."| $percentage%</td></tr>"; |
| devi@49 | 1531 } |
| devi@49 | 1532 } |
| devi@49 | 1533 $Stat{CommandsFrequency} = "<table>".$Stat{CommandsFrequency}."</table>"; |
| devi@49 | 1534 $Stat{RareCommands} =~ s/, $// if $Stat{RareCommands}; |
| devi@49 | 1535 } |
| devi@31 | 1536 |
| devi@56 | 1537 my $result = q(); |
| devi@49 | 1538 for my $stat (@StatOrder) { |
| devi@56 | 1539 next unless $Stat{"$stat"}; |
| devi@56 | 1540 $result .= "<tr valign='top'><td width='300'>".$StatNames{"$stat"}."</td><td>".$Stat{"$stat"}."</td></tr>" |
| devi@49 | 1541 } |
| devi@56 | 1542 $result = "<table>$result</table>" |
| devi@56 | 1543 . "<font size='-2'>____<br/>*) Интервалы неактивности длительностью " |
| devi@56 | 1544 . ($Config{stat_inactivity_interval}/60) |
| devi@56 | 1545 . " минут и более не учитываются</font></br>"; |
| devi@31 | 1546 |
| devi@56 | 1547 return $result; |
| devi@23 | 1548 } |
| devi@23 | 1549 |
| devi@23 | 1550 |
| devi@31 | 1551 sub collapse_list($) |
| devi@31 | 1552 { |
| devi@49 | 1553 my $res = ""; |
| devi@49 | 1554 for my $elem (@{$_[0]}) { |
| devi@49 | 1555 if (ref $elem eq "ARRAY") { |
| devi@49 | 1556 $res .= "<ul>".collapse_list($elem)."</ul>"; |
| devi@49 | 1557 } |
| devi@49 | 1558 else |
| devi@49 | 1559 { |
| devi@49 | 1560 $res .= "<li>".$elem."</li>"; |
| devi@49 | 1561 } |
| devi@49 | 1562 } |
| devi@49 | 1563 return $res; |
| devi@31 | 1564 } |
| devi@31 | 1565 |
| devi@23 | 1566 |
| devi@88 | 1567 sub print_files_html |
| devi@69 | 1568 { |
| devi@69 | 1569 my $result = qq(); |
| devi@69 | 1570 my @toc; |
| devi@69 | 1571 for my $file (sort keys %Files) { |
| devi@73 | 1572 my $div_id = "file:$file"; |
| devi@69 | 1573 $div_id =~ s@/@_@g; |
| devi@69 | 1574 push @toc, "<a href='#$div_id'>$file</a>"; |
| devi@69 | 1575 $result .= "<div class='filename' id='$div_id'>".$file."</div>\n" |
| devi@73 | 1576 . "<div class='file_navigation'><a href='#command:".$Files{$file}->{source_command_id}."'>".">"."</a></div>" |
| devi@73 | 1577 . "<div class='filedata'><pre>".$Files{$file}->{content}."</pre></div>"; |
| devi@69 | 1578 } |
| devi@89 | 1579 if ($result) { |
| devi@89 | 1580 return "<div class='files_toc'>".collapse_list(\@toc)."</div>".$result; |
| devi@89 | 1581 } |
| devi@89 | 1582 else { |
| devi@89 | 1583 return ""; |
| devi@89 | 1584 } |
| devi@69 | 1585 } |
| devi@23 | 1586 |
| devi@23 | 1587 |
| devi@23 | 1588 sub init_variables |
| devi@23 | 1589 { |
| devi@23 | 1590 $Html_Help = <<HELP; |
| devi@49 | 1591 Для того чтобы использовать LiLaLo, не нужно знать ничего особенного: |
| devi@49 | 1592 всё происходит само собой. |
| devi@49 | 1593 Однако, чтобы ведение и последующее использование журналов |
| devi@49 | 1594 было как можно более эффективным, желательно иметь в виду следующее: |
| devi@56 | 1595 <ol> |
| devi@49 | 1596 <li><p> |
| devi@49 | 1597 В журнал автоматически попадают все команды, данные в любом терминале системы. |
| devi@49 | 1598 </p></li> |
| devi@49 | 1599 <li><p> |
| devi@49 | 1600 Для того чтобы убедиться, что журнал на текущем терминале ведётся, |
| devi@49 | 1601 и команды записываются, дайте команду w. |
| devi@49 | 1602 В поле WHAT, соответствующем текущему терминалу, |
| devi@49 | 1603 должна быть указана программа script. |
| devi@49 | 1604 </p></li> |
| devi@49 | 1605 <li><p> |
| devi@57 | 1606 Команды, при наборе которых были допущены синтаксические ошибки, |
| devi@57 | 1607 выводятся перечёркнутым текстом: |
| devi@57 | 1608 <table> |
| devi@57 | 1609 <tr class='command'> |
| devi@57 | 1610 <td class='script'> |
| devi@69 | 1611 <pre class='_mistyped_cline'> |
| devi@57 | 1612 \$ l s-l</pre> |
| devi@69 | 1613 <pre class='_mistyped_output'>bash: l: command not found |
| devi@57 | 1614 </pre> |
| devi@57 | 1615 </td> |
| devi@57 | 1616 </tr> |
| devi@57 | 1617 </table> |
| devi@57 | 1618 <br/> |
| devi@57 | 1619 </p></li> |
| devi@57 | 1620 <li><p> |
| devi@49 | 1621 Если код завершения команды равен нулю, |
| devi@49 | 1622 команда была выполнена без ошибок. |
| devi@49 | 1623 Команды, код завершения которых отличен от нуля, выделяются цветом. |
| devi@31 | 1624 <table> |
| devi@31 | 1625 <tr class='command'> |
| devi@31 | 1626 <td class='script'> |
| devi@69 | 1627 <pre class='_wrong_cline'> |
| devi@57 | 1628 \$ test 5 -lt 4</pre> |
| devi@31 | 1629 </pre> |
| devi@31 | 1630 </td> |
| devi@31 | 1631 </tr> |
| devi@31 | 1632 </table> |
| devi@57 | 1633 Обратите внимание на то, что код завершения команды может быть отличен от нуля |
| devi@57 | 1634 не только в тех случаях, когда команда была выполнена с ошибкой. |
| devi@57 | 1635 Многие команды используют код завершения, например, для того чтобы показать результаты проверки |
| devi@31 | 1636 <br/> |
| devi@49 | 1637 </p></li> |
| devi@49 | 1638 <li><p> |
| devi@49 | 1639 Команды, ход выполнения которых был прерван пользователем, выделяются цветом. |
| devi@31 | 1640 <table> |
| devi@31 | 1641 <tr class='command'> |
| devi@31 | 1642 <td class='script'> |
| devi@69 | 1643 <pre class='_interrupted_cline'> |
| devi@31 | 1644 \$ find / -name abc</pre> |
| devi@31 | 1645 <pre class='interrupted_output'>find: /home/devi-orig/.gnome2: Keine Berechtigung |
| devi@31 | 1646 find: /home/devi-orig/.gnome2_private: Keine Berechtigung |
| devi@31 | 1647 find: /home/devi-orig/.nautilus/metafiles: Keine Berechtigung |
| devi@31 | 1648 find: /home/devi-orig/.metacity: Keine Berechtigung |
| devi@31 | 1649 find: /home/devi-orig/.inkscape: Keine Berechtigung |
| devi@31 | 1650 ^C |
| devi@31 | 1651 </pre> |
| devi@31 | 1652 </td> |
| devi@31 | 1653 </tr> |
| devi@31 | 1654 </table> |
| devi@31 | 1655 <br/> |
| devi@49 | 1656 </p></li> |
| devi@49 | 1657 <li><p> |
| devi@49 | 1658 Команды, выполненные с привилегиями суперпользователя, |
| devi@49 | 1659 выделяются слева красной чертой. |
| devi@31 | 1660 <table> |
| devi@31 | 1661 <tr class='command'> |
| devi@31 | 1662 <td class='script'> |
| devi@31 | 1663 <pre class='_root_cline'> |
| devi@31 | 1664 # id</pre> |
| devi@31 | 1665 <pre class='_root_output'> |
| devi@31 | 1666 uid=0(root) gid=0(root) Gruppen=0(root) |
| devi@31 | 1667 </pre> |
| devi@31 | 1668 </td> |
| devi@31 | 1669 </tr> |
| devi@31 | 1670 </table> |
| devi@49 | 1671 <br/> |
| devi@49 | 1672 </p></li> |
| devi@49 | 1673 <li><p> |
| devi@49 | 1674 Изменения, внесённые в текстовый файл с помощью редактора, |
| devi@49 | 1675 запоминаются и показываются в журнале в формате ed. |
| devi@49 | 1676 Строки, начинающиеся символом "<", удалены, а строки, |
| devi@49 | 1677 начинающиеся символом ">" -- добавлены. |
| devi@31 | 1678 <table> |
| devi@31 | 1679 <tr class='command'> |
| devi@31 | 1680 <td class='script'> |
| devi@31 | 1681 <pre class='cline'> |
| devi@31 | 1682 \$ vi ~/.bashrc</pre> |
| devi@31 | 1683 <table><tr><td width='5'/><td class='diff'><pre>2a3,5 |
| devi@49 | 1684 > if [ -f /usr/local/etc/bash_completion ]; then |
| devi@31 | 1685 > . /usr/local/etc/bash_completion |
| devi@49 | 1686 > fi |
| devi@31 | 1687 </pre></td></tr></table></td> |
| devi@31 | 1688 </tr> |
| devi@31 | 1689 </table> |
| devi@49 | 1690 <br/> |
| devi@49 | 1691 </p></li> |
| devi@49 | 1692 <li><p> |
| devi@49 | 1693 Для того чтобы изменить файл в соответствии с показанными в диффшоте |
| devi@49 | 1694 изменениями, можно воспользоваться командой patch. |
| devi@49 | 1695 Нужно скопировать изменения, запустить программу patch, указав в |
| devi@49 | 1696 качестве её аргумента файл, к которому применяются изменения, |
| devi@49 | 1697 и всавить скопированный текст: |
| devi@48 | 1698 <table> |
| devi@48 | 1699 <tr class='command'> |
| devi@48 | 1700 <td class='script'> |
| devi@48 | 1701 <pre class='cline'> |
| devi@48 | 1702 \$ patch ~/.bashrc</pre> |
| devi@48 | 1703 </td> |
| devi@48 | 1704 </tr> |
| devi@48 | 1705 </table> |
| devi@49 | 1706 В данном случае изменения применяются к файлу ~/.bashrc |
| devi@49 | 1707 </p></li> |
| devi@49 | 1708 <li><p> |
| devi@49 | 1709 Для того чтобы получить краткую справочную информацию о команде, |
| devi@49 | 1710 нужно подвести к ней мышь. Во всплывающей подсказке появится краткое |
| devi@49 | 1711 описание команды. |
| devi@57 | 1712 </p> |
| devi@57 | 1713 <p> |
| devi@57 | 1714 Если справочная информация о команде есть, |
| devi@57 | 1715 команда выделяется голубым фоном, например: <span class="with_hint" title="главный текстовый редактор Unix">vi</span>. |
| devi@57 | 1716 Если справочная информация отсутствует, |
| devi@57 | 1717 команда выделяется розовым фоном, например: <span class="without_hint">notepad.exe</span>. |
| devi@57 | 1718 Справочная информация может отсутствовать в том случае, |
| devi@57 | 1719 если (1) команда введена неверно; (2) если распознавание команды LiLaLo выполнено неверно; |
| devi@57 | 1720 (3) если информация о команде неизвестна LiLaLo. |
| devi@57 | 1721 Последнее возможно для редких команд. |
| devi@57 | 1722 </p></li> |
| devi@57 | 1723 <li><p> |
| devi@57 | 1724 Большие, в особенности многострочные, всплывающие подсказки лучше |
| devi@57 | 1725 всего показываются браузерами KDE Konqueror, Apple Safari и Microsoft Internet Explorer. |
| devi@57 | 1726 В браузерах Mozilla и Firefox они отображаются не полностью, |
| devi@57 | 1727 а вместо перевода строки выводится специальный символ. |
| devi@49 | 1728 </p></li> |
| devi@49 | 1729 <li><p> |
| devi@49 | 1730 Время ввода команды, показанное в журнале, соответствует времени |
| devi@49 | 1731 <i>начала ввода командной строки</i>, которое равно тому моменту, |
| devi@49 | 1732 когда на терминале появилось приглашение интерпретатора |
| devi@49 | 1733 </p></li> |
| devi@49 | 1734 <li><p> |
| devi@49 | 1735 Имя терминала, на котором была введена команда, показано в специальном блоке. |
| devi@49 | 1736 Этот блок показывается только в том случае, если терминал |
| devi@49 | 1737 текущей команды отличается от терминала предыдущей. |
| devi@49 | 1738 </p></li> |
| devi@49 | 1739 <li><p> |
| devi@49 | 1740 Вывод не интересующих вас в настоящий момент элементов журнала, |
| devi@49 | 1741 таких как время, имя терминала и других, можно отключить. |
| devi@49 | 1742 Для этого нужно воспользоваться <a href='#visibility_form'>формой управления журналом</a> |
| devi@49 | 1743 вверху страницы. |
| devi@49 | 1744 </p></li> |
| devi@49 | 1745 <li><p> |
| devi@49 | 1746 Небольшие комментарии к командам можно вставлять прямо из командной строки. |
| devi@49 | 1747 Комментарий вводится прямо в командную строку, после символов #^ или #v. |
| devi@49 | 1748 Символы ^ и v показывают направление выбора команды, к которой относится комментарий: |
| devi@49 | 1749 ^ - к предыдущей, v - к следующей. |
| devi@49 | 1750 Например, если в командной строке было введено: |
| devi@31 | 1751 <pre class='cline'> |
| devi@31 | 1752 \$ whoami |
| devi@31 | 1753 </pre> |
| devi@31 | 1754 <pre class='output'> |
| devi@31 | 1755 user |
| devi@31 | 1756 </pre> |
| devi@31 | 1757 <pre class='cline'> |
| devi@31 | 1758 \$ #^ Интересно, кто я? |
| devi@31 | 1759 </pre> |
| devi@49 | 1760 в журнале это будет выглядеть так: |
| devi@49 | 1761 |
| devi@31 | 1762 <pre class='cline'> |
| devi@31 | 1763 \$ whoami |
| devi@31 | 1764 </pre> |
| devi@31 | 1765 <pre class='output'> |
| devi@31 | 1766 user |
| devi@31 | 1767 </pre> |
| devi@31 | 1768 <table class='note'><tr><td width='100%' class='note_text'> |
| devi@31 | 1769 <tr> <td> Интересно, кто я?<br/> </td></tr></table> |
| devi@49 | 1770 </p></li> |
| devi@49 | 1771 <li><p> |
| devi@49 | 1772 Если комментарий содержит несколько строк, |
| devi@49 | 1773 его можно вставить в журнал следующим образом: |
| devi@31 | 1774 <pre class='cline'> |
| devi@31 | 1775 \$ whoami |
| devi@31 | 1776 </pre> |
| devi@31 | 1777 <pre class='output'> |
| devi@31 | 1778 user |
| devi@31 | 1779 </pre> |
| devi@31 | 1780 <pre class='cline'> |
| devi@31 | 1781 \$ cat > /dev/null #^ Интересно, кто я? |
| devi@31 | 1782 </pre> |
| devi@31 | 1783 <pre class='output'> |
| devi@31 | 1784 Программа whoami выводит имя пользователя, под которым |
| devi@31 | 1785 мы зарегистрировались в системе. |
| devi@31 | 1786 - |
| devi@31 | 1787 Она не может ответить на вопрос о нашем назначении |
| devi@31 | 1788 в этом мире. |
| devi@31 | 1789 </pre> |
| devi@49 | 1790 В журнале это будет выглядеть так: |
| devi@31 | 1791 <table> |
| devi@31 | 1792 <tr class='command'> |
| devi@31 | 1793 <td class='script'> |
| devi@31 | 1794 <pre class='cline'> |
| devi@31 | 1795 \$ whoami</pre> |
| devi@31 | 1796 <pre class='output'>user |
| devi@31 | 1797 </pre> |
| devi@31 | 1798 <table class='note'><tr><td class='note_title'>Интересно, кто я?</td></tr><tr><td width='100%' class='note_text'> |
| devi@31 | 1799 Программа whoami выводит имя пользователя, под которым<br/> |
| devi@31 | 1800 мы зарегистрировались в системе.<br/> |
| devi@31 | 1801 <br/> |
| devi@31 | 1802 Она не может ответить на вопрос о нашем назначении<br/> |
| devi@31 | 1803 в этом мире.<br/> |
| devi@31 | 1804 </td></tr></table> |
| devi@31 | 1805 </td> |
| devi@31 | 1806 </tr> |
| devi@31 | 1807 </table> |
| devi@49 | 1808 Для разделения нескольких абзацев между собой |
| devi@49 | 1809 используйте символ "-", один в строке. |
| devi@49 | 1810 <br/> |
| devi@31 | 1811 </p></li> |
| devi@49 | 1812 <li><p> |
| devi@49 | 1813 Комментарии, не относящиеся непосредственно ни к какой из команд, |
| devi@49 | 1814 добавляются точно таким же способом, только вместо симолов #^ или #v |
| devi@49 | 1815 нужно использовать символы #= |
| devi@49 | 1816 </p></li> |
| devi@87 | 1817 |
| devi@87 | 1818 <p><li> |
| devi@87 | 1819 Содержимое файла может быть показано в журнале. |
| devi@87 | 1820 Для этого его нужно вывести с помощью программы cat. |
| devi@87 | 1821 Если вывод команды отметить симоволами #!, |
| devi@87 | 1822 содержимое файла будет показано в журнале |
| devi@87 | 1823 в специально отведённой для этого секции. |
| devi@87 | 1824 </li></p> |
| devi@87 | 1825 |
| devi@87 | 1826 <p> |
| devi@87 | 1827 <li> |
| devi@87 | 1828 Для того чтобы вставить скриншот интересующего вас окна в журнал, |
| devi@87 | 1829 нужно воспользоваться командой l3shot. |
| devi@87 | 1830 После того как команда вызвана, нужно с помощью мыши выбрать окно, которое |
| devi@87 | 1831 должно быть в журнале. |
| devi@87 | 1832 </li> |
| devi@87 | 1833 </p> |
| devi@87 | 1834 |
| devi@87 | 1835 <p> |
| devi@87 | 1836 <li> |
| devi@87 | 1837 Команды в журнале расположены в хронологическом порядке. |
| devi@87 | 1838 Если две команды давались одна за другой, но на разных терминалах, |
| devi@87 | 1839 в журнале они будут рядом, даже если они не имеют друг к другу никакого отношения. |
| devi@87 | 1840 <pre> |
| devi@87 | 1841 1 |
| devi@87 | 1842 2 |
| devi@87 | 1843 3 |
| devi@87 | 1844 4 |
| devi@87 | 1845 </pre> |
| devi@87 | 1846 Группы команд, выполненных на разных терминалах, разделяются специальной линией. |
| devi@87 | 1847 Под этой линией в правом углу показано имя терминала, на котором выполнялись команды. |
| devi@87 | 1848 Для того чтобы посмотреть команды только одного сенса, |
| devi@87 | 1849 нужно щёкнуть по этому названию. |
| devi@87 | 1850 </li> |
| devi@87 | 1851 </p> |
| devi@56 | 1852 </ol> |
| devi@23 | 1853 HELP |
| devi@23 | 1854 |
| devi@23 | 1855 $Html_About = <<ABOUT; |
| devi@49 | 1856 <p> |
| devi@102 | 1857 <a href='http://xgu.ru/lilalo/'>LiLaLo</a> (L3) расшифровывается как Live Lab Log.<br/> |
| devi@49 | 1858 Программа разработана для повышения эффективности обучения Unix/Linux-системам.<br/> |
| igor@111 | 1859 (c) Игорь Чубин, 2004-2008<br/> |
| devi@49 | 1860 </p> |
| devi@23 | 1861 ABOUT |
| devi@23 | 1862 $Html_About.='$Id$ </p>'; |
| devi@23 | 1863 |
| devi@23 | 1864 $Html_JavaScript = <<JS; |
| devi@49 | 1865 function getElementsByClassName(Class_Name) |
| devi@49 | 1866 { |
| devi@49 | 1867 var Result=new Array(); |
| devi@49 | 1868 var All_Elements=document.all || document.getElementsByTagName('*'); |
| devi@49 | 1869 for (i=0; i<All_Elements.length; i++) |
| devi@49 | 1870 if (All_Elements[i].className==Class_Name) |
| devi@49 | 1871 Result.push(All_Elements[i]); |
| devi@49 | 1872 return Result; |
| devi@49 | 1873 } |
| devi@49 | 1874 function ShowHide (name) |
| devi@49 | 1875 { |
| devi@49 | 1876 elements=getElementsByClassName(name); |
| devi@49 | 1877 for(i=0; i<elements.length; i++) |
| devi@49 | 1878 if (elements[i].style.display == "none") |
| devi@49 | 1879 elements[i].style.display = ""; |
| devi@49 | 1880 else |
| devi@49 | 1881 elements[i].style.display = "none"; |
| devi@49 | 1882 //if (elements[i].style.visibility == "hidden") |
| devi@49 | 1883 // elements[i].style.visibility = "visible"; |
| devi@49 | 1884 //else |
| devi@49 | 1885 // elements[i].style.visibility = "hidden"; |
| devi@49 | 1886 } |
| devi@49 | 1887 function filter_by_output(text) |
| devi@49 | 1888 { |
| devi@49 | 1889 |
| devi@49 | 1890 var jjj=0; |
| devi@49 | 1891 |
| devi@49 | 1892 elements=getElementsByClassName('command'); |
| devi@49 | 1893 for(i=0; i<elements.length; i++) { |
| devi@49 | 1894 subelems = elements[i].getElementsByTagName('pre'); |
| devi@49 | 1895 for(j=0; j<subelems.length; j++) { |
| devi@49 | 1896 if (subelems[j].className = 'output') { |
| devi@49 | 1897 var str = new String(subelems[j].nodeValue); |
| devi@49 | 1898 if (jjj != 1) { |
| devi@49 | 1899 alert(str); |
| devi@49 | 1900 jjj=1; |
| devi@49 | 1901 } |
| devi@49 | 1902 if (str.indexOf(text) >0) |
| devi@49 | 1903 subelems[j].style.display = "none"; |
| devi@49 | 1904 else |
| devi@49 | 1905 subelems[j].style.display = ""; |
| devi@23 | 1906 |
| devi@49 | 1907 } |
| devi@49 | 1908 |
| devi@49 | 1909 } |
| devi@49 | 1910 } |
| devi@23 | 1911 |
| devi@49 | 1912 } |
| devi@23 | 1913 JS |
| devi@23 | 1914 |
| devi@89 | 1915 $SetCursorPosition_JS = <<JS; |
| devi@89 | 1916 function setCursorPosition(oInput,oStart,oEnd) { |
| devi@89 | 1917 oInput.focus(); |
| devi@89 | 1918 if( oInput.setSelectionRange ) { |
| devi@89 | 1919 oInput.setSelectionRange(oStart,oEnd); |
| devi@89 | 1920 } else if( oInput.createTextRange ) { |
| devi@89 | 1921 var range = oInput.createTextRange(); |
| devi@89 | 1922 range.collapse(true); |
| devi@89 | 1923 range.moveEnd('character',oEnd); |
| devi@89 | 1924 range.moveStart('character',oStart); |
| devi@89 | 1925 range.select(); |
| devi@89 | 1926 } |
| devi@89 | 1927 } |
| devi@89 | 1928 JS |
| devi@89 | 1929 |
| devi@23 | 1930 %Search_Machines = ( |
| devi@49 | 1931 "google" => { "query" => "http://www.google.com/search?q=" , |
| devi@49 | 1932 "icon" => "$Config{frontend_google_ico}" }, |
| devi@49 | 1933 "freebsd" => { "query" => "http://www.freebsd.org/cgi/man.cgi?query=", |
| devi@49 | 1934 "icon" => "$Config{frontend_freebsd_ico}" }, |
| devi@49 | 1935 "linux" => { "query" => "http://man.he.net/?topic=", |
| devi@49 | 1936 "icon" => "$Config{frontend_linux_ico}"}, |
| devi@49 | 1937 "opennet" => { "query" => "http://www.opennet.ru/search.shtml?words=", |
| devi@49 | 1938 "icon" => "$Config{frontend_opennet_ico}"}, |
| devi@49 | 1939 "local" => { "query" => "http://www.freebsd.org/cgi/man.cgi?query=", |
| devi@49 | 1940 "icon" => "$Config{frontend_local_ico}" }, |
| devi@23 | 1941 |
| devi@49 | 1942 ); |
| devi@23 | 1943 |
| devi@23 | 1944 %Elements_Visibility = ( |
| devi@69 | 1945 "0 new_commands_table" => "новые команды", |
| devi@69 | 1946 "1 diff" => "редактор", |
| devi@69 | 1947 "2 time" => "время", |
| devi@69 | 1948 "3 ttychange" => "терминал", |
| devi@69 | 1949 "4 wrong_output wrong_cline wrong_root_output wrong_root_cline" |
| devi@69 | 1950 => "команды с ненулевым кодом завершения", |
| devi@69 | 1951 "5 mistyped_output mistyped_cline mistyped_root_output mistyped_root_cline" |
| devi@69 | 1952 => "неверно набранные команды", |
| devi@69 | 1953 "6 interrupted_output interrupted_cline interrupted_root_output interrupted_root_cline" |
| devi@49 | 1954 => "прерванные команды", |
| devi@69 | 1955 "7 tab_completion_output tab_completion_cline" |
| devi@49 | 1956 => "продолжение с помощью tab" |
| devi@23 | 1957 ); |
| devi@23 | 1958 |
| devi@23 | 1959 @Day_Name = qw/ Воскресенье Понедельник Вторник Среда Четверг Пятница Суббота /; |
| devi@23 | 1960 @Month_Name = qw/ Январь Февраль Март Апрель Май Июнь Июль Август Сентябрь Октябрь Ноябрь Декабрь /; |
| devi@23 | 1961 @Of_Month_Name = qw/ Января Февраля Марта Апреля Мая Июня Июля Августа Сентября Октября Ноября Декабря /; |
| devi@23 | 1962 } |
| devi@23 | 1963 |
| devi@56 | 1964 |
| devi@56 | 1965 |
| devi@56 | 1966 |
| devi@56 | 1967 # Временно удалённый код |
| devi@56 | 1968 # Возможно, он не понадобится уже никогда |
| devi@56 | 1969 |
| devi@56 | 1970 |
| devi@56 | 1971 sub search_by |
| devi@56 | 1972 { |
| devi@56 | 1973 my $sm = shift; |
| devi@56 | 1974 my $topic = shift; |
| devi@56 | 1975 $topic =~ s/ /+/; |
| devi@56 | 1976 |
| devi@56 | 1977 return "<a href='". $Search_Machines{$sm}->{"query"}."$topic'><img width='16' height='16' src='". |
| devi@56 | 1978 $Search_Machines{$sm}->{"icon"}."' border='0'/></a>"; |
| devi@56 | 1979 } |
| devi@56 | 1980 |
| igor@109 | 1981 |
| igor@109 | 1982 |
| igor@109 | 1983 |
| igor@109 | 1984 ######################################################################################## |
| igor@109 | 1985 # |
| igor@109 | 1986 # mywi |
| igor@109 | 1987 # |
| igor@109 | 1988 # |
| igor@109 | 1989 # |
| igor@109 | 1990 # |
| igor@109 | 1991 # |
| igor@109 | 1992 # |
| igor@109 | 1993 # |
| igor@109 | 1994 |
| igor@109 | 1995 |
| igor@109 | 1996 |
| igor@109 | 1997 sub mywi_init |
| igor@109 | 1998 { |
| igor@114 | 1999 our $MyWiFile = "/home/igor/mywi/mywi.txt"; |
| igor@114 | 2000 our $MyWiLog = "/home/igor/mywi/mywi.log"; |
| igor@109 | 2001 our $section=""; |
| igor@109 | 2002 |
| igor@109 | 2003 our @MywiTXT; # Массив текстовых записей mywi |
| igor@109 | 2004 our %MywiHASH; # Хэш массивов записей |
| igor@109 | 2005 our %Query; |
| igor@109 | 2006 |
| igor@109 | 2007 load_mywitxt($MyWiFile, \@MywiTXT, \%MywiHASH); |
| igor@109 | 2008 } |
| igor@109 | 2009 |
| igor@109 | 2010 sub mywi_process_query($) |
| igor@109 | 2011 # |
| igor@109 | 2012 # Сделать подсказку по заданному запросу |
| igor@109 | 2013 # $_[0] - тема для подсказки |
| igor@109 | 2014 # |
| igor@109 | 2015 # Возвращает: |
| igor@109 | 2016 # строку-подсказку |
| igor@109 | 2017 # |
| igor@109 | 2018 { |
| igor@109 | 2019 my $query = shift; |
| igor@109 | 2020 parse_query($query, \%Query); |
| igor@109 | 2021 $result = search_in_txt(\%Query, \@MywiTXT, \%MywiHASH); |
| igor@109 | 2022 |
| igor@109 | 2023 if (!$result) { |
| igor@109 | 2024 #add_to_log(\%Query, $MyWiLog); |
| igor@109 | 2025 return "$query nothing appropriate. Logged. ".join (";",%Query); |
| igor@109 | 2026 } |
| igor@109 | 2027 |
| igor@109 | 2028 return $result; |
| igor@109 | 2029 } |
| igor@109 | 2030 |
| igor@109 | 2031 #################################################################################### |
| igor@109 | 2032 # private section |
| igor@109 | 2033 #################################################################################### |
| igor@109 | 2034 |
| igor@109 | 2035 sub load_mywitxt |
| igor@109 | 2036 # |
| igor@109 | 2037 # Загрузить файл с записями Mywi_TXT |
| igor@109 | 2038 # в массив |
| igor@109 | 2039 # $_[0] - указатель на массив для загрузки |
| igor@109 | 2040 # $_[1] - имя файла для загрузки |
| igor@109 | 2041 # |
| igor@109 | 2042 { |
| igor@109 | 2043 my $MyWiFile = $_[0]; |
| igor@109 | 2044 my $MywiTXT = $_[1]; |
| igor@109 | 2045 my $MywiHASH = $_[2]; |
| igor@109 | 2046 |
| igor@109 | 2047 open (MW, "$MyWiFile") or die "Can't open $MyWiFile for reading"; |
| igor@109 | 2048 binmode MW, ":utf8"; |
| igor@109 | 2049 @{$MywiTXT} = <MW>; |
| igor@109 | 2050 close (MWF); |
| igor@109 | 2051 |
| igor@109 | 2052 for my $mywi_line (@{$MywiTXT}) { |
| igor@109 | 2053 my $topic = $mywi_line; |
| igor@109 | 2054 $topic =~ s@\s*\(.*\n@@; |
| igor@109 | 2055 push @{$$MywiHASH{"$topic"}}, $mywi_line; |
| igor@109 | 2056 # $MywiHASH{"$topic"} .= $mywi_line; |
| igor@109 | 2057 } |
| igor@109 | 2058 } |
| igor@109 | 2059 |
| igor@109 | 2060 sub parse_query |
| igor@109 | 2061 # |
| igor@109 | 2062 # Строка запроса: |
| igor@109 | 2063 # [format:]topic[(section)] |
| igor@109 | 2064 # Элементы format и topic являются не обязательными |
| igor@109 | 2065 # |
| igor@109 | 2066 # $_[0] - строка запроса |
| igor@109 | 2067 # $_[1] - ссылка на хэш запроса |
| igor@109 | 2068 # |
| igor@109 | 2069 { |
| igor@109 | 2070 my $query_string = shift; |
| igor@109 | 2071 my $query_hash = shift; |
| igor@109 | 2072 |
| igor@109 | 2073 %{$query_hash} = ( |
| igor@109 | 2074 "format" => "txt", |
| igor@109 | 2075 "section" => "", |
| igor@109 | 2076 "topic" => "", |
| igor@109 | 2077 ); |
| igor@109 | 2078 |
| igor@109 | 2079 if ($query_string =~ s/^([^:]*)://) { |
| igor@109 | 2080 $query_hash->{"format"} = $1 || "txt"; |
| igor@109 | 2081 } |
| igor@109 | 2082 if ($query_string =~ s/\(([^(]*)\)$//) { |
| igor@109 | 2083 $query_hash->{"section"} = $1 || ""; |
| igor@109 | 2084 } |
| igor@109 | 2085 $query_hash->{"topic"} = $query_string; |
| igor@109 | 2086 } |
| igor@109 | 2087 |
| igor@109 | 2088 |
| igor@109 | 2089 sub search_in_txt |
| igor@109 | 2090 # |
| igor@109 | 2091 # Выполнить поиск в текстовой базе |
| igor@109 | 2092 # по известному запросу |
| igor@109 | 2093 # $_[0] -- ссылка на хэш запроса |
| igor@109 | 2094 # $_[1] -- ссылка на массив текстовых записей |
| igor@109 | 2095 # $_[2] -- ссылка на хэш массивов текстовых записей |
| igor@109 | 2096 # Результат: |
| igor@109 | 2097 # найденная текстовая запись в заданном формате |
| igor@109 | 2098 # |
| igor@109 | 2099 { |
| igor@109 | 2100 my %Query = %{$_[0]}; |
| igor@109 | 2101 my %MywiHASH = %{$_[2]}; |
| igor@109 | 2102 |
| igor@109 | 2103 my $topic = $Query{"topic"}; |
| igor@109 | 2104 my $section = $Query{"section"}; |
| igor@109 | 2105 my $result = ""; |
| igor@109 | 2106 |
| igor@109 | 2107 return join("\n",@{$MywiHASH{"$topic"}})."\n"; |
| igor@109 | 2108 |
| igor@109 | 2109 for my $l (@{$$_[2]{$topic}}) { |
| igor@109 | 2110 # for my $l (@{$_[1]}) { |
| igor@109 | 2111 my $line = $l; |
| igor@109 | 2112 if ( |
| igor@109 | 2113 ($section and $line =~ /^\s*\Q$topic\E\s*\($section*\)\s*-/ ) |
| igor@109 | 2114 or (not $section and $line =~ /^\s*\Q$topic\E\s*(\([^)]*\)?)\s*-/) ) { |
| igor@109 | 2115 $line =~ s/^.* -//mg if ($Config{"short"}); |
| igor@109 | 2116 $result .= "<para>$line</para>"; |
| igor@109 | 2117 } |
| igor@109 | 2118 } |
| igor@109 | 2119 return $result; |
| igor@109 | 2120 } |
| igor@109 | 2121 |
| igor@109 | 2122 |
| igor@109 | 2123 sub add_to_log($$) |
| igor@109 | 2124 # |
| igor@109 | 2125 # Если в базе отсутствует информация по данной теме, |
| igor@109 | 2126 # сделать предположение доступным способом |
| igor@109 | 2127 # и добавить его в базу |
| igor@109 | 2128 # или просто сделать отметку о необходимости |
| igor@109 | 2129 # расширения базы |
| igor@109 | 2130 # |
| igor@109 | 2131 # Добавить запись в журнал |
| igor@109 | 2132 # $_[0] - запись (ссылка на хэш) |
| igor@109 | 2133 # $_[1] - имя файла-журнала |
| igor@109 | 2134 # |
| igor@109 | 2135 { |
| igor@109 | 2136 my $query = $_[0]; |
| igor@109 | 2137 my $MyWiLog = $_[1]; |
| igor@109 | 2138 |
| igor@109 | 2139 open (MWF, ">>:utf8", $MyWiLog) or die "Can't open $MyWiLog for writing"; |
| igor@109 | 2140 my $my_guess = mywi_guess($query); |
| igor@109 | 2141 print MWF "$my_guess\n"; |
| igor@109 | 2142 close(MWF); |
| igor@109 | 2143 } |
| igor@109 | 2144 |
| igor@109 | 2145 sub mywi_guess($) |
| igor@109 | 2146 # Сформировать исходную строку для журнала по заданному запросу |
| igor@109 | 2147 # Если секция принадлежит 0..9, в качестве основы для результирующего текста использовать whatis |
| igor@109 | 2148 # $_[0] - запись (ссылка на хэш) |
| igor@109 | 2149 # |
| igor@109 | 2150 # Возвращает: |
| igor@109 | 2151 # строку-предположение |
| igor@109 | 2152 { |
| igor@109 | 2153 my %query = %{$_[0]}; |
| igor@109 | 2154 |
| igor@109 | 2155 my $topic = $query{"topic"}; |
| igor@109 | 2156 my $section = $query{"section"}; |
| igor@109 | 2157 |
| igor@109 | 2158 my $result = "$topic($section)"; |
| igor@109 | 2159 if (!$section or $section =~ /^[1-9]$/) |
| igor@109 | 2160 { |
| igor@109 | 2161 # Запрос из категории 1-9 |
| igor@109 | 2162 # Об этом может знать whatis |
| igor@109 | 2163 $result = `LANG=C whatis -- "$topic"`; |
| igor@109 | 2164 if ($result =~ /nothing appropriate/i) { |
| igor@109 | 2165 $result = $topic; |
| igor@109 | 2166 $result .= "($section)" if $section; |
| igor@109 | 2167 } |
| igor@109 | 2168 else { |
| igor@109 | 2169 1 while ($result =~ s/(\s+)-(\s+)/$1+$2/sg); |
| igor@109 | 2170 $result =~ s/\s+\(/(/; |
| igor@109 | 2171 chomp $result; |
| igor@109 | 2172 } |
| igor@109 | 2173 } |
| igor@109 | 2174 return $result; |
| igor@109 | 2175 } |
| igor@109 | 2176 |