+sub _build_uid {
+ my ($self) = @_;
+
+ my $query = $self->model->prepare(q{
+SELECT uid FROM users
+WHERE hostmask = $1
+ });
+ $query->execute($self->host);
+
+ if (my ($uid) = $query->fetchrow_array){
+ $query->finish;
+ return $uid;
+ }
+ return -4;
+}
+
+sub valuecolor {
+ shift @_;
+ my $s = $_;
+ $s = $_[1] if $#_ >= 1;
+ $s = "" unless defined $s;
+ return "<c05>$s</c>" if $s eq 'Hostile';
+ return "<c03>$s</c>" if $s eq 'Friendly';
+ return "<c12>$s</c>" if $s eq 'Nap' or $s eq 'NAP';
+ return "<b>$s</b>" if $_[0];
+ return $s;
+}