- add switches to have a less verbose module

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
     }
 }