1.1 --- a/l3-cgi	Mon Nov 07 11:24:49 2005 +0200
     1.2 +++ b/l3-cgi	Mon Nov 07 13:28:15 2005 +0200
     1.3 @@ -9,7 +9,20 @@
     1.4  		-charset => "utf-8", 
     1.5  		);
     1.6  chdir("/home/devi/cvs/lilalo");
     1.7 -open (FRONTEND, "./l3-frontend --output - |");
     1.8 +
     1.9 +# Вызов производится по URL
    1.10 +my ($skip, $course, $host, $user) = split /\//,$ENV{PATH_INFO},4;
    1.11 +
    1.12 +my @args=(
    1.13 +	"--output" 		=>	"-",
    1.14 +	"--show_comments" 	=>	"no",
    1.15 +	"--course-center"	=>	"\"Сетевые Технологии\"",
    1.16 +	"--course-trainer"	=>	"\"Игорь Чубин\"",
    1.17 +	"--course-student"	=>	"\"$user\@$host\"",
    1.18 +	"--course-code"		=>	"\"$course\"",
    1.19 +);
    1.20 +
    1.21 +open (FRONTEND, "./l3-frontend ".join(" ",@args)." |");
    1.22  while (<FRONTEND>) {
    1.23  	print;
    1.24  }