###################################################################
# Copyright (C) 2006 RoyaltyShare, Inc.  All Rights Reserved
# $Id$
###################################################################

package MediaServe::UnmatchedNotify;

use strict;
use warnings;

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

use lib '/app/tools/rps/lib';

use lib '/app/tools/mediaserve/lib';
use MediaServe::DB::Item::ProductTrackFile;
use MediaServe::DB::Item::AlbumFile;

use base qw( Common::CronScript );

sub _process {
    my ($self) = @_;

    my $report;
    my $unmatched = MediaServe::DB::Item::ProductTrackFile->GetUnmatchedFiles();

    while ( $unmatched->hasNext ) {
        my $track_file = $unmatched->next;
        $report .= "  Audio: $track_file->{filename}\n";
    }

    $unmatched = MediaServe::DB::Item::AlbumFile->GetUnmatchedFiles();

    while ( $unmatched->hasNext ) {
        my $track_file = $unmatched->next;
        $report .= "  Image: $track_file->{filename}\n";
    }

    if ($report) {
        my $client_id = Common::RSApp::GetClientID();
        $report = "Unmatched files found for client #$client_id (" . Common::RSDB::ClientIDToDBName($client_id) . ")\n\n$report\n";

        print $report;
    }
}

1;