has_term

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