source: genapp/etc/bp/perl @ 521

#!/usr/bin/perl

# user defines

# uncomment below to create a logfile
$save_in_log = "/tmp/__moduleid__.log";

# uncomment below to enable messaging
# $enable_msg = 1;

use JSON;

if ( !@ARGV )
{
    print "\{\"error\":\"__moduleid__ called with no arguments\"\}\n";
    exit;
}

$ref = decode_json( shift );

## messaging setup

sub sendmsg {};

if ( $enable_msg ) {

    use IO::Socket;

    my $domsg = $$ref{ "_uuid" } && $$ref{ "_udpport" } && $$ref{ "_udphost" };

    my $sock;
    $sock = IO::Socket::INET->new( Proto => 'udp', PeerPort => $$ref{ "_udpport" }, PeerAddr => $$ref{ "_udphost" } ) if $domsg;

    sub sendmsg {
        return if !$domsg;
        my $text = $_[0];
        my $prog = $_[1];
        print "sendmsg: $prog $text\n" if $debug;

        if ( length( $text ) || length( $prog ) ) {
            my $msg  = {};
            $$msg{ "_uuid" } = $$ref{ "_uuid" };
            $$msg{ "_textarea" } = $text if length( $text );
            $$msg{ "_progress" } = $prog if length( $prog );
            $sock->send( encode_json( $msg ) );
        }
    }
}


## format inputs for replacement
sub formatinput {
    my $x    = $_[0];
    my $dec  = $_[1];
    my $mlen = $_[2];
    my $fmt  = "\%.${mlen}f";
    my $out  = sprintf( $fmt, $x );
    $out = substr( $out, 0, $mlen );
    $out .= '0'x( $mlen - length( $out ) );
    $out;
}

$res = {};

# assemble output

$$res{ "note" } = "__moduleid__ executable";


if ( length( $save_in_log ) ) {
    use Data::Dumper;

    open OUT, ">>$save_in_log";
    print OUT "-"x20 . "\n";
    print OUT `date`;
    print OUT "$0\n";
    print OUT "--- input ---\n";
    print OUT Dumper($ref);
    print OUT "--- output ---\n";
    print OUT Dumper($res);
    print OUT "-"x20 . "\n";
    close OUT;
}

print encode_json( $res ) . "\n";