From 0b8665b5371d696e9a447eacfccfca0b434ef354 Mon Sep 17 00:00:00 2001
From: jake <jake@jakes-mail.top>
Date: Mon, 24 Jan 2022 23:30:11 -0500
Subject: Initial commit
---
.gitignore | 2 ++
gmi.pl | 73 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
index.gmi | 3 +++
3 files changed, 78 insertions(+)
create mode 100644 .gitignore
create mode 100755 gmi.pl
create mode 100644 index.gmi
diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..0efd2ee
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,2 @@
+# make your own certs
+*.pem
diff --git a/gmi.pl b/gmi.pl
new file mode 100755
index 0000000..36a9cd1
--- /dev/null
+++ b/gmi.pl
@@ -0,0 +1,73 @@
+#!/usr/bin/perl
+
+# this is a gemini server
+
+use strict;
+use warnings;
+#use diagnostics;
+
+our $VERSION = 'v0.0.1';
+
+# Modules
+use IO::Socket::SSL; # CPAN
+use URL::XS qw(parse_url split_url_path parse_url_query); # CPAN
+#use Term::ANSIColor; # Core
+#use Path::Naive qw(normalize_path); # CPAN
+use Smart::Comments; # CPAN
+#use URI::Encode qw(uri_encode); # CPAN
+use IO::Select;
+
+# sudo cpanm IO::Socket::SSL URL::XS Text::Wraper Path::Naive Term::ReadLine Smart::Comments URI::Encode
+
+my $srv = IO::Socket::SSL->new(
+ #SSL_server => 1,
+ LocalAddr => '0.0.0.0',
+ LocalPort => 1965,
+ Listen => 10,
+
+ SSL_cert_file => './cert.pem',
+ SSL_key_file => './key.pem',
+
+ SSL_fast_shutdown => 1,
+
+) or die "error=$!, ssl_error=$SSL_ERROR";
+
+while (1) {
+ my $cl = $srv->accept();
+
+ sysread($cl,my $data,1024);
+
+ my $clhost = $cl->peerhost();
+ my $clport = $cl->peerport();
+
+ print "Connection from $clhost:$clport - $data";
+ my $url;
+ my $path;
+ substr($data,-2,2,''); # removing \r\n
+ eval {
+ $url = parse_url($data);
+ };
+ $path = $url->{path};
+ my $doc;
+ ### $data
+ ### $url
+ ### $path
+ if ($path) {
+ # Note: this will serve ANYTHING including /etc/passwd and other sensitive files
+ open (my $FH ,'<', "./$path") or syswrite($cl,"51 Not Found\r\n") and $cl->close('SHUT_WR') and next;
+ while (<$FH>) {
+ $doc .= $_;
+ }
+ close ($FH);
+
+ syswrite($cl,"20 text/gemini\r\n$doc",0);
+ }
+ else {
+ syswrite($cl,"50 Failure\r\n");
+ $cl->close('SHUT_WR');
+ }
+
+ $cl->close('SHUT_WR');
+}
+
+$srv->close();
diff --git a/index.gmi b/index.gmi
new file mode 100644
index 0000000..58a92a0
--- /dev/null
+++ b/index.gmi
@@ -0,0 +1,3 @@
+# Hello world!
+
+This is a proper index.gmi file which my server should serve if it has been configured correctly.
--
cgit v1.2.3