#!/usr/bin/perl

use strict;
use warnings;
use open ':std', ':encoding(UTF-8)';

use JSON::XS;
use FileHandle;

my $vendorId = shift @ARGV;

use lib "$ENV{'HOME'}/sandbox/orchard_db";
use Connect;

my $dbh1 = Connect->connect('orchrpt');
my $dbh2 = Connect->connect('docker');

my $sql;
my $sqlFile = FileHandle->new('vendorContracts.sql','r');
read $sqlFile, $sql, -s $sqlFile;
$sqlFile->close;

if ( defined $vendorId ) {
	$sql .= "WHERE vc.vendor_id = $vendorId";
} else {
	$sql .= "ORDER BY vc.vendor_id, vc.id";
}

my $sth1 = $dbh1->prepare($sql);
$sth1->execute();
while(my $row = $sth1->fetchrow_hashref()) {
	my $x;
}