equal
deleted
inserted
replaced
1 #!/usr/bin/perl -w |
1 #!/usr/bin/perl -w |
2 |
2 |
3 # Copyright (C) 2011 Matthias Förste |
3 # Copyright (C) 2011 Matthias Förste |
4 # Copyright (C) 2010,2011 Heiko Schlittermann |
4 # Copyright (C) 2010, 2011 Heiko Schlittermann |
5 # Copyright (C) 2010 Andre Süß |
5 # Copyright (C) 2010 Andre Süß |
6 # |
6 # |
7 # This program is free software: you can redistribute it and/or modify |
7 # This program is free software: you can redistribute it and/or modify |
8 # it under the terms of the GNU General Public License as published by |
8 # it under the terms of the GNU General Public License as published by |
9 # the Free Software Foundation, either version 3 of the License, or |
9 # the Free Software Foundation, either version 3 of the License, or |
143 say " * $zone: no .stamp file found"; # NOCH IN NEW_SERIAL PUSHEN |
143 say " * $zone: no .stamp file found"; # NOCH IN NEW_SERIAL PUSHEN |
144 push @r, $zone; |
144 push @r, $zone; |
145 next; |
145 next; |
146 } |
146 } |
147 |
147 |
148 my $stamp_mtime = (stat _)[8]; |
148 my $stamp_mtime = (stat _)[9]; |
149 my $stamp_mtime2 = (stat "$_/.stamp")[8]; |
149 my $stamp_mtime2 = (stat "$_/.stamp")[9]; |
150 my $zone_file_mtime = (stat "$_/$zone")[8] or die "Can't stat '$_/$zone': $!"; |
150 my $zone_file_mtime = (stat "$_/$zone")[9] or die "Can't stat '$_/$zone': $!"; |
151 # TODO: do this here? |
151 # TODO: do this here? |
152 my $kc_file_mtime = 0; |
152 my $kc_file_mtime = 0; |
153 $kc_file_mtime = (stat "$_/.keycounter")[8] or die "Can't stat '$_/.keycounter': $!" if -f "$_/.keycounter"; |
153 $kc_file_mtime = (stat "$_/.keycounter")[9] or die "Can't stat '$_/.keycounter': $!" if -f "$_/.keycounter"; |
154 # say "XXX: zone: $zone | stamp_mtime: $stamp_mtime| stamp_mtime2: $stamp_mtime2 | zone_file_mtime: $zone_file_mtime | kc_file_mtime: $kc_file_mtime"; |
154 # say "XXX: zone: $zone | stamp_mtime: $stamp_mtime| stamp_mtime2: $stamp_mtime2 | zone_file_mtime: $zone_file_mtime | kc_file_mtime: $kc_file_mtime"; |
155 |
155 |
156 next unless $stamp_mtime < $zone_file_mtime or $stamp_mtime < $kc_file_mtime; |
156 next unless $stamp_mtime < $zone_file_mtime or $stamp_mtime < $kc_file_mtime; |
157 |
157 |
158 push @r, $zone; |
158 push @r, $zone; |