Roxen.git/
server/
base_server/
roxen.pike
Branch:
Tag:
Non-build tags
All tags
No tags
2001-09-06
2001-09-06 11:54:28 by Per Hedbor <ph@opera.com>
54f340f886308c1751a76baa80884eda80ad9e44 (
23
lines) (+
11
/-
12
)
[
Show
|
Annotate
]
Branch:
5.2
Use persistent connections for the arg and image caches
Rev: server/base_server/roxen.pike:1.734
6:
// Per Hedbor, Henrik Grubbström, Pontus Hagland, David Hedbor and others. // ABS and suicide systems contributed freely by Francesco Chemolli
-
constant cvs_version="$Id: roxen.pike,v 1.
733
2001/09/06
10
:
28
:
52
per Exp $";
+
constant cvs_version="$Id: roxen.pike,v 1.
734
2001/09/06
11
:
54:
28 per Exp $";
// The argument cache. Used by the image cache. ArgCache argcache;
2099:
//! being a cache, however, it serves a wide variety of other //! interesting image conversion/manipulation functions as well. {
-
#define QUERY(X,Y...)
get_
db
()
->query(X,Y)
-
function(void:
Sql.Sql
)
get_
db;
+
#define QUERY(X,Y...) db->query(X,Y)
+
Sql.Sql db;
string name; string dir; function draw_function;
2988:
static void init_db( ) { meta_cache = ([]);
-
function
f
= master()->resolv( "DBManager.cached_get" )
;
-
get_db = lambda
(
) { return f(
"local");
};
+
db
= master()->resolv( "DBManager.cached_get" )("local");
setup_tables(); }
3026:
//! refetched later by a short string key. This being a cache, your //! data may be thrown away at random when the cache is full. {
-
function(void:
Sql.Sql
)
get_
db;
+
Sql.Sql db;
string name; #define CACHE_VALUE 0
3069:
// Delay DBManager resolving to before the 'roxen' object is // compiled. cache = ([]);
-
function
f
= master()->resolv( "DBManager.cached_get" )
;
-
get_db = lambda
(
) { return f(
"local");
};
+
db
= master()->resolv( "DBManager.cached_get" )("local");
setup_table( ); }
3105:
if( m->contents == long_key ) return (int)m->id;
+
QUERY( "INSERT INTO "+name+" (contents,md5,atime) VALUES " "(%s,%s,UNIX_TIMESTAMP())", long_key, md );
-
+
int id = (int)db->master_sql->insert_id();
-
int id = (int)get_db()->master_sql->insert_id();
-
+
(plugins->create_key-({0}))( id, long_key, md ); return id;