Use a different escape sequence for magenta.
[profile.git] / 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;