r8849 - in /scripts/qa/QA: DebBugs.pm DebianArchive.pm Svn.pm

[tincho-guest at users.alioth.debian.org]

Author: tincho-guest
Date: Sun Nov  4 18:18:17 2007
New Revision: 8849

URL: http://svn.debian.org/wsvn/?sc=1&rev=8849
Log:
A generic getter function for each source

Modified:
    scripts/qa/QA/DebBugs.pm
    scripts/qa/QA/DebianArchive.pm
    scripts/qa/QA/Svn.pm

Modified: scripts/qa/QA/DebBugs.pm
URL: http://svn.debian.org/wsvn/scripts/qa/QA/DebBugs.pm?rev=8849&op=diff
==============================================================================
--- scripts/qa/QA/DebBugs.pm (original)
+++ scripts/qa/QA/DebBugs.pm Sun Nov  4 18:18:17 2007
@@ -13,7 +13,7 @@
 use warnings;
 
 our @ISA = "Exporter";
-our @EXPORT = qw(bts_download bts_get);
+our @EXPORT = qw(bts_download bts_get bts_get_consolidated);
 
 use QA::Common;
 use QA::Cache;
@@ -100,6 +100,9 @@
 }
 # Returns the consolidated hash of bugs. Doesn't download anything.
 sub bts_get {
+    return read_cache("bts", "", 0);
+}
+sub bts_get_consolidated {
     return read_cache("consolidated", "bts", 0);
 }
 1;

Modified: scripts/qa/QA/DebianArchive.pm
URL: http://svn.debian.org/wsvn/scripts/qa/QA/DebianArchive.pm?rev=8849&op=diff
==============================================================================
--- scripts/qa/QA/DebianArchive.pm (original)
+++ scripts/qa/QA/DebianArchive.pm Sun Nov  4 18:18:17 2007
@@ -14,7 +14,7 @@
 use warnings;
 
 our @ISA = "Exporter";
-our @EXPORT = qw(deb_download deb_get);
+our @EXPORT = qw(deb_download deb_get deb_get_consolidated);
 
 use QA::Cache;
 use QA::Common;
@@ -105,8 +105,11 @@
     return $data;
 }
 # Returns the consolidated hash of versions. Doesn't download anything.
+sub deb_get_consolidated {
+    return read_cache("consolidated", "archive", 0);
+}
 sub deb_get {
-    return read_cache("consolidated", "archive", 0);
+    return read_cache("archive", "", 0);
 }
 sub get_sources {
     my($suite) = shift;

Modified: scripts/qa/QA/Svn.pm
URL: http://svn.debian.org/wsvn/scripts/qa/QA/Svn.pm?rev=8849&op=diff
==============================================================================
--- scripts/qa/QA/Svn.pm (original)
+++ scripts/qa/QA/Svn.pm Sun Nov  4 18:18:17 2007
@@ -15,7 +15,7 @@
 use warnings;
 
 our @ISA = "Exporter";
-our @EXPORT = qw(svn_download svn_get);
+our @EXPORT = qw(svn_download svn_get svn_get_consolidated);
 
 use IO::Scalar;
 use Digest::MD5 "md5_hex";
@@ -161,8 +161,11 @@
     return $cdata;
 }
 # Returns the consolidated hash of svn info. Doesn't download anything.
+sub svn_get_consolidated {
+    return read_cache("consolidated", "svn", 0);
+}
 sub svn_get {
-    return read_cache("consolidated", "svn", 0);
+    return read_cache("svn", "", 0);
 }
 # Parses watchfile, returns an arrayref containing one element for each source,
 # consisting of the URL spec, an MD5 sum of the line (to detect changes from