#!/usr/bin/perl

# findMissingFile

# goes through Cabaniss directory in archive and in web directories
# compares to see what's in one place and not in another

# jody DeRidder
# 4/1/10
## Copyright (c) 2010, The University of Alabama Libraries. 
## Contributed by Jody DeRidder, 6/10/10.
## All rights reserved.

## Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met:

##    * Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer.
##    * Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in 
##       the documentation and/or other materials provided with the distribution.
##    * Neither the name of The University of Alabama Libraries nor the names of its contributors may be used to endorse or promote products 
##       derived from this software without specific prior written permission.

##THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, 
##THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR 
##CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, 
##PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 
##LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
##EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.


$stored = "/srv/archive/u0003/0000252/";
$web = "/srv/www/htdocs/content/u0003/0000252/";



opendir (AR, $stored) or die "can't look through $stored\n";
while ($file = readdir(AR)){
   if ($file =~ /000000/ || $file =~ /^\./){  #skip dot files and previous digitized items
      next;
      }
   $path = $stored.$file;
   if (-d $path){ push (@mydirs, $path."/");}
   }
close (AR);

foreach $dir (@mydirs){
  opendir (DIR, $dir) or die "can't look through $dir\n";
   while ($file = readdir(DIR)){
     if ($file =~ /^\./){  #skip dot files and previous digitized items
        next;
        }
     $path = $dir.$file;
     if (-d $path){
         push (@mydirs, $path."/");
         }
     elsif ($file =~ /\.tif$/){  # get box number and increment count
       if ($file =~ /u0003\_0000252\_(\d{2})\d{5}/){
     
          ($webdir = $dir) =~ s,archive,www\/htdocs\/content,;
          ($image = $file) =~ s,\.tif,\_2048\.jpg,;
          $findme = $webdir.$image;
          if (! -e $findme){ print "missing:  $findme\n";}
          }
       else{ print "ERROR in filename!  $file in $path\n";}
     
       }
        
     }
  close (DIR);
  }

undef @mydirs;

opendir (WEB, $web) or die "can't look through $web\n";
while ($file = readdir(WEB)){
   if ($file =~ /000000/ || $file =~ /^\./){  #skip dot files and previous digitized items
      next;
      }
   $path = $web.$file;
   if (-d $path){ push (@mydirs, $path."/");}
   }
close (WEB);

foreach $dir (@mydirs){
  opendir (DIR, $dir) or die "can't look through $dir\n";
   while ($file = readdir(DIR)){
     if ($file =~ /^\./ || $file =~ /\.xml/ || $file =~ /\.txt/ || 
          $file =~ /\_512\.jpg$/ || $file =~ /\_128\.jpg$/){  #skip dot files and previous digitized items
        next;
        }
     $path = $dir.$file;
     if (-d $path){ 
         push (@mydirs, $path."/");
         }
     elsif ($file =~ /\_2048\.jpg$/){  # get box number and increment count
       if ($file =~ /u0003\_0000252\_(\d{2})\d{5}/){
          ($storedir = $dir) =~ s,www\/htdocs\/content,archive,;
          ($image = $file) =~ s,\_2048\.jpg,\.tif,;
          $findme = $storedir.$image;
          if (! -e $findme){  print "missing:  $findme\n";}
          }
       else{ print "ERROR in filename!  $file in $path\n";}

       }

     }
  close (DIR);
  }