#!/usr/bin/perl
# Přečte tabulku her, pro každou hru zjistí plánovaný název složky na hrejsi, zjistí, zda tato složka existuje,
# a pokud ne, vytvoří ji. Současně vytvoří i její podsložku obr.
require("C:/Documents and Settings/All Users/Dokumenty/Web/cgi/zert/access.pm");
$hry = access::cist_tabulku_access("C:/Documents and Settings/All Users/Dokumenty/Web/cgi/hry/hry.txt");
foreach my $hra (@{$hry})
{
    my $slozka = $hra->{"slozka hrejsi"};
    unless(-d $slozka)
    {
        # Zkontrolovat, že název složky obsahuje pouze malá písmena anglické abecedy.
        if($slozka =~ m/^[a-z]+$/)
        {
            print("Vytvarim slozku $slozka\n");
            mkdir($slozka);
            $slozka .= "/obr";
            print("Vytvarim slozku $slozka\n");
            mkdir($slozka);
        }
        elsif($slozka ne "")
        {
            print("ODMITAM VYTVORIT SLOZKU $slozka\n");
        }
    }
    elsif(!-d "$slozka/obr")
    {
        print("Vytvarim slozku $slozka/obr\n");
        mkdir("$slozka/obr");
    }
}