my $basedir=undef;
my $dbpath=undef;
my $list=0;
+my $init=0;
my @extensions=qw(mp3 flac ogg);
my $files_pruned;
);
usage() if(!@ARGV || !$optret || $help);
+$init=1 unless($list);
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]);
+my $db=ID3FS::DB->new($me, $verbose, $init, $dbpath, $basedir, $ARGV[0]);
+exit unless($db);
+
if($list)
{
list_tags($db);
}
}
-
-
-
sub list_tags
{
my($db)=@_;