Changeset 1598 in genapp for etc/bp

Timestamp:

Nov 13, 2018, 6:44:56 PM (4 years ago)

Author:

ehb

Message:

Updated genapp to latest genappalpha

File:

• etc/bp/perl (modified) (4 diffs)

etc/bp/perl

@@ -56 +56 @@
 }
 
-$ref = decode_json( shift );
+$req = decode_json( shift );
 
 ## messaging setup
@@ -68 +68 @@
     };
 
-    my $domsg = $$ref{ "_uuid" } && $$ref{ "_udpport" } && $$ref{ "_udphost" };
+    my $domsg = $$req{ "_uuid" } && $$req{ "_udpport" } && $$req{ "_udphost" };
 
     my $sock;
-    $sock = IO::Socket::INET->new( Proto => 'udp', PeerPort => $$ref{ "_udpport" }, PeerAddr => $$ref{ "_udphost" } ) if $domsg;
+    $sock = IO::Socket::INET->new( Proto => 'udp', PeerPort => $$req{ "_udpport" }, PeerAddr => $$req{ "_udphost" } ) if $domsg;
 
     sub sendmsg {
@@ -81 +81 @@
         if ( length( $text ) || length( $prog ) ) {
             my $msg  = {};
-            $$msg{ "_uuid" } = $$ref{ "_uuid" };
+            $$msg{ "_uuid" } = $$req{ "_uuid" };
             $$msg{ "_textarea" } = $text if length( $text );
             $$msg{ "_progress" } = $prog if length( $prog );
@@ -118 +118 @@
     print OUT "$0\n";
     print OUT "--- input ---\n";
-    print OUT Dumper($ref);
+    print OUT Dumper($req);
     print OUT "--- output ---\n";
     print OUT Dumper($res);