lilalo: 6452bfe549d1 l3-frontend

551 $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>";

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

553 }

554

555 # TIME

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

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

558 $hour. ":". $min. ":". $sec.

559 "</td>";

560 } else {

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

562 }

563

564 # COMMAND

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

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

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

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

569

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

571

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

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

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

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

576

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

578 if (!(

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

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

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

582 )) {

583

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

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

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

587 }

588

589 # DIFF

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

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

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

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

594 }

595

596 #NOTES

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

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

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

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

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

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

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

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

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

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

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

608 }

609

610 # COMMENT

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

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

613 if ($comment) {

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

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

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

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

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

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

620 }

621 }

622

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

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

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

626 }

627

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

629

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

631

632 %StatNames = (

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

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

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

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

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

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

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

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

641 );

642 @StatOrder = (

643 FirstCommand,

644 LastCommand,

645 TotalCommands,

646 ErrorsPercentage,

647 TotalTime,

648 CommandsPerTime,

649 CommandsFrequency,

650 RareCommands,

651 );

652

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

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

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

656

657 my %CommandsFrequency = %CommandsFDistribution;

658

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

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

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

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

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

664 if $Stat{TotalCommands};

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

666 if $Stat{TotalTime};

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

668

669 my $total_commands=0;

670 for $command (keys %CommandsFrequency){

671 $total_commands += $CommandsFrequency{$command};

672 }

673 if ($total_commands) {

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

675 my $command_html;

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

677 if ($percentage < 0.5) {

678 my $hint = make_comment($command);

679 $command_html = "$command";

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

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

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

683 }

684 else {

685 my $hint = make_comment($command);

686 $command_html = "$command";

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

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

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

690 $Stat{CommandsFrequency} .= "<tr><td>".$command_html."</td><td>".$CommandsFrequency{$command}."</td>".

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

692 }

693 }

694 $Stat{CommandsFrequency} = "<table>".$Stat{CommandsFrequency}."</table>";

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

696 }

697

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

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

700 for my $stat (@StatOrder) {

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

702 if $Stat{"$stat"};

703 }

704

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

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

707

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

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

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

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

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

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

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

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

716

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

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