if [ -n "$SSH_CONNECTION" -o -n "$SSH_CLIENT" ]; then
# figure out what color to use
COLOR=$(hostname|md5sum|perl -ne 'if (/^([a-f\d]{8})/) {
- my $num = unpack(q(L),pack(q(h*),$1));
+ my $num = unpack(q(L),pack(q(H*),$1));
my @col = map {(qq(0;${_}m),qq(1;${_}m))} 31..37;
- my $col = $col[$num%$#col];
+ my $col = $col[$num % @col];
if ($col eq q(0;36m)) {
$col = q(1;30m);
}