[osmrrze.git] / scripts / osmtilecleanup.pl

#!/usr/bin/perl -w

# OSM tile cleanup / maintenance script. Big parts are a copied from
# hochwasserloeschung.pl.

use Fcntl ':mode';
use POSIX 'strftime';

$zoommin = 0;
$zoommax = 20;
$filelimit = -1;
$rmemptydirs = 0;
$action = 0;
$rrs = '/bin/echo';
$minage = 0;  # In hours!

# Sort function for candidate list
sub sortbydateasc {
  #print("$a->[1] $b->[1]\n");
  return ($a->[1] <=> $b->[1]);
}

# Remembers a candidate for deletion, if required sorting and purging out the
# list.
# Parameters: 0   filename
#             1   atime
#             2   mtime
#             3   type field from stat (containing DIR, LINK etc.)
#             4   uid
#             5   gid
#             6   size in bytes
sub remembercandidate($$$$$$$) {
  if (($_[4] == 0) || ($_[5] == 0)) {
    # we do not touch roots files or directories.
    return;
  }
  if ($_[2] > (time() - ($minage * 3600))) {
    #print("not adding $_[0], too new\n");
    return;
  }
  $totalfilesseen++;
  push(@allentries, [ $_[0], $_[2], $_[3], $_[4], $_[5], $_[6] ]);
}

# Par. 0: Path were we start
# Par. 1: Recursion counter
# Returns: Number of files/dirs found (non-recursively!)
sub runrecursive($$);
sub runrecursive($$) {
  my $DIR;
  my $pth = $_[0];
  my $curdirentry;
  my @statres;
  my $recctr = $_[1];
  my $direntries = 0;
  unless (opendir($DIR, $pth)) {
    print("ERROR: Failed to open dir $pth\n");
    exit(1);
  }
  while ($curdirentrys = readdir($DIR)) {
    if (($curdirentrys eq '.') || ($curdirentrys eq '..')) {
      next;
    }
    $direntries++;
    $curdirentryf = $pth.'/'.$curdirentrys;
    @statres = lstat($curdirentryf);
    unless (@statres > 12) {
      # This usually happens if we have a symlink to a file for which we have
      # no permission to read.
      #print("stat failed for $curdirentry\n");
      next;
    }
    if (S_ISLNK($statres[2])) { next; } # A symlink? We no like.
    if ($recctr <= 4) { # There should be no files on these levels
      unless (S_ISDIR($statres[2])) { next; }
      unless ($curdirentrys =~ m/^\d+$/) { next; }
    } else { # whereas there should be only files called .meta on level 5.
      unless (S_ISREG($statres[2])) { next; }
      unless ($curdirentrys =~ m/^\d+\.meta$/) { next; }
    }
    if ($recctr == 0) {
      my $z = int($curdirentrys);
      unless (($z >= $zoommin) && ($z <= $zoommax)) { next; }
      runrecursive($curdirentryf, $recctr+1);
    } elsif ($recctr <= 4) {
      if (runrecursive($curdirentryf, $recctr+1) == 0) { # Empty dir!
        if ($rmemptydirs) {
          print("RMDIR: $curdirentryf\n");
          rmdir($curdirentryf);
        }
      }
    } else {
      remembercandidate($curdirentryf, $statres[8], $statres[9], $statres[2], $statres[4], $statres[5], $statres[12]);
    }
  }
  closedir($DIR);
  return $direntries;
}

# Par. 0: Full path of file
sub rerenderfile($) {
  my $fpth = $_[0];
  # We first need to figure out the relevant numbers from the full file path
  unless ($fpth =~ m!/(\d+)/(\d+)/(\d+)/(\d+)/(\d+)/(\d+)\.meta$!) {
    print("WARNING: rerenderfile: Failed to extract path components for rerendering out of '$fpth' - skipping\n");
    return;
  }
  my $zl = $1; my @p = ( $2, $3, $4, $5, $6 );
  my $calcx = 0; my $calcy = 0;
  my $i;
  for ($i = 0; $i < 5; $i++) {
    $calcx = ($calcx << 4) | (($p[$i] & 0xf0) >> 4);
    $calcy = ($calcy << 4) | (($p[$i] & 0x0f) >> 0);
  }
  #  struct meta_layout {
  #    char magic[4];        // 'M' 'E' 'T' 'A'
  #    int count;            // METATILE ^ 2
  #    int x, y, z;          // lowest x,y of this metatile, plus z
  my $fi;
  unless (open($fi, '<', $fpth)) {
    print("WARNING: rerenderfile: Failed to open file '$fpth' - skipping\n");
    return;
  }
  binmode($fi);
  my $dbuf;
  unless (read($fi, $dbuf, 20)) {
    print("WARNING: rerenderfile: Failed to read info from metatile '$fpth' - skipping\n");
    return;
  }
  close($fi); undef($fi);
  unless (substr($dbuf, 0, 4) eq 'META') {
    print("WARNING: rerenderfile: file '$fpth' is not a metatile - skipping\n");
    return;
  }
  unless (ord(substr($dbuf, 4, 1)) == 64) {
    print("WARNING: rerenderfile: file '$fpth' is not a 8x8 metatile - skipping\n");
    return;
  }
  my $fx = (ord(substr($dbuf,  8, 1)) <<  0) | (ord(substr($dbuf,  9, 1)) <<  8)
         | (ord(substr($dbuf, 10, 1)) << 16) | (ord(substr($dbuf, 11, 1)) << 24);
  unless ($fx == $calcx) {
    print("WARNING: rerenderfile: file '$fpth' is invalid - xsize $fx != $calcx - skipping\n");
    return;
  }
  my $fy = (ord(substr($dbuf, 12, 1)) <<  0) | (ord(substr($dbuf, 13, 1)) <<  8)
         | (ord(substr($dbuf, 14, 1)) << 16) | (ord(substr($dbuf, 15, 1)) << 24);
  unless ($fy == $calcy) {
    print("WARNING: rerenderfile: file '$fpth' is invalid - xsize $fy != $calcy - skipping\n");
    return;
  }
  my $fz = (ord(substr($dbuf, 16, 1)) <<  0) | (ord(substr($dbuf, 17, 1)) <<  8)
         | (ord(substr($dbuf, 18, 1)) << 16) | (ord(substr($dbuf, 19, 1)) << 24);
  unless ($fz == $zl) {
    print("WARNING: rerenderfile: file '$fpth' is invalid - zsize $fz != $zl - skipping\n");
    return;
  }
  print("Sending rendering request for z=$zl x=$calcx y=$calcy to regenerate '$fpth'\n");
  if (system("$rrs $zl $calcx $calcy")) {
    print("Error executing $rrs $zl $calcx $calcy\n");
  }
}

# Par. 0: x
# Par. 1: y
sub calcpathfromcomponents($$) {
  my @res = ();
  my $i; my $x = $_[0]; my $y = $_[1];
  for ($i = 4; $i >= 0; $i--) {
    $res[$i] = sprintf("%d", (($x & 0x0f) << 4) + ($y & 0x0f));
    $x = $x >> 4;
    $y = $y >> 4;
  }
  return $res[0] . "/" . $res[1] . "/" . $res[2] . "/" . $res[3] . "/" . $res[4];
}

sub dorerenderexpiredlist() {
  my $ll;
  %rerenderlist = ();
  while ($ll = <STDIN>) {
    if ($ll =~ m!^(\d+)/(\d+)/(\d+)$!) {
      my $x = $2; my $y = $3; my $z = $1;
      #print("Handling z=$z x=$x y=$y\n");
      if ($z != ($zoommax - 3)) {
        print("Ignoring z=$z x=$x y=$y because of wrong zoom\n");
        next;
      }
      my $cz; my $cx; my $cy; my $curz;
      for ($curz = $zoommin; $curz <= $zoommax; $curz++) {
        $cz = $z; $cx = $x; $cy = $y;
        while ($cz < $curz) {
          $cz++; $cx <<= 1; $cy <<= 1;
        }
        while ($cz > $curz) {
          $cz--; $cx >>= 1; $cy >>= 1;
        }
        #print("Matching tile at z=$cz: x=$cx y=$cy -");
        $cx = $cx & 0xfff8; $cy = $cy & 0xfff8;
        #print(" rounded to x=$cx y=$cy\n");
        $rerenderlist{$cz}{$cx}{$cy} = 1;
      }
    }
  }
  $filesdone = 0; $filesseen = 0;
  foreach $z (sort(keys(%rerenderlist))) {
    foreach $x (sort(keys(%{$rerenderlist{$z}}))) {
      foreach $y (sort(keys(%{$rerenderlist{$z}{$x}}))) {
        my $p = ${fspath} . '/' . $z . '/' . calcpathfromcomponents($x, $y) . '.meta';
        #print("Checking: $z $x $y - Path: $p\n");
        $filesseen++;
        if (-e $p) {
          $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");
          }
        }
      }
    }
  }
  print("Sent re-rendering-requests for $filesdone files that actually existed (of $filesseen candidates)\n");
}

$fspath = '';
for ($i = 0; $i < @ARGV; $i++) {
  $curarg = $ARGV[$i];
  if      ($curarg eq '--help') {
    print("Syntax: $0 [--help] [--zoom z] [--limit n] [--action a] [--rmemptydirs] [--rrs path] [--minage hrs] directory\n");
    print("  --zoom z[-z2]: Zoom level(s) to handle (default: 0-20).\n");
    print("  --limit n: Limit to the n oldest files (default: no limit)\n");
    print("  --action what: what action to perform with the found files.\n");
    print("    valid actions are: print delete rerender rerenderexpiredlist (default: print)\n");
    print("    rerenderexpiredlist: this is very different from all other commands, as it\n");
    print("    expects to read a list of expired tiles to rerender on STDIN. The list has\n");
    print("    to be in the format that osm2pgsql spits out.\n");
    print("  --rmemptydirs: remove empty subdirectories\n");
    print("  --rrs path: if action is rerender, this gives the path to the rerender script.\n");
    print("    it gets called with three parameters: z x y\n");
    print("  --minage hrs: only care about files that are at least hrs hours old\n");
    exit(1);
  } elsif ($curarg eq '--zoom') {
    $i++;
    if ($i >= @ARGV) {
      print("Error: --zoom requires a parameter\n");
      exit(1);
    } else {
      if ($ARGV[$i] =~ m/^(\d+)-(\d+)$/) {
        $zoommin = $1; $zoommax = $2;
      } elsif ($ARGV[$i] =~ m/^(\d+)$/) {
        $zoommin = $1; $zoommax = $1;
      } else {
        print("Error: --zoom needs a single numeric parameter or a range (e.g. 4 or 10-12)\n");
        exit(1);
      }
    }
  } elsif ($curarg eq '--limit') {
    $i++;
    if ($i >= @ARGV) {
      print("Error: --limit requires a parameter\n");
      exit(1);
    } else {
      if ($ARGV[$i] =~ m/^(\d+)$/) {
        $filelimit = $1;
      } else {
        print("Error: --limit requires an positive integer as parameter.\n");
      }
    }
  } elsif ($curarg eq '--action') {
    $i++;
    if ($i >= @ARGV) {
      print("Error: --action requires a parameter\n");
      exit(1);
    } else {
      if      ($ARGV[$i] eq 'print') {
        $action = 0;
      } elsif ($ARGV[$i] eq 'delete') {
        $action = 1;
      } elsif ($ARGV[$i] eq 'rerender') {
        $action = 2;
      } elsif ($ARGV[$i] eq 'rerenderexpiredlist') {
        $action = 3;
      } else {
        print("Error: Invalid action selected.\n");
        exit(1);
      }
    }
  } elsif ($curarg eq '--rrs') {
    $i++;
    if ($i >= @ARGV) {
      print("Error: --rrs requires a parameter\n");
      exit(1);
    } else {
      $rrs = $ARGV[$i];
    }
  } elsif ($curarg eq '--minage') {
    $i++;
    if ($i >= @ARGV) {
      print("Error: --minage requires a parameter\n");
      exit(1);
    } else {
      if ($ARGV[$i] =~ m/^(\d+)$/) {
        $minage = $1;
      } else {
        print("Error: --minage requires an positive integer as parameter.\n");
      }
    }
  } elsif ($curarg eq '--rmemptydirs') {
    $rmemptydirs = 1;
  } else {
    if ($fspath eq '') {
      $fspath = $curarg;
    } else {
      print("Too many parameters, or parameter(s) not understood.\n");
      print("I can only handle one directory parameter, but I consider both ");
      print("'$curarg' and '$fspath' a pathname since they are not a known parameter.\n");
      exit(1);
    }
  }
}
if ($fspath eq '') {
  print("ERROR: No path to clear given.\n");
  exit(1);
}
if ($action == 3) { # This significantly differs from the rest of our operations
  dorerenderexpiredlist();
  exit(0);
}
@allentries = ();
$totalfilesseen = 0;
runrecursive($fspath, 0);
@allentries = sort(sortbydateasc @allentries);
print(int(@allentries)." files seen\n");
$filesdone = 0;
foreach $ent (@allentries) {
  if ($filelimit > 0) {
    if ($filesdone >= $filelimit) {
      print("File limit $filelimit reached, exiting.\n");
      exit(0);
    }
  }
  #print("Handling File '$ent->[0]', $ent->[5] blocks [u: $ent->[3]  g: $ent->[4] mtime: ".strftime("%Y-%m-%d.%H:%M:%S", localtime($ent->[1]))."]\n");
  if ($action == 0) { # Print
    print("$ent->[0]\n");
  } elsif ($action == 1) { # Delete
    print("DELETING $ent->[0] (mtime " . strftime("%Y-%m-%d.%H:%M:%S", localtime($ent->[1])) . ")\n");
    unless (unlink($ent->[0])) {
      print("ERROR: rm for $ent->[0] failed!\n");
    }
  } elsif ($action == 2) { # Rerender
    rerenderfile($ent->[0]);
  }
  $filesdone++;
}
Commit	Line	Data
4b713169	1	#!/usr/bin/perl -w
	2
	3	# OSM tile cleanup / maintenance script. Big parts are a copied from
	4	# hochwasserloeschung.pl.
	5
	6	use Fcntl ':mode';
	7	use POSIX 'strftime';
	8
	9	$zoommin = 0;
	10	$zoommax = 20;
	11	$filelimit = -1;
	12	$rmemptydirs = 0;
	13	$action = 0;
	14	$rrs = '/bin/echo';
	15	$minage = 0; # In hours!
	16
	17	# Sort function for candidate list
	18	sub sortbydateasc {
	19	#print("$a->[1] $b->[1]\n");
	20	return ($a->[1] <=> $b->[1]);
	21	}
	22
	23	# Remembers a candidate for deletion, if required sorting and purging out the
	24	# list.
	25	# Parameters: 0 filename
	26	# 1 atime
	27	# 2 mtime
	28	# 3 type field from stat (containing DIR, LINK etc.)
	29	# 4 uid
	30	# 5 gid
	31	# 6 size in bytes
	32	sub remembercandidate($$$$$$$) {
	33	if (($_[4] == 0) \|\| ($_[5] == 0)) {
	34	# we do not touch roots files or directories.
	35	return;
	36	}
	37	if ($_[2] > (time() - ($minage * 3600))) {
	38	#print("not adding $_[0], too new\n");
	39	return;
	40	}
	41	$totalfilesseen++;
	42	push(@allentries, [ $_[0], $_[2], $_[3], $_[4], $_[5], $_[6] ]);
	43	}
	44
	45	# Par. 0: Path were we start
	46	# Par. 1: Recursion counter
	47	# Returns: Number of files/dirs found (non-recursively!)
	48	sub runrecursive($$);
	49	sub runrecursive($$) {
	50	my $DIR;
	51	my $pth = $_[0];
	52	my $curdirentry;
	53	my @statres;
	54	my $recctr = $_[1];
	55	my $direntries = 0;
	56	unless (opendir($DIR, $pth)) {
	57	print("ERROR: Failed to open dir $pth\n");
	58	exit(1);
	59	}
	60	while ($curdirentrys = readdir($DIR)) {
	61	if (($curdirentrys eq '.') \|\| ($curdirentrys eq '..')) {
	62	next;
	63	}
	64	$direntries++;
65	$curdirentryf = $pth.'/'.$curdirentrys;
66	@statres = lstat($curdirentryf);
67	unless (@statres > 12) {
68	# This usually happens if we have a symlink to a file for which we have
69	# no permission to read.
70	#print("stat failed for $curdirentry\n");
71	next;
72	}
73	if (S_ISLNK($statres[2])) { next; } # A symlink? We no like.
74	if ($recctr <= 4) { # There should be no files on these levels
75	unless (S_ISDIR($statres[2])) { next; }
76	unless ($curdirentrys =~ m/^\d+$/) { next; }
77	} else { # whereas there should be only files called .meta on level 5.
78	unless (S_ISREG($statres[2])) { next; }
79	unless ($curdirentrys =~ m/^\d+\.meta$/) { next; }
80	}
81	if ($recctr == 0) {
82	my $z = int($curdirentrys);
83	unless (($z >= $zoommin) && ($z <= $zoommax)) { next; }
84	runrecursive($curdirentryf, $recctr+1);
85	} elsif ($recctr <= 4) {
86	if (runrecursive($curdirentryf, $recctr+1) == 0) { # Empty dir!
87	if ($rmemptydirs) {
88	print("RMDIR: $curdirentryf\n");
89	rmdir($curdirentryf);
90	}
91	}
92	} else {
93	remembercandidate($curdirentryf, $statres[8], $statres[9], $statres[2], $statres[4], $statres[5], $statres[12]);
94	}
95	}
96	closedir($DIR);
97	return $direntries;
98	}
99
100	# Par. 0: Full path of file
101	sub rerenderfile($) {
102	my $fpth = $_[0];
103	# We first need to figure out the relevant numbers from the full file path
104	unless ($fpth =~ m!/(\d+)/(\d+)/(\d+)/(\d+)/(\d+)/(\d+)\.meta$!) {
105	print("WARNING: rerenderfile: Failed to extract path components for rerendering out of '$fpth' - skipping\n");
106	return;
107	}
108	my $zl = $1; my @p = ( $2, $3, $4, $5, $6 );
109	my $calcx = 0; my $calcy = 0;
110	my $i;
111	for ($i = 0; $i < 5; $i++) {
112	$calcx = ($calcx << 4) \| (($p[$i] & 0xf0) >> 4);
113	$calcy = ($calcy << 4) \| (($p[$i] & 0x0f) >> 0);
114	}
115	# struct meta_layout {
116	# char magic[4]; // 'M' 'E' 'T' 'A'
117	# int count; // METATILE ^ 2
118	# int x, y, z; // lowest x,y of this metatile, plus z
119	my $fi;
120	unless (open($fi, '<', $fpth)) {
121	print("WARNING: rerenderfile: Failed to open file '$fpth' - skipping\n");
122	return;
123	}
124	binmode($fi);
125	my $dbuf;
126	unless (read($fi, $dbuf, 20)) {
127	print("WARNING: rerenderfile: Failed to read info from metatile '$fpth' - skipping\n");
128	return;
129	}
130	close($fi); undef($fi);
131	unless (substr($dbuf, 0, 4) eq 'META') {
132	print("WARNING: rerenderfile: file '$fpth' is not a metatile - skipping\n");
133	return;
134	}
135	unless (ord(substr($dbuf, 4, 1)) == 64) {
136	print("WARNING: rerenderfile: file '$fpth' is not a 8x8 metatile - skipping\n");
137	return;
138	}
139	my $fx = (ord(substr($dbuf, 8, 1)) << 0) \| (ord(substr($dbuf, 9, 1)) << 8)
140	\| (ord(substr($dbuf, 10, 1)) << 16) \| (ord(substr($dbuf, 11, 1)) << 24);
141	unless ($fx == $calcx) {
142	print("WARNING: rerenderfile: file '$fpth' is invalid - xsize $fx != $calcx - skipping\n");
143	return;
144	}
145	my $fy = (ord(substr($dbuf, 12, 1)) << 0) \| (ord(substr($dbuf, 13, 1)) << 8)
146	\| (ord(substr($dbuf, 14, 1)) << 16) \| (ord(substr($dbuf, 15, 1)) << 24);
147	unless ($fy == $calcy) {
148	print("WARNING: rerenderfile: file '$fpth' is invalid - xsize $fy != $calcy - skipping\n");
149	return;
150	}
151	my $fz = (ord(substr($dbuf, 16, 1)) << 0) \| (ord(substr($dbuf, 17, 1)) << 8)
152	\| (ord(substr($dbuf, 18, 1)) << 16) \| (ord(substr($dbuf, 19, 1)) << 24);
153	unless ($fz == $zl) {
154	print("WARNING: rerenderfile: file '$fpth' is invalid - zsize $fz != $zl - skipping\n");
155	return;
156	}
157	print("Sending rendering request for z=$zl x=$calcx y=$calcy to regenerate '$fpth'\n");
158	if (system("$rrs $zl $calcx $calcy")) {
159	print("Error executing $rrs $zl $calcx $calcy\n");
160	}
161	}
162
163	# Par. 0: x
164	# Par. 1: y
165	sub calcpathfromcomponents($$) {
166	my @res = ();
167	my $i; my $x = $_[0]; my $y = $_[1];
168	for ($i = 4; $i >= 0; $i--) {
169	$res[$i] = sprintf("%d", (($x & 0x0f) << 4) + ($y & 0x0f));
170	$x = $x >> 4;
171	$y = $y >> 4;
172	}
173	return $res[0] . "/" . $res[1] . "/" . $res[2] . "/" . $res[3] . "/" . $res[4];
174	}
175
176	sub dorerenderexpiredlist() {
177	my $ll;
178	%rerenderlist = ();
179	while ($ll = <STDIN>) {
180	if ($ll =~ m!^(\d+)/(\d+)/(\d+)$!) {
181	my $x = $2; my $y = $3; my $z = $1;
182	#print("Handling z=$z x=$x y=$y\n");
183	if ($z != ($zoommax - 3)) {
184	print("Ignoring z=$z x=$x y=$y because of wrong zoom\n");
185	next;
186	}
187	my $cz; my $cx; my $cy; my $curz;
188	for ($curz = $zoommin; $curz <= $zoommax; $curz++) {
189	$cz = $z; $cx = $x; $cy = $y;
190	while ($cz < $curz) {
191	$cz++; $cx <<= 1; $cy <<= 1;
192	}
193	while ($cz > $curz) {
194	$cz--; $cx >>= 1; $cy >>= 1;
195	}
196	#print("Matching tile at z=$cz: x=$cx y=$cy -");
197	$cx = $cx & 0xfff8; $cy = $cy & 0xfff8;
198	#print(" rounded to x=$cx y=$cy\n");
199	$rerenderlist{$cz}{$cx}{$cy} = 1;
200	}
201	}
202	}
203	$filesdone = 0; $filesseen = 0;
204	foreach $z (sort(keys(%rerenderlist))) {
205	foreach $x (sort(keys(%{$rerenderlist{$z}}))) {
206	foreach $y (sort(keys(%{$rerenderlist{$z}{$x}}))) {
207	my $p = ${fspath} . '/' . $z . '/' . calcpathfromcomponents($x, $y) . '.meta';
208	#print("Checking: $z $x $y - Path: $p\n");
209	$filesseen++;
210	if (-e $p) {
211	$filesdone++;
212	print("Sending rendering request for z=$z x=$x y=$y to regenerate '$p'\n");
213	if (system("$rrs $z $x $y")) {
214	print("Error executing $rrs $z $x $y\n");
215	}
216	}
217	}
218	}
219	}
220	print("Sent re-rendering-requests for $filesdone files that actually existed (of $filesseen candidates)\n");
221	}
222
223	$fspath = '';
224	for ($i = 0; $i < @ARGV; $i++) {
225	$curarg = $ARGV[$i];
226	if ($curarg eq '--help') {
227	print("Syntax: $0 [--help] [--zoom z] [--limit n] [--action a] [--rmemptydirs] [--rrs path] [--minage hrs] directory\n");
228	print(" --zoom z[-z2]: Zoom level(s) to handle (default: 0-20).\n");
229	print(" --limit n: Limit to the n oldest files (default: no limit)\n");
230	print(" --action what: what action to perform with the found files.\n");
231	print(" valid actions are: print delete rerender rerenderexpiredlist (default: print)\n");
232	print(" rerenderexpiredlist: this is very different from all other commands, as it\n");
233	print(" expects to read a list of expired tiles to rerender on STDIN. The list has\n");
234	print(" to be in the format that osm2pgsql spits out.\n");
235	print(" --rmemptydirs: remove empty subdirectories\n");
236	print(" --rrs path: if action is rerender, this gives the path to the rerender script.\n");
237	print(" it gets called with three parameters: z x y\n");
238	print(" --minage hrs: only care about files that are at least hrs hours old\n");
239	exit(1);
240	} elsif ($curarg eq '--zoom') {
241	$i++;
242	if ($i >= @ARGV) {
243	print("Error: --zoom requires a parameter\n");
244	exit(1);
245	} else {
246	if ($ARGV[$i] =~ m/^(\d+)-(\d+)$/) {
247	$zoommin = $1; $zoommax = $2;
248	} elsif ($ARGV[$i] =~ m/^(\d+)$/) {
249	$zoommin = $1; $zoommax = $1;
250	} else {
251	print("Error: --zoom needs a single numeric parameter or a range (e.g. 4 or 10-12)\n");
252	exit(1);
253	}
254	}
255	} elsif ($curarg eq '--limit') {
256	$i++;
257	if ($i >= @ARGV) {
258	print("Error: --limit requires a parameter\n");
259	exit(1);
260	} else {
261	if ($ARGV[$i] =~ m/^(\d+)$/) {
262	$filelimit = $1;
263	} else {
264	print("Error: --limit requires an positive integer as parameter.\n");
265	}
266	}
267	} elsif ($curarg eq '--action') {
268	$i++;
269	if ($i >= @ARGV) {
270	print("Error: --action requires a parameter\n");
271	exit(1);
272	} else {
273	if ($ARGV[$i] eq 'print') {
274	$action = 0;
275	} elsif ($ARGV[$i] eq 'delete') {
276	$action = 1;
277	} elsif ($ARGV[$i] eq 'rerender') {
278	$action = 2;
279	} elsif ($ARGV[$i] eq 'rerenderexpiredlist') {
280	$action = 3;
281	} else {
282	print("Error: Invalid action selected.\n");
283	exit(1);
284	}
285	}
286	} elsif ($curarg eq '--rrs') {
287	$i++;
288	if ($i >= @ARGV) {
289	print("Error: --rrs requires a parameter\n");
290	exit(1);
291	} else {
292	$rrs = $ARGV[$i];
293	}
294	} elsif ($curarg eq '--minage') {
295	$i++;
296	if ($i >= @ARGV) {
297	print("Error: --minage requires a parameter\n");
298	exit(1);
299	} else {
300	if ($ARGV[$i] =~ m/^(\d+)$/) {
301	$minage = $1;
302	} else {
303	print("Error: --minage requires an positive integer as parameter.\n");
304	}
305	}
306	} elsif ($curarg eq '--rmemptydirs') {
307	$rmemptydirs = 1;
308	} else {
309	if ($fspath eq '') {
310	$fspath = $curarg;
311	} else {
312	print("Too many parameters, or parameter(s) not understood.\n");
313	print("I can only handle one directory parameter, but I consider both ");
314	print("'$curarg' and '$fspath' a pathname since they are not a known parameter.\n");
315	exit(1);
316	}
317	}
318	}
319	if ($fspath eq '') {
320	print("ERROR: No path to clear given.\n");
321	exit(1);
322	}
323	if ($action == 3) { # This significantly differs from the rest of our operations
324	dorerenderexpiredlist();
325	exit(0);
326	}
327	@allentries = ();
328	$totalfilesseen = 0;
329	runrecursive($fspath, 0);
330	@allentries = sort(sortbydateasc @allentries);
331	print(int(@allentries)." files seen\n");
332	$filesdone = 0;
333	foreach $ent (@allentries) {
334	if ($filelimit > 0) {
335	if ($filesdone >= $filelimit) {
336	print("File limit $filelimit reached, exiting.\n");
337	exit(0);
338	}
339	}
340	#print("Handling File '$ent->[0]', $ent->[5] blocks [u: $ent->[3] g: $ent->[4] mtime: ".strftime("%Y-%m-%d.%H:%M:%S", localtime($ent->[1]))."]\n");
341	if ($action == 0) { # Print
342	print("$ent->[0]\n");
343	} elsif ($action == 1) { # Delete
344	print("DELETING $ent->[0] (mtime " . strftime("%Y-%m-%d.%H:%M:%S", localtime($ent->[1])) . ")\n");
345	unless (unlink($ent->[0])) {
346	print("ERROR: rm for $ent->[0] failed!\n");
347	}
348	} elsif ($action == 2) { # Rerender
349	rerenderfile($ent->[0]);
350	}
351	$filesdone++;
352	}