#! /usr/bin/perl
# PODNAME: tapper-client
# ABSTRACT: cmdline frontend to Testcontrol.ssh

use strict;
use warnings;

use Sys::Hostname;
use Tapper::PRC::Testcontrol;
use Tapper::Installer::Base;

if (@ARGV and $ARGV[0] eq "stop") {
        exit 0;
}

use App::Daemon 'daemonize';
$App::Daemon::as_user = "root";
daemonize();

# bearable since it never really changes
my $logconf = 'log4perl.rootlogger = DEBUG, root
log4perl.appender.root             = Log::Log4perl::Appender::File
log4perl.appender.root.layout      = PatternLayout
log4Perl.appender.root.mode        = clobber
log4Perl.appender.root.filename    = /tmp/tapper-client.output
# date package category - message in  last 2 components of filename (linenumber) newline
log4perl.appender.Screen.layout.ConversionPattern = %d %p %c - %m in %F{2} (%L)%n';
Log::Log4perl::init(\$logconf);


my $client = Tapper::Installer::Base->new;
$client->system_install("ssh");

my $prc = new Tapper::PRC::Testcontrol;
$prc->run();


__END__
=pod

=encoding utf-8

=head1 NAME

tapper-client - cmdline frontend to Testcontrol.ssh

=head1 AUTHOR

AMD OSRC Tapper Team <tapper@amd64.org>

=head1 COPYRIGHT AND LICENSE

This software is Copyright (c) 2012 by Advanced Micro Devices, Inc..

This is free software, licensed under:

  The (two-clause) FreeBSD License

=cut

