package jakubcgi;
# Knihovna funkcí pro cgi skripty.
# napsal Jakub Tesinsky, 2010 jako pridavek k dancgi.pm od Dana Zemana
use Encode; # aby se mohly číst parametry ze souboru v UTF-8
use dancgi;

#-----------------------------------------------------------------------------
# Zjisti zda jsou modifikace paremetru skutecne modifikacemi nebo ne.
# Používá se například ke zjištění, zda se odkazujeme na tu samo stránku kde 
# se právě nacházíme
#-----------------------------------------------------------------------------
sub jsou_schodne_parametry
{
    my $parametry = shift; # odkaz na hash s původními parametry
    # Další parametry této funkce jsou případné požadavky na změny ve tvaru
    # parametr=hodnota.
    my @zmeny = @_;
    my $stejny = 1;

    foreach my $change (@zmeny) {
      (my $key, my $value)=(split("=", $change));
      if ($parametry->{$key} ne $value){ $stejny=0; };
    };
    return $stejny;
}

1;