#!/usr/bin/perl

# $ENV{DBIC_TRACE}=1;
use JSON;
use strict;
use Data::Show;
use lib '/home/sites/clm.dmadelivers.com/www/clmapp/lib';
use CLMApp::Schema;

my $dbix = CLMApp::Schema->connect("dbi:mysql:host=rds1.dmadelivers.com;db=dmaclm", 'dmaclm', '3lUz1OV2!',{unsafe=>1,RaiseError=>0,PrintError=>1});
&default;

sub default{
	my @c = $dbix->resultset('Customer')->search({
		statusid => 1, 
		'me.chainunitid' => { '>' => 0 }, 
		'-or' => 
			[ 
				groupname => {'=' => undef},
				groupname => {'=' => ''} 
			] 
	},{
		prefetch=>[qw/chainunit/],
		result_class=>'DBIx::Class::ResultClass::HashRefInflator'
	});
	foreach my $c (@c){

		my $cu = $c->{chainunit}->{chainunitname};
		my $cun = $c->{customerunitnumber};
		# $cu =~ s/\s+$cun\s*$//;
		if($c->{groupname} ne "" && $c->{groupname} ne $cu){
			print $c->{customernumber} . "\n";
		}
		if($cu ne $c->{unitname} . ($c->{customerunitnumber} ? ' ' . $c->{customerunitnumber} : '')){
			print $c->{customernumber} . "\n";	
		}
		# $dbix->resultset('Customer')->find({customerid => $c->{customerid}})->update({groupname => $cu});
	}

}