From d5dc28513708e867aa744f77315a11542c609abf Mon Sep 17 00:00:00 2001 From: Matthias Benkard 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 ++------- journal.cgi | 9 ++------- 2 files changed, 4 insertions(+), 14 deletions(-) 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" &&\ diff --git a/journal.cgi b/journal.cgi index c34c2e7..a719526 100755 --- a/journal.cgi +++ b/journal.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