File Coverage

blib/lib/App/MHFS.pm

Criterion	Covered	Total	%
statement	17	38	44.7
branch	0	16	0.0
condition			n/a
subroutine	6	7	85.7
pod	0	1	0.0
total	23	62	37.1

package App::MHFS v0.7.0;
use 5.014;
use strict; use warnings;
use feature 'say';
use Getopt::Long qw(GetOptions);
use MHFS::HTTP::Server;
Getopt::Long::Configure qw(gnu_getopt);
our $VERSION;

our $USAGE = "Usage: $0 ".<<'END_USAGE';
[-h|--help] [-v|--version] [--flush] [--cfgdir ] [--appdir ]
  [--fallback_data_root ]
Media Http File Server - Stream your own music and video library via your
browser and standard media players.

All options are optional, provided to override settings.pl and defaults
--flush               turn on autoflush for STDOUT and STDERR
--cfgdir              location of configuration directory, will be created if
  it does not exist
--appdir              location of application static files
--fallback_data_root  location to fallback to if setting isn't found instead of
  $HOME or $APPDIR\mhfs
-h|--help             print this message
-v|--version          print version
END_USAGE

sub run {
    binmode(STDOUT, ":utf8");
    binmode(STDERR, ":utf8");

    # parse command line args into launchsettings
    my %launchsettings;
    my ($flush, $cfgdir, $fallback_data_root, $appdir, $help, $versionflag, $debug);
    if(!GetOptions(
        'flush' => \$flush,
        'cfgdir=s' => \$cfgdir,
        'fallback_data_root=s' => \$fallback_data_root,
        'appdir=s' => \$appdir,
        'help|h' =>\$help,
        'version|v' => \$versionflag,
        'debug|d' => \$debug,
    )) {
        print STDERR "$0: Invalid param\n";
        print STDERR $USAGE;
        exit(1);
    }

    if($help) {
        print $USAGE;
        exit 0;
    }
    elsif($versionflag) {
        print __PACKAGE__." $VERSION";
        exit 0;
    }
    say __PACKAGE__ .": parsed command line args";

    $launchsettings{flush} = $flush if($flush);
    $launchsettings{CFGDIR} = $cfgdir if($cfgdir);
    $launchsettings{FALLBACK_DATA_ROOT} = $fallback_data_root if($fallback_data_root);
    $launchsettings{APPDIR} = $appdir if($appdir);
    $launchsettings{debug} = $debug if ($debug);

    # start the server (blocks)
    say __PACKAGE__.": starting MHFS::HTTP::Server";
    my $server = MHFS::HTTP::Server->new(\%launchsettings,
    ['MHFS::Plugin::MusicLibrary',
    'MHFS::Plugin::GetVideo',
    'MHFS::Plugin::VideoLibrary',
    'MHFS::Plugin::Youtube',
    'MHFS::Plugin::BitTorrent::Tracker',
    'MHFS::Plugin::OpenDirectory',
    'MHFS::Plugin::Playlist',
    'MHFS::Plugin::Kodi',
    'MHFS::Plugin::BitTorrent::Client::Interface'],
    );
}

1;

__END__