#!/usr/bin/perl

# Nastaví cestu pro odkazy podle toho, zda jde o perlový program (cesta
# k cgi), nebo něco jiného (cesta k html stránkám), a taky podle toho, zda
# jsme na hrejsi, nebo někde jinde (=doma). Vše se řídí konfiguračním
# textovým souborem, který je jiný na Hrejsi a jiný na Amazonce.

# Zjistit cestu pro odkazování na statické stránky hrejsi.
open(KONFIG, "../cgi.cfg");
while(<KONFIG>)
{
    if(m/(\S+)\s*=\s*([^\r\n]*)/)
    {
        $konfig{$1} = $2;
    }
}
close(KONFIG);