Changeset 74 for client/trunk/bin/sophie

Timestamp:

12/05/10 05:45:54 (13 years ago)

Author:

nanardon

Message:

• add IRC support

File:

• client/trunk/bin/sophie (modified) (1 diff)

client/trunk/bin/sophie

@@ -4 +4 @@
 use warnings;
 use Sophie::Client;
+use Getopt::Long;
+use Pod::Usage;
 
-my $sc = Sophie::Client->new();
+GetOptions(
+    'u=s' => \my $url,
+    'l=s' => \my $login,
+    'p=s' => \my $pass,
+    't=s' => \my $type,
+    'd=s' => \my @options,
+) or pod2usage;
+
+my %options;
+foreach (@options) {
+    m/([^=]+)\s*=\s*(.*)/ or next;
+    $options{$1} = $2;
+}
+
+my $sc = Sophie::Client->new(
+    server => $url,
+    login => $login,
+    password => $pass,
+    type => $type,
+);
 
 $sc->run;