osmo-auc/src/gen_auc_txt.pl

#!/usr/bin/perl -w

# this script can generate a CSV file with the specified number of
# entries, which in turn can be used from osmo-auc.

use strict;

my $COUNT = $ARGV[0];
my $i;

for ($i = 0; $i < $COUNT; $i++) {
	printf("90170%010u,5,%032u,%032u,0000,%08u,0\n", $i, $i, $i, $i);
}
initial import of a minimalistic AUC (authentication center) core 2012-09-14 09:11:42 +00:00			`#!/usr/bin/perl -w`

egen_auc_txt.pl: Add a two-line description of what it is 2012-09-14 20:11:18 +00:00			`# this script can generate a CSV file with the specified number of`
			`# entries, which in turn can be used from osmo-auc.`

initial import of a minimalistic AUC (authentication center) core 2012-09-14 09:11:42 +00:00			`use strict;`

			`my $COUNT = $ARGV[0];`
			`my $i;`

			`for ($i = 0; $i < $COUNT; $i++) {`
CSV: store file offset of SQN so we can update it efficiently later This requires that the SQN field is large enough (8 decimal digits), in order to do in-place changes to the field in the CSV. 2012-09-16 07:13:34 +00:00			`printf("90170%010u,5,%032u,%032u,0000,%08u,0\n", $i, $i, $i, $i);`
initial import of a minimalistic AUC (authentication center) core 2012-09-14 09:11:42 +00:00			`}`