#
use strict;
+use Getopt::Long qw(Configure);
use vars qw($me);
$me=($0=~/(?:.*\/)?(.*)/)[0];
my $verbose=0;
-my $doneargs=0;
-my $donesomething=0;
+my $help=0;
-while($_=shift)
-{
- if(/^-/ && !$doneargs)
- {
- if (/-v/) { $verbose=1; }
- elsif(/-q/) { $verbose=0; }
- elsif(/--/) { $doneargs=1; }
- elsif(/-h/) { usage(); }
- else { usage(); }
- next;
- }
- $donesomething=1;
- my $file=$_;
-}
-
-unless($donesomething)
-{
- usage();
-}
+Configure(qw(bundling no_ignore_case));
+my $optret=GetOptions(
+ "verbose|v" => \$verbose,
+ "quiet|q" => sub { $verbose=0; },
+ "help|h" => \$help,
+ );
+usage() if(!@ARGV || !$optret || $help);
sub usage
{
The latest version can be found at:
-B<http://erislabs.net/ianb/projects//>
+B<http://erislabs.net/ianb/projects/id3fs/>
=head1 COPYRIGHT
-Copyright 2008 Ian Beckwith <ianb@erislabs.net>
+Copyright 2010 Ian Beckwith <ianb@erislabs.net>
-This program is free software; you can redistribute it and/or modify
+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 2 of the License, or (at
-your option) any later version.
+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.
+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, write to the Free Software
-Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+along with this program. If not, see <http://www.gnu.org/licenses/>.
=cut
#
use strict;
+use Getopt::Long qw(Configure);
use vars qw($me);
$me=($0=~/(?:.*\/)?(.*)/)[0];
my $verbose=0;
-my $doneargs=0;
-my $donesomething=0;
+my $help=0;
-while($_=shift)
-{
- if(/^-/ && !$doneargs)
- {
- if (/-v/) { $verbose=1; }
- elsif(/-q/) { $verbose=0; }
- elsif(/--/) { $doneargs=1; }
- elsif(/-h/) { usage(); }
- else { usage(); }
- next;
- }
- $donesomething=1;
- my $file=$_;
-}
-
-unless($donesomething)
-{
- usage();
-}
+Configure(qw(bundling no_ignore_case));
+my $optret=GetOptions(
+ "verbose|v" => \$verbose,
+ "quiet|q" => sub { $verbose=0; },
+ "help|h" => \$help,
+ );
+usage() if(!@ARGV || !$optret || $help);
sub usage
{
The latest version can be found at:
-B<http://erislabs.net/ianb/projects//>
+B<http://erislabs.net/ianb/projects/id3fs/>
=head1 COPYRIGHT
-Copyright 2008 Ian Beckwith <ianb@erislabs.net>
+Copyright 2010 Ian Beckwith <ianb@erislabs.net>
-This program is free software; you can redistribute it and/or modify
+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 2 of the License, or (at
-your option) any later version.
+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.
+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, write to the Free Software
-Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+along with this program. If not, see <http://www.gnu.org/licenses/>.
=cut