[Pkg-octave-commit] r1292 - octave-pkg-dev/trunk

[Rafael Laboissiere]

Author: rafael
Date: 2008-02-26 21:15:21 +0000 (Tue, 26 Feb 2008)
New Revision: 1292

Modified:
   octave-pkg-dev/trunk/get-oct-pkg-src.pl
Log:
Place correctly the '@' character for echoing suppression

Modified: octave-pkg-dev/trunk/get-oct-pkg-src.pl
===================================================================
--- octave-pkg-dev/trunk/get-oct-pkg-src.pl	2008-02-26 14:41:43 UTC (rev 1291)
+++ octave-pkg-dev/trunk/get-oct-pkg-src.pl	2008-02-26 21:15:21 UTC (rev 1292)
@@ -24,6 +24,9 @@
 open (CONTROL, "< ./debian/control")
   or die "$prog:E: File ./debian/control not found\n";
 
+open (CHGLOG, "< debian/changelog")
+  or die "$prog:E: File ./debian/changelog not found\n";
+
 my $pkgname = "";
 while (<CONTROL>) {
     if (/^Package: (.*)/) {
@@ -50,14 +53,28 @@
 $download ne ""
   or die "$prog:E: Tarball for $pkgname not found at SF site\n";
 
-(my $tarball = $download) =~ s/.*($pkgname-[\d.]+\.tar\.gz).*/$1/;
+(my $tarball = $download) =~ s/.*($pkgname-([\d.]+)\.tar\.gz).*/$1/;
+my $version = $2;
 
 if (-f $tarball) {
     print "$prog:W: Tarball $tarball already downloaded\n";
-    exit 0;
+} else {
+    system (qq {curl --location --silent --output $tarball "$download"}) == 0
+      or die "$prog:E: Cannot download $tarball from SF site\n";
+    print "$prog:I: Downloaded $tarball\n";
 }
 
-system (qq {curl --location --silent --output $tarball "$download"}) == 0
-  or die "$prog:E: Cannot download $tarball from SF site\n";
+my $debver;
 
-print "$prog:I: Downloaded $tarball\n";
+while (<CHGLOG>) {
+    if (/\((.*)\)/) {
+        $debver = $1;
+        last;
+    }
+}
+
+system ("dpkg --compare-versions $version lt $debver") == 0
+  or print "$prog:W: Version in debian/changelog is lower than upstream";
+
+system ("dpkg --compare-versions $version gt $debver") == 0
+  or print "$prog:W: Version in debian/changelog is higher than upstream";