lilypond-1.1.33
[lilypond.git] / bin / show-latest.in
blob1c3d14dd0e9818c43f912dc21e552d1b0391697c
1 #!@PERL@
2 # -*-Perl-*-
5 $reldir="/home/hanwen/musix/releases";
7 use FileHandle;
8 use Getopt::Long;
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;
21 my @versions;
22 open LS, "ls -1 $reldir|";
24 GetOptions( 'print', 'news', 'latest');
27 while (<LS>) {
28     $_ =~ /lilypond-([^.]+\.[^.]+\.[^.]+).tar.gz/;
29     push @versions, $1;
33 @versions = sort cmpver @versions;
34 my $last= (pop @versions);
37 if (  $opt_print ) {
38     print $last;
41 if ( $opt_latest) {
42     system "rm $reldir/zZ*";
43     system  "> $reldir/zZ_LATEST_IS_$last";
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;
52     print $desc;