#!/usr/bin/perl 
# (C) 2007 Michael Weinberger
# See http://wiki.contribs.org/Dirty_Tools for full documentation

use Getopt::Long;
my %opts;
my $getRes = GetOptions( 
	"dry-run"=>\$opts{'dry-run'},
	"ibay"=>\$opts{'ibay'},
	"compress"=>\$opts{'compress'},
	"copy"=>\$opts{'copy'},
);

( my $myself = $0) =~ s/.*\///;
$opts{'copy'} = ($myself eq 'dt-data-copy' or $opts{'copy'}) ? 1 : 0;

die "Usage: dt-data-sync [--dry-run] [--compress] [--ibay] source_server account|ibay\n       dt-data-copy [--dry-run] [--compress] [--ibay] source_server account|ibay\n" if( not $ARGV[1] ) ;
$server=$ARGV[0];
$source=$ARGV[1];
$dryrun= $opts{'dry-run'} ? 1 : 0;


$exit=0;

if( $opts{'ibay'} )
	{
	$datapath="/home/e-smith/files/ibays/$source";
	$b=`/sbin/e-smith/db accounts show|grep '=ibay\$'|/bin/sed 's/=.*//'`;
	chomp($b);
	@ibays=split( /\n/, $b );
	
	$b=`/usr/bin/ssh $server /sbin/e-smith/db accounts show|/bin/grep '=ibay\$'|/bin/sed 's/=.*//'`;
	chomp($b);
	@remote_ibays=split( /\n/, $b );

	printf "Ibay %s %s\n", $source, $dryrun ? "(dry run)" : "";

	@b= grep( /^$source$/, @ibays);
	if( not $b[0] )
		{
		print "Error: Ibay does not exist local\n";
		$exit=1;
		}
	@b= grep( /^$source$/, @remote_ibays);
	if( not $b[0] )
		{
		print "Error: Ibay does not exist remote\n";
		$exit=1;
		}
	
	if( not -d $datapath )
		{
		print "Error: local ibay dir does not exist\n";
		$exit=1;
		}
	
	if( system( "/usr/bin/ssh $server test -d $datapath" ) )
		{
		print "Error: remote ibay dir does not exist\n";
		$exit=1;
		}

	}
else
	{
	$datapath="/home/e-smith/files/users/$source";

	$u=`/sbin/e-smith/db accounts show|/bin/grep '=user\$'|/bin/sed 's/=.*//'`;
	chomp($u);
	@users=split( /\n/, $u );
	
	$u=`/usr/bin/ssh $server /sbin/e-smith/db accounts show|/bin/grep '=user\$'|/bin/sed 's/=.*//'`;
	chomp($u);
	@remote_users=split( /\n/, $u );

	printf "Account %s %s\n", $source, $dryrun ? "(dry run)" : "";

	@u= grep( /^$source$/, @users);
	if( not $u[0] )
		{
		print "Error: Account does not exist local\n";
		$exit=1;
		}
	@u= grep( /^$source$/, @remote_users);
	if( not $u[0] )
		{
		print "Error: Account does not exist remote\n";
		$exit=1;
		}
	
	if( not -d $datapath )
		{
		print "Error: local home dir does not exist\n";
		$exit=1;
		}
	
	if( system( "/usr/bin/ssh $server test -d $datapath" ) )
		{
		print "Error: remote home dir does not exist\n";
		$exit=1;
		}
	}


if( not $exit )
	{
	$rync_copy=$opts{'copy'}?"--update":"--delete-during";
	$rsync_dry=$dryrun ? "--dry-run" : "";
	$rsync_compress=$opts{'compress'} ? "--compress" : "";
	system( "/usr/bin/rsync $rsync_dry -av $rync_copy $rsync_compress --rsh='/usr/bin/ssh -o StrictHostKeyChecking=yes' $server:$datapath/ $datapath/" );
	print "Ok.\n";
	}