#------------------------------------------------------------
# Copyright (C) 2006 RoyaltyShare, Inc.   All Rights Reserved
# $Id$
#------------------------------------------------------------
#!/usr/bin/perl

use strict;

use lib '/app/tools/common/lib';
use Common::RSApp;

use lib '/app/tools/rps/lib/';
use RPS::DB::Item::TrackLicense;
use RPS::DB::Item::ControlledCompositionLicense;

create_licenses();

sub create_licenses {

    # Instantiate the application singleton object.
    #
    my $clientID = $ARGV[0];
    unless ( $clientID =~ /^\d+$/ && $clientID > 0 ) {
        die usage("You must specify a valid client ID");
    }

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

    my $trackLicenses = RPS::DB::Item::TrackLicense->GetByType(RPS::DB::Item::TrackLicense::kControlledComposition);
    my $count         = 0;
    while ( $trackLicenses->hasNext() ) {
        my $trkLicense = $trackLicenses->next();

        my $newCCompLic = RPS::DB::Item::ControlledCompositionLicense->Create();
        $newCCompLic->controlled_composition_id( $trkLicense->id );
        $newCCompLic->save();

        $trkLicense->id( $newCCompLic->controlled_composition_license_id );
        $trkLicense->save();
        $count++;
    }
    print "Created $count controlled comp licenses.\n";
}

sub usage {
    my $errstr = shift;
    my $text = ($errstr) ? "ERROR: $errstr\n" : '';
    $text .= "Usage: $0 <clientID>\n";
    return $text;
}