Admin/isatest/isatest-statistics

 # $Id$
 # Author: Makarius
 #
 # DESCRIPTION: Produce statistics from isatest session logs.
 
-ISATEST_LOG=~isatest/log
-
 ## platform settings
 
 case $(uname) in
-	SunOS)	
-		ZGREP=xgrep 
-		TE="png color"
-	;;
-	*)	
-		ZGREP=zgrep
-		TE="png"
-	;;
+  SunOS)	
+    ZGREP=xgrep 
+    TE="png color"
+    ;;
+  *)	
+    ZGREP=zgrep
+    TE="png"
+    ;;
 esac
+
 
 ## diagnostics
 
 PRG="$(basename "$0")"
 

 DIR="$1"; shift
 PLATFORM="$1"; shift
 TIMESPAN="$1"; shift
 SESSIONS="$@"
 
+if [ "$PLATFORM" = afp ]; then
+  LOG_DIR=~isatest/afp-log
+  LOG_NAME="afp-test-devel*"
+else
+  LOG_DIR=~isatest/log
+  LOG_NAME="isatest-makeall-${PLATFORM}*"
+fi
+
 
 ## main
 
 ALL_DATA="/tmp/isatest-all$$.dat"
 SESSION_DATA="/tmp/isatest$$.dat"
 mkdir -p "$DIR" || fail "Bad directory: $DIR"
 
 $ZGREP "^Finished .*elapsed" \
-  $(find "$ISATEST_LOG" -name "isatest-makeall-${PLATFORM}*" -ctime "-${TIMESPAN}") | \
+  $(find "$LOG_DIR" -name "$LOG_NAME" -ctime "-${TIMESPAN}") | \
 perl -e '
   while (<>) {
-    if (m/isatest-makeall-.*-(\d+)-(\d+)-(\d+)-.*:Finished (\S+) \(.*, (\d+):(\d+):(\d+) cpu time\)/) {
+    if (m/(\d\d\d\d)-(\d\d)-(\d\d).*:Finished (\S+) \(.*, (\d+):(\d+):(\d+) cpu time\)/) {
         my $year = $1;
         my $month = $2;
         my $day = $3;
         my $name = $4;
         my $time = ($5 * 3600 + $6 * 60 + $7) / 60;