liquid sample config

1 files changed, 39 insertions, 0 deletions

diff --git a/sampledata/liquid/transaction.sh b/sampledata/liquid/transaction.sh
new file mode 100755
index 00000000..cecee38a
--- /dev/null
+++ b/sampledata/liquid/transaction.sh
@@ -0,0 +1,39 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use IO::Socket::INET;
+
+# Auto-flush on socket
+$| = 1;
+
+# Creating a socket, connecting to the server
+my $socket = new IO::Socket::INET (
+    PeerHost => 'app',
+    PeerPort => '3119',
+    Proto => 'tcp',
+) or die "ERROR in Socket Creation : $!\n";
+
+my $txid = $ARGV[0] // die "txid not provided";
+my $wallet = $ARGV[1] // die "wallet not provided";
+
+# Define HTTP request
+my $json = "{\"txid\": \"$txid\", \"wallet\": \"$wallet\", \"type\": \"liquid\"}";
+my $request = "POST /confirm HTTP/1.1\r\n";
+$request .= "Host: app\r\n";
+$request .= "Content-Type: application/json\r\n";
+$request .= "Content-Length: " . length($json) . "\r\n";
+$request .= "Connection: close\r\n";
+$request .= "\r\n";
+$request .= $json;
+
+# Send request to server
+print $socket "$request";
+shutdown($socket, 1);
+
+# Read the response
+while (my $line = <$socket>) {
+    print $line;
+}
+
+# Close the socket
+$socket->close();