initial commit of stub project
authorIan Beckwith <ianb@erislabs.net>
Sun, 19 Sep 2010 17:43:36 +0000 (18:43 +0100)
committerIan Beckwith <ianb@erislabs.net>
Sun, 19 Sep 2010 17:43:36 +0000 (18:43 +0100)
bin/id3fs [new file with mode: 0644]
sbin/id3fsd [new file with mode: 0644]

diff --git a/bin/id3fs b/bin/id3fs
new file mode 100644 (file)
index 0000000..6260eb9
--- /dev/null
+++ b/bin/id3fs
@@ -0,0 +1,118 @@
+#!/usr/bin/perl -w
+# Ian Beckwith <ianb@erislabs.net>
+#
+
+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<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//>
+
+=head1 COPYRIGHT
+
+Copyright 2008 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 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 (file)
index 0000000..6260eb9
--- /dev/null
@@ -0,0 +1,118 @@
+#!/usr/bin/perl -w
+# Ian Beckwith <ianb@erislabs.net>
+#
+
+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<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//>
+
+=head1 COPYRIGHT
+
+Copyright 2008 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 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