devi@27: #!/usr/bin/perl
devi@27: 
devi@27: use strict;
devi@27: use CGI qw(:standard);
devi@27: 
devi@27: my $value = param('PARAM');
devi@27: 
devi@27: print header(
devi@27: 		-charset => "utf-8", 
devi@27: 		);
devi@27: chdir("/home/devi/cvs/lilalo");
devi@29: 
devi@29: # Вызов производится по URL
devi@29: my ($skip, $course, $host, $user) = split /\//,$ENV{PATH_INFO},4;
devi@29: 
devi@29: my @args=(
devi@29: 	"--output" 		=>	"-",
devi@29: 	"--show_comments" 	=>	"no",
devi@29: 	"--course-center"	=>	"\"Сетевые Технологии\"",
devi@29: 	"--course-trainer"	=>	"\"Игорь Чубин\"",
devi@29: 	"--course-student"	=>	"\"$user\@$host\"",
devi@29: 	"--course-code"		=>	"\"$course\"",
devi@29: );
devi@29: 
devi@29: open (FRONTEND, "./l3-frontend ".join(" ",@args)." |");
devi@27: while (<FRONTEND>) {
devi@27: 	print;
devi@27: }
devi@27: close(FRONTEND);
devi@27: