New logic for work
authorTim Pope <code@tpope.net>
Sun, 9 Jul 2006 22:33:12 +0000 (22:33 +0000)
committerTim Pope <code@tpope.net>
Sun, 9 Jul 2006 22:33:12 +0000 (22:33 +0000)
perl/away-tpope

index c5bf12c..e4e7adb 100755 (executable)
@@ -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);