diff options
| author | anon | 2025-08-20 23:24:54 +0200 |
|---|---|---|
| committer | anon | 2025-08-20 23:24:54 +0200 |
| commit | efb00d45c75762bac1b89f07128d00909caebd8d (patch) | |
| tree | 504800e2ca3534865554ba68d4377456efedb42d /gorillanest.pl.cgi | |
| parent | 9e5210b13f0aaf159200a406d776b7cf41d3c0ec (diff) | |
| download | gorillanest-efb00d45c75762bac1b89f07128d00909caebd8d.tar.xz gorillanest-efb00d45c75762bac1b89f07128d00909caebd8d.tar.zst | |
end merge
Diffstat (limited to 'gorillanest.pl.cgi')
| -rw-r--r-- | gorillanest.pl.cgi | 15 |
1 files changed, 7 insertions, 8 deletions
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; } |
