r8896 - in /scripts/qa: DebianQA/Svn.pm DebianQA/Watch.pm fetchdata

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

Author: tincho-guest
Date: Tue Nov  6 08:58:49 2007
New Revision: 8896

URL: http://svn.debian.org/wsvn/?sc=1&rev=8896
Log:
- fetchdata: post-commit mode
- Svn: native package detection
- Watch: https support in watch files

Modified:
    scripts/qa/DebianQA/Svn.pm
    scripts/qa/DebianQA/Watch.pm
    scripts/qa/fetchdata

Modified: scripts/qa/DebianQA/Svn.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Svn.pm?rev=8896&op=diff
==============================================================================
--- scripts/qa/DebianQA/Svn.pm (original)
+++ scripts/qa/DebianQA/Svn.pm Tue Nov  6 08:58:49 2007
@@ -135,7 +135,11 @@
         info("Retrieving watchfile for $dir");
         my $watch = get_svn_file($svn, "$svnpath/$dir/debian/watch");
         unless($watch) {
-            $svn{$dir}{watch_error} = "Missing";
+            if($svn{$dir}{version} and $svn{$dir}{version} !~ /-/) {
+                $svn{$dir}{watch_error} = "Native";
+            } else {
+                $svn{$dir}{watch_error} = "Missing";
+            }
             next;
         }
         $watch = parse_watch($svn{$dir}{version}, $watch);

Modified: scripts/qa/DebianQA/Watch.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Watch.pm?rev=8896&op=diff
==============================================================================
--- scripts/qa/DebianQA/Watch.pm (original)
+++ scripts/qa/DebianQA/Watch.pm Tue Nov  6 08:58:49 2007
@@ -129,7 +129,7 @@
     my $wline = $watch{line};
     info("Processing watch line $wline");
 
-    unless($wline =~ m{^((?:http|ftp)://\S+)/}) {
+    unless($wline =~ m{^((?:https?|ftp)://\S+)/}) {
         warn("Invalid watch line: $wline");
         return("Invalid");
     }

Modified: scripts/qa/fetchdata
URL: http://svn.debian.org/wsvn/scripts/qa/fetchdata?rev=8896&op=diff
==============================================================================
--- scripts/qa/fetchdata (original)
+++ scripts/qa/fetchdata Tue Nov  6 08:58:49 2007
@@ -32,6 +32,10 @@
     'only=s' => \$only) or die "Error parsing command-line arguments!\n";
 
 die "Invalid module $only" if($only and $only !~ /^(svn|watch|bts|archive)$/);
+if($svn_rev) {
+    $only = "svn";
+    $opts->{force} = 0;
+}
 my @dirs = @ARGV;
 
 if($list_is_packages) {
@@ -86,6 +90,7 @@
                     directories.
  --svn-revision,
   -r REV            Current revision for scanning the Subversion repository.
+                    Implies --only svn --no-force (post-commit mode).
  --parallel, -j     Process in parallel (it will fork three processes).
  --only MODULE      Only run update for MODULE (svn|archive|watch|bts).