lilalo: 34f3ce44c365 l3-frontend

544 $Result{"body"} .= "<td colspan='6'><table><tr><td class='ttychange' width='140' align='center'>".$cl->{"tty"}."</td><td>$host</td></tr></table></td></tr><tr>";

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

546 }

547

548 # TIME

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

550 $Result{"body"} .= "<td valign='top' class='time' width='$Config{time_width}'><pre>".

551 $hour. ":". $min. ":". $sec.

552 "</td>";

553 } else {

554 $Result{"body"} .= "<td width='0'/>"

555 }

556

557 # COMMAND

558 $Result{"body"} .= "<td class='script'>\n";

559 $Result{"body"} .= "<pre class='${class}cline'>\n";

560 my $cline = $cl->{"prompt"}.$cl->{"cline"};

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

562

563 #$cline .= "(".$Sessions{$cl->{local_session_id}}.")";

564

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

566 $cline = "<div title='$hint'>$cline</div>" if $hint;

567 $Result{"body"} .= $cline;

568 $Result{"body"} .= "</pre>\n";

569

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

571 if (!(

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

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

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

575 )) {

576

577 $Result{"body"} .= "<pre class='".$cl->{out_class}."'>";

578 $Result{"body"} .= $output;

579 $Result{"body"} .= "</pre>\n";

580 }

581

582 # DIFF

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

584 $Result{"body"} .= "<table><tr><td width='5'/><td class='diff'><pre>";

585 $Result{"body"} .= $cl->{"diff"};

586 $Result{"body"} .= "</pre></td></tr></table>";

587 }

588

589 #NOTES

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

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

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

593 # Ширину пока не используем

594 # $Result{"body"} .= "<table width='$Config{note_width}' class='note'>";

595 $Result{"body"} .= "<table class='note'>";

596 $Result{"body"} .= "<tr><td class='note_title'>".$cl->{note_title}."</td></tr>" if $cl->{note_title};

597 $Result{"body"} .= "<tr><td width='100%' class='note_text'>".$note."</td></tr>";

598 $Result{"body"} .= "</table>\n";

599 }

600

601 # COMMENT

602 if ( $Config{"show_comments"} =~ /^y/i) {

603 my $comment = make_comment($cl->{"cline"});

604 if ($comment) {

605 $Result{"body"} .= "<table width='$Config{comment_width}'>".

606 "<tr><td width='5'/><td>";

607 $Result{"body"} .= "<table class='note' width='100%'>";

608 $Result{"body"} .= $comment;

609 $Result{"body"} .= "</table>\n";

610 $Result{"body"} .= "</td></tr></table>";

611 }

612 }

613

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

615 $Result{"body"} .= "</td>\n";

616 $Result{"body"} .= "</tr>\n";

617 }

618

619 $Result{"body"} .= "</table>\n";

620

621 #$Result{"stat"} = "<hr/>";

622

623 %StatNames = (

624 FirstCommand => "Время первой команды журнала",

625 LastCommand => "Время последней команды журнала",

626 TotalCommands => "Количество командных строк в журнале",

627 ErrorsPercentage => "Процент команд с ненулевым кодом завершения, %",

628 TotalTime => "Суммарное время работы с терминалом <sup><font size='-2'>*</font></sup>, час",

629 CommandsPerTime => "Количество командных строк в единицу времени, команда/мин",

630 CommandsFDistribution => "Частота использования команд",

631 CommandsFDistribution => "Частота использования команд",

632 RareCommands => "Частота использования этих команд < 0.5%",

633 );

634 @StatOrder = (

635 FirstCommand,

636 LastCommand,

637 TotalCommands,

638 ErrorsPercentage,

639 TotalTime,

640 CommandsPerTime,

641 CommandsFDistribution,

642 RareCommands,

643 );

644

645 # Подготовка статистики к выводу

646 # Некоторые значения пересчитываются!

647 # Дальше их лучше уже не использовать!!!

648

649 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($Stat{FirstCommand});

650 $Stat{FirstCommand} = sprintf "%02i:%02i:%02i %04i-%2i-%2i", $hour, $min, $sec, $year+1900, $mon+1, $mday;

651 ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($Stat{LastCommand});

652 $Stat{LastCommand} = sprintf "%02i:%02i:%02i %04i-%2i-%2i", $hour, $min, $sec, $year+1900, $mon+1, $mday;

653 $Stat{ErrorsPercentage} = sprintf "%5.2f", $Stat{ErrorCommands}*100/$Stat{TotalCommands}

654 if $Stat{TotalCommands};

655 $Stat{CommandsPerTime} = sprintf "%5.2f", $Stat{TotalCommands}*60/$Stat{TotalTime}

656 if $Stat{TotalTime};

657 $Stat{TotalTime} = sprintf "%5.2f", $Stat{TotalTime}/60/60;

658

659 my $total_commands=0;

660 for $command (keys %CommandsFDistribution){

661 $total_commands += $CommandsFDistribution{$command};

662 }

663 if ($total_commands) {

664 for $command (reverse sort {$CommandsFDistribution{$a} <=> $CommandsFDistribution{$b}} keys %CommandsFDistribution){

665 my $command_html;

666 my $percentage = sprintf "%5.2f",$CommandsFDistribution{$command}*100/$total_commands;

667 if ($percentage < 0.5) {

668 my $hint = make_comment($command);

669 $command_html = "$command";

670 $command_html = "<span title='$hint' class='hint'>$command_html</span>" if $hint;

671 my $command_html = "<tt>$command_html</tt>";

672 $Stat{RareCommands} .= $command_html."<sub><font size='-2'>".$CommandsFDistribution{$command}."</font></sub> , ";

673 }

674 else {

675 my $hint = make_comment($command);

676 $command_html = "$command";

677 $command_html = "<span title='$hint' class='hint'>$command_html</span>" if $hint;

678 my $command_html = "<tt>$command_html</tt>";

679 $percentage = sprintf "%5.2f",$percentage;

680 $Stat{CommandsFDistribution} .= "<tr><td>".$command_html."</td><td>".$CommandsFDistribution{$command}."</td>".

681 "<td>|".("="x int($CommandsFDistribution{$command}*100/$total_commands))."| $percentage%</td></tr>";

682 }

683 }

684 $Stat{CommandsFDistribution} = "<table>".$Stat{CommandsFDistribution}."</table>";

685 $Stat{RareCommands} =~ s/, $// if $Stat{RareCommands};

686 }

687

688 $Result{"stat"} .= "<h2 id='stat'>Статистика</h2>";

689 $Result{"stat"} .= "<table>";

690 for my $stat (@StatOrder) {

691 $Result{"stat"} .= "<tr valign='top'><td width='300'>".$StatNames{"$stat"}."</td><td>".$Stat{"$stat"}."</td></tr>"

692 if $Stat{"$stat"};

693 }

694

695 $Result{"stat"} .= "</table>";

696 $Result{"stat"} .= "<font size='-2'>____<br/>*) Интервалы неактивности длительностью ".($Config{stat_inactivity_interval}/60)." минут и более не учитываются</font></br>";

697

698 #$Result{"help"} .= "<hr/>";

699 $Result{"help"} .= "<h2 id='help'>Справка</h2>";

700 $Result{"help"} .= "$Html_Help<br/>";

701 #$Result{"about"} .= "<hr/>";

702 $Result{"about"} .= "<h2 id='about'>О программе</h2>";

703 $Result{"about"} .= "$Html_About";

704 $Result{"footer"} .= "</body>\n";

705 $Result{"footer"} .= "</html>\n";

706

707 $Result{"title"} = "Журнал лабораторных работ";

708 $Result{"title"}.= " -- ".$course_student if $course_student;