sitemap: keyboard/altgr modification dates from includes
authorMischa POSLAWSKY <perl@shiar.org>
Fri, 19 Jan 2024 21:45:25 +0000 (22:45 +0100)
committerMischa POSLAWSKY <perl@shiar.org>
Mon, 29 Jan 2024 17:16:03 +0000 (18:16 +0100)
tools/mksitemap

index 8d1dfb7168de28ef6ccdf0397222dc7798253e13..ce2ce873a59a33745d7fc3f6535a6282c2409a88 100755 (executable)
@@ -2,7 +2,7 @@
 use 5.014;
 use warnings;
 
-our $VERSION = '1.02';
+our $VERSION = '1.03';
 
 use File::stat;
 use Time::Piece;
@@ -20,6 +20,7 @@ my @pages = (
                apl less screen digits sc/bw sc/hots termcol/legacy mplayer
                keyboard/altgr/macos-abc keyboard/altgr/msx keyboard/altgr/ukext
                keyboard/altgr/eurkey keyboard/altgr/apl keyboard/altgr/spacecadet
+               keyboard/altgr/ipa
        )],
        [qw( chars/table/html sample source plan )],
 );
@@ -39,8 +40,13 @@ for my $group (@pages) {
        state $prio = 1;
        for my $file (@{$group}) {
                (my $page = $file) =~ s/\Aindex\z//;
-               $file =~ s{/.*}{};
-               $file .= '.plp';
+               if (-e "$file.eng.inc.pl") {
+                       $file .= '.eng.inc.pl';
+               }
+               else {
+                       $file =~ s{/.*}{};
+                       $file .= '.plp';
+               }
                my $stat = stat $file or do {
                        warn "missing file $file\n";
                        next;