lilalo: cb822611b240 l3-frontend

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

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

552 }

553

554 # TIME

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

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

557 $hour. ":". $min. ":". $sec.

558 "</td>";

559 } else {

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

561 }

562

563 # COMMAND

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

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

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

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

568

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

570

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

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

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

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

575

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

577 if (!(

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

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

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

581 )) {

582

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

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

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

586 }

587

588 # DIFF

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

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

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

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

593 }

594

595 #NOTES

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

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

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

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

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

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

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

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

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

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

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

607 }

608

609 # COMMENT

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

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

612 if ($comment) {

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

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

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

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

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

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

619 }

620 }

621

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

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

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

625 }

626

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

628

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

630

631 %StatNames = (

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

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

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

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

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

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

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

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

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

641 );

642 @StatOrder = (

643 FirstCommand,

644 LastCommand,

645 TotalCommands,

646 ErrorsPercentage,

647 TotalTime,

648 CommandsPerTime,

649 CommandsFDistribution,

650 RareCommands,

651 );

652

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

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

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

656

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

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

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

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

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

662 if $Stat{TotalCommands};

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

664 if $Stat{TotalTime};

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

666

667 my $total_commands=0;

668 for $command (keys %CommandsFDistribution){

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

670 }

671 if ($total_commands) {

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

673 my $command_html;

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

675 if ($percentage < 0.5) {

676 my $hint = make_comment($command);

677 $command_html = "$command";

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

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

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

681 }

682 else {

683 my $hint = make_comment($command);

684 $command_html = "$command";

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

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

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

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

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

690 }

691 }

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

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

694 }

695

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

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

698 for my $stat (@StatOrder) {

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

700 if $Stat{"$stat"};

701 }

702

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

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

705

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

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

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

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

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

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

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

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

714

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

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