Fix date

guimard · Dec 2, 2024 · a09804b · a09804b
1 parent 0f914f7
commit a09804b
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 12 deletions.
diff --git a/portal/metadata-ttl.patch b/portal/metadata-ttl.patch
@@ -17,15 +17,15 @@
  # Store request parameters in %ENV
 --- a/usr/share/perl5/Lemonldap/NG/Portal/Main/Run.pm
 +++ b/usr/share/perl5/Lemonldap/NG/Portal/Main/Run.pm
-@@ -1450,6 +1450,10 @@ sub sendJSONresponse {
-           'Cache-Control' => 'no-cache, no-store, must-revalidate',
-           'Pragma'        => 'no-cache',
-           'Expires'       => '0';
+@@ -1444,6 +1444,10 @@ sub sendJSONresponse {
+     # Handle caching
+     if ( $args{ttl} and $args{ttl} =~ /^\d+$/ ) {
+         push @{ $res->[1] }, 'Cache-Control' => 'public, max-age=' . $args{ttl};
 +        push @{ $res->[1] },
 +          'Last-Modified' =>
 +          POSIX::strftime( "%a, %b %0e %H:%M:%S %Y", $args{date} )
 +          if $args{date};
      }
-
-     # If this is a cross-domain request from the portal itself
+     else {
+         push @{ $res->[1] },
 
diff --git a/uwsgi-portal/metadata-ttl.patch b/uwsgi-portal/metadata-ttl.patch
@@ -17,15 +17,15 @@
  # Store request parameters in %ENV
 --- a/usr/share/perl5/Lemonldap/NG/Portal/Main/Run.pm
 +++ b/usr/share/perl5/Lemonldap/NG/Portal/Main/Run.pm
-@@ -1450,6 +1450,10 @@ sub sendJSONresponse {
-           'Cache-Control' => 'no-cache, no-store, must-revalidate',
-           'Pragma'        => 'no-cache',
-           'Expires'       => '0';
+@@ -1444,6 +1444,10 @@ sub sendJSONresponse {
+     # Handle caching
+     if ( $args{ttl} and $args{ttl} =~ /^\d+$/ ) {
+         push @{ $res->[1] }, 'Cache-Control' => 'public, max-age=' . $args{ttl};
 +        push @{ $res->[1] },
 +          'Last-Modified' =>
 +          POSIX::strftime( "%a, %b %0e %H:%M:%S %Y", $args{date} )
 +          if $args{date};
      }
-
-     # If this is a cross-domain request from the portal itself
+     else {
+         push @{ $res->[1] },