#!/usr/bin/perl -w
# Script to check if I have some albums already
# 10 May 2007 (C) RedP

####### DB read functions #######
# where located lists with already downloaded albums
$LIST_DIR = 'C:/mp3/dvd.lists';

# where located currently image for dvd
$CUR_DIR = 'c:/mp3';

sub find_max_digit
{
  local($str, $which, $res);
  $res = 0;
  if ( ! opendir(D2, $CUR_DIR) )
  {
    warn("Cannot opendir " . $CUR_DIR);
    return undef;
  }
  while($str = readdir(D2) )
  {
    chomp $str;
    next if ( $str eq '.' or
              $str eq '..' );
    $which = $CUR_DIR . '/' . $str;
    next if ( ! -d $which );
    next if ( $str !~ /^dvd(\d+)/i );
    $which = int($1);
    $res = $which if ( $res < $which );
  }
  closedir(D2);
  return undef if ( !$res );
  return $res;
}

sub read_not_completed
{
  local $db = shift;
  local $which = find_max_digit();
  return if ( ! defined($which) );
  $which = sprintf("dvd%d", $which);
  local $dirname = $CUR_DIR . '/' . $which;
  local($str, $full, $band_name, $year, $album_name, @arr, $count);
  $count = 0;
  if ( !opendir(D3, $dirname) )
  {
    warn("Cannot opendir " . $dirname);
    return;
  }
  while($str = readdir(D3) )
  {
    chomp $str;
    next if ( $str eq '.' or
              $str eq '..' );
    $full = $dirname . '/' . $str;
    next if ( ! -d $full );
    # O`k, we have some dir
    if ( $str =~ /[\s\-]*(\d{4})[\s\-]*/ )
    {
      $band_name = lc($`);
      $album_name = lc($');
      $year = int($1);
      push @arr, [ $band_name, $year, $album_name ];
      $count++;
    } elsif ( $str =~ /\s+\-\s+/ )
    {
      $band_name = lc($`);
      $album_name = lc($');
      $year = 2006;
      push @arr, [ $band_name, $year, $album_name ];
      $count++;
    }
  }
  closedir(D3);
  if ( $count )
  {
    $db->{$which} = \@arr;
  }
}

sub dvd_db_read_one_file
{
  local $filename = shift;
  if ( ! open(FILE, $filename) )
  {
    warn("Cannot open " . $filename);
    return undef;
  }
  local($str, $band_name, $year, $album_name, @arr);
  while( $str = <FILE> )
  {
    chomp $str;
    $str =~ s/^\s*//;
    $str =~ s/\s*$//;
    next if ( $str eq '' );
    next if ( $str =~ /^###/ );
    next if ( $str =~ /^CD\d+:/ );
    if ( $str =~ /[\s\-]*(\d{4})[\s\-]*/ )
    {
      $band_name = lc($`);
      $album_name = lc($');
      $year = int($1);
      push @arr, [ $band_name, $year, $album_name ];
    } elsif ( $str =~ /\s+\-\s+/ )
    {
      $band_name = lc($`);
      $album_name = lc($');
      $year = 2006;
      push @arr, [ $band_name, $year, $album_name ];
    } else {
# for dvd.lists checking
#-#      printf("%s: bad name %s\n", $filename, $str);
    }
  }
  close FILE;
  return \@arr;
}

sub dvd_db_read_lists
{
  local(%hash, $file, $fullname, $aref);
  $LIST_DIR =~ s/[\\\/]$//;
  opendir(DIR, $LIST_DIR) or return undef;
  while( $file = readdir(DIR) )
  {
    next if ( $file eq '.' or
              $file eq '..' );
    $fullname = $LIST_DIR . '/' . $file;
    next if ( -d $fullname );
    $aref = dvd_db_read_one_file($fullname);
    $hash{lc($file)} = $aref if ( defined $aref );
  }
  closedir DIR;
  read_not_completed(\%hash) if ( defined $CUR_DIR );
  return \%hash;
}

####### search functions #######
sub dvd_db_find
{
  local $db = shift;
  local $what = shift;
  return undef if ( !defined($what) or $what eq '' );
  $what = lc($what);
  local($file, $aref, $iter, @res, $count);
  $count = 0;
  foreach $file ( keys %$db )
  {
    $aref = $db->{$file};
    foreach $iter ( @$aref )
    {
      if ( $iter->[0] =~ /$what/ )
      {
        $count++;
        push @res, [ $file, $iter->[0], $iter->[1], $iter->[2] ];
printf("%s: %s - %d - %s\n", $file, $iter->[0], $iter->[1], $iter->[2]);
        next;
      }
      if ( $iter->[2] =~ /$what/ )
      {
        $count++;
        push @res, [ $file, $iter->[0], $iter->[1], $iter->[2] ];
printf("%s: %s - %d - %s\n", $file, $iter->[0], $iter->[1], $iter->[2]);
        next;
      }
    }
  }
  return undef if ( !$count );
  return \@res;
}

### M A I N ###
local($db, $iter);
$db = dvd_db_read_lists();
foreach $iter ( @ARGV )
{
  dvd_db_find $db, $iter;
}