emil/gorillanest
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

end merge

Browse Source
This commit is contained in:
anon 2025-08-20 23:24:54 +02:00
parent 9e5210b13f
commit efb00d45c7
2 changed files with 7 additions and 129 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

121
gorillanest.pl
View File

@ -1,121 +0,0 @@
#!/usr/bin/env perl
use strict;
use warnings;
use CGI;
use FCGI;
use Switch::Back;
use Syntax::Keyword::Try;
use Template;
use URI::Escape;
use Cwd;
use Data::Dumper;
use Git::Repository;
use lib '.';
BEGIN { require 'config.pl'; }
sub info {
warn join(' ', @_);
}
# significant dirs only
sub GN::directories {
my $root = $_[0];
opendir my $dir, $root or die "Cannot open directory: $!";
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;
$data{found} = 0;
return \%data;
}
sub GN::main {
open STDERR, '>', '/tmp/gorillanest.log' or die "You Will Never Ever See This Message Hopefully: $!";
my $sock = FCGI::OpenSocket('/tmp/gorillanest.socket', 100);
try {
my $root = GIT_ROOT;
my $dbfile = DB_FILE;
my %data = (
found => 0,
access => 0,
);
my $request = FCGI::Request(\*STDIN, \*STDOUT, \*STDERR, \%ENV, $sock);
my $template = Template->new({INCLUDE_PATH => TEMPLATE_ROOT});
my $head = 0;
my $a_template;
while($request->Accept() >= 0) {
$data{access} += 1;
my $cgi = CGI->new;
my %header = (
-Content_Type => 'text/html',
-charset => 'UTF-8',
);
my $method = $ENV{'REQUEST_METHOD'} || '';
my $uri = $ENV{'REQUEST_URI'} || '/';
if ($method eq 'HEAD') {
$head = 1;
} elsif ($method eq 'GET') {
($data{username}, $data{repository}) = $uri =~ USER_REPOSITORY;
info("name:", $data{username} || '', "repo:", $data{repository} || '');
if ($uri eq '/') {
%data = %{GN::index($root, \%data)};
$a_template = "index.tt";
} elsif ($data{repository}) {
%data = %{GN::repository($root, \%data)};
$a_template = "repository.tt";
} elsif ($data{username}) {
%data = %{GN::user($root, \%data)};
$a_template = "index_user.tt";
}
if (!$data{found}) {
$header{-status} = '404 Not Found';
$a_template = "404.tt";
}
print $cgi->header(%header);
if ($head) { $head = 0; continue; }
$template->process($a_template, \%data) or info("Template: " . $template->error());
} else {
$header{-status} = '405 Method Not Allowed';
print $cgi->header(%header);
}
}
} catch ($error) {
info("Crashed: $error");
}
FCGI::CloseSocket($sock);
}
GN::main();

15
gorillanest.pl.cgi
View File

@ -8,10 +8,14 @@ use Switch::Back;
use Template;
use URI::Escape;
use Cwd;
use Data::Dumper;
use Git::Repository;
use lib '.';
BEGIN { require 'config.pl'; }
sub info {
print STDERR join(' ', @_);
warn join(' ', @_);
}
our $template = Template->new({INCLUDE_PATH => 'template'});
@ -54,12 +58,7 @@ sub GN::user { # /$username/
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;
$data{found} = 0;
return \%data;
}