git://git.iain.cx/iain
/
profile.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Added git whereami alias.
[profile.git]
/
opt
/
bin
/
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;