#!/usr/bin/perl -w
# Ian Beckwith <ianb@erislabs.net>
#

use lib '/home/ianb/projects/id3fs/id3fs/lib';
use strict;
use Getopt::Long qw(Configure);
use ID3FS::DB;
use File::Find;
use vars qw($me);
$me=($0=~/(?:.*\/)?(.*)/)[0];

my $verbose=0;
my $help=0;
my $basedir=undef;
my $dbpath=undef;

my @extensions=qw(mp3); # ogg flac); # FIXME
Configure(qw(bundling no_ignore_case));
my $optret=GetOptions(
    "verbose|v"      => \$verbose,
    "quiet|q"        => sub { $verbose=0; },
    "help|h"         => \$help,
    "basedir|d=s"    => \$basedir,
    "database|db=s"  => \$dbpath,
    "extensions|e=s" => sub { @extensions=split(/\s+|\s*,\s*/, $_[1]); },
    );

usage() if(!@ARGV || !$optret || $help);

if(@ARGV > 1 && !defined($basedir))
{
    die("$me: --basedir must be specified if multiple paths are supplied\n");
}

my $db=ID3FS::DB->new($me, $dbpath, $basedir, $ARGV[0]);
$db->last_update(time());

while(my $path=shift)
{
    File::Find::find( {wanted => \&wanted, follow => 1, no_chdir => 1}, $path);
}

sub wanted
{
    my $ext='';
    if(/.*\.(.*)/) { $ext=lc($1); }
    if(-d)
    {
	print("$_\n") if $verbose;
    }
    elsif(-f && scalar(grep({ $ext eq lc($_);} @extensions)))
    {
	s/^\.\///;
	$db->add($_);
    }
}

sub usage
{
    die("Usage: $me [-v] [-q] [-h] [--] file...\n".
	" -v\tVerbose\n".
	" -q\tQuiet (default)\n".
	" -h\tThis help\n".
	" --\tEnd of options\n");
}

__END__


=head1 NAME

program - description

=head1 SYNOPSIS

B<> [I<-v>] [I<-q>] [I<-h>] [I<file>...]

=head1 DESCRIPTION

=head1 OPTIONS

=over 4

=item B<-v>

Enable verbose operation.

=item B<-q>

Quiet (no output). This is the default.

=item B<-h>

Show a short help message.

=item B<-->

End of options.

=back

=head1 FILES

=head1 ENVIRONMENT

=head1 DIAGNOSTICS

=head1 BUGS

None known. Please report any found to ianb@erislabs.net

=head1 SEE ALSO

=head1 AUTHOR

Ian Beckwith <ianb@erislabs.net>

=head1 AVAILABILITY

The latest version can be found at:

B<http://erislabs.net/ianb/projects/id3fs/>

=head1 COPYRIGHT

Copyright 2010 Ian Beckwith <ianb@erislabs.net>

This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 3 of the License, or
(at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program.  If not, see <http://www.gnu.org/licenses/>.

=cut