<?
  // 23.02.07 rs; len zmena nazvu PHP suboru na male pismena (povodne bol velkymi)
  // 14.11.05 rs; dorobeny vypis $main_message_txt_USER toto je
  //              premenna definovana v config_xx.txt, $main_message_txt
  //              je definovane v slovak.php/czech.php..
  // 13.09.05 rs; pridane logout=1 pre epca_login.php
  // 02.08.05 jj; v angl. jaz. mutaci nezobr. vystupy EPCA (zatim pro SPU)
  // 11.05.05 rs; oprava preklepu v "eu" bolo "=" namiesto "=="
  // 10.05.05 rs; obnovenie toplist pocitadla pre EU
  // 22.04.05 rs; doplneny forward sirky okna browsera (vyuzite v epca (premenna $wi))
  // 22.04.05 rs; prehodene poradia tlacitok ("Dalsi"  je vzdy prve v poradi)
  // 23.03.05 rs; oprava preklepu bolo $DBepca_on malo byt $DBepca1_on
  // 03.09.04 jj; zapojeni tlacitka "EPCA vstup" na option "EPCA1"
  // 24.08.04 infotech: zapoznamkovanie funkcie "check_browser", kt. sa uz neinkluduje
  // 23.08.04 jj; doplneni tlacitka EPCA VSTUP
  // 10.02.04 rs; pridany vymaz hesla z cookie
  // 04.08.04 rs; vyhodeny warning uplne - malo byt chodit na vsetkych
  //              modernych browseroch
  // 23.07.04 rs; station id toto je zduplikovane este v browseview.php - kvoli tomu ze tam je alt.vstupny bod
  // 16.07.04 rs; station id
  // 05.04.04 n/a; pridane pocitadlo pro spu
  // 23.02.04 infotech; v tlacitku $to_basket_button pred submitom nastavenie variables=0!un_epca
  // 06.02.04 infotech; tlacitko "EPCA vystupy"
  // 04.02.04 infotech; tlacitko "EPCA vystupy"
  // 16.01.04 infotech; nastavovanie cookie display_account_button, ktore urcuje ci server podporuje konto citatela
  // 10.02.03 m; jazykova mutacia uvodneho textu kniznice
  // 16.12.02 rs; auto vyber cestiny ak nie je povolena slovencina
  // 16.12.02 ja; podmienka,pocitadlo pristupov doplnene kladno
  // 05.11.02 infotech; do next_button pridany onclick
  // 26.09.02 rs; ignorovat prichadzajuce cookie
  // 17.09.02 rs; zmena include "config_.php" vzdy skusa "ictx"
  // 19.08.02 rs; vyhodeny counter pre svkli
  // 20.07.02 rs; doplneny counter pre svkpl
  // 31.05.02 rs; doplnenie nazvu kniznice (z premennej $kniznica1) na prvu
  //              stranku IPACu (poziadavka z PAR)
  // 15.03.03 rs; mytrix->counter pre pouzitie s www.toplist.cz
  // 31.01.02 rs; uprava prace s $ictx
  // 09.01.02 rs; vyhodeny mytrix a zmeneny pristup k configu (cez ictx)
  // 18.11.01 rs; prerobena praca s config; globalny identifikator $ictx obsahuje
  //              skratku instalacie-docasne prenasane cez cookie
  //              na nacitanie stranky bez pocitadla je mozne pouzit parameter
  //              "&mytrix=0"
  // 08.08.01 rs; doplnene pocitadlo mytrix
  // --

    // 15.07.04 rs; nastavenie station id
    // 23.07.04 rs; toto je zdupliovane este v browseview.php - kvoli tomu ze tam je alt.vstupny bod
    if ($x_st=="") $x_st=UniqId("");
    SetCookie("x_st",$x_st,Time()+60000000);

    // 10.02.04 rs; pridany vymaz hesla z cookie
    Header("Set-Cookie: heslo=");


    rl_zclient_log("main");



    // 26.09.02 ignorovat cookie a vzdy pouzit bud default alebo parameter via "get"
    $ictx=$HTTP_GET_VARS["ictx"];
    //$ictxx=$HTTP_COOKIE_VARS["ictx"];

    include "./config/config_".$ictx.".php"; // tento kod by mal byt v kazdom subore

    // pokial nie je zadany jazyk z URL a zaroven nie je
    // povolena slovenska verzia (v config_xx.php) automaticky
    // zvolit cestinu // rs 16.12.02
    if ( (!strstr($g_sLanguages,"S")) && ($language=="")) $language="czech";

    // vymaz cookie - ak nahodou predtym existovala
    // 16.07.04; rs uz netreba
    //SetCookie("ictx","",Time()+36000000);

    include "./includes/functions.php";
    include "./includes/chooselanguage.php";

    // na nacitanie stranky bez pocitadla je mozne pouzit parameter
    // "&counter=0"
    $counter_code="";
    // 11.05.05 rs; oprava preklepu v "eu" bolo "=" namiesto "=="
    if ( (($ictx=="spu") || ($ictx=="kl") || ($ictx=="pl") || 
          ($ictx=="sav") || ($ictx=="eu")
         ) && ($counter<>"0")) include "./counter_".$ictx.".php";

    $main_config_str = GetConfiguration();

    if ($database_select) {
      $database_select = explode("!",$database_select);
      $server_id = $database_select[0];
      $DB_name = $database_select[1];

      switch ($search_select)
      {
        case "scan":
                     $variables = $server_id ."!".$DB_name;
                     header("location: scan.php?language=$language&variables=".urlencode($variables)."&ictx=$ictx&display_account_button=$display_account_button");
                     break;
        case "simple":
                     $variables = $server_id ."!".$DB_name;
                     header("location: simple.php?language=$language&variables=".urlencode($variables)."&ictx=$ictx&display_account_button=$display_account_button");
                     break;
        case "extended":
                     $variables = $server_id ."!".$DB_name;
                     header("location: extended.php?language=$language&variables=".urlencode($variables)."&ictx=$ictx&display_account_button=$display_account_button");
                     break;
        case "general":
                     $variables = $server_id ."!".$DB_name;
                     header("location: general.php?language=$language&variables=".urlencode($variables)."&ictx=$ictx&display_account_button=$display_account_button");
                     break;
        //case "EPCA":
        //             $variables = $server_id ."!".$DB_name;
        //             header("location: EPCA.php?language=$language&variables=".urlencode($variables)."&ictx=$ictx&display_account_button=$display_account_button");
        //             break;

        }
      }

    // main page output

    $database_selection = "<font face=\"verdana\" size=\"2\"><select name=\"database_select\" size=\"1\">";

    $servers = GetServersNames($language);

    for ($i=0;$i<count($servers);$i++)
    {
      $DBs = GetDBs($i, $language);
      for ($j=0;$j<count($DBs);$j++) {
        $DB_options = GetDBoptions($i, $DBs[$j]);
        $DBdesc = GetDBdesc($i, $DBs[$j], $language);
        if (!in_array("H",$DB_options)) $database_selection .= "<option value=\"".$i."!".$DBs[$j]."\">$DBdesc</option>";
        if ($DBs[$j] == "usr" && $i == 0) { $exist_DBusers = 1;
                       if (in_array("ACCOUNT", $DB_options)) {
                                              $DBusers_account_on = 1;
                                              }
                       else {
                                              $DBusers_account_on = 0;
                                              }
                       if (in_array("EPCA", $DB_options)) {
                                              $DBepca_on = 1;
                                              }
                       else {
                                              $DBepca_on = 0;
                                              }
                       if (in_array("EPCA1", $DB_options)) {
                                              $DBepca1_on = 1;
                                              }
                       else {
                                              $DBepca1_on = 0;
                                              }
                       }
        }
      }
    $database_selection .= "</select></font>";
    #echo "|".$exist_DBusers."|".$DBusers_account_on."|<BR>";
    header("set-cookie: display_account_button=".urlencode(($exist_DBusers == 1 && $DBusers_account_on == 1 ? 1 : 0)));

    if (isset($books_in_basket))
      $to_basket_button = "<a href=\"is#onclick\" onclick=\"document.forms[0].variables.value='0!un_epca';document.forms[0].destination.value='seebasket.php?ictx=$ictx'; document.forms[0].submit();return false;\"><img src=\"images/$language/etc/button_show_basket_down.gif\" border=0></a>&nbsp;";
    else
      $to_basket_button = "";

    doc_header($new_search_button_txt);

    // preklad stringu do jazykov
    $kniznica1=Translate($kniznica1,$language); // rs 10.02.03 doplnenie prekladu

    ///      <script language=\"javascript\" src=\"./includes/scripts.js\"></script>
    // 04.08.04 rs; vyhodeny warning uplne - malo byt chodit na vsetkych
    //              modernych browseroch
    echo "

          <form action=\"redirect.php\" method=\"get\">

          <table border=0 cellpadding=0 cellspacing=0 width=100% height=100% background=\"\" bgcolor=\"\">
            <tr>
             <td width=\"134\" background=\"images/$language/main/bgr_left_simple.gif\" valign=\"top\" height=\"95%\" align=center>
               <map name=\"copyright\">
               <area alt=\"Copyright\" coords=\"4,2,131,58\" href=\"./copyright.php?language=".$language."&ictx=$ictx\">
               </map>
               <img src=\"images/$language/main/left_frame.jpg\" usemap=\"#copyright\" border=0>"
         .echo_language_imgs(__FILE__)."
         "// 08.08.01 rs mytrix->counter
         .$counter_code."
             </td>
             <td background=\"images/$language/main/bgr_main.gif\" valign=\"top\">

               <input type=\"hidden\" name=\"destination\" value=\"main.php\">
               <input type=\"hidden\" name=\"display_account_button\" value=\"".($exist_DBusers == 1 && $DBusers_account_on == 1 ? 1 : 0)."\">
               <input type=\"hidden\" value=\"".urlencode($variables)."\" name=\"variables\">
               <input type=\"hidden\" value=\"".urlencode($wi)."\" name=\"wi\">
               <input type=\"hidden\" value=\"$language\" name=\"language\">
               <input type=\"hidden\" name=\"ictx\" value=\"$ictx\">
               <input type=\"hidden\" name=\"logout\" value=1>
               <table border=0 width=100% cellpadding=0 cellspacing=0 bgcolor=\"\" background=\"\">
                 <tr><td><br></td></tr>
                 <tr><td><br></td></tr>
                 <tr><td align=right>$font1<b>$kniznica1</b></font>&nbsp;&nbsp;&nbsp;&nbsp;<br></td></tr>
                 <tr><td><br></td></tr>
                 ".echo_header("images/$language/main/header_choose_DB.gif")."
                 </tr>
                 <tr><td><br></td></tr>
                 <tr><td><br></td></tr>
                 <tr><td colspan=\"2\">
                       <table border=0 width=100% cellpadding=0 cellspacing=0>
                       <tr><td width=\"55\"></td>
                           <td>".$database_selection."</td></tr>
                       </table>
                     </td></tr>
                 <tr><td><br></td></tr>
                 <tr><td colspan=\"2\">
                       <table border=0 width=100% cellpadding=0 cellspacing=0>
                       <tr><td width=\"55\"></td>
                           <td>".$main_message_txt.$main_message_txt_USER."<br></td></tr>
                       </table>
                     </td></tr>
                 <tr><td><br></td></tr>
               ".echo_header("images/$language/main/header_choose_search_type.gif")."
                 <tr><td><br></td></tr>
                 <tr><td><br></td></tr>
                 <tr><td colspan=\"2\">
                       <table border=0 width=100% cellpadding=0 cellspacing=0><tr>
                         <td rowspan=\"4\" width=\"52\"></td>
                         <td>
                         <input type=\"radio\" name=\"search_select\" value=\"simple\" checked>$font1 <b>$simple_search_txt</b><br>
                         <input type=\"radio\" name=\"search_select\" value=\"extended\">$font1 <b>$extended_search_txt</b><br>
                         <input type=\"radio\" name=\"search_select\" value=\"scan\">$font1 <b>$scan_button_txt / Browse</b><br>
                         <input type=\"radio\" name=\"search_select\" value=\"general\">$font1 <b>$general_search_txt</b><br>
                         <!--<input type=\"radio\" name=\"search_select\" value=\"EPCA\">$font1 <b>EPCA</b>--></td></tr>
                         </td>
                       </tr></table>
                 <tr><td><br></td></tr>
                 <tr><td><br></td></tr>
                 <tr><td><br></td></tr>
                 </table>
  ";

  // 02.08.05 jj; v angl. jaz. mutaci nezobr. vystupy EPCA (zatim pro SPU)
  if (($language==english) && ($ictx=="spu")) $DBepca_on=0;
  
  // 22.04.05 rs; prehodenie poradia tlacitok
  $sButtons=
        // tlacitko dalsi
        "<input type=\"image\" onclick=\"document.forms[0].destination.value='main.php';document.forms[0].submit();return false;\" name=\"a_submit\" src=\"images/$language/main/button_next.gif\" border=0>&nbsp;".
        // EPCA tlacitka
        ($DBepca1_on==1 ? "<input type=\"image\" onclick=\"document.forms[0].destination.value='EPCA_login.php';document.forms[0].variables.value='0!usr';document.forms[0].submit();return false;\" name=\"a_submit\" src=\"./images/".$language."/epca/button_epca_input.gif\" border=0>&nbsp;":"").
        ($DBepca_on ==1 ? "<input type=\"image\" onclick=\"document.forms[0].destination.value='EPCA.php';document.forms[0].variables.value='0!usr';document.forms[0].wi.value=document.body.clientWidth;document.forms[0].submit();return false;\" name=\"a_submit\" src=\"./images/".$language."/main/button_epca_down.gif\" border=0>&nbsp;":"").
        $to_basket_button;
  if ($exist_DBusers == 1 && $DBusers_account_on == 1)
    $sButtons .= "<a href=\"./account.php?language=".$language."&ictx=$ictx\"><img src=\"./images/".$language."/main/button_account_down.gif\" border=0></a>&nbsp;";
  $sButtons .= "<a href=\"./help.php?where=main&language=".$language."&ictx=$ictx\"><img src=\"./images/".$language."/main/button_help_down.gif\" border=0></a>&nbsp;&nbsp;&nbsp;";

  echo echo_bottom_cell($sButtons);


  // rs 08.11.01 very simple counter
  $s="main";include "./simple_counter.php";simple_counter($temp_dir."\\".$s.".count");

  doc_footer();
  rl_zclient_log("main finish");


  //<script language="JavaScript">
    //24.08.04 infotech: zapoznamkovanie funkcie "check_browser", kt. sa uz neinkluduje
    //check_browser('<xx echo $language; xx>');
  //</script>
?>