From ea53711cc48e4e5e85eb2837160d55d177414be6 Mon Sep 17 00:00:00 2001
From: Emil Williams <emilemilemil@cock.li>
Date: Sun, 17 Aug 2025 12:48:54 +0000
Subject: [PATCH] Things Have Changed, They Rumor

---
 gorillanest | 24 ++++++++++++++----------
 1 file changed, 14 insertions(+), 10 deletions(-)

diff --git a/gorillanest b/gorillanest
index ed60fb8..baa196e 100755
--- a/gorillanest
+++ b/gorillanest
@@ -34,23 +34,21 @@ sub GN::directories {
 
 # probably should output all repos recursively, currently just outputs list of users
 sub GN::index { # /
-    my ($template, $root, $dataref) = @_;
+    my ($root, $dataref) = @_;
     my %data = %$dataref;
-    print "* index\n";
     my @directories = @{GN::directories($root)};
-    print "@directories\n";
+    return \@directories;
 }
 
 sub GN::user { # /$username/
-    my ($template, $root, $dataref) = @_;
+    my ($root, $dataref) = @_;
     my %data = %$dataref;
-    print "* user: $data{name}\n";
     my @directories = @{GN::directories(join('/', $root, $data{name}))};
-    print "@directories\n";
+    return \@directories;
 }
 
 sub GN::repository { # /$username/(.*?(\.git)?)
-    my ($template, $root, $dataref) = @_;
+    my ($root, $dataref) = @_;
     my %data = %$dataref;
     print "* repository: $data{repository}\n";
     my @directories = @{GN::directories(join('/', $root, $data{name}, $data{repository}))};
@@ -102,13 +100,19 @@ try {
             if ($head) { $head = 0; continue; }
             if ($uri eq '/') {
                 print $cgi->header(%header);
-                GN::index($template, $gitroot, \%data);
+                print "* Index\n";
+                my @directories = @{GN::index($gitroot, \%data)};
+                print "@directories\n";
             } elsif ($data{repository}) { # this will generally fail
                 print $cgi->header(%header);
-                GN::repository($template, $gitroot, \%data);
+                print "* Repository\n";
+                my @directories = @{GN::repositories($gitroot, \%data)};
+                print "@directories\n";
             } elsif ($data{name}) { # this acts like a default case
                 print $cgi->header(%header);
-                GN::user($template, $gitroot, \%data);
+                print "* User: $data{name}\n";
+                my @directories = @{GN::user($gitroot, \%data)};
+                print "@directories\n";
             } else {
                 $header{-status} = '404 Not Found';
                 print $cgi->header(%header);
-- 
2.39.5