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 From efb00d45c75762bac1b89f07128d00909caebd8d Mon Sep 17 00:00:00 2001 From: anon Date: Wed, 20 Aug 2025 23:24:54 +0200 Subject: end merge --- gorillanest.pl | 121 ----------------------------------------------------- gorillanest.pl.cgi | 15 ++++--- 2 files changed, 7 insertions(+), 129 deletions(-) delete mode 100755 gorillanest.pl (limited to 'gorillanest.pl.cgi') diff --git a/gorillanest.pl b/gorillanest.pl deleted file mode 100755 index 53d3a9d..0000000 --- a/gorillanest.pl +++ /dev/null @@ -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(); diff --git a/gorillanest.pl.cgi b/gorillanest.pl.cgi index 565fd6f..c964c8f 100644 --- a/gorillanest.pl.cgi +++ b/gorillanest.pl.cgi @@ -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; } -- cgit v1.2.3