This file is indexed.

/usr/share/perl5/XMLTV/GUI.pm is in libxmltv-perl 0.5.70-1.

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;