bin/show-latest

   1 #!/usr/bin/perl
   2
   3
   4 $reldir="~/musix/releases";
   5
   6 use FileHandle;
   7
   8 sub  cmpver
   9 {
  10
  11         my(@a)= split /\./,$a;
  12         my(@b)= split /\./,$b;
  13
  14         for $i (0,1,2) {
  15             return $a[$i] <=> $b[$i] if ($a[$i] != $b[$i]);
  16         }
  17         return $a cmp $b;
  18 }
  19
  20 my @versions;
  21 open LS, "ls -1 $reldir|";
  22
  23
  24 while (<LS>) {
  25
  26     $_ =~ /lilypond-([^.]+\.[^.]+\.[^.]+).tar.gz/;
  27     push @versions, $1;
  28 }
  29
  30
  31 @versions = sort cmpver @versions;
  32 my $last= (pop @versions);
  33
  34
  35 system "rm $reldir/zZ*";
  36 system  "> $reldir/zZ_LATEST_IS_$last";
  37
  38 open NEWS, "tar --to-stdout  -zxf $reldir/lilypond-$last.tar.gz lilypond-$last/NEWS |";
  39 input_record_separator NEWS "****";
  40 $desc = <NEWS>;
  41 chop ($desc);
  42 close NEWS;
  43     print $desc;