X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FApp%2FDevbot.pm;h=d7cd700b47482b3ff191e5b1ec4308356343b9ee;hb=445eb54503fa217b3bd87272397ce1781ccaa843;hp=019bcc718eb5b7cfe75e33efceaa7b4d60c6341f;hpb=bb1da1df94cbd0a34ccca3df33fb3fb1e5f63f4e;p=app-devbot.git

diff --git a/lib/App/Devbot.pm b/lib/App/Devbot.pm
index 019bcc7..d7cd700 100644
--- a/lib/App/Devbot.pm
+++ b/lib/App/Devbot.pm
@@ -1,6 +1,9 @@
-package App::Devbot 0.001002;
+package App::Devbot;
+
 use v5.14;
+use strict;
 use warnings;
+our $VERSION = 0.001003;
 
 use POE;
 use POE::Component::IRC::State;
@@ -12,11 +15,10 @@ use IRC::Utils qw/parse_user/;
 
 use Getopt::Long;
 use POSIX qw/strftime/;
+use Regexp::Common qw /net/;
 
 ##################################################
 
-our $VERSION;
-
 my $nick='devbot';
 my $password;
 my $server='irc.oftc.net';
@@ -70,7 +72,14 @@ sub bot_start{
 	Retry_when_banned => 60,
   ));
 
-	$irc->yield(register => "all");
+  if ($server =~ /^($RE{net}{domain})$/) {
+      $server = $1;
+  }
+  if ($port =~ /^([0-9]+)$/) {
+      $port = $1;
+  }
+
+  $irc->yield(register => "all");
   $irc->yield(
 	connect => {
 	  Nick     => $nick,