Deleted command that is no longer used, renamed commands to reflect their updated purpose.

all2sane

@@ -1,63 +0,0 @@
-#!/usr/bin/perl
-#
-# All of MP3 to Sane
-#   usage: all2sane <files>
-#
-# Renames the files to a sane format, then calls vcfromfilename
-# to set the vorbis comments
-# 
-# Requires vcfromfilename, fixname
-#
-# Changelog:
-# 0.2:   version now aligned with ds-audiotools
-# 0.1.2: automated artist determination
-# 0.1.1: added VERSION variable
-#        added call to fixname
-# 0.1:   initial implementation
-
-$VERSION = "0.2";
-$HELP_MSG = "All of MP3 to Sane v$VERSION\n\tusage: all2sane <files>\n";
-
-$END_CHUNK = '_\d{3}_ogg_.*\.ogg$'; # match the unwanted end of the string
-$DESIRED_END = '.ogg'; # replace the end chunk with this
-$ALLOFMP3_FORMAT = '^\d{2}_?-_?.*' . $END_CHUNK;
-
-if ($#ARGV < 0) { die $HELP_MSG; }
-foreach (@ARGV)
-{
-    if (/^(--help)|(-h)$/) { die $HELP_MSG; }
-}
-
-$artist = `cd .. && pwd`;
-$artist =~ s/^.*\///;
-
-foreach (@ARGV)
-{
-    next unless /$ALLOFMP3_FORMAT/;
-    my $old_name = $_;
-    
-    $_ = $artist . '-' . $_; # prepend artist
-    s/_-_/-/g; # clear up the _ problem
-    s/$END_CHUNK/$DESIRED_END/;
-
-    system('mv', $old_name, $_);
-    system('fixname', $_);
-    system('vcfromfilename', $_);
-}
-
-
-# Copyright (c) 2005 John Wiggins
-#
-# 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., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA