#!/usr/bin/lw-console

(change-directory "/home/lmc/work/ibm/Disney/tmr")

(if (probe-file ".mirrored")
  (let ((pwd (change-directory ".")))
    (with-open-file (in ".mirrored" :direction :input)
      (loop for dir = (read-line in nil nil)
            while dir do
            (change-directory dir)
            (change-directory "..")
            (format t "################################~%")
            (format t "/~A~%" dir)
            (format t "curdir is ~A~%" (change-directory "."))
            ; (format t )
            (sys:run-shell-command
             (format nil "drs -r --delete --no-verbose --backup --suffix=.rsync-bak --size-only tmr:/~A ."
                     dir))
            (change-directory pwd)))))