Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:Tomcat42
perl-Apache-Gallery
Apache-Gallery-1.0.2_silence.patch
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File Apache-Gallery-1.0.2_silence.patch of Package perl-Apache-Gallery
--- Apache-Gallery-1.0.2/lib/Apache/Gallery.pm 2022-05-20 10:36:59.383041695 +0200 +++ Apache-Gallery-1.0.2_fix/lib/Apache/Gallery.pm 2022-05-20 10:40:00.576815153 +0200 @@ -9,6 +9,8 @@ $VERSION = "1.0.2"; +my $quiet = 1; + BEGIN { if (!exists($ENV{MOD_PERL_API_VERSION}) @@ -462,7 +464,7 @@ $r->document_root =~ m/(.*)\/$/; my $root_path = $1; - print STDERR "$filename vs $root_path\n"; + print STDERR "$filename vs $root_path\n" if !$quiet; if ($filename ne $root_path) { unless (opendir (PARENT_DIR, $parent_filename)) { show_error ($r, 500, $!, "Unable to access parent directory $parent_filename: $!"); @@ -489,7 +491,7 @@ foreach my $neighbour_directory (@neighbour_directories) { if ($parent_filename.'/'.$neighbour_directory eq $filename) { if ($neightbour_counter > 0) { - print STDERR "prev directory is " .$neighbour_directories[$neightbour_counter-1] ."\n"; + print STDERR "prev directory is " .$neighbour_directories[$neightbour_counter-1] ."\n" if !$quiet; my $linktext = $neighbour_directories[$neightbour_counter-1]; if (-e $parent_filename.'/'.$neighbour_directories[$neightbour_counter-1] . ".folder") { $linktext = get_filecontent($parent_filename.'/'.$neighbour_directories[$neightbour_counter-1] . ".folder"); @@ -500,7 +502,7 @@ DIR_FILES => "", ); $tpl_vars{PREV_DIR_FILES} = $templates{navdirectory}->fill_in(HASH=> {%info}); - print STDERR $tpl_vars{PREV_DIR_FILES} ."\n"; + print STDERR $tpl_vars{PREV_DIR_FILES} ."\n" if !$quiet; } if ($neightbour_counter < scalar @neighbour_directories - 1) { @@ -514,7 +516,7 @@ DIR_FILES => "", ); $tpl_vars{NEXT_DIR_FILES} = $templates{navdirectory}->fill_in(HASH=> {%info}); - print STDERR "next directory is " .$neighbour_directories[$neightbour_counter+1] ."\n"; + print STDERR "next directory is " .$neighbour_directories[$neightbour_counter+1] ."\n" if !$quiet; } } $neightbour_counter++; @@ -1335,13 +1337,13 @@ my $rotate = 0; - print STDERR "orientation: ".$imageinfo->{Orientation}."\n"; + print STDERR "orientation: ".$imageinfo->{Orientation}."\n" if !$quiet; # Check to see if the image contains the Orientation EXIF key, # but allow user to override using rotate if (!defined($r->dir_config("GalleryAutoRotate")) || $r->dir_config("GalleryAutoRotate") eq "1") { if (defined($imageinfo->{Orientation})) { - print STDERR $imageinfo->{Orientation}."\n"; + print STDERR $imageinfo->{Orientation}."\n" if !$quiet; if ($imageinfo->{Orientation} eq 'right_top') { $rotate=1; }
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor