- $filesdone++;
- print("Sending rendering request for z=$z x=$x y=$y to regenerate '$p'\n");
- if (system("$rrs $z $x $y")) {
- print("Error executing $rrs $z $x $y\n");
+ if ($action == 3) {
+ $filesdone++;
+ print("Sending rendering request for z=$z x=$x y=$y to regenerate '$p'\n");
+ if (system("$rrs $z $x $y")) {
+ print("Error executing $rrs $z $x $y\n");
+ }
+ } elsif ($action == 4) {
+ my $mtime = (stat($p))[9];
+ my $curtime = time();
+ if (($curtime - $setbackinterval) > $mtime) {
+ # Do not touch again - it's already 20 years back.
+ print("Not touching '$p', it's over 20 years old so probably has already been set back.\n");
+ } else {
+ my $newmtime = $mtime - $setbackinterval;
+ print("Touching '$p' (z=$z x=$x y=$y)\n");
+ if (utime($curtime, $newmtime, $p) < 1) {
+ print("Error touching '$p': $!\n");
+ }
+ }
+ } else {
+ print("Internal error - action variable invalid. This is a programming error.\n");
+ exit(1);