[Collab-qa-commits] r1614 - udd/scripts

[Lucas Nussbaum]

Author: lucas
Date: 2009-11-03 06:17:13 +0000 (Tue, 03 Nov 2009)
New Revision: 1614

Modified:
   udd/scripts/testing-status-update
Log:
handle Sources.gz files

Modified: udd/scripts/testing-status-update
===================================================================
--- udd/scripts/testing-status-update	2009-11-03 06:16:10 UTC (rev 1613)
+++ udd/scripts/testing-status-update	2009-11-03 06:17:13 UTC (rev 1614)
@@ -148,6 +148,8 @@
   # read Sources
   if file =~ /^http:\/\//
     str = `wget -q -O - #{file} | gunzip`
+  elsif file =~ /\.gz$/
+    str = `zcat #{file}`
   else
     str = IO::read(file)
   end
@@ -204,9 +206,9 @@
 # combine data
 pkgsrcs.each_pair do |p, v|
   if not pkgs.has_key?(p)
-    pkgs[p] = PkgTestingStatus::new($datezero, '-', $datezero, '-', $datezero, '-', date)
+    pkgs[p] = PkgTestingStatus::new($datezero, '-', $datezero, '-', $datezero, '-', d)
   end
-  pkgs[p].update(date, v.testing, v.unstable)
+  pkgs[p].update(d, v.testing, v.unstable)
 
 end