aboutsummaryrefslogtreecommitdiffstats
path: root/lib/Youri
diff options
context:
space:
mode:
authorMichael Scherer <misc@mageia.org>2011-01-25 00:40:32 +0000
committerMichael Scherer <misc@mageia.org>2011-01-25 00:40:32 +0000
commit8c10de56caa84bb0f2cb166470366bb07403fe5d (patch)
treeb9137796253d1c1ad3795d0f682102f94eb6e0f5 /lib/Youri
parentc6daa327cbe33968849c24c0385e2b45770c72fb (diff)
downloadmga-youri-core-8c10de56caa84bb0f2cb166470366bb07403fe5d.tar
mga-youri-core-8c10de56caa84bb0f2cb166470366bb07403fe5d.tar.gz
mga-youri-core-8c10de56caa84bb0f2cb166470366bb07403fe5d.tar.bz2
mga-youri-core-8c10de56caa84bb0f2cb166470366bb07403fe5d.tar.xz
mga-youri-core-8c10de56caa84bb0f2cb166470366bb07403fe5d.zip
- add switches to have a less verbose module
Diffstat (limited to 'lib/Youri')
-rw-r--r--lib/Youri/Repository/Mageia_upload.pm10
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/Youri/Repository/Mageia_upload.pm b/lib/Youri/Repository/Mageia_upload.pm
index dc82593..522f0e6 100644
--- a/lib/Youri/Repository/Mageia_upload.pm
+++ b/lib/Youri/Repository/Mageia_upload.pm
@@ -326,7 +326,7 @@ sub _get_section {
# if have section already, check if it exists, and may return immediately
if ($section) {
- print "Using requested section $section\n";
+ print "Using requested section $section\n" if $self->{_verbose};
if ($media->{$arch}{$section}) {
return $section
} else {
@@ -374,7 +374,7 @@ sub _get_section {
# first try to find section for the specific version, as it is possibly already there;
# this is the case for when called in Youri::Submit::Action::Archive, to find the
# section the package got installed
- print "Looking for package $name with version $version-$release\n";
+ print "Looking for package $name with version $version-$release\n" if $self->{_verbose};
foreach my $m (keys %{$media->{$arch}}) {
print " .. section '$m' path '".$media->{$arch}{$m}."'\n" if $self->{_verbose};
# - prefer source for non-debug packages, use binary if there is no source media configured
@@ -429,7 +429,7 @@ sub _get_section {
# next time we don't need to search everything again
$self->{packages}{$file}{section} = $section;
- print "Section is '$section'.\n";
+ print "Section is '$section'.\n" if $self->{_verbose};
return $section;
}
@@ -453,7 +453,7 @@ sub get_upload_newer_revisions {
s/^\@\d+://;
return if ! /^$pattern/;
return if /\.info$/;
- print "Find $_\n";
+ print "Find $_\n" if $self->{_verbose} > 1;
push @packages, $File::Find::name if $package->check_ranges_compatibility("== $name", "< $_")
}, $path);
}
@@ -472,7 +472,7 @@ sub package_in_svn {
my $svn_entry = $ctx->ls("$self->{_svn}/$srpm_name", 'HEAD', 0);
if ($svn_entry) {
- print "Package $srpm_name is in the SVN\n";
+ print "Package $srpm_name is in the SVN\n" if $self->{_verbose};
return 1
}
}