#!/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 => { like => $name }, },
#                                           { rows => 5,
#                                             order_by => { -asc => 'full_name' },
#                                             prefetch => { 'account' => 'boxfolder'},
#                                           });

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

#while (my $r = $rs->next) {
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";
    $vol = $a->boxfolder->volume;
    $folder = $a->boxfolder->volume;
    $range = $a->boxfolder->range;
    print " V=$vol " if defined $vol;
    print " F=$folder " if defined $folder;
    print " R=$range " if defined $range;

    print "\n";
  }
}