#!/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");