diff options
Diffstat (limited to 'osmo-gsup-hlr/src/populate_hlr_db.pl')
-rwxr-xr-x | osmo-gsup-hlr/src/populate_hlr_db.pl | 75 |
1 files changed, 0 insertions, 75 deletions
diff --git a/osmo-gsup-hlr/src/populate_hlr_db.pl b/osmo-gsup-hlr/src/populate_hlr_db.pl deleted file mode 100755 index 7be93d8..0000000 --- a/osmo-gsup-hlr/src/populate_hlr_db.pl +++ /dev/null @@ -1,75 +0,0 @@ -#!/usr/bin/perl -# -use strict; -use DBI; -my $dbh = DBI->connect("dbi:SQLite:dbname=hlr.db","",""); - -my $sth_subscr_base = $dbh->prepare("INSERT INTO subscriber (imsi, msisdn) VALUES (?, ?)"); -my $sth_subscr_get_id = $dbh->prepare("SELECT * FROM subscriber WHERE imsi = ?"); -my $sth_auc_3g = $dbh->prepare("INSERT INTO auc_3g (subscriber_id, algo_id_3g, k, op, sqn) VALUES (?, ?, ?, ?, ?)"); -my $sth_auc_2g = $dbh->prepare("INSERT INTO auc_2g (subscriber_id, algo_id_2g, ki) VALUES (?, ?, ?)"); - -sub create_subscr_base($) -{ - my ($imsi) = @_; - my $suffix = substr($imsi, 5); - - my $msisdn = "49" . $suffix; - - return $sth_subscr_base->execute($imsi, $msisdn); -} - -sub create_auc_2g($) -{ - my ($id) = @_; - - my $ki = "000102030405060708090a0b0c0d0e0f"; - - $sth_auc_2g->execute($id, 1, $ki); -} - -sub create_auc_3g($) -{ - my ($id) = @_; - - my $k = "000102030405060708090a0b0c0d0e0f"; - my $op = "00102030405060708090a0b0c0d0e0f0"; - - $sth_auc_3g->execute($id, 5, $k, $op, 0); -} - -sub create_subscr($$$) -{ - my ($imsi, $is_2g, $is_3g) = @_; - my $suffix = substr($imsi, 5); - - create_subscr_base($imsi); - - my $id = $dbh->sqlite_last_insert_rowid(); - #$sth_subscr_get_id->execute($imsi); - #my @arr = $sth_subscr_get_id->fetchrow_array(); - #my $id = $arr[0]; - - if ($is_3g) { - create_auc_3g($id); - } - if ($is_2g) { - create_auc_2g($id); - } -} - - -my $prefix = "90179"; - -$dbh->{AutoCommit} = 0; -$dbh->do("PRAGMA synchronous = OFF"); - -for (my $i = 0; $i < 1000000; $i++) { - my $imsi = sprintf("%s%010u", $prefix, $i); - if ($i % 1000 == 0) { - printf("Creating subscriber IMSI %s\n", $imsi); - } - create_subscr($imsi, 1, 1); -} - -$dbh->commit; |