#!/usr/bin/perl

use strict;
use lib '/app/tools/common/lib';
use Common::RSDB;

foreach my $clientID (keys %Common::RSDB::CLIENT_DB)
{
    my $clientData = $Common::RSDB::CLIENT_DB{$clientID};
    my $host = $clientData->{host_id};
    next unless ('rps01' eq $host || 'rps02' eq $host);

    print "getting client $clientID (".$clientData->{db_name} .") on host $host\n";

    my $extractCommand = "'perl /home/knott/rps_md_dump.pl $clientID > /home/knott/$clientID.md'";
    my $compressCommand = "/bin/gzip /home/knott/$clientID.md";
    my $copyCommand = "/usr/bin/scp knott@".$host.":/home/knott/$clientID.md.gz .";
    my $deleteCommand = "/bin/rm /home/knott/$clientID.md.gz";

    print "\t$extractCommand\n";
    system("ssh knott@".$host." $extractCommand");

    print "\t$compressCommand\n";
    system("ssh knott@".$host." $compressCommand");

    print "\t$copyCommand\n";
    system($copyCommand);

    print "\t$deleteCommand\n";
    system("ssh knott@".$host." $deleteCommand");
    
}