From d5dc28513708e867aa744f77315a11542c609abf Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sun, 11 Oct 2009 11:08:02 +0200
Subject: Simplify the CGI helpers a bit.

Ignore-this: 68529a80496ebe3fcfc33685e26f41d0

darcs-hash:3313a8ad494a9111539edd0009e9d4c8e7025536
---
 journal-admin.cgi | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

(limited to 'journal-admin.cgi')

diff --git a/journal-admin.cgi b/journal-admin.cgi
index 53d7c97..d8fdfc5 100755
--- a/journal-admin.cgi
+++ b/journal-admin.cgi
@@ -14,13 +14,8 @@ mtime_of() {
 
 FASL_FILE="$LISPINIT_DIR/journal-full.fas"
 
-lisp_mtime=0
-for x in $DIR/*.lisp; do
-    mtime=`mtime_of "$x"`
-    if [ $mtime -gt $lisp_mtime ]; then
-        lisp_mtime=$mtime
-    fi
-done
+most_recently_changed_lisp_file=`ls -rt $DIR/*.lisp | tail -n1`
+lisp_mtime=`mtime_of $most_recently_changed_lisp_file`
 
 if ! [ -f "$FASL_FILE" -a \( `mtime_of "$FASL_FILE"` -gt $lisp_mtime \) ]; then
     env LC_ALL=de_DE.UTF-8 clisp -M "$LISPINIT_DIR/lispinit.mem.gz" "$DIR/compile.lisp" &&\
-- 
cgit v1.2.3