Changeset 8222 for sandbox/2.5.1-evolucao/phpgwapi/inc/adodb/tests/testsessions.php

Timestamp:

09/26/13 15:41:49 (11 years ago)

Author:

angelo

Message:

Ticket #3491 - Compatibilizar Expresso com novas versoes do PHP

File:

• sandbox/2.5.1-evolucao/phpgwapi/inc/adodb/tests/testsessions.php (modified) (4 diffs)

sandbox/2.5.1-evolucao/phpgwapi/inc/adodb/tests/testsessions.php

@@ -2 +2 @@
 
 /* 
-V4.80 8 Mar 2006  (c) 2000-2007 John Lim (jlim#natsoft.com.my). All rights reserved.
+V4.80 8 Mar 2006  (c) 2000-2012 John Lim (jlim#natsoft.com). All rights reserved.
   Released under both BSD license and Lesser GPL library license. 
   Whenever there is any discrepancy between the two licenses, 
@@ -24 +24 @@
 include('../session/adodb-cryptsession2.php');
 
-$options['debug'] = 99;
+
+$options['debug'] = 1;
 $db = 'postgres';
 
@@ -31 +32 @@
 case 'oci8': 
         $options['table'] = 'adodb_sessions2';
-        ADOdb_Session::config('oci8', '', 'jcollect', 'natsoft', '',$options);
+        ADOdb_Session::config('oci8', 'mobydick', 'jdev', 'natsoft', 'mobydick',$options);
         break;
 
 case 'postgres':
-        ADOdb_Session::config('postgres', 'localhost', 'tester', 'test', 'test',$options);
+        $options['table'] = 'sessions2';
+        ADOdb_Session::config('postgres', 'localhost', 'postgres', 'natsoft', 'northwind',$options);
         break;
         
 case 'mysql':
 default:
+        $options['table'] = 'sessions2';
         ADOdb_Session::config('mysql', 'localhost', 'root', '', 'xphplens_2',$options);
         break;
@@ -84 +87 @@
                 
                 if (rand() % 2 == 0) {
-                        print "<p>Random session destroy</p>";
+                        print "<p>Random own session destroy</p>";
                         session_destroy();
                 }
+        } else {
+                $DB = ADODB_Session::_conn();
+                $sessk = $DB->qstr('%AZ'.rand().time());
+                $olddate = $DB->DBTimeStamp(time()-30*24*3600);
+                $rr = $DB->qstr(rand());
+                $DB->Execute("insert into {$options['table']} (sesskey,expiry,expireref,sessdata,created,modified) values ($sessk,$olddate, $rr,'',$olddate,$olddate)");
         }
 ?>