CollectionId=>26154 Framecount=>6 Status=>SC Missing=>0 Modified=>01/22/2012 22:12:09 CollectionId=>26155 Framecount=>6 Status=>I Missing=>4 Modified=>01/22/2012 22:12:20 CollectionId=>25000 Framecount=>6 Status=>SC Missing=>0 Modified=>01/22/2012 22:13:07 CollectionId=>25002 Framecount=>6 Status=>I Missing=>5 Modified=>01/22/2012 22:13:14 CollectionId=>25009 Framecount=>6 Status=>I Missing=>5 Modified=>01/22/2012 22:13:19 CollectionId=>25309 Framecount=>6 Status=>I Missing=>5 Modified=>01/22/2012 22:13:25 CollectionId=>25349 Framecount=>6 Status=>I Missing=>5 Modified=>01/22/2012 22:13:31 CollectionId=>25318 Framecount=>6 Status=>I Missing=>5 Modified=>01/22/2012 22:13:37 CollectionId=>21318 Framecount=>6 Status=>I Missing=>5 Modified=>01/22/2012 22:13:43 CollectionId=>21342 Framecount=>6 Status=>I Missing=>5 Modified=>01/22/2012 22:13:56 ##

##

sub printCollectionData {

  my $arcFile = shift;
  my $orderBy = shift;
  my (@collectionData, @sortedCollectionData);
  my $semaphore = $arcFile . '.lock';
  my ($longStatus, $rowStyle, $rowColor);  
    
  open(LOCKFILE, ">>$semaphore") or die "$semaphore: $!";
  flock(LOCKFILE, LOCK_EX) or die "flock() failed for $semaphore: $!";
  open (ARCFILE, "<$arcFile") or die "Failed to open $arcFile: $!";
   
  # Retrieve file information from arcFile as an array of hashes
  while(  ) {
    my( $col, $cnt, $stat, $miss, $mod) = m[
        ^
        CollectionId \s* => \s* (\d+)? \s*
        Framecount \s* => \s* (\d+)? \s*
        Status     \s* => \s* (\w+)? \s*
        Missing    \s* => \s* ([\d,]+)? \s*
        Modified   \s* => \s* ([\d/]+\s[\d:]+)? \s*
        $

    ]x or warn "Bad format at line $.\n" and next;

    my( $modday, $modmon, $modyear, $modhrs, $modmin, $modsec ) = 
        $mod =~ m[(\d+)/(\d+)/(\d+) (\d+):(\d+):(\d+)]
        or warn "Bad date format in line $." and next;

    push @collectionData, {
        CollectionId => $col,
        Framecount => $cnt,
        Status => $stat,
        Missing => $miss,
        Modified => sprintf( "%4d/%02d/%02d %02d:%02d:%02d",
            $modyear, $modmon, $modday, $modhrs, $modmin, $modsec ),
    };
  }

  # Sort the collection according to orderBy param
  if($orderBy eq "collection") {
    @sortedCollectionData = sort {
    $collectionData[ $b ]{CollectionId} <=> $collectionData[ $a ]{CollectionId}
    ||
    $collectionData[ $b ]{Modified} cmp $collectionData[ $a ]{Modified}
    } 0 .. $#collectionData;
  }elsif($orderBy eq "framecount") {
    @sortedCollectionData = sort {
    $collectionData[ $b ]{Framecount} <=> $collectionData[ $a ]{Framecount}
    ||
    $collectionData[ $b ]{Modified} cmp $collectionData[ $a ]{Modified}
    } 0 .. $#collectionData;
  }elsif($orderBy eq "status") {
    @sortedCollectionData = sort {
    $collectionData[ $a ]{Status} cmp $collectionData[ $b ]{Status}
    ||
    $collectionData[ $b ]{Modified} cmp $collectionData[ $a ]{Modified}
    } 0 .. $#collectionData;
  }elsif($orderBy eq "missing") {
    @sortedCollectionData = sort {
    $collectionData[ $b ]{Missing} <=> $collectionData[ $a ]{Missing}
    ||
    $collectionData[ $b ]{Modified} cmp $collectionData[ $a ]{Modified}
    } 0 .. $#collectionData;
  }else { 
    @sortedCollectionData = sort {
    $collectionData[ $b ]{Modified} cmp $collectionData[ $a ]{Modified}
    } 0 .. $#collectionData;
  }
 
  my $transactions = scalar(@collectionData);
  for (my $i=0; $i < $transactions; $i++)
  {
    if($sortedCollectionData[$i]{'Status'} eq "I") {
      $longStatus = "Incomplete";
    }elsif($sortedCollectionData[$i]{'Status'} eq "SI") {
      $longStatus = "Submitted Incomplete";
    }elsif($sortedCollectionData[$i]{'Status'} eq "C") {
      $longStatus = "Submitted";
    }else{
      $longStatus = "Submitted Complete";
    }
 
    if (($i%2) == 0){
      $rowStyle = "oddrow";
      $rowColor = "#e5e5e5";
    }
    else {
      $rowStyle = "evenrow";
      $rowColor = "#ffffff";
      
    }
        
print qq{
  
    $sortedCollectionData[$i]{'CollectionId'}
    $sortedCollectionData[$i]{'Framecount'}
    $longStatus
    $sortedCollectionData[$i]{'Missing'}
    $sortedCollectionData[$i]{'Modified'}
  
  
};
  }
}