#!/usr/bin/perl
#use CGI qw/:standard/;
require 'cgi-lib.pl';
&ReadParse;

require 'scripts/param.app';
require 'config/config.dat';
require 'scripts/head.app';
require 'scripts/parser.app';

$act=param('act');
$act=~s/\///g;
$act=~s/\\//g;
if ($act ne 'setlang') {
$pn=param('pn');
$pn=~s/\///g;
$pn=~s/\\//g;
Parser($pn);
}
if (-e "scripts/$act.app") {require "scripts/$act.app";} else
{
PrintHeader();
print $FileData;
}

#   Andrei Tsarkov (andrei@rambler.ru)