bin/show-latest.pl

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