has_term

   1 #!/usr/bin/perl
   2 #
   3 # has_term: Check for a valid TERM value.
   4 # Usage: has_term [<term>]
   5 # Exits: 0 if the TERM setting is valid.
   6 #        1 otherwise.
   7 # Example: has_term dtterm
   8 #
   9
  10 use Term::Cap;
  11
  12 # Quit.
  13 close STDERR;
  14
  15 # Don't be fooled by screen.
  16 delete $ENV{TERMCAP};
  17 Tgetent Term::Cap { TERM => $ARGV[0], OSPEED => 9600 } and exit 0;
  18 exit 100;