This Almost Certainly Doesn't Work.

diff --git a/gorillanest b/gorillanest
index b36106812c73ec3f9138d178a3100b10bc443a96..ae86e60f91e329169ab47cacf43c02283cf687ac 100755 (executable)
--- a/gorillanest
+++ b/gorillanest
@@ -11,6 +11,7 @@ use Sys::Syslog;
 use Template;
 use URI::Escape;
 use Cwd;
+use Git::Repository;
 
 use Data::Dumper;
 sub info {
@@ -33,17 +34,16 @@ sub GN::directories {
     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;
+    my @users = @{GN::directories($root)};
+    my @directories = map { my $i = $_; map { join('/', $i, $_) } @{GN::directories(join('/', $root, $i))} } @users;
     if ($data{directories}) { $data{found} = 1; }
     return \%data;
 }
 
-sub GN::user { # /$username/
+sub GN::user { # /$username
     my ($root, $dataref) = @_;
     my %data = %$dataref;
     my @directories = @{GN::directories(join('/', $root, $data{username}))};
@@ -55,12 +55,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;
+    # one day
     return \%data;
 }
 
@@ -70,12 +65,14 @@ try {
     my $dbfile = 'gorillanest.sqlite3';
     my %data = (
         found => 0,
+        access => 0,
         );
     my $request = FCGI::Request();
     my $template = Template->new({INCLUDE_PATH => 'template'});
     my $head = 0;
     my $a_template;
     while($request->Accept() >= 0) {
+        $data{access} += 1;
         my $cgi = CGI->new;
         my %header = (
             -Content_Type => 'text/html',

diff --git a/template/index.tt b/template/index.tt
index 6c018d8b02df58076f3bc74002a5b6afee2c206c..aa48b16b11982582c1994088026288db70d4c157 100644 (file)
--- a/template/index.tt
+++ b/template/index.tt
@@ -6,6 +6,7 @@
 <h1>[% title %]</h1>
 <h2>[% description %]</h2>
 <ul>[% FOR i IN directories %]<li><a href="/[% i %]">/[% i %]</a></li>[% END %]</ul>
+<p>one million [% access %] xolatile's</p>
 </body>
 [% INCLUDE foot.tt %]
 </html>