Changeset f417630 for perl

Timestamp:

Dec 26, 2011, 8:47:15 PM (13 years ago)

Author:

Kevin Riggle <kevinr@free-dissociation.com>

Children:

533b3a4

Parents:

ef4074b

git-author:

Kevin Riggle <kevinr@free-dissociation.com> (12/26/11 17:35:51)

git-committer:

Kevin Riggle <kevinr@free-dissociation.com> (12/26/11 20:47:15)

Message:

rename default config file to .owl/init.pl

motivations: to make clear that the config file is a perl script, which
runs before and is neither shadowed nor superceded by .owl/startup.

fix doc wording per andersk

more doc fixes from andersk

clean up the else-case logic, per andersk

File:

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

perl/lib/BarnOwl.pm

@@ -329 +329 @@
 our @all_commands;
 
-if(!$configfile && -f $ENV{HOME} . "/.barnowlconf") {
-    $configfile = $ENV{HOME} . "/.barnowlconf";
-}
-$configfile ||= $ENV{HOME}."/.owlconf";
+if(!$configfile) {
+    if (-f get_config_dir() . "/init.pl") {
+        $configfile = get_config_dir() . "/init.pl";
+    } elsif (-f $ENV{HOME} . "/.barnowlconf") {
+        $configfile = $ENV{HOME} . "/.barnowlconf";
+    } else {
+        $configfile = $ENV{HOME}."/.owlconf";
+    }
+}
 
 # populate global variable space for legacy owlconf files