#!/usr/bin/perl

use strict;
use CGI qw(:standard);

my $value = param('PARAM');

print header(
		-charset => "utf-8", 
		);
chdir("/home/devi/cvs/lilalo");

# Вызов производится по URL
my ($skip, $course, $host, $user) = split /\//,$ENV{PATH_INFO},4;

my @args=(
	"--output" 		=>	"-",
	"--show_comments" 	=>	"no",
	"--course-center"	=>	"\"Сетевые Технологии\"",
	"--course-trainer"	=>	"\"Игорь Чубин\"",
	"--course-student"	=>	"\"$user\@$host\"",
	"--course-code"		=>	"\"$course\"",
);

open (FRONTEND, "./l3-frontend ".join(" ",@args)." |");
while (<FRONTEND>) {
	print;
}
close(FRONTEND);