devi@27: #!/usr/bin/perl
devi@27: 
devi@27: use strict;
devi@27: use CGI qw(:standard);
devi@30: use XML::Simple;
devi@30: 
devi@30: BEGIN {
devi@30: 	chdir("/home/devi/cvs/lilalo");
devi@30: 	require l3config;
devi@30: };
devi@27: 
devi@27: my $value = param('PARAM');
devi@27: 
devi@30: my %Trainings;
devi@30: my $XMLTraining;
devi@30: my %Machines;
devi@30: 
devi@30: sub load_training
devi@30: {
devi@30:         my $classfile = 
devi@30: 	$_[0]||
devi@30:         $l3config::Config{"classfile"} || 
devi@30:         $l3config::Config{"path_classes"}."/".$l3config::Config{"class"}.$l3config::Config{"class_suffix"};
devi@30: 
devi@30:         my $XMLTraining = XMLin($classfile , ForceArray => [ 'student' ] )  
devi@30:                 or die "Can't open file of the class ",$classfile,"\n";
devi@30: 
devi@30:         for my $student (@{$XMLTraining->{"student"}}) {
devi@30: 		$XMLTraining->{host}->{$student->{"host"}}=$student;
devi@30:         }
devi@30: 	return $XMLTraining;
devi@30: }
devi@30: 
devi@27: print header(
devi@27: 		-charset => "utf-8", 
devi@27: 		);
devi@29: 
devi@29: 
devi@30: if ($ENV{PATH_INFO} eq "/index") {
devi@30: 	# Показываем индекс курсов
devi@30: 	my @training_files = glob($l3config::Config{"path_classes"}."/*".$l3config::Config{"class_suffix"});
devi@30: 	if (@training_files) {
devi@30: 		for my $training_file (@training_files) {
devi@30: 			my $training = load_training($training_file);
devi@30: 			$Trainings{$training->{"date"}}=$training;
devi@30: 		}
devi@30: 		print "<table>\n";
devi@30: 		for my $tdate (reverse sort keys %Trainings) {
devi@30: 			my $t = $Trainings{$tdate};
devi@30: 			print "<tr>";
devi@30: 			print "<td>".$t->{date}."</td>";
devi@30: 			print "<td>".$t->{course}."</td>";
devi@30: 			print "</tr>\n";
devi@30: 			print "<tr>";
devi@30: 			print "<td/>";
devi@30: 			print "<td><pre>";
devi@30: 			for my $host (sort keys %{$t->{host}}) {
devi@30: 				my $h = $t->{host}->{$host};
devi@30: 				print "$host";
devi@30: 				print " ".$h->{firstname}." ".$h->{surname}." ";
devi@30: 				print "<a href='/cgi-bin/l3/".$tdate."/".$host."/root'>root</a> ";
devi@30: 				print "<a href='/cgi-bin/l3/".$tdate."/".$host."/".$h->{user}."'>".$h->{user}."</a> ";
devi@30: 				print "\n";
devi@30: 			}
devi@30: 			print "</pre><td>";
devi@30: 			print "</tr>\n";
devi@30: 		}
devi@30: 		print "</table>\n";
devi@30: 	}
devi@30: 	else {
devi@30: 		print "No training-files found<br/>\n";
devi@30: 		print "Template to load files: ".$l3config::Config{"path_classes"}."*".$l3config::Config{"class_suffix"}."\n"
devi@30: 	}
devi@30: }
devi@31: elsif ($ENV{PATH_INFO} eq "/current") {
devi@31: 	open (FRONTEND, "./l3-frontend --output - --show_comments no |");
devi@31: 	while (<FRONTEND>) {
devi@31: 		print;
devi@31: 	}
devi@31: 	close(FRONTEND);
devi@31: }
devi@30: else {
devi@30: 	# Вызов производится по URL
devi@30: 	my ($skip, $course, $host, $user) = split /\//,$ENV{PATH_INFO},4;
devi@29: 
devi@30: 	$l3config::Config{"class"}=$course;
devi@30: 	$XMLTraining = load_training;
devi@30: 
devi@30: 	my @args=(
devi@30: 		"--output" 		=>	"-",
devi@30: 		"--show_comments" 	=>	"no",
devi@30: 		"--course-center"	=>	$XMLTraining->{center},
devi@30: 		"--course-trainer"	=>	$XMLTraining->{instructor}->{firstname}." ".$XMLTraining->{instructor}->{surname},
devi@30: 		"--course-student"	=>	$XMLTraining->{host}->{$host}->{firstname}." ".$XMLTraining->{host}->{$host}->{surname},
devi@30: 		"--course-code"		=>	$XMLTraining->{course},
devi@30: 		"--course-date"		=>	$XMLTraining->{date},
devi@30: 		"--backend_datafile"	=>	"/var/lilalo/lablogs-xml/$course/$host/$user.xml",
devi@31: 		"--encoding"		=>	$XMLTraining->{host}->{$host}->{charset},
devi@30: 	);
devi@30: 
devi@30: 	open (FRONTEND, "./l3-frontend ".join(" ",map("\"$_\"",@args))." |");
devi@30: 	while (<FRONTEND>) {
devi@30: 		print;
devi@30: 	}
devi@30: 	close(FRONTEND);
devi@27: }
devi@27: