/usr/share/perl5/XMLTV/GUI.pm is in libxmltv-perl 0.5.63-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 | =pod
=head1 NAME
XMLTV::GUI - Handles the choice of UI for XMLTV
=head1 SYNOPSIS
use XMLTV::GUI;
my $gui_type = get_gui_type($opt_gui);
where $opt_gui is the commandline option given for --gui and $gui_type is
one of 'term+progressbar', 'term' and 'tk'.
Determines the type of output the user has requested for XMLTV to communicate
through.
=head1 AUTHOR
Andy Balaam, axis3x3@users.sourceforge.net. Distributed as part of the xmltv package.
=head1 SEE ALSO
L<XMLTV>
=cut
package XMLTV::GUI;
use strict;
use vars qw(@ISA @EXPORT_OK);
use Exporter;
@ISA = qw(Exporter);
@EXPORT_OK = qw(get_gui_type);
# Use Log::TraceMessages if installed, and choose graphical or not.
BEGIN {
eval { require Log::TraceMessages };
if ($@) {
*t = sub {};
*d = sub { '' };
}
else {
*t = \&Log::TraceMessages::t;
*d = \&Log::TraceMessages::d;
}
}
sub get_gui_type( $ ) {
my $opt_gui = shift;
# If the user passed in a --gui option, work on that basis, otherwise use
# the environment variable
if (defined $opt_gui) {
return _get_specified_gui_type($opt_gui);
} else {
return _get_specified_gui_type($ENV{XMLTV_GUI});
}
}
sub _get_specified_gui_type( $ ) {
my $spec_gui = shift;
# Return the best match to the specified gui if it is available
# If we haven't got windows, or we were asked for terminal, we do
# terminal stylee.
if ( !_check_for_windowing_env()
or !defined($spec_gui)
or $spec_gui =~ /^term/i) {
# Check whether we at least have the terminal progress bar
if (defined($spec_gui) && $spec_gui =~ /^termnoprogressbar$/i
or !eval{ require Term::ProgressBar }) {
return 'term';
} else {
return 'term+progressbar';
}
# Now try Tk first
} elsif ( $spec_gui eq '' or $spec_gui =~ /^tk$/i or $spec_gui eq '1' ) {
if ( _check_for_tk() ) {
return 'tk';
} else {
warn "The Tk gui library is unavailable. Reverting to terminal";
return 'term';
}
# And finally give up and go to terminal
} else {
warn "Unknown gui type requested: '$spec_gui'. Reverting to terminal";
return 'term';
}
}
sub _check_for_windowing_env() {
return defined($ENV{DISPLAY}) || $^O eq 'MSWin32';
}
sub _check_for_tk() {
return eval{ require Tk && require Tk::ProgressBar };
}
1;
|