#!/usr/bin/perl
# Modul, který se umí připojit k databázi na místním SQL serveru.
# Tato verze je specifická pro MySQL na kub.cz!
#--------------------------------------------------
# Copyright © 2007, 2015 Dan Zeman <zeman@ufal.mff.cuni.cz>
# Licence: GNU GPL
# 2015-03-26: přechod na nový kub.cz v Plzni

package sitesql;
use utf8;
use DBI;



#------------------------------------------------------------------------------
# Připojit se k databázi daného jména.
# Pozor, na novém kubu (2015) se liší uživatelé pro databázi her/obchodu a pro
# databázi Deskohraní.
#------------------------------------------------------------------------------
sub connect
{
    my $nazev_databaze = shift; # název databáze
    my $uzivatel = shift;
    my $heslo = shift;
    my $databaze = DBI->connect("DBI:mysql:$nazev_databaze", $uzivatel, $heslo)
        or print STDERR ("Nelze se pripojit k databazi '$nazev_databaze': $DBI::errstr\n");
    # Nastavit kódování klienta, spojení a výsledků.
    $databaze->prepare("SET NAMES 'utf8'")->execute();
    return $databaze;
}



#------------------------------------------------------------------------------
# Připojit se k databázi hry nebo web_hrejsi_obchod.
#------------------------------------------------------------------------------
sub connect_obchod
{
    my $nazev_databaze = shift; # hry | web_hrejsi_obchod
    return sitesql::connect($nazev_databaze, 'web_hrejsi_obch', 'dSZpAaZYcx5pRLvA');
}



#------------------------------------------------------------------------------
# Připojit se k databázi mso.
#------------------------------------------------------------------------------
sub connect_deskohrani
{
    return sitesql::connect('mso', 'web_deskohrani', 'mLSsZYHEKRyTfbnq');
}



1;