X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=lib%2FPackages%2FDoIndex.pm;h=9eaf34e08135914a52013421881c49fb92d00e12;hb=e88cc8fb37d6809017036b4f1e022cdb746a1fe1;hp=2ffa1ac1fd8b5af46729cd78ac52f81bd1d3da55;hpb=547737cf56224b3bfd95822cebe01890fdc7e829;p=deb%2Fpackages.git diff --git a/lib/Packages/DoIndex.pm b/lib/Packages/DoIndex.pm index 2ffa1ac..9eaf34e 100644 --- a/lib/Packages/DoIndex.pm +++ b/lib/Packages/DoIndex.pm @@ -47,7 +47,7 @@ sub send_file { my $path = ""; $path .= "source/" if $opts->{source}; $path .= "$opts->{suite}[0]/"; -# $path .= "$opts->{archive}[0]/" if @{$opts->{archive}} == 1; + $path .= "$opts->{archive}[0]/" if @{$opts->{archive}} == 1; $path .= "$opts->{subsection}[0]/" if @{$opts->{subsection}}; $path .= "$opts->{priority}[0]/" if @{$opts->{priority}}; $path .= "$file.$opts->{po_lang}.$opts->{format}"; @@ -63,7 +63,7 @@ sub send_file { $headers{'-content-length'} = $size; $headers{'-vary'} = 'negotiate,accept-language'; $headers{'-last-modified'} = strftime("%a, %d %b %Y %T %z", localtime($mtime)); - $headers{'-expires'} = strftime("%a, %d %b %Y %T %z", localtime($mtime+(12*3600))); + $headers{'-expires'} = strftime("%a, %d %b %Y %T %z", localtime($mtime+(365*24*3600))); print header( %headers ); binmode INDEX;