1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/l3-cgi	Mon Nov 07 12:23:13 2005 +0200
     1.3 @@ -0,0 +1,17 @@
     1.4 +#!/usr/bin/perl
     1.5 +
     1.6 +use strict;
     1.7 +use CGI qw(:standard);
     1.8 +
     1.9 +my $value = param('PARAM');
    1.10 +
    1.11 +print header(
    1.12 +		-charset => "utf-8", 
    1.13 +		);
    1.14 +chdir("/home/devi/cvs/lilalo");
    1.15 +open (FRONTEND, "./l3-frontend --output - |");
    1.16 +while (<FRONTEND>) {
    1.17 +	print;
    1.18 +}
    1.19 +close(FRONTEND);
    1.20 +