source: genapp/etc/bp/perl @ 419

Last change on this file since 419 was 419, checked in by ehb, 7 years ago

html5 input reattach, repeater enhancement step 1

File size: 497 bytes
Line 
1#!/usr/bin/perl
2
3use JSON;
4use Data::Dumper;
5
6if ( !@ARGV )
7{
8    print "\{\"error\":\"__moduleid__ called with no arguments\"\}\n";
9    exit;
10}
11
12$ref = decode_json( shift );
13
14$res = {};
15$$res{ "note" } = "__moduleid__ executable";
16
17open OUT, ">>/tmp/log";
18print OUT "-"x20 . "\n";
19print OUT `date`;
20print OUT "$0\n";
21print OUT "--- input ---\n";
22print OUT Dumper($ref);
23print OUT "--- output ---\n";
24print OUT Dumper($res);
25print OUT "-"x20 . "\n";
26close OUT;
27
28print encode_json( $res ) . "\n";
29
Note: See TracBrowser for help on using the repository browser.