From 8234345a00d14fee2b5ca18466f19d2df4b4a5c7 Mon Sep 17 00:00:00 2001
From: Andinus <andinus@nand.sh>
Date: Wed, 2 Feb 2022 12:34:38 +0530
Subject: Initial commit

- Initialize the project with PrimeVue for UI.
---
 server/.gitignore   |  5 +++++
 server/service.raku | 33 +++++++++++++++++++++++++++++++++
 2 files changed, 38 insertions(+)
 create mode 100644 server/.gitignore
 create mode 100644 server/service.raku

(limited to 'server')

diff --git a/server/.gitignore b/server/.gitignore
new file mode 100644
index 0000000..35e5575
--- /dev/null
+++ b/server/.gitignore
@@ -0,0 +1,5 @@
+# Caches
+.precomp
+
+# Backup files
+*~
diff --git a/server/service.raku b/server/service.raku
new file mode 100644
index 0000000..2a41f5b
--- /dev/null
+++ b/server/service.raku
@@ -0,0 +1,33 @@
+use Cro::HTTP::Server;
+use Cro::HTTP::Router;
+use Cro::HTTP::Log::File;
+
+unit sub MAIN(
+    Bool :$debug = True, #= enable debug mode
+);
+
+my $application = route {
+};
+
+my $host = 0.0.0.0;
+my $port = 9090;
+
+my Cro::Service $http = Cro::HTTP::Server.new(
+    http => <1.1>,
+    host => $host,
+    port => $port,
+    :$application,
+    after => [
+              Cro::HTTP::Log::File.new(logs => $*OUT, errors => $*ERR)
+          ]
+);
+$http.start;
+put "Listening at http://{$host}:{$port}";
+
+react {
+    whenever signal(SIGINT) {
+        say "Shutting down...";
+        $http.stop;
+        done;
+    }
+}
-- 
cgit 1.4.1-2-gfad0