67 lines
2.4 KiB
Smalltalk
67 lines
2.4 KiB
Smalltalk
|
"I create output for some simple SQL statements for the HLR db"
|
||
|
|
||
|
|
||
|
Eval [
|
||
|
|
||
|
"Create tables if they don't exist"
|
||
|
Transcript show: 'CREATE TABLE SMS (
|
||
|
id INTEGER PRIMARY KEY AUTOINCREMENT,
|
||
|
created TIMESTAMP NOT NULL,
|
||
|
sent TIMESTAMP,
|
||
|
sender_id INTEGER NOT NULL,
|
||
|
receiver_id INTEGER NOT NULL,
|
||
|
deliver_attempts INTEGER NOT NULL DEFAULT 0,
|
||
|
valid_until TIMESTAMP,
|
||
|
reply_path_req INTEGER NOT NULL,
|
||
|
status_rep_req INTEGER NOT NULL,
|
||
|
protocol_id INTEGER NOT NULL,
|
||
|
data_coding_scheme INTEGER NOT NULL,
|
||
|
ud_hdr_ind INTEGER NOT NULL,
|
||
|
dest_addr TEXT,
|
||
|
user_data BLOB,
|
||
|
header BLOB,
|
||
|
text TEXT);'; nl;
|
||
|
show: 'CREATE TABLE Subscriber (
|
||
|
id INTEGER PRIMARY KEY AUTOINCREMENT,
|
||
|
created TIMESTAMP NOT NULL,
|
||
|
updated TIMESTAMP NOT NULL,
|
||
|
imsi NUMERIC UNIQUE NOT NULL,
|
||
|
name TEXT,
|
||
|
extension TEXT UNIQUE,
|
||
|
authorized INTEGER NOT NULL DEFAULT 0,
|
||
|
tmsi TEXT UNIQUE,
|
||
|
lac INTEGER NOT NULL DEFAULT 0);'; nl.
|
||
|
|
||
|
"Create some dummy subscribers"
|
||
|
num_sub := 1000.
|
||
|
num_sms := 30.
|
||
|
lac := 1.
|
||
|
|
||
|
Transcript show: 'BEGIN;'; nl.
|
||
|
|
||
|
1 to: num_sub do: [:each |
|
||
|
Transcript show: 'INSERT INTO Subscriber
|
||
|
(imsi, created, updated, authorized, lac, extension)
|
||
|
VALUES
|
||
|
(%1, datetime(''now''), datetime(''now''), 1, %2, %3);' %
|
||
|
{(274090000000000 + each). lac. each}; nl.
|
||
|
].
|
||
|
|
||
|
1 to: num_sms do: [:sms |
|
||
|
1 to: num_sub do: [:sub |
|
||
|
Transcript show: 'INSERT INTO SMS
|
||
|
(created, sender_id, receiver_id, valid_until,
|
||
|
reply_path_req, status_rep_req, protocol_id,
|
||
|
data_coding_scheme, ud_hdr_ind, dest_addr,
|
||
|
text) VALUES
|
||
|
(datetime(''now''), 1, %1, ''2222-2-2'',
|
||
|
0, 0, 0,
|
||
|
0, 0, ''123456'',
|
||
|
''abc'');' % {sub}; nl.
|
||
|
]
|
||
|
].
|
||
|
|
||
|
Transcript show: 'COMMIT;'; nl.
|
||
|
|
||
|
]
|