#!/usr/bin/perl

use DBI;

$how_many = shift;
$string   = shift;
$offset   = shift;

unless ($how_many) {
  print "USAGE: bang N-HITS [a|b]\n";
  exit;
}


if ($string eq "a") {
  $string = "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa";
} else {
  $string = "bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb";
}

$dbh = DBI->connect("DBI:Pg:dbname=xos_visitor_db;host=possum", 
		    'kooks', 'kooks',
		    { RaiseError => 1,
		      AutoCommit => 0 })
  or die "Change this connect string to suit your system";

for ($i = 0; $i < $how_many; $i++) {
  $next = $i + $offset;
  $statement = "insert into test_table values ($next,'$string')";

  $dbh->do($statement);
  $dbh->commit;
}

print "done.\n";