[385] in BarnOwl Developers
[D-O-H] r526 - trunk/conf.asedeno/owl/modules
daemon@ATHENA.MIT.EDU (asedeno@MIT.EDU)
Thu Oct 29 18:05:35 2009
Resent-From: nelhage@mit.edu
Resent-To: barnowl-dev-mtg@charon.mit.edu
To: dirty-owl-hackers@mit.edu
From: asedeno@MIT.EDU
Reply-to: dirty-owl-hackers@MIT.EDU
Date: Thu, 11 Jan 2007 18:29:39 -0500 (EST)
Author: asedeno
Date: 2007-01-11 18:29:39 -0500 (Thu, 11 Jan 2007)
New Revision: 526
Modified:
trunk/conf.asedeno/owl/modules/VT-asedeno.pl
Log:
Checking in some changes to my VT style.
Modified: trunk/conf.asedeno/owl/modules/VT-asedeno.pl
===================================================================
--- trunk/conf.asedeno/owl/modules/VT-asedeno.pl 2007-01-11 22:31:50 UTC (rev 525)
+++ trunk/conf.asedeno/owl/modules/VT-asedeno.pl 2007-01-11 23:29:39 UTC (rev 526)
@@ -344,18 +344,24 @@
# Deal with login/logout messages
if ($m->is_login())
{
- return sprintf("\@b(%-10.10s) %s \@b(%s)",
- "Jabber LOGIN",
+ my $show = $m->{show};
+ my $status = $m->{status};
+ my $appendStr = "";
+ $appendStr .= "$show" if ($show);
+ $appendStr .= ", $status" if ($status);
+ $appendStr = " ($appendStr)" if $appendStr;
+ return sprintf("\@b(%-10.10s) %s %s",
+ "LOGIN",
$time,
- $m->sender);
+ boldify($m->sender.$appendStr));
}
if ($m->is_logout())
{
- return sprintf("\@b(%-10.10s) %s \@b(%s)",
- "Jabber LOGOUT",
+ return sprintf("\@b(%-10.10s) %s %s",
+ "LOGOUT",
$time,
- $m->sender);
+ boldify($m->sender));
}
# Extract destination from message
@@ -584,15 +590,15 @@
my $hostStr = uc($m->host);
$hostStr =~ s/\.MIT\.EDU$// if $VT_Options{"stripMitEdu"};
- if ($hostAlone || (($strlen + 5 + length($hostStr)) >= $hostwidth))
+ if ($hostAlone || (($strlen + 4 + length($hostStr)) >= $hostwidth))
{
$body .= "\n";
- $body .= sprintf("%".($width - 1)."s",
+ $body .= sprintf("%".($width)."s",
" $hostSep $hostStr");
}
else
{
- $body .= " " x ($hostwidth - $strlen - 5 - length($hostStr));
+ $body .= " " x ($hostwidth - $strlen - 4 - length($hostStr));
$body .= " $hostSep $hostStr";
}
}
