Changeset 858d094 for perl/lib/BarnOwl/Logging.pm

Timestamp:

Aug 5, 2017, 11:23:11 PM (7 years ago)

Author:

Jason Gross <jgross@mit.edu>

Children:

7553744

Parents:

ac4774f

git-author:

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

git-committer:

Jason Gross <jgross@mit.edu> (08/05/17 23:23:11)

Message:

Log to subfolders of a base path

A different subfolder for each protocol.

File:

• perl/lib/BarnOwl/Logging.pm (modified) (3 diffs)

perl/lib/BarnOwl/Logging.pm

@@ -89 +89 @@
                            . "is selected both incoming and outgoing messages are\n"
                            . "logged."
+        });
+
+    BarnOwl::new_variable_string('logbasepath',
+        {
+            default       => '~/zlog',
+            validsettings => '<path>',
+            summary       => 'path for logging non-zephyr messages',
+            description   => "Specifies a directory which must exist.\n"
+                           . "Each non-zephyr protocol gets its own subdirectory in\n"
+                           . "logbasepath, and messages get logged there."
         });
 
@@ -141 +151 @@
 This method calls C<log_filenames> on C<MESSAGE> to determine the list
 of filenames to which C<MESSAGE> gets logged.  All filenames are
-relative to C<MESSAGE->log_base_path>.  If C<MESSAGE->log_to_all_file>
+relative to C<MESSAGE->log_path>.  If C<MESSAGE->log_to_all_file>
 returns true, then the filename C<"all"> is appended to the list of
 filenames.
@@ -153 +163 @@
     my @filenames = $m->log_filenames;
     push @filenames, 'all' if $m->log_to_all_file;
-    return map { sanitize_filename($m->log_base_path, $_) } @filenames;
+    return map { sanitize_filename($m->log_path, $_) } @filenames;
 }