#! /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;

# when we run from /etc/init.d tapper might be called at shutdown again
# make sure it's not executed at this point
if (@ARGV and $ARGV[0] eq "stop") {
        exit 0;
}


my $pid = fork();
if ($pid == 0) {
        open (STDOUT, ">", "/tmp/tapper-client.stdout") or die "Can't open output file /tmp/tapper-client.stdout: $!";
        open (STDERR, ">", "/tmp/tapper-client.stderr") or die "Can't open output file /tmp/tapper-client.stderr: $!";

        # 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.log
# 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);
#        no warnings 'uninitialized';
        if ($ENV{TAPPER_TEST_TYPE} eq 'ssh') {
                my $client = Tapper::Installer::Base->new;
                $client->system_install("ssh");
        }
        my $prc = Tapper::PRC::Testcontrol->new;
        $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