Look up old builds in /extra/builds/

config.rkt

@@ -7,6 +7,7 @@
          "monitor-scm.rkt")
 
 (plt-directory "/opt/plt")
+(extra-build-directory "/extra/builds")
 (drdr-directory "/opt/svn/drdr")
 (git-path "/usr/bin/git")
 (Xvfb-path "/usr/bin/Xnest")

dirstruct.rkt

@@ -58,8 +58,18 @@
 (define previous-rev
   (make-parameter #f))
 
+(define extra-build-directory
+  (make-parameter #f))
+
 (define (revision-dir rev)
-  (build-path (plt-build-directory) (number->string rev)))
+  (define primary (build-path (plt-build-directory) (number->string rev)))
+  (if (or (directory-exists? primary)
+          (not (extra-build-directory)))
+      primary
+      (let ([extra (build-path (extra-build-directory) (number->string rev))])
+        (if (directory-exists? extra)
+            extra
+            primary))))
 
 (define (revision-log-dir rev)
   (build-path (revision-dir rev) "logs"))
@@ -111,6 +121,7 @@
  [previous-rev (parameter/c (or/c false/c exact-nonnegative-integer?))]
  [plt-directory (parameter/c path-string?)]
  [plt-build-directory (-> path?)]
+ [extra-build-directory (parameter/c (or/c false/c path-string?))]
  [plt-data-directory (-> path?)]
  [plt-future-build-directory (-> path?)]
  [drdr-directory (parameter/c path-string?)]

scripts/monitor.sh

@@ -71,7 +71,11 @@ if [ -n \"\$NEWEST\" ] && [ -n \"\$BASELINE\" ]; then
   CURRENT=\$(find \$BUILDS/\$NEWEST/logs -type f 2>/dev/null | wc -l)
   PCT=\$((CURRENT * 100 / BASELINE))
   echo \"Rev \$NEWEST: \$CURRENT / \$BASELINE log files (\$PCT%)\"
-fi'"
+fi
+echo ""
+echo "Disk:"
+df --output=target,used,avail,pcent / /extra/ 2>/dev/null
+echo "Builds: \$(ls \$BUILDS | wc -l) in /opt/plt, \$(ls /extra/builds 2>/dev/null | wc -l) in /extra"'"
 tmux split-window -v -t "$SESSION:status" \
     "watch -n 5 'systemctl status drdr-render --no-pager -n0 2>&1'"