From: Tim Pope <code@tpope.net>
Date: Sun, 9 Jul 2006 22:33:12 +0000 (+0000)
Subject: New logic for work
X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=commitdiff_plain;h=48457d80032cf5c9dfe03c3e28b53b55b6117ad3

New logic for work
---

diff --git a/perl/away-tpope b/perl/away-tpope
index c5bf12c..e4e7adb 100755
--- a/perl/away-tpope
+++ b/perl/away-tpope
@@ -195,7 +195,7 @@ sub do_chat {
 }
 
 sub eval_chat {
-    if(($state{'chat'}||'') eq "jmwaller") {
+    if(($state{'chat'}||'') eq "jmwaller" || ($state{'chat'}||'') eq "arwen") {
 	internal_out("Work",3*60*60);
     } elsif(($state{'chat'}||'') =~ /^tpope-\d+$/) {
 	internal_out("Work",3*60*60);