#!/usr/bin/perl

use strict;
use Getopt::Long 2.24; # OO style
use XTerm::Conf qw(xterm_conf xterm_conf_string);

my $f;
my $p = Getopt::Long::Parser->new;
$p->configure('pass_through');
$p->getoptions("f|force!" => \$f,
	       "version" => sub {
		   print "XTerm::Conf version $XTerm::Conf::VERSION\n";
	       },
	      );

if ($f) {
    print xterm_conf_string(@ARGV);
} else {
    xterm_conf(@ARGV);
}

=head1 NAME

xterm-conf - change configuration of a running xterm

=head1 SYNOPSIS

    xterm-conf [-f|-force] [options]

=head1 DESCRIPTION

See L<XTerm::Conf> for a complete option list.

Additionaly, B<xterm-conf> supports the B<-f> option to force a
terminal configuration change without checking the C<TERM> environment
variable before.

=head1 AUTHOR

Slaven ReziE<0x0107>

=head1 SEE ALSO

L<XTerm::Conf>.

=cut