lilalo

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