#!/usr/bin/env perl

use strict;
use warnings;

use YAML::XS;
use File::Spec;

use MYDan::Util::ExpSSH;
use MYDan::Util::OptConf;

$|++;

$MYDan::Util::OptConf::THIS = 'util';
$MYDan::Util::ExpSSH::TIMEOUT = 86400;

=head1 SYNOPSIS

 $0 -aP /tmp/foo user@host:/tmp/bar

=cut

my $option = MYDan::Util::OptConf->load();
my %o      = $option->dump();

my $cmd = join ' ',map{ "'$_'" } @ARGV;

if ( $cmd =~ /\@/ )
{
    @o{qw( user host )} = $cmd =~ m{'([^\s]*?)\@([^\s^@]*?):}xms;
}
else
{
    ( $o{host} ) = $cmd =~ m{'([^\s]*?):}xms;
}

die "nohost.\n" unless $o{host};

MYDan::Util::ExpSSH->new()->conn(
    pass  => "$o{conf}/pass",
    user  => $o{user},
    host  => $o{host},
    rsync => $cmd,
);
