#!/usr/bin/perl
use strict;

use Data::Dumper;
use lib '/app/tools/common/lib';
use lib '/app/tools/bookpub/lib';

use Common::RSApp;
use Common::Client;
use Common::RSDB;

foreach my $clientID ( Common::RSDB::GetAllRPSClientIDs() ) {
    my $app = Common::RSApp->new( clientID => $clientID );
    my $clientInfo = Common::Client->new( clientID => $clientID );
    my $clientName = $clientInfo->ClientName();

    print "$clientName\n";
    my $dbo = Common::RSApp::GetClientDB();
    $dbo->DoCmd("UPDATE service SET service_name='Rhapsody',service_name_clean='rhapsody' WHERE service_id=8");
}

# Might as well update RSCOMMON while we're at it.

print "RSCOMMON\n";
my $app = Common::RSApp->new( clientID => $clientID );
my $dbo = Common::RSApp::GetCommonDB();
$dbo->DoCmd("UPDATE service SET service_name='Rhapsody',service_name_clean='rhapsody' WHERE service_id=8");