lilalo

annotate l3-cgi @ 31:196c82b6e538

find changesets by author, revision, files, or words in the commit message
l3-cgi:
* Сделана поддержка кодировок клиента отличных от utf-8 (пока что почему-то не работает)
* Сделана поддержка комментирования из самой командной строки.
Комментарии вставлюятся с помощью символов #^, #v или #=
Комментарии записываются в элементы note и note_title

l3-frontend:

* Сделана поддержка комментирования из самой командной строки.
Комментарии вставлюятся с помощью символов #^, #v или #=
* Вместо использования программы mywi-client, обращение к mywi-серверу выполняется самостоятельно
* Выполняется разбор команды с целью выявления новых команд, ведения статистики, генерирования подсказок и т.д.
* Во всплывающих командах к подсказкам выводится информация от mywi
* Выводится статистическая информация о журнале
"Время первой команды журнала"
"Время последней команды журнала"
"Количество командных строк в журнале"
"Процент команд с кодом ненулевым кодом завершения, %"
"Суммарное время работы с терминалом <sup><font size='-2'>*</font></sup>, час"
"Количество командных строк в единицу времени, команда/мин"
"Частота использования команд"
"Частота использования команд"
"Частота использования этих команд < 0.5%"
* В заголовке страницы выводится информация о курсе и имя слушателя
* Расшифровка к информации о курсе выводится только если есть сама информация
* В оглавлении учитваются пометки notes, вставленные с помощью #=
* Добавлена справка по использованию журнала

Новые параметры:
show_notes - нужно ли показывать заметки "notes"
> note_width - ширина заметок "notes"
mywi_server - IP-адрес сервера mywi
mywi_port - порт сервера mywi
stat_inactivity_interval - при подсчёте времени работы с терминалом,
интервалы превышающие какую длительность не должны учитываться, сек
author devi
date Fri Nov 11 21:29:49 2005 +0200 (2005-11-11)
parents f5f07049bd4f
children 4d252e7dd478
rev   line source
devi@27 1 #!/usr/bin/perl
devi@27 2
devi@27 3 use strict;
devi@27 4 use CGI qw(:standard);
devi@30 5 use XML::Simple;
devi@30 6
devi@30 7 BEGIN {
devi@30 8 chdir("/home/devi/cvs/lilalo");
devi@30 9 require l3config;
devi@30 10 };
devi@27 11
devi@27 12 my $value = param('PARAM');
devi@27 13
devi@30 14 my %Trainings;
devi@30 15 my $XMLTraining;
devi@30 16 my %Machines;
devi@30 17
devi@30 18 sub load_training
devi@30 19 {
devi@30 20 my $classfile =
devi@30 21 $_[0]||
devi@30 22 $l3config::Config{"classfile"} ||
devi@30 23 $l3config::Config{"path_classes"}."/".$l3config::Config{"class"}.$l3config::Config{"class_suffix"};
devi@30 24
devi@30 25 my $XMLTraining = XMLin($classfile , ForceArray => [ 'student' ] )
devi@30 26 or die "Can't open file of the class ",$classfile,"\n";
devi@30 27
devi@30 28 for my $student (@{$XMLTraining->{"student"}}) {
devi@30 29 $XMLTraining->{host}->{$student->{"host"}}=$student;
devi@30 30 }
devi@30 31 return $XMLTraining;
devi@30 32 }
devi@30 33
devi@27 34 print header(
devi@27 35 -charset => "utf-8",
devi@27 36 );
devi@29 37
devi@29 38
devi@30 39 if ($ENV{PATH_INFO} eq "/index") {
devi@30 40 # Показываем индекс курсов
devi@30 41 my @training_files = glob($l3config::Config{"path_classes"}."/*".$l3config::Config{"class_suffix"});
devi@30 42 if (@training_files) {
devi@30 43 for my $training_file (@training_files) {
devi@30 44 my $training = load_training($training_file);
devi@30 45 $Trainings{$training->{"date"}}=$training;
devi@30 46 }
devi@30 47 print "<table>\n";
devi@30 48 for my $tdate (reverse sort keys %Trainings) {
devi@30 49 my $t = $Trainings{$tdate};
devi@30 50 print "<tr>";
devi@30 51 print "<td>".$t->{date}."</td>";
devi@30 52 print "<td>".$t->{course}."</td>";
devi@30 53 print "</tr>\n";
devi@30 54 print "<tr>";
devi@30 55 print "<td/>";
devi@30 56 print "<td><pre>";
devi@30 57 for my $host (sort keys %{$t->{host}}) {
devi@30 58 my $h = $t->{host}->{$host};
devi@30 59 print "$host";
devi@30 60 print " ".$h->{firstname}." ".$h->{surname}." ";
devi@30 61 print "<a href='/cgi-bin/l3/".$tdate."/".$host."/root'>root</a> ";
devi@30 62 print "<a href='/cgi-bin/l3/".$tdate."/".$host."/".$h->{user}."'>".$h->{user}."</a> ";
devi@30 63 print "\n";
devi@30 64 }
devi@30 65 print "</pre><td>";
devi@30 66 print "</tr>\n";
devi@30 67 }
devi@30 68 print "</table>\n";
devi@30 69 }
devi@30 70 else {
devi@30 71 print "No training-files found<br/>\n";
devi@30 72 print "Template to load files: ".$l3config::Config{"path_classes"}."*".$l3config::Config{"class_suffix"}."\n"
devi@30 73 }
devi@30 74 }
devi@31 75 elsif ($ENV{PATH_INFO} eq "/current") {
devi@31 76 open (FRONTEND, "./l3-frontend --output - --show_comments no |");
devi@31 77 while (<FRONTEND>) {
devi@31 78 print;
devi@31 79 }
devi@31 80 close(FRONTEND);
devi@31 81 }
devi@30 82 else {
devi@30 83 # Вызов производится по URL
devi@30 84 my ($skip, $course, $host, $user) = split /\//,$ENV{PATH_INFO},4;
devi@29 85
devi@30 86 $l3config::Config{"class"}=$course;
devi@30 87 $XMLTraining = load_training;
devi@30 88
devi@30 89 my @args=(
devi@30 90 "--output" => "-",
devi@30 91 "--show_comments" => "no",
devi@30 92 "--course-center" => $XMLTraining->{center},
devi@30 93 "--course-trainer" => $XMLTraining->{instructor}->{firstname}." ".$XMLTraining->{instructor}->{surname},
devi@30 94 "--course-student" => $XMLTraining->{host}->{$host}->{firstname}." ".$XMLTraining->{host}->{$host}->{surname},
devi@30 95 "--course-code" => $XMLTraining->{course},
devi@30 96 "--course-date" => $XMLTraining->{date},
devi@30 97 "--backend_datafile" => "/var/lilalo/lablogs-xml/$course/$host/$user.xml",
devi@31 98 "--encoding" => $XMLTraining->{host}->{$host}->{charset},
devi@30 99 );
devi@30 100
devi@30 101 open (FRONTEND, "./l3-frontend ".join(" ",map("\"$_\"",@args))." |");
devi@30 102 while (<FRONTEND>) {
devi@30 103 print;
devi@30 104 }
devi@30 105 close(FRONTEND);
devi@27 106 }
devi@27 107