sanoid-portable.pl

#!/usr/bin/perl
use strict;
use warnings;
use FindBin;
use Getopt::Long;
use JSON::PP;

open my $versions_json_file, '<', "$FindBin::Bin/../lib/versions.json" or die "Can't open versions.json: $!";
my $versions_json = do { local $/; <$versions_json_file> };
close $versions_json_file;

my $versions = decode_json($versions_json);
my $sanoid_version = $versions->{'Sanoid'};
my $packaging_revision = $versions->{'PackagingRevision'};
my $apperl_version = $versions->{'APPerl'};
my $sanoid_portable_version = "$sanoid_version-$packaging_revision";
my $perl_version = $^V; # Built-in variable for Perl version

my $usage = <<'EOF';
This binary executes sanoid, syncoid, or findoid based on the name of the symbolic link invoked.

Create symbolic links to use the different tools:
    ln -s sanoid-portable sanoid
    ln -s sanoid-portable syncoid
    ln -s sanoid-portable findoid

Make sure to make sanoid-portable executable:
    chmod +x sanoid-portable

Then invoke the symlink:
    ./sanoid --help
    ./syncoid --help
    ./findoid --help

Options:
    -V, --version   Print version information and exit
    -h, --help      Print this help message and exit

EOF

my $all_versions = <<"EOF";
sanoid-portable: $sanoid_portable_version
sanoid: $sanoid_version
Perl: $perl_version
APPerl: $apperl_version
EOF

# Parse command-line options
my $print_version_only = 0;
my $print_help = 0;
GetOptions(
    'V|version' => \$print_version_only,
    'h|help' => \$print_help
);

if ($print_version_only) {
    print "$sanoid_portable_version\n";
    exit 0;
}

print $usage;
print "$all_versions\n";