#!/usr/bin/perl

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

use JSON::XS;
use FileHandle;
use Text::CSV::Easy(qw/csv_build csv_parse/);


use lib '/var/app/orchard/collab/jgetter/perllib';
use Orchard::Session;
use Orchard::Accounting::Country;

## connect to royalty_accounting
my $dbh = Orchard::Session::getdbh('orchqa');
my $rows = $dbh->selectall_arrayref(qq{
SELECT customer_master_master_id, customer_name 
FROM customer_master_master 
WHERE status <> 'terminated'
ORDER BY 1
});

my $fh = FileHandle->new('stores.csv','w');
foreach my $row ( @{$rows} ) {
	my $line = csv_build(@{$row});
	$fh->print("$line\n");
}
$fh->close;