New logic for work

diff --git a/perl/away-tpope b/perl/away-tpope
index c5bf12ce6ccc7dab9db02b89f79da044b858058e..e4e7adbad435bfcdee5d168e74d5ac9f0659b671 100755 (executable)
--- a/perl/away-tpope
+++ b/perl/away-tpope
@@ -195,7 +195,7 @@ sub do_chat {
 }
 
 sub eval_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);
        internal_out("Work",3*60*60);
     } elsif(($state{'chat'}||'') =~ /^tpope-\d+$/) {
        internal_out("Work",3*60*60);