lilalo

view l3-cgi @ 30:f5f07049bd4f

find changesets by author, revision, files, or words in the commit message
l3-agent:
Исправлен баг с инициализацией session_id

l3-cgi:
* Добавлена поддержка index-страницы.
При обращении на /cgi-bin/l3/index показывается таблица
с ссылками на журналы всех тренингов
В самом журнале корректно показывается информация
о курсе.

* Поскольку термин "class" перегружен, вместо него теперь
используется термин "training".
В дальнейшем такая замена произойдёт во всём коде.

* Теперь l3-cgi использует конфигурационный модуль l3config.pm
Загрузка выполняется с помощью require на этапе исполнения

l3config.pm:
Перенесены конфигурационные параметры lm.
ОСТОРОЖНО! Сам lm ПОКА ЧТО не использует l3config.pm для конфигурирования.
author devi
date Tue Nov 08 12:16:20 2005 +0200 (2005-11-08)
parents b3f5f5560802
children 196c82b6e538
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 else {
76 # Вызов производится по URL
77 my ($skip, $course, $host, $user) = split /\//,$ENV{PATH_INFO},4;
78
79 $l3config::Config{"class"}=$course;
80 $XMLTraining = load_training;
81
82 my @args=(
83 "--output" => "-",
84 "--show_comments" => "no",
85 "--course-center" => $XMLTraining->{center},
86 "--course-trainer" => $XMLTraining->{instructor}->{firstname}." ".$XMLTraining->{instructor}->{surname},
87 "--course-student" => $XMLTraining->{host}->{$host}->{firstname}." ".$XMLTraining->{host}->{$host}->{surname},
88 "--course-code" => $XMLTraining->{course},
89 "--course-date" => $XMLTraining->{date},
90 "--backend_datafile" => "/var/lilalo/lablogs-xml/$course/$host/$user.xml",
91 );
92
93 open (FRONTEND, "./l3-frontend ".join(" ",map("\"$_\"",@args))." |");
94 while (<FRONTEND>) {
95 print;
96 }
97 close(FRONTEND);
98 }
99