Changeset 1598 in genapp for etc/bp


Ignore:
Timestamp:
Nov 13, 2018, 6:44:56 PM (4 years ago)
Author:
ehb
Message:

Updated genapp to latest genappalpha

File:
1 edited

Legend:

Unmodified
Added
Removed
  • etc/bp/perl

    r1363 r1598  
    5656}
    5757
    58 $ref = decode_json( shift );
     58$req = decode_json( shift );
    5959
    6060## messaging setup
     
    6868    };
    6969
    70     my $domsg = $$ref{ "_uuid" } && $$ref{ "_udpport" } && $$ref{ "_udphost" };
     70    my $domsg = $$req{ "_uuid" } && $$req{ "_udpport" } && $$req{ "_udphost" };
    7171
    7272    my $sock;
    73     $sock = IO::Socket::INET->new( Proto => 'udp', PeerPort => $$ref{ "_udpport" }, PeerAddr => $$ref{ "_udphost" } ) if $domsg;
     73    $sock = IO::Socket::INET->new( Proto => 'udp', PeerPort => $$req{ "_udpport" }, PeerAddr => $$req{ "_udphost" } ) if $domsg;
    7474
    7575    sub sendmsg {
     
    8181        if ( length( $text ) || length( $prog ) ) {
    8282            my $msg  = {};
    83             $$msg{ "_uuid" } = $$ref{ "_uuid" };
     83            $$msg{ "_uuid" } = $$req{ "_uuid" };
    8484            $$msg{ "_textarea" } = $text if length( $text );
    8585            $$msg{ "_progress" } = $prog if length( $prog );
     
    118118    print OUT "$0\n";
    119119    print OUT "--- input ---\n";
    120     print OUT Dumper($ref);
     120    print OUT Dumper($req);
    121121    print OUT "--- output ---\n";
    122122    print OUT Dumper($res);
Note: See TracChangeset for help on using the changeset viewer.