#!/usr/bin/env perl

use strict;
use warnings;
use File::Spec;
use File::Basename 'dirname';
use Clustericious::Log;

use lib join '/', File::Spec->splitdir(dirname(__FILE__)), 'lib';
use lib join '/', File::Spec->splitdir(dirname(__FILE__)), '..', 'lib';

use Yars::Client;
use Clustericious::Client::Command;
use Log::Log4perl::CommandLine (':all', ':loginit' => <<"EOT");
           log4perl.rootLogger = WARN, Screen
           log4perl.appender.Screen = Log::Log4perl::Appender::ScreenColoredLevels
           log4perl.appender.Screen.layout = Log::Log4perl::Layout::PatternLayout
           log4perl.appender.Screen.layout.ConversionPattern = [%-5p] %d %F{1} (%L) %m %n
EOT

Clustericious::Client::Command->run(Yars::Client->new, @ARGV);

__END__

=head1 NAME

B<yarsclient> - Upload, download, and delete files to Yars.

=head1 SYNOPSIS

    # Send a file to Yars.
    yarsclient upload <filename>

    # Get the file back, write it to the current directory.
    yarsclient download <filename> <md5>

    # Put some content to somefilename.txt
    echo 'some content' | yarsclient put somefilename.txt

    # Get just the content back to stdout.
    yarsclient get <filename> <md5>

    # Delete the file from Yars.
    yarsclient remove <filename> <md5>

    # Check the status of all the yars hosts and disks.
    yarsclient servers_status

    # Check the usage of the disks, either from the configured host, or all hosts
    yarsclient disk_usage
    yarsclient disk_usage --all 1

    # Mark a disk down
    yarsclient set_status --host http://host1 --disk /acps/f101 --state down

    # Mark a disk up
    yarsclient set_status --host http://host2 --disk /acps/f101 --state up

    # Check a manifest file
    yarsclient check_manifest /my/dir/MANIFEST
    # Just emit "ok" or "not ok"
    yarsclient check_manifest -c /my/dir/MANIFEST
    # Also do a server side md5 check
    yarsclient check_manifest --show_corrupt 1 /my/dir/MANIFEST

=head1 DESCRIPTION

Command-line interface to Yars::Client.  Client for Yars.

=head1 AUTHORS

 Brian Duggan

 Marty Brandon

=head1 SEE ALSO

L<Yars::Client>

L<Clustericious::Client>

=cut