aboutsummaryrefslogtreecommitdiff
path: root/gorillanest.pl.cgi
diff options
context:
space:
mode:
Diffstat (limited to 'gorillanest.pl.cgi')
-rw-r--r--gorillanest.pl.cgi15
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;
}