Changeset 171

Timestamp:

12/22/10 23:39:43 (13 years ago)

Author:

nanardon

Message:

• add daemon option

Location:

client/trunk

Files:

• bin/sophie (modified) (2 diffs)
• lib/Sophie/Client/IRC.pm (modified) (3 diffs)

client/trunk/bin/sophie

@@ -13 +13 @@
     't=s' => \my $type,
     'd=s' => \my @options,
+    'daemon' => \my $daemon,
 ) or pod2usage;
 
@@ -19 +20 @@
     m/([^=]+)\s*=\s*(.*)/ or next;
     $options{$1} = $2;
+}
+
+if ($daemon) {
+    my $pid = fork();
+
+    if (defined($pid)) {
+        if ($pid) {
+            # father, exiting;
+            exit(0);
+        } else {
+            # child
+        }
+    }
 }
 

client/trunk/lib/Sophie/Client/IRC.pm

@@ -8 +8 @@
 
 our $VERSION = '0.01';
-
-sub handle_message {
-    my ($self, $heap, $context, $message) = @_;
-
-    $self->submit_query($heap, $context, $message);
-}
 
 sub setup_server {
@@ -31 +25 @@
         Server   => $server,
         Ircname  => 'Rpm2sql',
-        Debug    => 1,
+        Debug    => 0,
     );
  
@@ -134 +128 @@
     my ($self, $heap, $var, $value) = @_;
 
-    $self->set_var($heap->{heap}{server} . '@' . $heap->{from},
+    $self->set_var($heap->{heap}{server} . '@' . lc($heap->{from}),
         { $var => $value });
 }