git.shiar.nl
/
sheet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
f352c19
)
sitemap: keyboard/altgr modification dates from includes
author
Mischa POSLAWSKY
<perl@shiar.org>
Fri, 19 Jan 2024 21:45:25 +0000
(22:45 +0100)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Mon, 29 Jan 2024 17:16:03 +0000
(18:16 +0100)
tools/mksitemap
patch
|
blob
|
history
diff --git
a/tools/mksitemap
b/tools/mksitemap
index 8d1dfb7168de28ef6ccdf0397222dc7798253e13..ce2ce873a59a33745d7fc3f6535a6282c2409a88 100755
(executable)
--- a/
tools/mksitemap
+++ b/
tools/mksitemap
@@
-2,7
+2,7
@@
use 5.014;
use warnings;
use 5.014;
use warnings;
-our $VERSION = '1.0
2
';
+our $VERSION = '1.0
3
';
use File::stat;
use Time::Piece;
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
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 )],
);
)],
[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//;
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;
my $stat = stat $file or do {
warn "missing file $file\n";
next;