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 RPS::DB::Item::Album;
use RPS::DB::Item::Track;
use RPS::DB::Item::Artist;
use RPS::DB::Item::Song;
use RPS::DB::Item::Master;

use base 'Common::Script';

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

sub _process {
    my $self = shift;

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

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

    my $all = RPS::DB::Item::Album->GetAll();

    while ( my $album = $all->next() ) {
        my $title = $album->title();
        $title =~ s/^\s+//;
        $title =~ s/\s+$//;

        if ( $title ne $album->title() ) {
            Log->warn( "album id: " . $album->album_id() . " : translating '" . $album->title() . "' to '$title'" );
            $album->title($title);
            $album->title_clean( Common::Util::clean_name($title) );
            $album->save();
        }
    }
}

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

    my $all = RPS::DB::Item::Track->GetAll();
    while ( my $track = $all->next() ) {
        my $title = $track->title();
        $title =~ s/^\s+//;
        $title =~ s/\s+$//;

        if ( $title ne $track->title() ) {
            Log->warn( "track id: " . $track->track_id() . " : translating '" . $track->title() . "' to '$title'" );
            $track->title($title);
            $track->title_clean( Common::Util::clean_name($title) );
            $track->save();
        }
    }
}

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

    my $all = RPS::DB::Item::Song->GetAll();
    while ( my $song = $all->next() ) {
        my $title = $song->title();
        $title =~ s/^\s+//;
        $title =~ s/\s+$//;

        if ( $title ne $song->title() ) {
            Log->warn( "song id: " . $song->song_id() . " : translating '" . $song->title() . "' to '$title'" );
            $song->title($title);
            $song->save();
        }
    }
}

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

    my $all = RPS::DB::Item::Master->GetAll();
    while ( my $master = $all->next() ) {
        my $title = $master->title();
        $title =~ s/^\s+//;
        $title =~ s/\s+$//;

        if ( $title ne $master->title() ) {
            Log->warn( "song id: " . $master->song_id() . " : translating '" . $master->title() . "' to '$title'" );
            $master->title($title);
            $master->save();
        }
    }
}

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

    my $all = RPS::DB::Item::Artist->GetAll();
    while ( my $artist = $all->next() ) {
        my $name = $artist->name();
        $name =~ s/^\s+//;
        $name =~ s/\s+$//;

        if ( $name ne $artist->name() ) {
            Log->warn( "artist id: " . $artist->artist_id() . " : translating '" . $artist->name() . "' to '$name'" );
            $artist->name($name);
            $artist->name_clean( Common::Util::clean_name($name) );
            $artist->save();
        }
    }
}

1;