#!/usr/bin/perl

use strict;

 my $nptgain = 3;
#my $nptgain = 10;

my ($run,$scan,$module,$runfirst,$runlast,$runcount);

use DBI;
my $connect = DBI->connect('DBI:mysql:bookkeeping:pc-sct-db-01:3306', 'sctroddq', '') || die "Could not connect to database: $DBI::errstr";


# my $query = &makeQuery("SELECT run,scan FROM scanindex where scancount=10 and name='NPtGainTest'");
 my $query = &makeQuery("SELECT run,scan FROM scanindex where scancount=$nptgain and name='NPtGainTest'");
$query->bind_columns(\$run,\$scan);
while($query->fetch()) {
   	print "run=$run scan=$scan nptgain=$nptgain \n";
	}

   
$connect->disconnect();

sub makeQuery {
        my $query = shift;
        my $queryhandle = $connect->prepare($query);
        $queryhandle->execute();
        return $queryhandle;
        }