Holger Hans Peter Freyther | e3018c7 | 2010-12-23 21:48:19 +0100 | [diff] [blame] | 1 | "I create output for some simple SQL statements for the HLR db" |
| 2 | |
| 3 | |
| 4 | Eval [ |
| 5 | |
| 6 | "Create tables if they don't exist" |
| 7 | Transcript show: 'CREATE TABLE SMS ( |
| 8 | id INTEGER PRIMARY KEY AUTOINCREMENT, |
| 9 | created TIMESTAMP NOT NULL, |
| 10 | sent TIMESTAMP, |
| 11 | sender_id INTEGER NOT NULL, |
| 12 | receiver_id INTEGER NOT NULL, |
| 13 | deliver_attempts INTEGER NOT NULL DEFAULT 0, |
| 14 | valid_until TIMESTAMP, |
| 15 | reply_path_req INTEGER NOT NULL, |
| 16 | status_rep_req INTEGER NOT NULL, |
| 17 | protocol_id INTEGER NOT NULL, |
| 18 | data_coding_scheme INTEGER NOT NULL, |
| 19 | ud_hdr_ind INTEGER NOT NULL, |
| 20 | dest_addr TEXT, |
| 21 | user_data BLOB, |
| 22 | header BLOB, |
| 23 | text TEXT);'; nl; |
| 24 | show: 'CREATE TABLE Subscriber ( |
| 25 | id INTEGER PRIMARY KEY AUTOINCREMENT, |
| 26 | created TIMESTAMP NOT NULL, |
| 27 | updated TIMESTAMP NOT NULL, |
| 28 | imsi NUMERIC UNIQUE NOT NULL, |
| 29 | name TEXT, |
| 30 | extension TEXT UNIQUE, |
| 31 | authorized INTEGER NOT NULL DEFAULT 0, |
| 32 | tmsi TEXT UNIQUE, |
| 33 | lac INTEGER NOT NULL DEFAULT 0);'; nl. |
| 34 | |
| 35 | "Create some dummy subscribers" |
| 36 | num_sub := 1000. |
| 37 | num_sms := 30. |
| 38 | lac := 1. |
| 39 | |
| 40 | Transcript show: 'BEGIN;'; nl. |
| 41 | |
| 42 | 1 to: num_sub do: [:each | |
| 43 | Transcript show: 'INSERT INTO Subscriber |
| 44 | (imsi, created, updated, authorized, lac, extension) |
| 45 | VALUES |
| 46 | (%1, datetime(''now''), datetime(''now''), 1, %2, %3);' % |
| 47 | {(274090000000000 + each). lac. each}; nl. |
| 48 | ]. |
| 49 | |
| 50 | 1 to: num_sms do: [:sms | |
| 51 | 1 to: num_sub do: [:sub | |
| 52 | Transcript show: 'INSERT INTO SMS |
| 53 | (created, sender_id, receiver_id, valid_until, |
| 54 | reply_path_req, status_rep_req, protocol_id, |
| 55 | data_coding_scheme, ud_hdr_ind, dest_addr, |
| 56 | text) VALUES |
| 57 | (datetime(''now''), 1, %1, ''2222-2-2'', |
| 58 | 0, 0, 0, |
| 59 | 0, 0, ''123456'', |
| 60 | ''abc'');' % {sub}; nl. |
| 61 | ] |
| 62 | ]. |
| 63 | |
| 64 | Transcript show: 'COMMIT;'; nl. |
| 65 | |
| 66 | ] |