#!/usr/bin/perl
#------------------------------------------------------------ 
# Copyright (C) 2006 RoyaltyShare, Inc.   All Rights Reserved
#------------------------------------------------------------ 
use strict;

use Data::Dumper;
use File::Path;

use lib '/app/tools/common/lib';
use Common::DB::Item::Client;

# This script will copy (not move) all of the royalty statements from their current location
# to the new location on the shared drive.
#


my $origPath = '/app/data/royalty_statements/';
my $newPath = '/app/shared/royalty_statements/';

my @statementTypes = `ls -t $origPath`;

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

foreach my $type (@statementTypes)
{
    chomp($type);
    if ($type)
    {
        my $clientPath = $origPath.$type;      
        
        my @clientDirs = `ls $clientPath`;
        
        foreach my $clientID (@clientDirs)
        {
            
            chomp($clientID);
            # Translate client id to client name clean
            #
            my $client = Common::DB::Item::Client->Lookup(client_id => $clientID);
            if ($client)
            {
                my $clientName = $client->client_name_clean;        
                chomp($clientName);

		print STDERR "Copying statements for $clientName\n";
                          
                # Now we need to do some recursive copying from the old dir to the new one
                #        
                my $oldDir = $clientPath."/".$clientID."/*";
                my $newDir = $newPath.$type."/".$clientName;
                
                # First, create the new directory.
                #
                if (! -d $newDir)
                {
                    mkpath($newDir) or die "ERROR: Unable to create path $newDir: $!\n";
                }       
                
                # Now, put stuff it.
                #
                `cp -r $oldDir $newDir`; 
                
                # And finally, add the semaphores
                #
                my @runDirs = `ls $newDir`;
                
                foreach my $run (@runDirs)
                {
                    chomp($run);

                    _createEmptyFile($newPath.$type."/".$clientName."/".$run."/COMPLETE"); 
                    _createEmptyFile($newPath.$type."/".$clientName."/".$run."/TEXT_COMPLETE");                
                    
                }              
                
            }       
            
        }
	# !! This didn't work.
        # Oh, and make sure everything is writable by the group
        #
        #`chmod -R g+w $newPath`;        
        
    }
} 


sub _createEmptyFile {
    eval {
        open my $fh, '>', $_[0]
        or die "Cannot create $_[0]: $!\n";
        close $fh or die "Cannot close $_[0]: $!\n";
    };
    return $@;
}