From ff8fb87fb3b0fd8c2f394a7b651cd85e8ff8d1e5 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Sun, 3 Aug 1997 15:32:35 +0000
Subject: [PATCH] lilypond-0.1.22

---
 bin/show-latest.pl | 53 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 53 insertions(+)
 create mode 100644 bin/show-latest.pl

diff --git a/bin/show-latest.pl b/bin/show-latest.pl
new file mode 100644
index 0000000000..a75250b54f
--- /dev/null
+++ b/bin/show-latest.pl
@@ -0,0 +1,53 @@
+#!@PERL@
+# -*-Perl-*-
+
+
+$reldir="/home/hw/musix/releases";
+
+use FileHandle;
+use Getopt::Long;
+
+sub cmpver 
+{ 	
+    my(@a)= split( /\./, $a);
+    my(@b)= split( /\./, $b);
+    
+    for $i (0,1,2) {
+	return $a[$i] <=> $b[$i] if ($a[$i] != $b[$i]);
+    }
+    return $a cmp $b;
+}
+
+my @versions;
+open LS, "ls -1 $reldir|";
+
+GetOptions( 'print', 'news', 'latest');
+
+
+while (<LS>) {
+    $_ =~ /lilypond-([^.]+\.[^.]+\.[^.]+).tar.gz/;
+    push @versions, $1;
+}
+
+
+@versions = sort cmpver @versions;
+my $last= (pop @versions);
+
+
+if (  $opt_print ) {
+    print $last;
+}
+
+if ( $opt_latest) {
+    system "rm $reldir/zZ*";
+    system  "> $reldir/zZ_LATEST_IS_$last";
+}
+if ( $opt_news ) {
+    open NEWS, "tar --to-stdout  -zxf $reldir/lilypond-$last.tar.gz lilypond-$last/NEWS |";
+    input_record_separator NEWS "****";
+    $desc = <NEWS>;
+    chop ($desc);
+    close NEWS;
+
+    print $desc;
+}
-- 
2.39.5