lilalo

view l3-cgi @ 29:b3f5f5560802

find changesets by author, revision, files, or words in the commit message
l3-cgi: Найти курс по PATH_INFO
HISTORY: Описаны изменения в версии v_0_2_4
l3-frontend: В секции "О программе" убрал разрыв строки
author devi
date Mon Nov 07 13:28:15 2005 +0200 (2005-11-07)
parents 098664cf339c
children f5f07049bd4f
line source
1 #!/usr/bin/perl
2
3 use strict;
4 use CGI qw(:standard);
5
6 my $value = param('PARAM');
7
8 print header(
9 -charset => "utf-8",
10 );
11 chdir("/home/devi/cvs/lilalo");
12
13 # Вызов производится по URL
14 my ($skip, $course, $host, $user) = split /\//,$ENV{PATH_INFO},4;
15
16 my @args=(
17 "--output" => "-",
18 "--show_comments" => "no",
19 "--course-center" => "\"Сетевые Технологии\"",
20 "--course-trainer" => "\"Игорь Чубин\"",
21 "--course-student" => "\"$user\@$host\"",
22 "--course-code" => "\"$course\"",
23 );
24
25 open (FRONTEND, "./l3-frontend ".join(" ",@args)." |");
26 while (<FRONTEND>) {
27 print;
28 }
29 close(FRONTEND);
30