mirror of
https://github.com/zaphar/ucg.git
synced 2025-07-22 18:19:54 -04:00
20 lines
464 B
Plaintext
20 lines
464 B
Plaintext
let dbhost1 = "db1.prod.net";
|
|
let dbhost2 = "db2.prod.net";
|
|
let dbname = "testdb";
|
|
|
|
let mk_db_conn = macro (host, port, db) => {
|
|
host = host,
|
|
port = port,
|
|
db = db,
|
|
conn_string = "@:@/@" % (host, port, db)
|
|
};
|
|
|
|
let db_conn1 = mk_db_conn(dbhost1, 3306, dbname);
|
|
let db_conn2 = mk_db_conn(dbhost2, 3306, dbname);
|
|
|
|
let db_conns = [db_conn1.conn_string, db_conn2.conn_string];
|
|
|
|
let server_config = {
|
|
db_conn = db_conns,
|
|
tmpldir = "./templates"
|
|
}; |