#!/usr/bin/perl -w

# This populates a DB with lots of values.
# Author: kylev 4/3//2001

use DBI;
use strict;

# Connect to the DB 
my $dbname = 'itest';
my $dbh = DBI->connect("dbi:Pg:dbname=$dbname","kylev","");
if (!$dbh) {
    print("Unable to connect to $dbname: " . $dbh->errstr);
    exit 0;
}

for (my $i=1; $i<=100000; $i++) {
    my $query = $dbh->prepare("INSERT INTO IndexTest (someKey,someString) VALUES ($i, '$i makes the string longer and table bigger, ya wanka! $i')");
    unless ($query->execute) {
        print("Failed!", $dbh->errstr);
        exit -1;
    }
}

$dbh->disconnect;