#!/usr/bin/perl
use strict;

use Proc::Pidfile;
use Text::ParseWords;
use Data::Dumper;

use lib '/app/tools/common/lib';
use Common::RSApp;
use Common::Log;
use Common::DB::Item::TableChangeLog;
use Common::DB::Item::Client;
use Common::DB::Item::ClientType;
use Common::DB::Item::ClientCMIDMap;

use lib '/app/tools/rps/lib';
use RPS::DB::Item::Track;
use RPS::DB::Item::Album;
use RPS::DB::Item::Product;
use RPS::DB::Item::Master;
use RPS::DB::Item::Song;
use RPS::DB::Item::Artist;
use RPS::DB::Item::Composer;
use RPS::DB::Item::Label;
use RPS::DB::Item::ProductTrack;

use constant kCMClientID => 112;


my $VAR1;
my $bigEval;
while (my $line = <STDIN>)
{
	chomp $line;
	$bigEval .= $line;
}

eval $bigEval;

#print Dumper($VAR1) . "\n";

my $clientID = $VAR1->[0]->{mapping}{client_id};
print "CLIENT ID $clientID\n";


my $app = Common::RSApp->new(clientID => $clientID);

foreach my $record (@$VAR1)
{
	# Now, FIND THAT PRODUCT!!!!

	my $product = RPS::DB::Item::Product->Lookup
	(
		asset_id => $record->{mapping}{client_site_id},
		product_type_id => $record->{cm_product}{product_type_id},
	);

	if (! $product)
	{
		print "ERROR : can't find product for this record: " . Dumper($record) . "\n";
		next;
	}

	# Sanity check the upc
	# !!! Might need to move some state over.
	#
#	if ($product->upc_ean ne $record->{cm_product}{upc_ean}
#	 || $product->product_code ne $record->{cm_product}{product_code})
#	{
#		print "ERROR : these products don't appear to match: " . Dumper($product) . "\n" . Dumper($record) . "\n\n";
#	}


	# Check for dups - maybe we have this product mapped already?
	#
	my $dup = Common::DB::Item::ClientCMIDMap->Lookup(client_id => $clientID, client_site_id => $product->product_id, id_type=>'product_id');
	if ($dup)
	{
		print "WE HAVE THIS MAPPED: " . Dumper($dup) . "\n" . Dumper($product) . "\n" . Dumper($record) . "\n\n";
	}

	# Now make the mapping.
	#
	my $newMapping = Common::DB::Item::ClientCMIDMap->Create
	(
		client_id => $clientID,
		client_site_id => $product->product_id,
		cm_site_id => $record->{cm_product}{product_id},
		id_type => 'product_id',
	);
	$newMapping->save();
}