use strict;

ReClean->start();

package ReClean;
use lib '/app/tools/common/lib';
use lib '/app/tools/rps/lib';

use Common::Log;
use Common::Util;
use Common::RSDB;
use Common::Client;
use RPS::DB::Item::Album;
use RPS::DB::Item::Track;
use RPS::DB::Item::Artist;

use base 'Common::Script';

#sub _options {{
#  client_id => {
#      short        => 'c',
#      required     => 1,
#      description  => 'Limit to this client id',
#      parameter    => 'i'
#  },
#}}

# We only want to run this for RPS clients.
#
sub _get_client_list {
    my $self = shift;

    my @list = $self->SUPER::_get_client_list();
    my @filteredList;
    foreach my $clientID (@list) {
        push @filteredList, $clientID if Common::RSDB::_isRPSClient($clientID);
    }

    return @filteredList;
}

sub _process {
    my $self = shift;

    # !!! debugging
    #
    my $client = Common::Client::Current();
    Common::Log::Print( "Processing: " . $client->ClientName() . "\t" . $client->ClientID() );

    $self->_reCleanAlbums();
    $self->_reCleanTracks();
    $self->_reCleanArtists();
}

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

    my $all = RPS::DB::Item::Album->GetAll();
    while ( my $album = $all->next() ) {
        $album->title_clean( Common::Util::clean_name_matching( $album->title() ) );
        $album->save();
    }
}

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

    my $all = RPS::DB::Item::Track->GetAll();
    while ( my $track = $all->next() ) {
        $track->title_clean( Common::Util::clean_name_matching( $track->title() ) );
        $track->save();
    }
}

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

    my $all = RPS::DB::Item::Artist->GetAll();
    while ( my $artist = $all->next() ) {
        $artist->name_clean( Common::Util::clean_name_matching( $artist->name() ) );
        $artist->save();
    }
}

1;