BriskDB and DBConn classes now have a static constructor method that can be failed
[brisk.git] / web / briskin5 / Obj / placing.phh
1 <?php
2 /*
3  *  brisk - placing.phh
4  *
5  *  Copyright (C) 2009-2011 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
26 define(TOP_NUM, 10);
27 define(TRI_LIMIT, (90 * 24 * 60 * 60));
28 define(TRI_MIN_GAMES, 70);
29 define(TRI_MAX_GAMES, 140);
30
31 define(MON_LIMIT, (30 * 24 * 60 * 60));
32 define(MON_MIN_GAMES, 35);
33 define(MON_MAX_GAMES, 70);
34
35 define(WEE_LIMIT, (7 * 24 * 60 * 60));
36 define(WEE_MIN_GAMES, 10);
37 define(WEE_MAX_GAMES, 35);
38
39
40 class Ptsgam {
41   var $username;
42   var $pts;
43   var $gam;
44   
45   function Ptsgam($username = "", $pts = 0, $gam = 0)
46   {
47     $this->username = $username;
48     $this->pts = $pts;
49     $this->gam = $gam;
50   }
51
52   function &myclone()
53   {
54     $ret = new Ptsgam($this->username, $this->pts, $this->gam);
55
56     return ($ret);
57   }
58
59   function add($pts)
60   {
61     $this->pts += $pts;
62     $this->gam++;
63   }
64
65   function snormpts() 
66   {
67     $ret = sprintf ("%.3f", $this->normpts() * 100.0);
68     if (strchr($ret, ".")) {
69       $ret =  rtrim(rtrim($ret, "0"), ".");
70     }
71     return ($ret);
72   }
73
74   function normpts()
75   {
76     if ($this->gam == 0)
77       return (0);
78     else
79       return ($this->pts / $this->gam);
80   }
81 } // class Ptsgam {
82
83 function ptsgam_cmp($a, $b)
84 {
85   $norma = $a->normpts();
86   $normb = $b->normpts();
87     
88   if ($norma == $normb) {
89     if ($a->gam == $b->gam)
90       return (0);
91     else 
92       return ($a->gam < $b->gam ? 1 : -1);
93   }
94   else
95     return (($norma < $normb) ? 1 : -1);
96 }
97
98 /* types of placing based on delta time */
99 define(TY_DTIME_TRI, 0);
100 define(TY_DTIME_MON, 1);
101 define(TY_DTIME_WEE, 2);
102
103 /* subtypes of placing based on number of played games */
104 define(SUBTY_FREQ_LO, 0);
105 define(SUBTY_FREQ_HI, 1);
106
107
108 function placings_show(&$user) 
109 {
110   $mtime = placing_time();
111   $tm = placing_date($mtime);
112   $ret = sprintf("<div style='padding: auto;'><h2><b>CLASSIFICHE</b></h2>(aggiornate alle ore %s del %s)<table class='placings'>", $tm[0], $tm[1]);
113
114   $tmwee = placing_date($mtime - WEE_LIMIT + (3600));
115   $ret .= sprintf("<tr><td style='background-color: #f0f0ff;'><br><b>Settimanale</b><br>dal %s al %s<br>(non meno di %d partite)<br><br>%s<br></td>", $tmwee[1], $tm[1], WEE_MAX_GAMES, placing_show($user, TY_DTIME_WEE, SUBTY_FREQ_HI) );
116   $ret .= sprintf("<td style='background-color: #f0f0ff;'><br><b>Settimanale</b><br>dal %s al %s<br>(meno di %d partite, più di %d)<br><br>%s<br></td></tr>\n", $tmwee[1], $tm[1], WEE_MAX_GAMES, WEE_MIN_GAMES, placing_show($user, TY_DTIME_WEE, SUBTY_FREQ_LO) );
117
118   $tmmon = placing_date($mtime - MON_LIMIT + (3600));
119   $ret .= sprintf("<tr><td style='background-color: #fffff0;'><br><b>Mensile</b><br>dal %s al %s<br>(non meno di %d partite)<br><br>%s<br></td>", $tmmon[1], $tm[1], MON_MAX_GAMES, placing_show($user, TY_DTIME_MON, SUBTY_FREQ_HI) );
120   $ret .= sprintf("<td style='background-color: #fffff0;'><br><b>Mensile</b><br>dal %s al %s<br>(meno di %d partite, più di %d)<br><br>%s<br></td></tr>\n", $tmmon[1], $tm[1], MON_MAX_GAMES, MON_MIN_GAMES, placing_show($user, TY_DTIME_MON, SUBTY_FREQ_LO) );
121
122   $tmtri = placing_date($mtime - TRI_LIMIT + (3600));
123   $ret .= sprintf("<tr><td style='background-color: #fff0f0;'><br><b>Trimestrale</b><br>dal %s al %s<br>(non meno di %d partite)<br><br>%s<br></td>", $tmtri[1], $tm[1], TRI_MAX_GAMES, placing_show($user, TY_DTIME_TRI, SUBTY_FREQ_HI)); 
124   $ret .= sprintf("<td style='background-color: #fff0f0;'><br><b>Trimestrale</b><br>dal %s al %s<br>(meno di %d partite, più di %d)<br><br>%s<br></td></tr>", $tmtri[1], $tm[1], TRI_MAX_GAMES, TRI_MIN_GAMES, placing_show($user, TY_DTIME_TRI, SUBTY_FREQ_LO)); 
125
126
127   $ret .= sprintf("</table></div>");
128   return ($ret);
129 }
130
131 function placing_time_file()
132 {
133   if (($fp = @fopen(LEGAL_PATH."/class_wee_lo.log", 'r')) == FALSE) {
134     return (FALSE);
135   }
136   $st = fstat($fp);
137   fclose($fp);
138
139   return ( $st['mtime'] );
140 }
141
142 function placing_time_pgsql()
143 {    
144     GLOBAL $G_dbpfx;
145     // FIXME: now create can return FALSE
146     $bdb = BriskDB::create();
147     
148     $mti_sql = sprintf("SELECT CAST(EXTRACT(EPOCH FROM mtime) AS INTEGER) as mtime 
149                         FROM %sbin5_places_mtime WHERE code = 0;", $G_dbpfx);
150
151     if (($mti_pg  = pg_query($bdb->dbconn->db(), $mti_sql)) == FALSE || pg_numrows($mti_pg) == 0) {
152         // no point found, abort
153         log_crit("placing: get placing mtime failed [$mti_sql]");
154         return (FALSE);
155     }
156     
157     $mti_pg = pg_fetch_object($mti_pg, 0);
158
159     return ($mti_pg->mtime);
160 }
161
162 function placing_time()
163 {
164     GLOBAL $G_dbasetype;
165     
166     $fun_name = "placing_time_${G_dbasetype}";
167     
168     return ($fun_name());
169 }
170
171 function placing_date($mtime)
172 {
173   return array( date('G:i', $mtime), date('j/n/y', $mtime) );
174 }
175   
176
177 function placing_show_file(&$user, $ty, $subty) 
178 {
179   $tail = FALSE;
180
181   $suff = "";
182   switch($ty) {
183   case TY_DTIME_TRI:
184       $suff = "tri_";
185       break;
186   case TY_DTIME_MON:
187       $suff = "mon_";
188       break;
189   case TY_DTIME_WEE:
190       $suff = "wee_";
191       break;
192   }
193   
194   switch($subty) {
195   case TY_FREQ_LO:
196       $suff .= "lo";
197       break;
198   case TY_FREQ_HI:
199       $suff .= "hi";
200       break;
201   }
202   
203   if (($fp = @fopen(LEGAL_PATH."/class_".$suff.".log", 'r')) == FALSE) {
204     return (FALSE);
205   }
206   
207   // MLANG
208   $ret = sprintf("<table class='placing'><tr><th>Pos.</th><th>Utente</th><th>Score</th><th>(Punti/Partite)</th>");
209
210   $old_normpts = 1000000000;
211   $old_gam = -1;
212   for ($i = 0 ; !feof($fp) ; $i++) {
213     $bf = fgets($fp, 4096);
214     $ar = csplitter($bf, '|');
215     
216     $pg = new Ptsgam($ar[0], $ar[1], $ar[2]);
217
218     if ($pg->username == "")
219       continue;
220
221     if ($pg->normpts() == $old_normpts && $pg->gam == $old_gam)
222        $i--;
223
224     if ($i < TOP_NUM) {
225       $ret .= sprintf("<tr><td>%d</td><td>%s%s%s</td><td>%s</td><td>(%d/%d)</td></tr>", $i+1, 
226                       ($pg->username == $user->name ? "<b>" : ""), xcape($pg->username), ($pg->username == $user->name ? "</b>" : ""), $pg->snormpts(), $pg->pts, $pg->gam);
227     }
228     if ($user != FALSE) {
229       if (strcasecmp($pg->username, $user->name) == 0 && $i >= TOP_NUM) {
230         $tail = sprintf("<tr><td colspan=4 style='text-align: center'> . . . . . . . . . . </td></tr>");
231         $tail .= sprintf("<tr><td>%d</td><td>%s%s%s</td><td>%s</td><td>(%d/%d)</td></tr>", $i+1,
232                          ($pg->username == $user->name ? "<b>" : ""), xcape($pg->username), ($pg->username == $user->name ? "</b>" : ""), $pg->snormpts(), $pg->pts, $pg->gam);
233       }
234     }
235     $old_normpts = $pg->normpts();
236     $old_gam = $pg->gam;
237   }
238
239   if ($tail != FALSE) {
240     $ret .= $tail;
241   }
242   $ret .= "</table>"; 
243   
244   fclose($fp);
245   
246   return ($ret);
247 }
248 //
249 //
250     
251 function placing_show_pgsql(&$user, $ty, $subty) 
252 {
253     GLOBAL $G_dbpfx;
254     
255     // FIXME: now create can return FALSE
256     $bdb = BriskDB::create();
257       
258     if ($user != FALSE) {
259         $pla_sql = sprintf("SELECT * from %sbin5_places where type = %d AND (rank <= %d OR ucode = '%s');",
260                            $G_dbpfx, ($ty * 2) + $subty, TOP_NUM, escsql($user->code));
261     }
262     else {
263         $pla_sql = sprintf("SELECT * from %sbin5_places where type = %d AND rank <= %d;",
264                            $G_dbpfx, ($ty * 2) + $subty, TOP_NUM);
265     }
266     
267     if (($pla_pg  = pg_query($bdb->dbconn->db(), $pla_sql)) == FALSE || pg_numrows($pla_pg) == 0) {
268         // no point found, abort
269         log_crit("placing: get placing list failed [$pla_sql]");
270         return ("");
271     }
272
273     // MLANG
274     $ret = sprintf("<table class='placing'><tr><th>Pos.</th><th>Utente</th><th>Score</th><th>(Punti/Partite)</th>");
275
276     for ($i = 0 ; $i < pg_numrows($pla_pg) ; $i++) {
277         $pla_obj = pg_fetch_object($pla_pg,$i);
278         
279         $ein = "";
280         $eou = "";
281         if ($user != FALSE) {
282             if ($user->code == $pla_obj->ucode) {
283                 $ein = "<b>";
284                 $eou = "</b>";
285             }
286         }
287         
288         /* when the user is far from the top-ten we place a ... separator before it */
289         if ($pla_obj->rank > TOP_NUM) {
290             $ret .= sprintf("<tr><td colspan=4 style='text-align: center'> . . . . . . . . . . </td></tr>");
291         }        
292         $ret .= sprintf("<tr><td>%d</td><td>%s%s%s</td><td>%s%12.3f%s</td><td>%s(%d/%d)%s</td></tr>", $pla_obj->rank, 
293                         $ein, xcape($pla_obj->login), $eou,
294                         $ein, $pla_obj->score, $eou,
295                         $ein, $pla_obj->pts, $pla_obj->games, $eou);
296     }
297     $ret .= "</table>"; 
298   
299     return ($ret);
300 }
301
302 function placing_show(&$user, $ty, $subty) 
303 {
304     GLOBAL $G_dbasetype;
305
306     $fun_name = "placing_show_${G_dbasetype}";
307     
308     return ($fun_name($user, $ty, $subty));
309 }
310
311 ?>