From 44b0e7d9a131f203e1d103af21d240f346b9a418 Mon Sep 17 00:00:00 2001
From: anon
Date: Wed, 20 Aug 2025 23:17:32 +0200
Subject: dont waste my time

---
 gorillanest.pl.cgi | 105 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 105 insertions(+)
 create mode 100644 gorillanest.pl.cgi

(limited to 'gorillanest.pl.cgi')

diff --git a/gorillanest.pl.cgi b/gorillanest.pl.cgi
new file mode 100644
index 0000000..565fd6f
--- /dev/null
+++ b/gorillanest.pl.cgi
@@ -0,0 +1,105 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+use CGI;
+use Switch::Back;
+use Template;
+use URI::Escape;
+use Cwd;
+
+use Data::Dumper;
+sub info {
+    print STDERR join(' ', @_);
+}
+
+our $template = Template->new({INCLUDE_PATH => 'template'});
+
+# significant dirs only
+sub GN::directories {
+    my $root = $_[0];
+    opendir my $dir, $root or die "Cannot open directory '$root': $!";
+    my @directories;
+    my %drop = (
+        '.'  => 0,
+        '..' => 0,
+        );
+    foreach (readdir $dir) {
+        push(@directories, $_) if (-d join('/', $_[0], $_) && ($drop{$_} // 1));
+    }
+    closedir $dir;
+    return \@directories;
+}
+
+# probably should output all repos recursively, currently just outputs list of users
+sub GN::index { # /
+    my ($root, $dataref) = @_;
+    my %data = %$dataref;
+    my @directories = map { my $i = $_; map { join('/', $i, $_) } @{GN::directories(join('/', $root, $i))} } @{GN::directories($root)};
+    $data{directories} = \@directories;
+    if ($data{directories}) { $data{found} = 1; }
+    return \%data;
+}
+
+sub GN::user { # /$username/
+    my ($root, $dataref) = @_;
+    my %data = %$dataref;
+    my @directories = @{GN::directories(join('/', $root, $data{username}))};
+    $data{directories} = \@directories;
+    if ($data{directories}) { $data{found} = 1; }
+    return \%data;
+}
+
+sub GN::repository { # /$username/$repository
+    my ($root, $dataref) = @_;
+    my %data = %$dataref;
+    my $d = getcwd();
+    chdir(join('/', $root, $data{username}, $data{repository}));
+    warn 'sneed ' . getcwd() . "\n";
+    $data{log} = Dumper(split(/\n/, qx(git log --pretty=format:\'%H | %an | %ad | %s%x0a\'))); # It technically works # | tac | tr -s \'\n\'
+    chdir($d);
+    $data{found} = 1;
+    return \%data;
+}
+
+sub serve_template {
+    my ($file, @rest) = @_;
+    my %vars = @rest ? @rest : ();
+    
+    $template->process($file, \%vars)
+        or info("Template: " . $template->error());
+}
+
+my %routes = (
+    '/'                                   => sub { serve_template("index.tt", @_) },
+    '/~([a-zA-Z0-9_.]+)'                  => sub { serve_template("index_user.tt", @_) },
+    '/~([a-zA-Z0-9_.]+)/([a-zA-Z0-9_.]+)' => sub { serve_template("repository.tt", @_) },
+);
+
+my $public = 'git/public';
+my $dbfile = 'gorillanest.sqlite3';
+my %data = (
+    found => 0,
+);
+
+sub master {
+	my $cgi = CGI->new;
+	my %header = (
+		-Content_Type => 'text/html',
+		-charset      => 'UTF-8',
+		);
+	my $method = $ENV{'REQUEST_METHOD'} || '';
+	my $uri = $ENV{'REQUEST_URI'} || '/';
+
+	for my $pattern (keys %routes) {
+		if ($uri =~ m{^$pattern$}) {
+			my $handler = $routes{$pattern};
+			$handler->($uri, $1, $2, $3);
+		}
+	}
+
+	serve_template("404.tt"); # XXX missing code
+}
+
+master() if !caller; 1;
-- 
cgit v1.2.3