Changeset 101aedb

Timestamp:

Jan 7, 2014, 6:02:23 PM (9 years ago)

Author:

Jason Gross <jgross@mit.edu>

Children:

50a3240

Parents:

c0d31b3

git-author:

Jason Gross <jgross@mit.edu> (02/16/13 23:30:26)

git-committer:

Jason Gross <jgross@mit.edu> (01/07/14 18:02:23)

Message:

Add IRC logging filename generation

Based on asedeno's comment
"For IRC I'd probably want a combination of network and (channel or
nick)."

File:

• perl/modules/IRC/lib/BarnOwl/Message/IRC.pm (modified) (1 diff)

perl/modules/IRC/lib/BarnOwl/Message/IRC.pm

@@ -92 +92 @@
 }
 
+# logging
+sub log_filenames {
+    my ($m) = @_;
+    die "IRC should not be handling non-IRC messages" if lc($m->type) ne "irc";
+    BarnOwl::error("IRC message without a network") if !defined($m->network) || $m->network eq '';
+    my $filename = lc($m->type) . ":" . lc($m->network);
+    if ($m->is_personal) {
+        if ($m->is_incoming) {
+            $filename .= ":" . $m->sender;
+        } elsif ($m->is_outgoing) {
+            $filename .= ":" . $m->recipient;
+        }
+    } else {
+        $filename .= ":" . $m->channel;
+    }
+    return ($filename);
+}
+
 1;