diff options
Diffstat (limited to 'contrib/sms/fill-hlr.st')
-rw-r--r-- | contrib/sms/fill-hlr.st | 66 |
1 files changed, 0 insertions, 66 deletions
diff --git a/contrib/sms/fill-hlr.st b/contrib/sms/fill-hlr.st deleted file mode 100644 index da0643ecf..000000000 --- a/contrib/sms/fill-hlr.st +++ /dev/null @@ -1,66 +0,0 @@ -"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. - -] |