lilalo

annotate 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
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@30 75 else {
devi@30 76 # Вызов производится по URL
devi@30 77 my ($skip, $course, $host, $user) = split /\//,$ENV{PATH_INFO},4;
devi@29 78
devi@30 79 $l3config::Config{"class"}=$course;
devi@30 80 $XMLTraining = load_training;
devi@30 81
devi@30 82 my @args=(
devi@30 83 "--output" => "-",
devi@30 84 "--show_comments" => "no",
devi@30 85 "--course-center" => $XMLTraining->{center},
devi@30 86 "--course-trainer" => $XMLTraining->{instructor}->{firstname}." ".$XMLTraining->{instructor}->{surname},
devi@30 87 "--course-student" => $XMLTraining->{host}->{$host}->{firstname}." ".$XMLTraining->{host}->{$host}->{surname},
devi@30 88 "--course-code" => $XMLTraining->{course},
devi@30 89 "--course-date" => $XMLTraining->{date},
devi@30 90 "--backend_datafile" => "/var/lilalo/lablogs-xml/$course/$host/$user.xml",
devi@30 91 );
devi@30 92
devi@30 93 open (FRONTEND, "./l3-frontend ".join(" ",map("\"$_\"",@args))." |");
devi@30 94 while (<FRONTEND>) {
devi@30 95 print;
devi@30 96 }
devi@30 97 close(FRONTEND);
devi@27 98 }
devi@27 99