r8896 - in /scripts/qa: DebianQA/Svn.pm DebianQA/Watch.pm fetchdata
tincho-guest at users.alioth.debian.org
tincho-guest at users.alioth.debian.org
Tue Nov 6 08:58:49 UTC 2007
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).
More information about the Pkg-perl-cvs-commits
mailing list