From f090414dc8f5350aeeb2c853a7b4caddfa722cd2 Mon Sep 17 00:00:00 2001
From: "Denis(Difrex) Zheleztsov" <difrex.punk@gmail.com>
Date: Thu, 6 Nov 2014 12:45:38 +0300
Subject: [PATCH] Send fix

---
 iiplc.app | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/iiplc.app b/iiplc.app
index aab6029..94aa20c 100644
--- a/iiplc.app
+++ b/iiplc.app
@@ -169,6 +169,10 @@ my $push = sub {
     my $hash   = $req->param('hash');
 
     $config = $c->reload();
+    if ( $config->{host} =~ m/.+\,.+/ ) {
+        my @hosts = split( /,/, $config->{host} );
+        $config->{host} = $hosts[0];
+    }
     my $s = II::Send->new( $config, $echo, $base64 );
     $s->send($hash);