lilalo: 822b36252d7f l3-frontend

lilalo

view l3-frontend @ 150:822b36252d7f

Вывод больших фрагментов текста не теряется.

Большие фрагменты текста теперь не вырезаются бесследно.
Там, откуда они вырезаются, вставляются ссылки,
по которым можно посмотреть полную версию вывода.
Испытано на больших фрагментах текста,
содержащих до 5000 строк (фрагменты более 5000 строк по умолчанию
обрезаются административно; допустимые размеры задаются в l3config.pm).
Исправлены ошибки, из-за которых большие фрагменты
обрабатывались некорректно.

author	igor@chub.in
date	Tue Jun 23 01:15:02 2009 +0300 (2009-06-23)
parents	266dae9ce2a1
children	80691b40e6db

line source

1 #!/usr/bin/perl

3 use POSIX qw(strftime);

4 use lib '/etc/lilalo';

5 use l3config;

6 use utf8;

8 our @Command_Lines;

9 our @Command_Lines_Index;

10 our %Commands_Description;

11 our %Args_Description;

12 our %Sessions;

13 our %Uploads;

15 our $debug_output=""; # Используйте эту переменную, если нужно передать отладочную информацию

17 our %filter;

18 our $filter_url;

19 sub init_filter;

21 our %Files;

23 # vvv Инициализация переменных выполняется процедурой init_variables

24 our @Day_Name;

25 our @Month_Name;

26 our @Of_Month_Name;

27 our %Search_Machines;

28 our %Elements_Visibility;

29 # ^^^

31 our $First_Command=$0;

32 our $Last_Command=40;

34 our %Stat;

35 our %frequency_of_command; # Сколько раз в журнале встречается какая команда

36 our $table_number=1;

37 our %tigra_hints;

39 my %mywi_cache_for; # Кэш для экономии обращений к mywi

41 sub count_frequency_of_commands;

42 sub make_comment;

43 sub make_new_entries_table;

44 sub load_command_lines_from_xml;

45 sub load_sessions_from_xml;

46 sub load_uploads;

47 sub sort_command_lines;

48 sub process_command_lines;

49 sub init_variables;

50 sub main;

51 sub collapse_list($);

53 sub minutes_passed;

55 sub print_all_txt;

56 sub print_all_html;

57 sub print_edit_all_html;

58 sub print_command_lines_html;

59 sub print_command_lines_txt;

60 sub print_files_html;

61 sub print_stat_html;

62 sub print_header_html;

63 sub print_footer_html;

64 sub tigra_hints_generate;

67 #### mywi

68 #

69 sub mywi_init;

70 sub load_mywitxt;

71 sub mywi_process_query($);

72 #

73 sub add_to_log($$);

74 sub parse_query;

75 sub search_in_txt;

76 sub add_to_log($$);

77 sub mywi_guess($);

78 #

80 main();

82 sub main

83 {

84 $| = 1;

86 init_variables();

87 init_config();

88 $Config{frontend_ico_path}=$Config{frontend_css};

89 $Config{frontend_ico_path}=~s@/[^/]*$@@;

90 init_filter();

91 mywi_init();

93 load_command_lines_from_xml($Config{"backend_datafile"});

94 load_uploads($Config{"upload_dir"});

95 load_sessions_from_xml($Config{"backend_datafile"});

96 sort_command_lines;

97 process_command_lines;

98 if (defined($filter{action}) && $filter{action} eq "edit") {

99 print_edit_all_html($Config{"output"});

100 }

101 else {

102 print_all_html($Config{"output"});

103 }

104 }

105

106 sub init_filter

107 {

108 if ($Config{filter}) {

109 # Инициализация фильтра

110 for (split /;;/,$Config{filter}) {

111 my ($var, $val) = split /::/;

112 $filter{$var} = $val || "";

113 }

114 }

115 $filter_url = join (";;", map("$_::$filter{$_}", keys %filter));

116 }

117

118 # extract_from_cline

119

120 # In: $what = commands | args

121 # Out: return ссылка на хэш, содержащий результаты разбора

122 # команда => позиция

123

124 # Разобрать командную строку $_[1] и возвратить хэш, содержащий

125 # номер первого появление команды в строке:

126 # команда => первая позиция

127 sub extract_from_cline

128 {

129 my $what = $_[0];

130 my $cline = $_[1];

131 my @lists = split /\;/, $cline;

132

133

134 my @command_lines = ();

135 for my $command_list (@lists) {

136 push(@command_lines, split(/\|/, $command_list));

137 }

138

139 my %position_of_command;

140 my %position_of_arg;

141 my $i=0;

142 for my $command_line (@command_lines) {

143 $command_line =~ s@^\s*@@;

144 $command_line =~ /\s*(\S+)\s*(.*)/;

145 if ($1 && $1 eq "sudo" ) {

146 $position_of_command{"$1"}=$i++;

147 $command_line =~ s/\s*sudo\s+//;

148 }

149 if ($command_line !~ m@^\s*\S*/etc/@) {

150 $command_line =~ s@^\s*\S+/@@;

151 }

152

153 $command_line =~ /\s*(\S+)\s*(.*)/;

154 my $command = $1;

155 my $args = $2;

156 if ($command && !defined $position_of_command{"$command"}) {

157 $position_of_command{"$command"}=$i++;

158 };

159 if ($args) {

160 my @args = split (/\s+/, $args);

161 for my $a (@args) {

162 $position_of_arg{"$a"}=$i++

163 if !defined $position_of_arg{"$a"};

164 };

165 }

166 }

167

168 if ($what eq "commands") {

169 return \%position_of_command;

170 } else {

171 return \%position_of_arg;

172 }

173

174 }

175

176 sub mywrap($)

177 {

178 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].

179 '</div></div></div></div></div></div></div></div>';

180 }

181

182 sub tigra_hints_generate

183 {

184 my $tigra_hints_items="";

185 for my $hint_id (keys %tigra_hints) {

186 $tigra_hints{$hint_id} =~ s@\n@<br/>@gs;

187 $tigra_hints{$hint_id} =~ s@ - @ — @gs;

188 $tigra_hints{$hint_id} =~ s@'@\\'@gs;

189 # $tigra_hints_items .= "'$hint_id' : mywrap('".$tigra_hints{$hint_id}."'),";

190 $tigra_hints_items .= "'$hint_id' : '".mywrap($tigra_hints{$hint_id})."',";

191 }

192 $tigra_hints_items =~ s/,$//;

193 return <<TIGRA;

194

195 var HINTS_CFG = {

196 'top' : 5, // a vertical offset of a hint from mouse pointer

197 'left' : 5, // a horizontal offset of a hint from mouse pointer

198 'css' : 'hintsClass', // a style class name for all hints, TD object

199 'show_delay' : 500, // a delay between object mouseover and hint appearing

200 'hide_delay' : 2000, // a delay between hint appearing and hint hiding

201 'wise' : true,

202 'follow' : true,

203 'z-index' : 0 // a z-index for all hint layers

204 },

205

206 HINTS_CFG_NEW = {

207 'wise' : true, // don't go off screen, don't overlap the object in the document

208 'margin' : 10, // minimum allowed distance between the hint and the window edge (negative values accepted)

209 'gap' : 20, // minimum allowed distance between the hint and the origin (negative values accepted)

211 'css' : 'hintsClass', // a style class name for all hints, applied to DIV element (see style section in the header of the document)

212 'show_delay' : 0, // a delay between initiating event (mouseover for example) and hint appearing

213 'hide_delay' : 200, // a delay between closing event (mouseout for example) and hint disappearing

214 'follow' : true, // hint follows the mouse as it moves

215 'z-index' : 100, // a z-index for all hint layers

216 'IEfix' : false, // fix IE problem with windowed controls visible through hints (activate if select boxes are visible through the hints)

217 'IEtrans' : ['blendTrans(DURATION=.3)', null], // [show transition, hide transition] - nice transition effects, only work in IE5+

218 'opacity' : 90 // opacity of the hint in %%

219 },

220

221 HINTS_ITEMS = {

222 $tigra_hints_items

223 };

224 var myHint = new THints (HINTS_CFG, HINTS_ITEMS);

225

226

227 function mywrap (s_) {

228 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_+

229 '</div></div></div></div></div></div></div></div>';

230

231 }

232 TIGRA

233 $a=<<TIGRA;

234 TIGRA

235 }

236

237

238 sub count_frequency_of_commands

239 {

240 my $cline = $_[0];

241 my @commands = keys %{extract_from_cline("commands", $cline)};

242 for my $command (@commands) {

243 $frequency_of_command{$command}++;

244 }

245 }

246

247 sub make_comment

248 {

249 my $cline = $_[0];

250 #my $files = $_[1];

251

252 my @comments;

253 my @commands = keys %{extract_from_cline("commands", $cline)};

254 my @args = keys %{extract_from_cline("args", $cline)};

255 return if (!@commands && !@args);

256 #return "commands=".join(" ",@commands)."; files=".join(" ",@files);

257

258 # Commands

259 for my $command (@commands) {

260 $command =~ s/'//g;

261 #$frequency_of_command{$command}++;

262 if (!$Commands_Description{$command}) {

263 $mywi_cache_for{$command} ||= mywi_process_query($command) || "";

264 my $mywi = join ("\n", grep(/$[18]|sh|script$/, split(/\n/, $mywi_cache_for{$command})));

265 $mywi =~ s/\s+/ /;

266 if ($mywi !~ /^\s*$/) {

267 $Commands_Description{$command} = $mywi;

268 }

269 else {

270 next;

271 }

272 }

273

274 push @comments, $Commands_Description{$command};

275 }

276 return join("
\n", @comments);

277

278 # Files

279 for my $arg (@args) {

280 $arg =~ s/'//g;

281 if (!$Args_Description{$arg}) {

282 my $mywi;

283 $mywi = mywi_client ($arg);

284 $mywi = join ("\n", grep(/$[5]$/, split(/\n/, $mywi)));

285 $mywi =~ s/\s+/ /;

286 if ($mywi !~ /^\s*$/) {

287 $Args_Description{$arg} = $mywi;

288 }

289 else {

290 next;

291 }

292 }

293

294 push @comments, $Args_Description{$arg};

295 }

296

297 }

298

299 =cut

300 Процедура load_command_lines_from_xml выполняет загрузку разобранного lab-скрипта

301 из XML-документа в переменную @Command_Lines

302

303 # In: $datafile имя файла

304 # Out: @CommandLines загруженные командные строки

305

306 Предупреждение!

307 Процедура не в состоянии обрабатывать XML-документ любой структуры.

308 В действительности файл cache из которого загружаются данные

309 просто напоминает XML с виду.

310 =cut

311 sub load_command_lines_from_xml

312 {

313 my $datafile = $_[0];

314

315 open (CLASS, $datafile)

316 or die "Can't open file with xml lablog ",$datafile,"\n";

317 local $/;

318 binmode CLASS, ":utf8";

319 $data = <CLASS>;

320 close(CLASS);

321

322 for $command ($data =~ m@<command>(.*?)</command>@sg) {

323 my %cl;

324 while ($command =~ m@<([^>]*?)>(.*?)</\1>@sg) {

325 $cl{$1} = $2;

326 }

327 push @Command_Lines, \%cl;

328 }

329 }

330

331 sub load_sessions_from_xml

332 {

333 my $datafile = $_[0];

334

335 open (CLASS, $datafile)

336 or die "Can't open file with xml lablog ",$datafile,"\n";

337 local $/;

338 binmode CLASS, ":utf8";

339 my $data = <CLASS>;

340 close(CLASS);

341

342 my $i=0;

343 for my $session ($data =~ m@<session>(.*?)</session>@msg) {

344 my %session_hash;

345 while ($session =~ m@<([^>]*?)>(.*?)</\1>@sg) {

346 $session_hash{$1} = $2;

347 }

348 $Sessions{$session_hash{local_session_id}} = \%session_hash;

349 }

350 }

351

352 sub load_uploads($)

353 {

354 $dir=$_[0];

355 for $i (glob("$dir/*.png")) {

356 $i =~ s@.*/(([0-9-]+)_([0-9]+).*)@$1@;

357 if (defined($Uploads{$2}{$3})) {

358 $Uploads{$2}{$3} .= " ".$i;

359 }

360 else {

361 $Uploads{$2}{$3}=$i;

362 }

363 }

364 }

365

366 #for $key (sort keys %session) {

367 # for $t (sort { $a <=> $b } keys %{ $session{$key} }) {

368 # print $session{$key}{$t}."\n";

369 # }

370 #}

371 #}

372

373 # sort_command_lines

374 # In: @Command_Lines

375 # Out: @Command_Lies_Index

376

377 sub sort_command_lines

378 {

379

380 my @index;

381 for (my $i=0;$i<=$#Command_Lines;$i++) {

382 $index[$i]=$i;

383 }

384

385 @Command_Lines_Index = sort {

386 $Command_Lines[$index[$a]]->{"time"} <=> $Command_Lines[$index[$b]]->{"time"}

387 } @index;

388

389 }

390

391 ##################

392 # process_command_lines

393 #

394 # Обрабатываются командные строки @Command_Lines

395 # Для каждой строки определяется:

396 # class класс

397 # note комментарий

398 #

399 # In: @Command_Lines_Index

400 # In-Out: @Command_Lines

401

402 sub process_command_lines

403 {

404

405

406 my $current_command=0;

407 my $prev_i;

408

409 my $tab_seq =0 ; # номер команды в последовательности tab-completion

410 # отличен от нуля только для тех последовательностей,

411 # где постоянно нажимается клавиша tab

412

413 COMMAND_LINE_PROCESSING:

414 for my $i (@Command_Lines_Index) {

415

416 $current_command++;

417 next if $current_command < $Config{"start_from_command"};

418 last if $current_command > $Config{"start_from_command"} + $Config{"commands_to_show_at_a_go"};

419

420 my $cl = \$Command_Lines[$i];

421

422 # Запоминаем предыщуюу команду

423 # Она нам потребуется, в частности, для ввода tab_seq рпи обработке tab_completion

424 my $prev_cl;

425 $prev_cl = \$Command_Lines[$prev_i] if defined($prev_i);

426 $prev_i = $i;

427

428 next if !$cl;

429

430 for my $filter_key (keys %filter) {

431 next COMMAND_LINE_PROCESSING

432 if defined($$cl->{local_session_id})

433 && defined($Sessions{$$cl->{local_session_id}}->{$filter_key})

434 && $Sessions{$$cl->{local_session_id}}->{$filter_key} ne $filter{$filter_key};

435 }

436

437 $$cl->{id} = $$cl->{"time"};

438

439 $$cl->{err} ||=0;

440

441

442 # Класс команды

443

444 $$cl->{"class"} = $$cl->{"err"} eq 130 ? "interrupted"

445 : $$cl->{"err"} eq 127 ? "mistyped"

446 : $$cl->{"err"} ? "wrong"

447 : "normal";

448

449 if ($$cl->{"cline"} &&

450 $$cl->{"cline"} =~ /[^|`]\s*sudo/

451 || $$cl->{"uid"} eq 0) {

452 $$cl->{"class"}.="_root";

453 }

454

455 my $hint;

456 count_frequency_of_commands($$cl->{"cline"});

457 $hint = make_comment($$cl->{"cline"});

458

459 if ($hint) {

460 $$cl->{hint} = $hint;

461 }

462 $tigra_hints{$$cl->{"time"}} = $hint;

463

464 #$$cl->{hint}="";

465

466 # Выводим <head_lines> верхних строк

467 # и <tail_lines> нижних строк,

468 # если эти параметры существуют

469 my $output="";

470

471 if ($$cl->{"last_command"} eq "cat" && !$$cl->{"err"} && !($$cl->{"cline"} =~ /</)) {

472 my $filename = $$cl->{"cline"};

473 $filename =~ s/.*\s+(\S+)\s*$/$1/;

474 $Files{$filename}->{"content"} = $$cl->{"output"};

475 $Files{$filename}->{"source_command_id"} = $$cl->{"id"}

476 }

477 my @lines = split '\n', $$cl->{"output"};

478 if ((

479 $Config{"head_lines"}

480 || $Config{"tail_lines"}

481 )

482 && $#lines > $Config{"head_lines"} + $Config{"tail_lines"} ) {

483 #

484 for (my $i=0; $i<= $#lines && $i < $Config{"head_lines"}; $i++) {

485 $output .= $lines[$i]."\n";

486 }

487 $output .= $Config{"skip_text"}."\n";

488

489 my $start_line=$#lines-$Config{"tail_lines"}+1;

490 for (my $i=$start_line; $i<= $#lines; $i++) {

491 $output .= $lines[$i]."\n";

492 }

493 }

494 else {

495 $output = $$cl->{"output"};

496 }

497 $$cl->{short_output} = $output;

498

499 # Обработка команд с одинаковым временем

500 # Скорее всего они набраны с помощью tab-completion

501 if (defined($prev_cl)) {

502 if ($$prev_cl->{time} == $$cl->{time} && $$prev_cl->{nonce} == $$cl->{nonce}) {

503 $tab_seq++;

504 }

505 else {

506 $tab_seq=0;

507 };

508 $$prev_cl->{tab_seq}=$tab_seq;

509

510 # Обработка команд с одинаковым номером в истории

511 # Скорее всего они набраны с помощью Ctrl-C

512 #if ($$prev_cl->{history} == $$cl->{history}) {

513 # $$prev_cl->{break}=1;

514 #}

515 }

516

517

518 #Обработка пометок

519 # Если несколько пометок (notes) идут подряд,

520 # они все объединяются

521

522 if ($$cl->{cline} =~ /l3shot/) {

523 if ($$cl->{output} =~ m@Screenshot is written to.*/(.*)\.xwd@) {

524 $$cl->{screenshot}="$1".$Config{l3shot_suffix};

525 }

526 }

527 if ($$cl->{cline} =~ /l3upload/) {

528 if ($$cl->{output} =~ m@Uploaded file name is (.*)@) {

529 $$cl->{screenshot}="$1";

530 }

531 }

532

533 if ($$cl->{cline}=~ m@cat[^#]*#([\^=v])\s*(.*)@) {

534

535 my $note_operator = $1;

536 my $note_title = $2;

537

538 if ($note_operator eq "=") {

539 $$cl->{"class"} = "note";

540 $$cl->{"note"} = $$cl->{"output"};

541 $$cl->{"note_title"} = $2;

542 }

543 else {

544 my $j = $i;

545 if ($note_operator eq "^") {

546 $j--;

547 $j-- while ($j >=0 && (!$Command_Lines[$j] || $Command_Lines[$j]->{tty} ne $$cl->{tty}));

548 }

549 elsif ($note_operator eq "v") {

550 $j++;

551 $j++ while ($j <= @Command_Lines && (!$Command_Lines[$j] || $Command_Lines[$j]->{tty} ne $$cl->{tty}));

552 }

553 $Command_Lines[$j]->{note_title}=$note_title;

554 $Command_Lines[$j]->{note}.=$$cl->{output};

555 $$cl=0;

556 }

557 }

558 elsif ($$cl->{cline}=~ /#([\^=v])(.*)/) {

559

560 my $note_operator = $1;

561 my $note_text = $2;

562

563 if ($note_operator eq "=") {

564 $$cl->{"class"} = "note";

565 $$cl->{"note"} = $note_text;

566 }

567 else {

568 my $j=$i;

569 if ($note_operator eq "^") {

570 $j--;

571 $j-- while ($j >=0 && (!$Command_Lines[$j] || $Command_Lines[$j]->{tty} ne $$cl->{tty}));

572 }

573 elsif ($note_operator eq "v") {

574 $j++;

575 $j++ while ($j <= @Command_Lines && $Command_Lines[$j]->{tty} ne $$cl->{tty} || !$Command_Lines[$j]);

576 }

577 $Command_Lines[$j]->{note}.="$note_text\n";

578 $$cl=0;

579 }

580 }

581 if ($$cl->{"class"} eq "note") {

582 my $note_html = $$cl->{note};

583 $note_html = join ("\n", map ("<p>$_</p>", split (/-\n/, $note_html)));

584 $note_html =~ s@(http:[a-zA-Z.0-9/?\_%-]*)@<a href='$1'>$1</a>@g;

585 $note_html =~ s@(www\.[a-zA-Z.0-9/?\_%-]*)@<a href='$1'>$1</a>@g;

586 $$cl->{"note_html"} = $note_html;

587 }

588 }

589

590 }

591

592

593 =cut

594 Процедура print_command_lines выводит HTML-представление

595 разобранного lab-скрипта.

596

597 Разобранный lab-скрипт должен находиться в массиве @Command_Lines

598 =cut

599

600 sub print_command_lines_html

601 {

602

603 my @toc; # Оглавление

604 my $note_number=0;

605

606 my $result = q();

607 my $this_day_resut = q();

608

609 my $cl;

610 my $last_tty="";

611 my $last_session="";

612 my $last_day=q();

613 my $last_wday=q();

614 my $first_command_of_the_day_unix_time=q();

615 my $human_readable_time=q();

616 my $in_range=0;

617

618 my $current_command=0;

619

620 my @known_commands;

621

622

623

624 $Stat{LastCommand} ||= 0;

625 $Stat{TotalCommands} ||= 0;

626 $Stat{ErrorCommands} ||= 0;

627 $Stat{MistypedCommands} ||= 0;

628

629 my %new_entries_of = (

630 "1 1" => "программы пользователя",

631 "2 8" => "программы администратора",

632 "3 sh" => "команды интерпретатора",

633 "4 script"=> "скрипты",

634 );

635

636 COMMAND_LINE:

637 for my $k (@Command_Lines_Index) {

638

639 my $cl=$Command_Lines[$Command_Lines_Index[$current_command++]];

640 next unless $cl;

641 my $next_cl=$Command_Lines[$Command_Lines_Index[$current_command]];

642

643 next if $current_command < $Config{"start_from_command"};

644 last if $current_command > $Config{"start_from_command"} + $Config{"commands_to_show_at_a_go"};

645

646

647

648 # Пропускаем строки, которые противоречат фильтру

649 # Если у нас недостаточно информации о том, подходит строка под фильтр или нет,

650 # мы её выводим

651

652 for my $filter_key (keys %filter) {

653 next COMMAND_LINE

654 if defined($cl->{local_session_id})

655 && defined($Sessions{$cl->{local_session_id}}->{$filter_key})

656 && $Sessions{$cl->{local_session_id}}->{$filter_key} ne $filter{$filter_key};

657 }

658

659 # Набираем статистику

660 # Хэш %Stat

661

662 $Stat{FirstCommand} = $cl->{time} unless $Stat{FirstCommand};

663 if ($cl->{time} - $Stat{LastCommand} < $Config{stat_inactivity_interval}) {

664 $Stat{TotalTime} += $cl->{time} - $Stat{LastCommand}

665 }

666 my $seconds_since_last_command = $cl->{time} - $Stat{LastCommand};

667

668 if ($Stat{LastCommand} > $cl->{time}) {

669 $result .= "Время идёт вспять<br/>";

670 };

671 $Stat{LastCommand} = $cl->{time};

672 $Stat{TotalCommands}++;

673

674 # Пропускаем строки, выходящие за границу "signature",

675 # при условии, что границы указаны

676 # Пропускаем неправильные/прерванные/другие команды

677 if ($Config{"from"} && $cl->{"cline"} =~ /$Config{"signature"}\s*$Config{"from"}/) {

678 $in_range=1;

679 next;

680 }

681 if ($Config{"to"} && $cl->{"cline"} =~ /$Config{"signature"}\s*$Config{"to"}/) {

682 $in_range=0;

683 next;

684 }

685 next if ($Config{"from"} && $Config{"to"} && !$in_range)

686 || ($Config{"skip_empty"} =~ /^y/i && $cl->{"cline"} =~ /^\s*$/ )

687 || ($Config{"skip_wrong"} =~ /^y/i && $cl->{"err"} != 0)

688 || ($Config{"skip_interrupted"} =~ /^y/i && $cl->{"err"} == 130);

689

690

691

692

693 #

694 ##

695 ## Начинается собственно вывод

696 ##

697 #

698

699 ### Сначала обрабатываем границы разделов

700 ### Если тип команды "note", это граница

701

702 if ($cl->{class} eq "note") {

703 $this_day_result .= "<tr><td colspan='6'>"

704 . "<h4 id='note$note_number'>".$cl->{note_title}."</h4>" if $cl->{note_title}

705 . "".$cl->{note_html}."<p/><p/></td></tr>";

706

707 if ($cl->{note_title}) {

708 push @{$toc[@toc]},"<a href='#note$note_number'>".$cl->{note_title}."</a>";

709 $note_number++;

710 }

711 next;

712 }

713

714 my ($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = localtime($cl->{time});

715

716

717 # Добавляем спереди 0 для удобочитаемости

718 $min = "0".$min if $min =~ /^.$/;

719 $hour = "0".$hour if $hour =~ /^.$/;

720 $sec = "0".$sec if $sec =~ /^.$/;

721

722 $class=$cl->{"class"};

723 $Stat{ErrorCommands}++ if $class =~ /wrong/;

724 $Stat{MistypedCommands}++ if $class =~ /mistype/;

725

726 # DAY CHANGE

727 if ( $last_day ne $day) {

728 $prev_unix_time=$first_command_of_the_day_unix_time;

729 $first_command_of_the_day_unix_time = $cl->{time};

730 $human_readable_time = strftime "%D", localtime($prev_unix_time);

731 if ($last_day) {

732

733 # Вычисляем разность множеств.

734 # Что-то вроде этого, если бы так можно было писать:

735 # @new_commands = keys %frequency_of_command - @known_commands;

736

737

738 # Выводим предыдущий день

739

740 $result .= "<h3 id='day_on_sec_$prev_unix_time'>".$Day_Name[$last_wday]." ($human_readable_time)</h3>";

741 for my $entry_class (sort keys %new_entries_of) {

742 my $table_caption = "Таблица ".$table_number++.".".$Day_Name[$last_wday]

743 .". Новые ".$new_entries_of{$entry_class};

744 my $new_commands_section = make_new_entries_table(

745 $table_caption,

746 $entry_class=~/[0-9]+\s+(.*)/,

747 \@known_commands);

748 }

749 @known_commands = keys %frequency_of_command;

750 $result .= $this_day_result;

751 }

752

753 # Добавляем текущий день в оглавление

754

755 $human_readable_time = strftime "%D", localtime($first_command_of_the_day_unix_time);

756 push @toc, "<a href='#day_on_sec_$first_command_of_the_day_unix_time'>".$Day_Name[$wday]." ($human_readable_time)</a>\n";

757

758

759 $last_day=$day;

760 $last_wday=$wday;

761 $this_day_result = q();

762 }

763 else {

764 $this_day_result .= minutes_passed($seconds_since_last_command);

765 }

766

767 $this_day_result .= "<div class='command' id='command:".$cl->{"id"}."' >\n";

768

769 # CONSOLE CHANGE

770 if ($cl->{"tty"} && $last_tty ne $cl->{"tty"} && 0) {

771 my $tty = $cl->{"tty"};

772 $this_day_result .= "<div class='ttychange'>"

773 . $tty

774 ."</div>";

775 $last_tty=$cl->{"tty"};

776 }

777

778 # Session change

779 if ( $last_session ne $cl->{"local_session_id"}) {

780 my $tty;

781 if (defined $Sessions{$cl->{"local_session_id"}}->{"tty"}) {

782 $this_day_result .= "<div class='ttychange'><a href='?filter=local_session_id::".$cl->{"local_session_id"}."'>"

783 . $Sessions{$cl->{"local_session_id"}}->{"tty"}

784 ."</a></div>";

785 }

786 $last_session=$cl->{"local_session_id"};

787 }

788

789 # TIME

790 if ($Config{"show_time"} =~ /^y/i) {

791 $this_day_result .= "<div class='time'>$hour:$min:$sec</div>"

792 }

793

794 # COMMAND

795 my $cline;

796 $prompt_hint = join ("
",

797 map("$_=$cl->{$_}",

798 grep (!/^(output|short_output|diff)$/,

799 sort(keys(%{$cl})))));

800

801 $cl->{"prompt"} =~ s/ $//;

802 $cline = "<span title='$prompt_hint' class='prompt'><a href='#".$cl->{time}."' id='".$cl->{time}."'>".$cl->{"prompt"}."</a></span>"

803 ."<span onmouseover=\"myHint.show('".$cl->{time}."')\" onmouseout=\"myHint.hide()\">".$cl->{"cline"}."</span>";

804 $cline =~ s/\n//;

805

806 if ($cl->{"hint"}) {

807 # $cline = "<span title='$cl->{hint}' class='with_hint'>$cline</span>" ;

808 $cline = "<span class='with_hint'>$cline</span>" ;

809 }

810 else {

811 $cline = "<span class='without_hint'>$cline</span>";

812 }

813

814 $this_day_result .= "<DIV class='fixed_div'><table cellpadding='0' cellspacing='0'><tr><td>\n<div class='cblock_$cl->{class}'>\n";

815 $this_day_result .= "<div class='cline'>" . $cline ; #cline

816 $this_day_result .= "<span title='Код завершения ".$cl->{"err"}."'>\n"

817 . "<img src='".$Config{frontend_ico_path}."/error.png'/>\n"

818 . "</span>\n" if ($cl->{"err"} and not $cl->{tab_seq} and not $cl->{break});

819 $this_day_result .= "<span title='Tab completion ".$cl->{tab_seq}."'>\n"

820 . "<img src='".$Config{frontend_ico_path}."/tab.png'/>\n"

821 . "</span>\n" if $cl->{tab_seq};

822 $this_day_result .= "<span title='Ctrl-C pressed'>\n"

823 . "<img src='".$Config{frontend_ico_path}."/break.png'/>\n"

824 . "</span>\n" if ($cl->{break} and not $cl->{tab_seq});

825 $this_day_result .= "</div>\n"; #cline

826

827 # OUTPUT

828 my $last_command = $cl->{"last_command"};

829 if (!(

830 $Config{"suppress_editors"} =~ /^y/i && grep ($_ eq $last_command, @{$Config{"editors"}}) ||

831 $Config{"suppress_pagers"} =~ /^y/i && grep ($_ eq $last_command, @{$Config{"pagers"}}) ||

832 $Config{"suppress_terminal"}=~ /^y/i && grep ($_ eq $last_command, @{$Config{"terminal"}})

833 )) {

834 $this_day_result .= "<pre class='output'>\n" . $cl->{short_output} . "</pre>\n";

835 }

836

837 # DIFF

838 $this_day_result .= "<pre class='diff'>".$cl->{"diff"}."</pre>"

839 if ( $Config{"show_diffs"} =~ /^y/i && $cl->{"diff"});

840 # SHOT

841

842 #$this_day_result .= join(".", keys(%Uploads));

843 #$this_day_result .= "PRIVET";

844 for $t (sort { $a <=> $b } keys %{ $Uploads{$cl->{"local_session_id"}} }) {

845 if (($t >= $cl->{"time"} and $t < $next_cl->{"time"}) or ($t >= $cl->{"time"} and not defined($next_cl))) {

846 my @shots=split(/\s+/, $Uploads{$cl->{"local_session_id"}}{$t});

847 for my $shot (@shots) {

848 $this_day_result .= "<IMG src='"

849 .$Config{l3shot_path}

850 .$shot

851 ."' alt ='screenshot id ".$shot

852 ."'/><br/>"

853 }

854 }

855 }

856

857 # Временно заблокировано

858 # $this_day_result .= "<img src='"

859 # .$Config{l3shot_path}

860 # .$cl->{"screenshot"}

861 # ."' alt ='screenshot id ".$cl->{"screenshot"}

862 # ."'/>"

863 # if ( $Config{"show_screenshots"} =~ /^y/i && $cl->{"screenshot"});

864

865 #NOTES

866 if ( $Config{"show_notes"} =~ /^y/i && $cl->{"note"}) {

867 my $note=$cl->{"note"};

868 $note =~ s/\n/<br\/>\n/msg;

869 if (not $note =~ s@(http:[a-zA-Z.0-9/_?%-]*)@<a href='$1'>$1</a>@g) {

870 $note =~ s@(www\.[a-zA-Z.0-9/_?%-]*)@<a href='$1'>$1</a>@g;

871 };

872 $this_day_result .= "<div class='note'>";

873 $this_day_result .= "<div class='note_title'>".$cl->{note_title}."</div>" if $cl->{note_title};

874 $this_day_result .= "<div class='note_text'>".$note."</div>";

875 $this_day_result .= "</div>\n";

876 }

877

878 # Вывод очередной команды окончен

879 $this_day_result .= "</div>\n"; # cblock

880 $this_day_result .= "</td></tr></table></DIV>\n"

881 . "</div>\n"; # command

882 }

883 last: {

884 $prev_unix_time=$first_command_of_the_day_unix_time;

885 $first_command_of_the_day_unix_time = $cl->{time};

886 $human_readable_time = strftime "%D", localtime($prev_unix_time);

887

888 $result .= "<h3 id='day_on_sec_$prev_unix_time'>".$Day_Name[$last_wday]." ($human_readable_time)</h3>";

889

890 for my $entry_class (keys %new_entries_of) {

891 my $table_caption = "Таблица ".$table_number++.".".$Day_Name[$last_wday]

892 . ". Новые ".$new_entries_of{$entry_class};

893 my $new_commands_section = make_new_entries_table(

894 $table_caption,

895 $entry_class=~/[0-9]+\s+(.*)/,

896 \@known_commands);

897 }

898 @known_commands = keys %frequency_of_command;

899 $result .= $this_day_result;

900 }

901

902 return ($result, collapse_list (\@toc));

903

904 }

905

906 #############

907 # make_new_entries_table

908 #

909 # Напечатать таблицу неизвестных команд

910 #

911 # In: $_[0] table_caption

912 # $_[1] entries_class

913 # @_[2..] known_commands

914 # Out:

915

916 sub make_new_entries_table

917 {

918 my $table_caption;

919 my $entries_class = shift;

920 my @known_commands = @{$_[0]};

921 my $result = "";

922

923 my %count;

924 my @new_commands = ();

925 for my $c (keys %frequency_of_command, @known_commands) {

926 $count{$c}++

927 }

928 for my $c (keys %frequency_of_command) {

929 push @new_commands, $c if $count{$c} != 2;

930 }

931

932 my $new_commands_section;

933 if (@new_commands){

934 my $hint;

935 for my $c (reverse sort { $frequency_of_command{$a} <=> $frequency_of_command{$b} } @new_commands) {

936 $hint = make_comment($c);

937 next unless $hint;

938 my ($command, $hint) = $hint =~ m/(.*?) \s*- \s*(.*)/;

939 next unless $command =~ s/$$entries_class$//i;

940 $new_commands_section .= "<tr><td valign='top'>$command</td><td>$hint</td></tr>";

941 }

942 }

943 if ($new_commands_section) {

944 $result .= "<table class='new_commands_table' width='700' cellspacing='0' cellpadding='0'>"

945 . "<tr class='new_commands_caption'>"

946 . "<td colspan='2' align='right'>$table_caption</td>"

947 . "</tr>"

948 . "<tr class='new_commands_header'>"

949 . "<td width=100>Команда</td><td width=600>Описание</td>"

950 . "</tr>"

951 . $new_commands_section

952 . "</table>"

953 }

954 return $result;

955 }

956

957 #############

958 # minutes_passed

959 #

960 #

961 #

962 # In: $_[0] seconds_since_last_command

963 # Out: "minutes passed" text

964

965 sub minutes_passed

966 {

967 my $seconds_since_last_command = shift;

968 my $result = "";

969 if ($seconds_since_last_command > 7200) {

970 my $hours_passed = int($seconds_since_last_command/3600);

971 my $passed_word = $hours_passed % 10 == 1 ? "прошла"

972 : "прошло";

973 my $hours_word = $hours_passed % 10 == 1 ? "часа":

974 "часов";

975 $result .= "<div class='much_time_passed'>"

976 . $passed_word." >".$hours_passed." ".$hours_word

977 . "</div>\n";

978 }

979 elsif ($seconds_since_last_command > 600) {

980 my $minutes_passed = int($seconds_since_last_command/60);

981

982

983 my $passed_word = $minutes_passed % 100 > 10

984 && $minutes_passed % 100 < 20 ? "прошло"

985 : $minutes_passed % 10 == 1 ? "прошла"

986 : "прошло";

987

988 my $minutes_word = $minutes_passed % 100 > 10

989 && $minutes_passed % 100 < 20 ? "минут" :

990 $minutes_passed % 10 == 1 ? "минута":

991 $minutes_passed % 10 == 0 ? "минут" :

992 $minutes_passed % 10 > 4 ? "минут" :

993 "минуты";

994

995 if ($seconds_since_last_command < 1800) {

996 $result .= "<div class='time_passed'>"

997 . $passed_word." ".$minutes_passed." ".$minutes_word

998 . "</div>\n";

999 }

1000 else {

1001 $result .= "<div class='much_time_passed'>"

1002 . $passed_word." ".$minutes_passed." ".$minutes_word

1003 . "</div>\n";

1004 }

1005 }

1006 return $result;

1007 }

1008

1009 #############

1010 # print_all_txt

1011 #

1012 # Вывести журнал в текстовом формате

1013 #

1014 # In: $_[0] output_filename

1015 # Out:

1016

1017 sub print_command_lines_txt

1018 {

1019

1020 my $output_filename=$_[0];

1021 my $note_number=0;

1022

1023 my $result = q();

1024 my $this_day_resut = q();

1025

1026 my $cl;

1027 my $last_tty="";

1028 my $last_session="";

1029 my $last_day=q();

1030 my $last_wday=q();

1031 my $in_range=0;

1032

1033 my $current_command=0;

1034

1035 my $cursor_position = 0;

1036

1037

1038 if ($Config{filter}) {

1039 # Инициализация фильтра

1040 for (split /&/,$Config{filter}) {

1041 my ($var, $val) = split /::/;

1042 $filter{$var} = $val || "";

1043 }

1044 }

1045

1046

1047 COMMAND_LINE:

1048 for my $k (@Command_Lines_Index) {

1049

1050 my $cl=$Command_Lines[$Command_Lines_Index[$current_command++]];

1051 next unless $cl;

1052

1053

1054 # Пропускаем строки, которые противоречат фильтру

1055 # Если у нас недостаточно информации о том, подходит строка под фильтр или нет,

1056 # мы её выводим

1057

1058 for my $filter_key (keys %filter) {

1059 next COMMAND_LINE

1060 if defined($cl->{local_session_id})

1061 && defined($Sessions{$cl->{local_session_id}}->{$filter_key})

1062 && $Sessions{$cl->{local_session_id}}->{$filter_key} ne $filter{$filter_key};

1063 }

1064

1065 # Пропускаем строки, выходящие за границу "signature",

1066 # при условии, что границы указаны

1067 # Пропускаем неправильные/прерванные/другие команды

1068 if ($Config{"from"} && $cl->{"cline"} =~ /$Config{"signature"}\s*$Config{"from"}/) {

1069 $in_range=1;

1070 next;

1071 }

1072 if ($Config{"to"} && $cl->{"cline"} =~ /$Config{"signature"}\s*$Config{"to"}/) {

1073 $in_range=0;

1074 next;

1075 }

1076 next if ($Config{"from"} && $Config{"to"} && !$in_range)

1077 || ($Config{"skip_empty"} =~ /^y/i && $cl->{"cline"} =~ /^\s*$/ )

1078 || ($Config{"skip_wrong"} =~ /^y/i && $cl->{"err"} != 0)

1079 || ($Config{"skip_interrupted"} =~ /^y/i && $cl->{"err"} == 130);

1080

1081

1082 #

1083 ##

1084 ## Начинается собственно вывод

1085 ##

1086 #

1087

1088 ### Сначала обрабатываем границы разделов

1089 ### Если тип команды "note", это граница

1090

1091 if ($cl->{class} eq "note") {

1092 $this_day_result .= " === ".$cl->{note_title}." === \n" if $cl->{note_title};

1093 $this_day_result .= $cl->{note}."\n";

1094 next;

1095 }

1096

1097 my ($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = localtime($cl->{time});

1098

1099 # Добавляем спереди 0 для удобочитаемости

1100 $min = "0".$min if $min =~ /^.$/;

1101 $hour = "0".$hour if $hour =~ /^.$/;

1102 $sec = "0".$sec if $sec =~ /^.$/;

1103

1104 $class=$cl->{"class"};

1105

1106 # DAY CHANGE

1107 if ( $last_day ne $day) {

1108 if ($last_day) {

1109 $result .= "== ".$Day_Name[$last_wday]." == \n";

1110 $result .= $this_day_result;

1111 }

1112 $last_day = $day;

1113 $last_wday = $wday;

1114 $this_day_result = q();

1115 }

1116

1117 # CONSOLE CHANGE

1118 if ($cl->{"tty"} && $last_tty ne $cl->{"tty"} && 0) {

1119 my $tty = $cl->{"tty"};

1120 $this_day_result .= " #l3: ------- другая консоль ----\n";

1121 $last_tty=$cl->{"tty"};

1122 }

1123

1124 # Session change

1125 if ( $last_session ne $cl->{"local_session_id"}) {

1126 $this_day_result .= "# ------------------------------------------------------------"

1127 . " l3: local_session_id=".$cl->{"local_session_id"}

1128 . " ---------------------------------- \n";

1129 $last_session=$cl->{"local_session_id"};

1130 }

1131

1132 # TIME

1133 my @nl_counter = split (/\n/, $result);

1134 $cursor_position=length($result) - @nl_counter;

1135

1136 if ($Config{"show_time"} =~ /^y/i) {

1137 $this_day_result .= "$hour:$min:$sec"

1138 }

1139

1140 # COMMAND

1141 $this_day_result .= " ".$cl->{"prompt"}.$cl->{"cline"}."\n";

1142 if ($cl->{"err"}) {

1143 $this_day_result .= " #l3: err=".$cl->{'err'}."\n";

1144 }

1145

1146 # OUTPUT

1147 my $last_command = $cl->{"last_command"};

1148 if (!(

1149 $Config{"suppress_editors"} =~ /^y/i && grep ($_ eq $last_command, @{$Config{"editors"}}) ||

1150 $Config{"suppress_pagers"} =~ /^y/i && grep ($_ eq $last_command, @{$Config{"pagers"}}) ||

1151 $Config{"suppress_terminal"}=~ /^y/i && grep ($_ eq $last_command, @{$Config{"terminal"}})

1152 )) {

1153 my $output = $cl->{short_output};

1154 if ($output) {

1155 $output =~ s/^/ |/mg;

1156 }

1157 $this_day_result .= $output;

1158 }

1159

1160 # DIFF

1161 if ( $Config{"show_diffs"} =~ /^y/i && $cl->{"diff"}) {

1162 my $diff = $cl->{"diff"};

1163 $diff =~ s/^/ |/mg;

1164 $this_day_result .= $diff;

1165 };

1166 # SHOT

1167 if ($Config{"show_screenshots"} =~ /^y/i && $cl->{"screenshot"}) {

1168 $this_day_result .= " #l3: screenshot=".$cl->{'screenshot'}."\n";

1169 }

1170

1171 #NOTES

1172 if ( $Config{"show_notes"} =~ /^y/i && $cl->{"note"}) {

1173 my $note=$cl->{"note"};

1174 $note =~ s/\n/\n#^/msg;

1175 $this_day_result .= "#^ == ".$cl->{note_title}." ==\n" if $cl->{note_title};

1176 $this_day_result .= "#^ ".$note."\n";

1177 }

1178

1179 }

1180 last: {

1181 $result .= "== ".$Day_Name[$last_wday]." == \n";

1182 $result .= $this_day_result;

1183 }

1184

1185 return $result;

1186

1187

1188

1189 }

1190

1191 #############

1192 # print_edit_all_html

1193 #

1194 # Вывести страницу с текстовым представлением журнала для редактирования

1195 #

1196 # In: $_[0] output_filename

1197 # Out:

1198

1199 sub print_edit_all_html

1200 {

1201 my $output_filename= shift;

1202 my $result;

1203 my $cursor_position = 0;

1204

1205 $result = print_command_lines_txt;

1206 my $title = ">Журнал лабораторных работ. Правка";

1207

1208 $result =

1209 "<html>"

1210 ."<head>"

1211 ."<meta content='text/html; charset=utf-8' http-equiv='Content-Type' />"

1212 ."<link rel='stylesheet' href='$Config{frontend_css}' type='text/css'/>"

1213 ."<title>$title</title>"

1214 ."</head>"

1215 ."<script>"

1216 .$SetCursorPosition_JS

1217 ."</script>"

1218 ."<body onLoad='setCursorPosition(document.all.mytextarea, $cursor_position, $cursor_position+10)'>"

1219 ."<h1>Журнал лабораторных работ. Правка</h1>"

1220 ."<form>"

1221 ."<textarea rows='30' cols='100' wrap='off' id='mytextarea'>$result</textarea>"

1222 ."<br/><input type='submit' value='Сохранить' label='label'/>"

1223 ."</form>"

1224 ."<p>Внимательно правим, потом сохраняем</p>"

1225 ."<p>Строки, начинающиеся символами #l3: можно трогать, только если точно знаешь, что делаешь</p>"

1226 ."</body>"

1227 ."</html>";

1228

1229 if ($output_filename eq "-") {

1230 print $result;

1231 }

1232 else {

1233 open(OUT, ">", $output_filename)

1234 or die "Can't open $output_filename for writing\n";

1235 binmode ":utf8";

1236 print OUT "$result";

1237 close(OUT);

1238 }

1239 }

1240

1241 #############

1242 # print_all_txt

1243 #

1244 # Вывести страницу с текстовым представлением журнала для редактирования

1245 #

1246 # In: $_[0] output_filename

1247 # Out:

1248

1249 sub print_all_txt

1250 {

1251 my $result;

1252

1253 $result = print_command_lines_txt;

1254

1255 $result =~ s/>/>/g;

1256 $result =~ s/</</g;

1257 $result =~ s/&/&/g;

1258

1259 if ($output_filename eq "-") {

1260 print $result;

1261 }

1262 else {

1263 open(OUT, ">:utf8", $output_filename)

1264 or die "Can't open $output_filename for writing\n";

1265 print OUT "$result";

1266 close(OUT);

1267 }

1268 }

1269

1270

1271 #############

1272 # print_all_html

1273 #

1274 #

1275 #

1276 # In: $_[0] output_filename

1277 # Out:

1278

1279

1280 sub print_all_html

1281 {

1282 my $output_filename=$_[0];

1283

1284 my $result;

1285 my ($command_lines,$toc) = print_command_lines_html;

1286 my $files_section = print_files_html;

1287

1288 $result = $debug_output;

1289 $result .= print_header_html($toc);

1290

1291

1292 # $result.= join " <br/>", keys %Sessions;

1293 # for my $sess (keys %Sessions) {

1294 # $result .= join " ", keys (%{$Sessions{$sess}});

1295 # $result .= "<br/>";

1296 # }

1297

1298 $result.= "<h2 id='log'>Журнал</h2>" . $command_lines;

1299 $result.= "<h2 id='files'>Файлы</h2>" . $files_section if $files_section;

1300 $result.= "<h2 id='stat'>Статистика</h2>" . print_stat_html;

1301 $result.= "<h2 id='help'>Справка</h2>" . $Html_Help . "<br/>";

1302 $result.= "<h2 id='about'>О программе</h2>". $Html_About. "<br/>";

1303 $result.= print_footer_html;

1304

1305 if ($output_filename eq "-") {

1306 binmode STDOUT, ":utf8";

1307 print $result;

1308 }

1309 else {

1310 open(OUT, ">:utf8", $output_filename)

1311 or die "Can't open $output_filename for writing\n";

1312 print OUT $result;

1313 close(OUT);

1314 }

1315 }

1316

1317 #############

1318 # print_header_html

1319 #

1320 #

1321 #

1322 # In: $_[0] Содержание

1323 # Out: Распечатанный заголовок

1324

1325 sub print_header_html

1326 {

1327 my $toc = $_[0];

1328 my $course_name = $Config{"course-name"};

1329 my $course_code = $Config{"course-code"};

1330 my $course_date = $Config{"course-date"};

1331 my $course_center = $Config{"course-center"};

1332 my $course_trainer = $Config{"course-trainer"};

1333 my $course_student = $Config{"course-student"};

1334

1335 my $title = "Журнал лабораторных работ";

1336 $title .= " -- ".$course_student if $course_student;

1337 if ($course_date) {

1338 $title .= " -- ".$course_date;

1339 $title .= $course_code ? "/".$course_code

1340 : "";

1341 }

1342 else {

1343 $title .= " -- ".$course_code if $course_code;

1344 }

1345

1346 # Управляющая форма

1347 my $control_form .= "<div class='visibility_form' title='Выберите какие элементы должны быть показаны в журнале'>"

1348 . "<span class='header'>Видимые элементы</span>"

1349 . "<span class='window_controls'><a href='' onclick='' title='свернуть форму управления'>_</a> <a href='' onclick='' title='закрыть форму управления'>x</a></span>"

1350 . "<div><form>\n";

1351 for my $element (sort keys %Elements_Visibility)

1352 {

1353 my ($skip, @e) = split /\s+/, $element;

1354 my $showhide = join "", map { "ShowHide('$_');" } @e ;

1355 $control_form .= "<div><input type='checkbox' name='$e[0]' onclick=\"$showhide\" checked>".

1356 $Elements_Visibility{$element}.

1357 "</input></div>";

1358 }

1359 $control_form .= "</form>\n"

1360 . "</div>\n";

1361