From 525c2e8dfd1603df08eded2ff5581602f4cc0852 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Sun, 11 Dec 2016 12:21:39 -0800
Subject: [PATCH] fix basename

---
 index.cgi | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/index.cgi b/index.cgi
index 7035f47..d357012 100755
--- a/index.cgi
+++ b/index.cgi
@@ -6,10 +6,12 @@ use strict;
 use CGI::Simple;
 use File::Find;
 use File::stat;
+use File::Basename qw(dirname);
+use POSIX;
 
 my $q = CGI::Simple->new({num=>100});
 
-my $cat_dir = '/home/don/debian/.cat/';
+my $cat_dir = dirname($ENV{SCRIPT_FILENAME});
 
 
 my %pics;
@@ -37,10 +39,10 @@ EOF
 my $num = 0;
 my $previous_date = '';
 for my $pic (sort {$pics{$b}->ctime <=> $pics{$a}->ctime} keys %pics) {
-    my $this_date = POSIX::strftime('%Y-%m-%d',time($pics{$pic}->ctime));
+    my $this_date = POSIX::strftime('%Y-%m-%d',localtime($pics{$pic}->ctime()));
     if ($previous_date ne $this_date){
         print "<p>$this_date</p>\n";
-        $this_date = $previous_date;
+        $previous_date = $this_date;
     }
     my $basename = $pic;
     $basename =~ s/\.html//;
-- 
2.39.2