#!/usr/bin/perl -w

use DBIx::Class;
use lib '../lib';
use Carey::Schema;
use Data::Dumper;

die "Usage: $0 name\n\n" if $#ARGV < 0;
my $name = shift @ARGV;

my $schema = Carey::Schema->connect('DBI:mysql:database=careymss;host=localhost;port=3306', 'kiddb','', { PrintError => 1, RaiseError => 1});

my $rs = $schema->resultset('Name')->search({ full_name =>
                                              { regexp => '[[:<:]]'.$name.'[[:>:]]' }
                                            },
                                            {
                                             rows => 10,
                                             prefetch => 'account',
                                             order_by => { -asc => 'full_name' },
                                            });
$schema->storage->debug(1);

my @r = $rs->all;
foreach my $r (@r) {
  print "Full Name: ", $r->full_name, " (", $r->name_id, ")\n";
  
  foreach my $a ($r->account()) {
    print "  account_id=", $a->account_id();
    print " boxfolder_id=",$a->boxfolder_id()," ";

    my $t = $a->url();
    $t =~ m/value2=(\w+)\&/;
    print " URL: $1";

    my $b = $a->boxfolder();

    $vol = $b->{volume};
    $folder = $b->{folder};
    $range = $b->{range};
    print " V=$vol " if defined $vol;
    print " F=$folder " if defined $folder;
    print " R=$range " if defined $range;

    print "\n";
  }
}