From: Ian Beckwith Date: Sun, 19 Sep 2010 17:43:36 +0000 (+0100) Subject: initial commit of stub project X-Git-Tag: debian/1.0-1~213 X-Git-Url: http://erislabs.net/gitweb/?p=id3fs.git;a=commitdiff_plain;h=add9a75b39352619d0b2dcab5e008c7d64f61eff initial commit of stub project --- add9a75b39352619d0b2dcab5e008c7d64f61eff diff --git a/bin/id3fs b/bin/id3fs new file mode 100644 index 0000000..6260eb9 --- /dev/null +++ b/bin/id3fs @@ -0,0 +1,118 @@ +#!/usr/bin/perl -w +# Ian Beckwith +# + +use strict; +use vars qw($me); +$me=($0=~/(?:.*\/)?(.*)/)[0]; + +my $verbose=0; +my $doneargs=0; +my $donesomething=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(); +} + + +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...] + +=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 + +=head1 AVAILABILITY + +The latest version can be found at: + +B + +=head1 COPYRIGHT + +Copyright 2008 Ian Beckwith + +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. + +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. + +=cut diff --git a/sbin/id3fsd b/sbin/id3fsd new file mode 100644 index 0000000..6260eb9 --- /dev/null +++ b/sbin/id3fsd @@ -0,0 +1,118 @@ +#!/usr/bin/perl -w +# Ian Beckwith +# + +use strict; +use vars qw($me); +$me=($0=~/(?:.*\/)?(.*)/)[0]; + +my $verbose=0; +my $doneargs=0; +my $donesomething=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(); +} + + +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...] + +=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 + +=head1 AVAILABILITY + +The latest version can be found at: + +B + +=head1 COPYRIGHT + +Copyright 2008 Ian Beckwith + +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. + +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. + +=cut