#!/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;
}
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: $!"
;
my $logconf =
"log4perl.rootlogger = DEBUG, root\n" .
"log4perl.appender.root = Log::Log4perl::Appender::File\n" .
"log4perl.appender.root.layout = PatternLayout\n" .
"log4Perl.appender.root.mode = clobber\n" .
"log4Perl.appender.root.filename = /tmp/tapper-client.log\n" .
"log4perl.appender.Screen.layout.ConversionPattern = %d %p %c - %m in %F{2} (%L)%n\n"
;
Log::Log4perl::init(\$logconf);
if ( defined($ENV{TAPPER_TEST_TYPE}) and
$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 AUTHORS
=over 4
=item *
AMD OSRC Tapper Team <tapper@amd64.org>
=item *
Tapper Team <tapper-ops@amazon.com>
=back
=head1 COPYRIGHT AND LICENSE
This software is Copyright (c) 2016 by Advanced Micro Devices, Inc..
This is free software, licensed under:
The (two-clause) FreeBSD License
=cut