Dirk Stoecker
d2c666e930
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-Apache-Gallery?expand=0&rev=3
64 lines
2.6 KiB
Diff
64 lines
2.6 KiB
Diff
--- 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;
|
|
}
|