"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.

]