#! /usr/bin/perl
# PODNAME: tapper-automatic-test.pl
# ABSTRACT: cmdline frontend to Testcontrol.autoinstall
use strict;
use warnings;
use Sys::Hostname;
use Tapper::PRC::Testcontrol;
use Tapper::Installer::Base;
if (@ARGV and $ARGV[0] eq "stop") {
exit 0;
}
# bearable since it never really changes
my $logconf = 'log4perl.rootlogger = DEBUG, Screen
log4perl.appender.Screen = Log::Log4perl::Appender::Screen
log4perl.appender.Screen.layout = PatternLayout
# 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);
if (@ARGV and $ARGV[0] eq "autoinstall") {
my $client = Tapper::Installer::Base->new;
$client->system_install("autoinstall");
}
my $prc = new Tapper::PRC::Testcontrol;
$prc->run();
__END__
=pod
=encoding UTF-8
=head1 NAME
tapper-automatic-test.pl - cmdline frontend to Testcontrol.autoinstall
=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