]> wagner.pp.ru Git - oss/imgwww.git/commitdiff
Support for uppercase extensions.
authorVictor Wagner <vitus@wagner.pp.ru>
Sun, 3 Oct 2010 17:58:58 +0000 (17:58 +0000)
committerVictor Wagner <vitus@wagner.pp.ru>
Sun, 3 Oct 2010 17:58:58 +0000 (17:58 +0000)
Added permission fix for files

imagedir

index b11888229b171e704c410474879065e0b4170d37..9d66c098f1b6ed014456f1ea2e0bef287cb09271 100755 (executable)
--- a/imagedir
+++ b/imagedir
@@ -64,8 +64,10 @@ open OUT,">index.html";
 print OUT "<HTML><HEAD><TITLE>$dir</TITLE>\n<BODY>\n<H1>$dir</H1>\n"
 ."<p align=\"center\"><A HREF=\"..\">back</A></p>". 
  "<TABLE CELLSPACING=10 CELLPADDING=0 BORDER=0>\n";
-my @piclist=(<*.jpg>,<*.gif>,<*.png>) ;
-print STDERR "@piclist\n";
+my @piclist=grep (/\.(jpe?g|png|tiff?|gif)$/i, <*>) ;
+my @movielist= grep(/\.(mp4|avi|flv|mpg)$/i,<*>); 
+print STDERR "Pictures found @piclist\n";
+print STDERR "Videos found @movielist\n";
 my ($prev,$next);
 for ($j=0;$j<=$#piclist;$j++) {
   $_ = $piclist[$j];
@@ -76,6 +78,7 @@ for ($j=0;$j<=$#piclist;$j++) {
    $next = undef;
   } 
   print STDERR "$j:$_";
+  chmod 0644, $_;
   my $info = image_info($_);
   my $thumbname=rescale($_,THUMBDIR,THUMBSIZE,$info);
   my $inlinename=rescale($_,INLINEDIR,INLINESIZE,$info);