bin/mk-latest

   1 #! /usr/bin/perl -w
   2 use strict;
   3
   4 die "Missing args\n" if $#ARGV < 0;
   5 my $SRCDIR = $ARGV[0]; shift;
   6
   7 chdir $SRCDIR || die "Can't chdir $SRCDIR, $!";
   8
   9 my @tarballs =
  10        sort grep /openssl-\d+\.\d+\.\d+[a-z]*\.tar\.gz$/,
  11                glob("openssl-*.tar.gz");
  12
  13 my %series = ();
  14 foreach(@tarballs) {
  15     my ($version, $serie) =
  16         /^openssl-(?|(([01]\.\d+\.\d+)[a-z]*)|((\d+\.\d+)\.\d+))\./;
  17         $series{$serie} = $_;
  18 }
  19 my $latest = $series{ (reverse sort keys %series)[0] };
  20
  21 print <<"EOF";
  22 ######################################################################
  23 # Please do NOT edit this file directly!
  24 # Instead, edit bin/mk-latest in the master branch of openssl-web.git
  25 #####
  26
  27 Redirect "/source/latest.tar.gz" "/source/$latest"
  28 EOF
  29
  30 print <<"EOF" foreach (sort keys %series);
  31 Redirect "/source/openssl-$_-latest.tar.gz" "/source/$series{$_}"
  32 EOF