#!/usr/bin/perl -w
###################################################################################
#
# REPERTÓRIUM
$kellek{script}="kezdolap";
# hát a kezdőlapot készíti el mindenféle nyelveken
# 2000.05.20.
#
###################################################################################
if (-r 'szubrutinok') {
require('szubrutinok');
}
else {
print "Content-type: text/html\n\n
Nem lehet betölteni a
szubrutinokat tartalmazó fájlt! A Repertórium addig nem fog működni, amíg a
hibát ki nem javítja valaki.
"; exit;
}
&inicializacio('lan');
###################################################################################
# Na, gyártsuk le a kért nyelven a kezdőlapot, oszt kész is.
###################################################################################
$duma=' |
'.$ny{k_00}.' '.$ny{k_01}.
' '.$ny{k_02}.' | ';
$kimenet=&html_eleje('kezdolap');
$kimenet=~s/k_k_k/$duma/; # nem jo a a normalis &html_vege
$kimenet.='