Changeset 401 for bot

Timestamp:

11/11/11 18:53:03 (12 years ago)

Author:

nanardon

Message:

• die if irc nick name is already in use

Location:

bot/trunk

Files:

• bin/sophie-bot (modified) (3 diffs)
• lib/Sophie/Bot/IRC.pm (modified) (1 diff)

bot/trunk/bin/sophie-bot

@@ -19 +19 @@
     'daemon' => \my $daemon,
     'runas=s' => \my $runas,
+    'pidfile=s' => \my $pidfile,
 
     # Command option:
@@ -41 +42 @@
     $proxy       ||= $config{proxy};
     $runas       ||= $config{runas};
+    $pidfile     ||= $config{pidfile};
 }
 
@@ -111 +113 @@
 }
 
+if ($pidfile) {
+    if (open(my $handle, '>', $pidfile)) {
+        print $handle $$ . "\n";
+        close($handle);
+    } else {
+    }
+}
+
 $sc->run;
 

bot/trunk/lib/Sophie/Bot/IRC.pm

@@ -41 +41 @@
         package_states => [
             ref($self)  => [ qw(_start irc_001 irc_public irc_msg ping_server
-                irc_pong) ],
+                irc_pong irc_433) ],
         ],
     );