rename id3fs to id3fs-index

diff --git a/bin/id3fs b/bin/id3fs
deleted file mode 100755 (executable)
index 62a631e..0000000
--- a/bin/id3fs
+++ /dev/null
@@ -1,142 +0,0 @@
-#!/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

diff --git a/bin/id3fs-index b/bin/id3fs-index
new file mode 100755 (executable)
index 0000000..62a631e
--- /dev/null
+++ b/bin/id3fs-index
@@ -0,0 +1,142 @@
+#!/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