bluto

commit 772356e03909d150950c2765d61ad97c73a88457
parent c3ef0ab6b260f4d670eb67cc885aa0c74159fee7
Author: lash <dev@holbrook.no>
Date:   Tue, 18 Jun 2024 21:55:02 +0100

Add dc date to rss output

Diffstat:
M
to_std.pl
 | 
7
+++++++

1 file changed, 7 insertions(+), 0 deletions(-)
diff --git a/to_std.pl b/to_std.pl
@@ -12,6 +12,7 @@ use Cwd qw/ getcwd abs_path /;
 use Template;
 use SemVer;
 use XML::RSS;
+use DateTime;
 
 # external imports
 use Config::Simple;
@@ -34,6 +35,7 @@ my %m_main = (
 	slug => undef,
 	version => undef,
 	summary => undef,
+	time => undef,
 	tech_main => undef,
 	tech => \@m_tech,
 	vcs_upstream => undef,
@@ -103,6 +105,8 @@ if (! -f $targz_local ) {
 	#croak("no package file found, looked for: " . $targz);
 	debug("no package file found, looked for: " . $targz);
 }
+my @targz_stat = stat ( $targz_local );
+$m_main{time} = DateTime->from_epoch( epoch => $targz_stat[9] )->stringify();
 
 my $tt = Template->new({
 	INCLUDE_PATH => '.',
@@ -150,6 +154,9 @@ $rss->add_item (
 	title => $rss_title,
 	link => $targz,
 	description => $out,
+	dc => {
+		date => $m_main{time},
+	},
 #  dc => {
 	#       subject  => "X11/Utilities",
 	#            creator  => "David Allen (s2mdalle at titan.vcu.edu)",