about summary refs log tree commit homepage
path: root/Documentation/mknews.perl
diff options
context:
space:
mode:
authorEric Wong <e@yhbt.net>2020-01-24 22:09:29 +0000
committerEric Wong <e@yhbt.net>2020-01-25 09:00:48 +0000
commit4d19d3a79188591a25d325128d2ed0a153766577 (patch)
tree628549bc3aaa50e7eb42141690ee2e45b137a6c1 /Documentation/mknews.perl
parent0cf1c8b305e15d9ca9869c624a71c96b96a7a5cc (diff)
downloadpublic-inbox-4d19d3a79188591a25d325128d2ed0a153766577.tar.gz
Repeatedly rebuilding `NEWS' because the mtime of `NEWS'
is synched to the latest release .eml is a bit annoying,
but necessary to save bandwidth for the website.

So we'll also update the mtime of the source .eml file when
reading them.  It's kinda gross to be setting mtimes of source
.eml files in Documentation/RelNotes/, but I can't think of
anything better at the moment...
Diffstat (limited to 'Documentation/mknews.perl')
-rwxr-xr-xDocumentation/mknews.perl16
1 files changed, 12 insertions, 4 deletions
diff --git a/Documentation/mknews.perl b/Documentation/mknews.perl
index 3efabdb5..71b1a996 100755
--- a/Documentation/mknews.perl
+++ b/Documentation/mknews.perl
@@ -21,8 +21,8 @@ my $atom_url = 'https://public-inbox.org/NEWS.atom';
 my $addr = 'meta@public-inbox.org';
 
 my $latest = shift(@releases) or die 'no releases?';
-my $mime_latest = release2mime($latest);
-my $mtime = msg_datestamp($mime_latest->header_obj);
+my $mtime;
+my $mime_latest = release2mime($latest, \$mtime);
 my $tmp = "$dst+";
 my $out;
 if ($dst eq 'NEWS') {
@@ -73,9 +73,17 @@ rename($tmp, $dst) or die;
 exit 0;
 
 sub release2mime {
-        my $f = "$dir/$_[0].eml";
+        my ($release, $mtime_ref) = @_;
+        my $f = "$dir/$release.eml";
         open(my $fh, '<', $f) or die "open($f): $!";
-        PublicInbox::MIME->new(do { local $/; <$fh> });
+        my $mime = PublicInbox::MIME->new(do { local $/; <$fh> });
+        # Documentation/include.mk relies on mtimes of each .eml file
+        # to trigger rebuild, so make sure we sync the mtime to the Date:
+        # header in the .eml
+        my $mtime = msg_datestamp($mime->header_obj);
+        utime($mtime, $mtime, $fh) or warn "futimes $f: $!";
+        $$mtime_ref = $mtime if $mtime_ref;
+        $mime;
 }
 
 sub mime2txt {