Added the Network Monitor Code

monitor.cr

@@ -0,0 +1,27 @@
+# Kitten Info
+# Required Modules
+require "http/client"
+
+# Network Status
+client = HTTP::Client.new("google.com")
+
+# Set Timeouts to 1.5 seconds
+client.connect_timeout = 1.5
+client.dns_timeout = 1.5
+
+begin
+    response = client.get("/")
+    network = "Connected"
+rescue Socket::Error
+    # Disconnect due to DNS error and usually no network access
+    network = "Disconnected"
+rescue IO::Timeout
+    # Network Timeout
+    network = "Timeout"
+rescue errno
+    # Disconnect due unreachable host
+    network = "Disconnected"
+end
+
+#Print Information
+puts "Internet: " + network