#!/usr/bin/perl
#
# has_term: Check for a valid TERM value.
# Usage: has_term [<term>]
# Exits: 0 if the TERM setting is valid.
#        1 otherwise.
# Example: has_term dtterm
#

use Term::Cap;

# Quit.
close STDERR;

# Don't be fooled by screen.
delete $ENV{TERMCAP};
Tgetent Term::Cap { TERM => $ARGV[0], OSPEED => 9600 } and exit 0;
exit 100;