1 # Author: Martin Matusiak <numerodix@gmail.com>
2 # Licensed under the GNU Public License, version 3.
9 our @EXPORT = qw(s_err s_ok s_wa s_est s_ela s_eta s_b s_bb s_it s_it2);
12 my ($black, $red, $green, $yellow, $blue, $magenta, $cyan, $white);
13 my ($bold, $reverse, $reset);
15 if (($ENV{'TERM'} ne "") and ($ENV{'TERM'} ne "dumb")) {
23 $magenta = "\e[0;35m";
27 if ($ENV{'TERM'} eq "xterm") {
38 sub s_err
{ return $red . $_[0] . $reset; }
39 sub s_ok
{ return $green . $_[0] . $reset; }
40 sub s_wa
{ return $yellow . $_[0] . $reset; }
41 sub s_est
{ return $cyan . $_[0] . $reset; }
43 sub s_ela
{ return $magenta . $_[0] . $reset; }
44 sub s_eta
{ return $magenta . $reverse . $_[0] . $reset; }
46 sub s_b
{ return $bold . $_[0] . $reset; }
47 sub s_bb
{ return $green . $_[0] . $reset; }
48 sub s_it
{ return $yellow . $_[0] . $reset; }
49 sub s_it2
{ return $cyan . $_[0] . $reset; }