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.5