#!/usr/bin/perl 

# Detect if Gtk3 is installed and start the corresponding version of GTK YouTube Viewer.

use File::Basename qw(dirname);
use File::Spec::Functions qw(catfile);

sub is_gtk3_available {

    if (-e "/usr/share/perl5/vendor_perl/Gtk3.pm") {
        return 1;
    }

    if (-e "/usr/share/perl5/site_perl/Gtk3.pm") {
        return 1;
    }

    if (-e "/usr/share/perl5/Gtk3.pm") {
        return 1;
    }

    eval { require Gtk3; 1 };
}

my $path = dirname(__FILE__);

my $gtk3_yv = catfile($path, 'gtk3-youtube-viewer');
my $gtk2_yv = catfile($path, 'gtk2-youtube-viewer');

if (-f $gtk3_yv and is_gtk3_available()) {
    exec($^X, $gtk3_yv, @ARGV);
}
else {
    exec($^X, $gtk2_yv, @ARGV);
}
