Changeset 187

Timestamp:

12/25/10 20:49:58 (13 years ago)

Author:

nanardon

Message:

• allow to read config from a file

File:

• client/trunk/bin/sophie (modified) (2 diffs)

client/trunk/bin/sophie

@@ -6 +6 @@
 use Getopt::Long;
 use Pod::Usage;
+use Config::General;
 
 GetOptions(
+    'c=s' => \my $configfile,
     'u=s' => \my $url,
     'l=s' => \my $login,
@@ -20 +22 @@
     m/([^=]+)\s*=\s*(.*)/ or next;
     $options{$1} = $2;
+}
+
+$configfile ||= "$ENV{HOME}/.sophie.conf";
+
+if (my $conf = Config::General->new($configfile)) {
+    my %config = $conf->getall;
+    $url         ||= $config{url};
+    $login       ||= $config{login};
+    $pass        ||= $config{pass};
+    $daemon      ||= $config{daemon};
 }