#!/bin/sh
# \
exec /usr/local/bin/tclsh "$0" "$@"

cd /class/sce/now/saved-files/logs/pointer
set logs [glob -nocomplain *]

if {$logs != {}} {
  set last [lindex [lsort -decreasing $logs] 0]
  set save [catch {exec diff $last /class/sce/now/.pointer.log}]
} else {
  set save 1
}

if {$save} {
  set date [clock format [clock seconds] -format "%y%m%d%H%M%S"]
  file copy /class/sce/now/.pointer.log $date
  file attributes $date -permissions 0640
}