#!/usr/bin/env perl
#
# vim: set ts=4:noet
#
# sboinstall
# script to install a SlackBuild by name
#
# author: Jacob Pipkin <j@dawnrazor.net>
# date: Pungenday, the 40th day of Discord in the YOLD 3178
# license: WTFPL <http://sam.zoy.org/wtfpl/COPYING>

use 5.12.3;
use strict;
use warnings FATAL => 'all';
use SBO::Lib;
use Getopt::Long qw(:config bundling);
use File::Basename;

my $self = basename ($0);

sub show_usage () {
	print <<EOF
Usage: $self [options] sbo

Options:
  -h|--help:
    this screen.
  -v|--version:
    version information.
  -c|--(no)clean:
    set whether or not to clean working files/directories after the build.                   
  -d|--(no)distclean:
   set whether or not to clean distfiles afterward. 
  -i|--noinstall:
    do not run installpkg at the end of the build process.
  -j|--jobs:
    specify "-j" setting to make, for multicore systems; overrides conf file.
  -p|--compat32:
    install an SBo as a -compat32 pkg on a multilib x86_64 system.
  -r|--nointeractive:
    non-interactive; skips README and all prompts.
  -R|--norequirements:
    view the README but do not parse requirements, commands, or options.

EOF
}

my $clean = $config{NOCLEAN} eq 'TRUE' ? 1 : 0;                                 
my $distclean = $config{DISTCLEAN} eq 'TRUE' ? 1 : 0;                           
my $jobs = $config{JOBS};
my ($help, $vers, $no_install, $non_int, $no_reqs, $compat32);

GetOptions (
	'help|h'			=> \$help,
	'version|v'			=> \$vers,
	'clean|c!'			=> \$clean,
	'distclean|d!'		=> \$distclean,
	'noinstall|i'		=> \$no_install,
	'jobs|j=s'			=> \$jobs,
	'compat32|p'		=> \$compat32,
	'nointeractive|r'	=> \$non_int,
	'norequirements|R'	=> \$no_reqs,
);

show_usage and exit 0 if $help;
show_version and exit 0 if $vers;

show_usage and exit 0 unless exists $ARGV[0];

# setup any options
unshift @ARGV, $clean ? '--noclean' : '-c';
unshift @ARGV, $distclean ? '-d' : '--distclean';
unshift @ARGV, '-n' if $no_install;
unshift @ARGV, '-i' if $non_int;
unshift @ARGV, '-R' if $no_reqs;
unshift @ARGV, '-p' if $compat32;
unshift @ARGV, "-j$jobs" if $jobs;

system '/usr/sbin/sboupgrade', '-oN', @ARGV;

exit 0;