2 # Ian Beckwith <ianb@erislabs.net>
6 use Getopt::Long qw(Configure);
8 $me=($0=~/(?:.*\/)?(.*)/)[0];
13 Configure(qw(bundling no_ignore_case));
14 my $optret=GetOptions(
15 "verbose|v" => \$verbose,
16 "quiet|q" => sub { $verbose=0; },
20 usage() if(!@ARGV || !$optret || $help);
24 die("Usage: $me [-v] [-q] [-h] [--] file...\n".
26 " -q\tQuiet (default)\n".
28 " --\tEnd of options\n");
40 B<> [I<-v>] [I<-q>] [I<-h>] [I<file>...]
50 Enable verbose operation.
54 Quiet (no output). This is the default.
58 Show a short help message.
74 None known. Please report any found to ianb@erislabs.net
80 Ian Beckwith <ianb@erislabs.net>
84 The latest version can be found at:
86 B<http://erislabs.net/ianb/projects/id3fs/>
90 Copyright 2010 Ian Beckwith <ianb@erislabs.net>
92 This program is free software: you can redistribute it and/or modify
93 it under the terms of the GNU General Public License as published by
94 the Free Software Foundation; either version 3 of the License, or
95 (at your option) any later version.
97 This program is distributed in the hope that it will be useful,
98 but WITHOUT ANY WARRANTY; without even the implied warranty of
99 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
100 GNU General Public License for more details.
102 You should have received a copy of the GNU General Public License
103 along with this program. If not, see <http://www.gnu.org/licenses/>.