From ffe2a7f59ef7750dcb7476935608a3a5cc859673 Mon Sep 17 00:00:00 2001
From: Tsu-ba-me <ynho.li.aa.e@gmail.com>
Date: Fri, 21 May 2021 18:38:25 -0400
Subject: [PATCH] feat(cgi-bin): add boilerplate for get_networks

---
 cgi-bin/get_networks | 47 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)
 create mode 100644 cgi-bin/get_networks

diff --git a/cgi-bin/get_networks b/cgi-bin/get_networks
new file mode 100644
index 00000000..0bc7ba3c
--- /dev/null
+++ b/cgi-bin/get_networks
@@ -0,0 +1,47 @@
+#!/usr/bin/perl
+# 
+# This prints JSON formatted data about all networks within a specified anvil.
+# 
+
+use strict;
+use warnings;
+use Anvil::Tools;
+use Data::Dumper;
+use JSON;
+
+$| = 1;
+
+my $THIS_FILE           =  ($0 =~ /^.*\/(.*)$/)[0];
+my $running_directory   =  ($0 =~ /^(.*?)\/$THIS_FILE$/)[0];
+if (($running_directory =~ /^\./) && ($ENV{PWD}))
+{
+	$running_directory =~ s/^\./$ENV{PWD}/;
+}
+
+my $anvil = Anvil::Tools->new();
+
+$anvil->Get->switches;
+
+# Temporary; for debugging
+$anvil->Log->level({ set => 2 });
+
+$anvil->Database->connect;
+$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, secure => 0, key => "log_0132"});
+if (not $anvil->data->{sys}{database}{connections})
+{
+	# No databases, exit.
+	$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 0, 'print' => 1, priority => "err", key => "error_0003"});
+	$anvil->nice_exit({exit_code => 1});
+}
+
+# Read in any CGI variables, if needed.
+$anvil->Get->cgi();
+
+$anvil->Database->get_hosts();
+$anvil->Database->get_anvils();
+
+print $anvil->Template->get({file => "shared.html", name => "json_headers", show_name => 0})."\n";
+
+my $response_body = {};
+
+print JSON->new->utf8->encode($response_body)."\n";