web/Obj/dbase_pgsql.phh

   1 <?php
   2   /*
   3    *  brisk - dbase_pgsql.phh
   4    *
   5    *  Copyright (C) 2006-2012 Matteo Nastasi
   6    *                          mailto: nastasi@alternativeoutput.it
   7    *                                  matteo.nastasi@milug.org
   8    *                          web: http://www.alternativeoutput.it
   9    *
  10    * This program is free software; you can redistribute it and/or modify
  11    * it under the terms of the GNU General Public License as published by
  12    * the Free Software Foundation; either version 2 of the License, or
  13    * (at your option) any later version.
  14    *
  15    * This program is distributed in the hope that it will be useful, but
  16    * WITHOUT ANY WARRANTY; without even the implied warranty of
  17    * MERCHANTABLILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  18    * General Public License for more details. You should have received a
  19    * copy of the GNU General Public License along with this program; if
  20    * not, write to the Free Software Foundation, Inc, 59 Temple Place -
  21    * Suite 330, Boston, MA 02111-1307, USA.
  22    *
  23    */
  24
  25 require_once("${G_base}Obj/dbase_base.phh");
  26
  27 $escsql_from = array( "\\",   "'"   );
  28 $escsql_to   = array( "\\\\", "\\'" );
  29
  30 function escsql($s)
  31 {
  32     GLOBAL $escsql_from, $escsql_to;
  33
  34     return str_replace($escsql_from, $escsql_to, $s);
  35 }
  36
  37 class DBConn
  38 {
  39     static $dbcnnx = FALSE;
  40     var $db = FALSE;
  41
  42     function DBConn()
  43     {
  44         $this->db = DBConn::$dbcnnx;
  45     }
  46
  47     static function create()
  48     {
  49         GLOBAL $G_dbauth;
  50
  51         if (DBConn::$dbcnnx == FALSE) {
  52             if (!(DBConn::$dbcnnx = @pg_connect ($G_dbauth, PGSQL_CONNECT_FORCE_NEW))) {
  53                 return (FALSE);
  54             }
  55         }
  56
  57         $out = new DBConn();
  58
  59         return $out;
  60     }
  61
  62     static function destroy()
  63     {
  64         if (DBConn::$dbcnnx != FALSE) {
  65             DBConn::$dbcnnx = FALSE;
  66             return (pg_close(DBConn::$dbcnnx));
  67         }
  68         return TRUE;
  69     }
  70
  71     static function recover()
  72     {
  73         self::destroy();
  74         return (self::create());
  75     }
  76
  77     function db()
  78     {
  79         return ($this->db);
  80     }
  81 }
  82
  83 class BriskDB
  84 {
  85     var $dbconn;
  86     var $item;
  87     var $item_n;
  88
  89     function BriskDB($dbconn)
  90     {
  91         $this->dbconn = $dbconn;
  92     }
  93
  94     static function create()
  95     {
  96         GLOBAL $DOCUMENT_ROOT, $G_dbpfx;
  97
  98         $ret = FALSE;
  99
 100         log_main("BriskDB create:start");
 101
 102         do {
 103             if (($dbconn = DBConn::create()) == FALSE) {
 104                 break;
 105             }
 106
 107             $ret = new BriskDB($dbconn);
 108         } while (0);
 109
 110         return ($ret);
 111     }
 112
 113     function query($sql)
 114     {
 115         if (($res = pg_query($this->dbconn->db(), $sql)) == FALSE) {
 116             // try to recover the connection
 117             if (($this->dbconn = DBConn::recover()) == FALSE)
 118                 return FALSE;
 119             return (pg_query($this->dbconn->db(), $sql));
 120         }
 121
 122         return ($res);
 123     }
 124
 125     function users_load()
 126     {
 127     }
 128
 129     function login_exists($login)
 130     {
 131         GLOBAL $G_dbpfx;
 132
 133         /* check the existence of the nick in the BriskDB */
 134         log_main("login_exists: ".$login);
 135
 136         $user_sql = sprintf("SELECT * FROM %susers WHERE login = lower('%s') AND (type & CAST (X'%08x' as integer)) = 0;",
 137                             $G_dbpfx, escsql($login), USER_FLAG_TY_DISABLE);
 138         if (($user_pg = $this->query($user_sql)) != FALSE)
 139             if (pg_numrows($user_pg) == 1)
 140                 return TRUE;
 141
 142         return FALSE;
 143     }
 144
 145     function getrecord_bylogin($login) {
 146         GLOBAL $G_dbpfx;
 147
 148         $user_sql = sprintf("SELECT * FROM %susers WHERE login = lower('%s') AND (type & CAST (X'%08x' as integer)) = 0;",  $G_dbpfx, escsql($login), USER_FLAG_TY_DISABLE);
 149         if (($user_pg  = $this->query($user_sql)) == FALSE) {
 150             return FALSE;
 151         }
 152         if (pg_numrows($user_pg) != 1)
 153             return FALSE;
 154
 155         $user_obj = pg_fetch_object($user_pg, 0);
 156
 157         return ($user_obj);
 158     }
 159
 160     function user_update_login_time($code, $lintm)
 161     {
 162         GLOBAL $G_dbpfx;
 163
 164         $user_sql = sprintf("UPDATE %susers SET (lintm) = (date 'epoch' + %d * INTERVAL '1 second') WHERE code = %d;", $G_dbpfx, $lintm, $code);
 165
 166         // $user_pg = $this->query($user_sql);
 167         // $row_n = pg_affected_rows($user_pg);
 168         // fprintf(STDERR, "query: %s   NUM: %d\n", ($user_pg == FALSE ? "FALSE" : "TRUE"), $row_n);
 169         if ( ! (($user_pg  = $this->query($user_sql)) != FALSE && pg_affected_rows($user_pg) == 1) ) {
 170              return FALSE;
 171         }
 172
 173         return TRUE;
 174     }
 175
 176     function user_update_flags($code, $flags)
 177     {
 178         GLOBAL $G_dbpfx;
 179
 180         $user_sql = sprintf("UPDATE %susers SET (type) = (%d) WHERE code = %d;", $G_dbpfx, $flags, $code);
 181         fprintf(STDERR, "REQUEST [%s]\n", $user_sql);
 182         if ( ! (($user_pg  = $this->query($user_sql)) != FALSE && pg_affected_rows($user_pg) == 1) ) {
 183              return FALSE;
 184         }
 185         fprintf(STDERR, "REQUEST GOOD [%s]\n", $user_sql);
 186
 187         return TRUE;
 188     }
 189
 190     function login_verify($login, $pass)
 191     {
 192         GLOBAL $G_dbpfx;
 193
 194         $ret = FALSE;
 195
 196         log_main("login_verify: ".$login);
 197
 198
 199         //O /* check the existence of the nick in the BriskDB */
 200         //O for ($i = 0 ; $i < $this->item_n ; $i++) {
 201         //O log_main("login_verify: BEGIN");
 202
 203         if (($user_obj = $this->getrecord_bylogin($login)) == FALSE) {
 204             return FALSE;
 205         }
 206
 207         log_main("login[".$user_obj->code."]: ".$user_obj->login);
 208
 209         /* if it exists check for a valid challenge */
 210         if (($a_sem = Challenges::lock_data(TRUE)) != FALSE) {
 211             if (($chals = &Challenges::load_data()) != FALSE) {
 212                 for ($e = 0 ; $e < $chals->item_n ; $e++) {
 213                     log_main("challenge[".$e."]: ".$chals->item[$e]->login);
 214                     if (strcmp($login, $chals->item[$e]->login) == 0) {
 215                         log_main("login_verify [".$pass."] with [".md5($chals->item[$e]->token.$user_obj->pass)."]");
 216
 217                         if (strcmp($pass, md5($chals->item[$e]->token.$user_obj->pass)) == 0) {
 218                             log_main("login_verify SUCCESS for ".$login);
 219
 220                             $chals->rem($login);
 221                             $this->user_update_login_time($user_obj->code, time());
 222                             $ret = LoginDBItem::LoginDBItemFromRecord($user_obj);
 223                             break;
 224                         }
 225                     }
 226                 } // end for ($e = 0 ...
 227             }
 228
 229             if ($chals->ismod()) {
 230                 Challenges::save_data(&$chals);
 231             }
 232
 233             Challenges::unlock_data($a_sem);
 234         }
 235         //O break;
 236         // O } //  if (strcasecmp($this->item[$i]->login, ...
 237         //O }
 238
 239         return ($ret);
 240     }
 241
 242     function getitem_bylogin($login, &$id) {
 243         $ret = FALSE;
 244         $id = -1;
 245
 246         log_main("getitem_bylogin: ".$login);
 247
 248         if (($user_obj = $this->getrecord_bylogin($login)) == FALSE)
 249             return $ret;
 250
 251         $id = $user_obj->code;
 252         return (LoginDBItem::LoginDBItemFromRecord($user_obj));
 253     }
 254
 255     // TODO FOR DB
 256     function getmail($login)
 257     {
 258         log_main("getmail");
 259
 260         if (($ret = $this->getrecord_bylogin($login)) == FALSE)
 261             return FALSE;
 262
 263         return ($ret->email);
 264     }
 265
 266     function addusers_from_olddb($olddb, &$cont)
 267     {
 268         GLOBAL $G_dbpfx;
 269
 270         for ($i = 0 ; $i < $olddb->count() ; $i++) {
 271             $user_sql = sprintf("INSERT INTO %susers ( login, pass, email, type) VALUES ('%s', '%s', '%s', %d);",
 272                                 $G_dbpfx, escsql(strtolower($olddb->item[$i]->login)), escsql($olddb->item[$i]->pass),
 273                                 escsql($olddb->item[$i]->email), $olddb->item[$i]->type & USER_FLAG_TY_ALL);
 274
 275             if ( ! (($user_pg  = $this->query($user_sql)) != FALSE && pg_affected_rows($user_pg) == 1) ) {
 276                 $cont .= sprintf("ERROR IN LINE: %s\n", eschtml($user_sql));
 277
 278                 return FALSE;
 279             }
 280         }
 281         return TRUE;
 282     }
 283
 284     function getdbconn()
 285     {
 286         return ($this->dbconn);
 287     }
 288
 289     //   ttok   text UNIQUE,
 290     //   tidx
 291     function bin5_points_save($date, $ttok, $tidx, $ucodes, $pts)
 292     {
 293         GLOBAL $G_dbpfx;
 294
 295         $is_trans = FALSE;
 296         $ret = FALSE;
 297
 298         $n = count($ucodes);
 299         /* check the existence of the nick in the BriskDB */
 300         log_main("bin5_points_save: ");
 301
 302         do {
 303             if ($this->query("BEGIN") == FALSE) {
 304                 break;
 305             }
 306             $is_trans = TRUE;
 307
 308             /*
 309              * matches management
 310              */
 311             $mtc_sql = sprintf("SELECT * FROM %sbin5_matches WHERE ttok = '%s';", $G_dbpfx, escsql($ttok));
 312             if (($mtc_pg  = $this->query($mtc_sql)) == FALSE || pg_numrows($mtc_pg) != 1) {
 313                 // match not exists, insert it
 314                 $mtc_sql = sprintf("INSERT INTO %sbin5_matches (ttok, tidx) VALUES ('%s', %d) RETURNING *;",
 315                                    $G_dbpfx, escsql($ttok), $tidx);
 316                 if ( ! (($mtc_pg  = $this->query($mtc_sql)) != FALSE &&
 317                         pg_affected_rows($mtc_pg) == 1) ) {
 318                     log_crit(sprintf("bin5_points_save: failed at insert match [%s]", $mtc_sql));
 319                     break;
 320                 }
 321             }
 322             $mtc_obj = pg_fetch_object($mtc_pg,0);
 323
 324             /*
 325              * games management
 326              */
 327             $gam_sql = sprintf("INSERT INTO %sbin5_games (mcode, tstamp)
 328                                                VALUES (%d, to_timestamp(%d)) RETURNING *;",
 329                                $G_dbpfx, $mtc_obj->code, $date);
 330             if ( ! (($gam_pg  = $this->query($gam_sql)) != FALSE &&
 331                     pg_affected_rows($gam_pg) == 1) ) {
 332                 log_crit(sprintf("bin5_points_save: failed at insert game [%s]", $gam_sql));
 333                 break;
 334             }
 335
 336             $gam_obj = pg_fetch_object($gam_pg,0);
 337
 338             /*
 339              * points management
 340              */
 341             for ($i = 0 ; $i < $n ; $i++) {
 342                 /* put points */
 343                 $pts_sql = sprintf("INSERT INTO %sbin5_points (gcode, ucode, pts)
 344                                                VALUES (%d, %d, %d);",
 345                                    $G_dbpfx, $gam_obj->code, $ucodes[$i], $pts[$i]);
 346                 if ( ! (($pts_pg  = $this->query($pts_sql)) != FALSE &&
 347                         pg_affected_rows($pts_pg) == 1) ) {
 348                     log_crit(sprintf("bin5_points_save: failed at insert point [%s]", $pts_sql));
 349                     break;
 350                 }
 351             }
 352
 353             if ($i < $n)
 354                 break;
 355
 356             if ($this->query("COMMIT") == FALSE) {
 357                 break;
 358             }
 359
 360             $is_trans = FALSE;
 361
 362             $ret =  TRUE;
 363         } while (0);
 364
 365         if ($is_trans)
 366             $this->query("ROLLBACK");
 367
 368         return $ret;
 369     }
 370
 371 } // End class BriskDB
 372
 373 class LoginDBOld
 374 {
 375     var $item;
 376     var $item_n;
 377
 378     function LoginDBOld($filename)
 379     {
 380         GLOBAL $DOCUMENT_ROOT;
 381         log_main("LoginDBOld create:start");
 382
 383         if (file_exists("$DOCUMENT_ROOT/Etc/".$filename)) {
 384             require("$DOCUMENT_ROOT/Etc/".$filename);
 385         }
 386         else {
 387             return (FALSE);
 388         }
 389         $this->item_n = count($this->item);
 390         log_main("LoginDBOld create:end");
 391     }
 392
 393     function count()
 394     {
 395         return ($this->item_n);
 396     }
 397
 398 } // End class LoginDBOld
 399
 400 ?>