annabunches/simple-audiotools
Archived
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Compare commits

base: annabunches:master
Branches Tags
annabunches:master
annabunches:0.2.3
annabunches:0.2.2
..
compare: annabunches:0.2.2
Branches Tags
annabunches:master
annabunches:0.2.3
annabunches:0.2.2

No commits in common. "master" and "0.2.2" have entirely different histories.
master ... 0.2.2

12 changed files with 297 additions and 492 deletions
Show Stats Expand all files Collapse all files

25
INSTALL
View File

@ -1,35 +1,18 @@
INSTALLATION INSTALLATION
------------ ------------
To install these scripts, simply copy them into your $PATH somewhere. To install these scripts, simply copy them into your $PATH somewhere. I recommend creating a local bin directory at ~/bin and adding it to your path. To do so, edit the file ~/.bashrc and add the line
I recommend creating a local bin directory at ~/bin and adding it to
your path. To do so, edit the file ~/.bashrc and add the line:
export PATH=$PATH:~/bin export PATH=$PATH:~/bin
Install ALL of the scripts, since some of them depend on others. Install ALL of the scripts, since some of them depend on others.
cdripper requires the CDDB and CDDB_get perl modules.
You will need the following perl modules for cdripper to work:
CDDB
CDDB_get
These are only needed if you want to pass '-y' to tagfromfilename:
Music::Tag::OGG
Music::Tag::FLAC
Music::Tag::MP3
Music::Tag::MusicBrainz
You will also need the following programs: You will also need the following programs:
cdparanoia cdparanoia
mplayer, mpg321, or mpg123 mplayer, mpg321, or mpg123
cdrecord
oggenc oggenc
cdrecord
vorbiscomment vorbiscomment
metaflac metaflac (for flac support)
id3v2

58
NEWS
View File

@ -1,58 +0,0 @@
simple-audiotools changes
-------------------------
v 0.2.4 ():
* cdripper: fixed bug with file tagging
Added options: -T, -0, -q, -f
* conv2ogg: Allow mplayer to handle any non-ogg file
Make invocations of files in other directories work
Use File::Path where appropriate
Added -q option
* fixname: Added ability to read from stdin
Better stripping of special characters
* tagfromfilename: added -T option
added releasedate support through MusicBrainz
added mp3 support and refactored code heavily
added -y option to explicitly look for the year
v 0.2.3:
* tagfromfilename: added -0 option
v 0.2.2:
* tagfromfilename: added flac support, documentation
v 0.2.1:
* conv2ogg: Added new options to mplayer for mplayer's new features
Added support for m4a if using mplayer
* tagfromfilename: fixed handling of dashes in artist name and title
v 0.2:
* cdripper: Implemented CDDB support
Ability to preview and edit track names before they're used
Added -y and -a options
* fixname: made everything more robust
v 0.1.4:
* fixname: added -o option
v 0.1.3:
* conv2ogg: Added mplayer support, automatically select decoder
Secured passing args to system() calls
v 0.1.2:
* added version variables
* cdripper: Removed the erroneous fixname, updated fixname to do what I need
Name prompt uses natural characters (capitals and spaces)
Added -o option
* conv2ogg: Use a temp dir for storage of intermediate wav file
Cleaned up some syntax
v 0.1.1:
* burnmusic: added command-line wrapper
v 0.1:
* Converted to perl
* cdripper: improved file naming system
* cdripper: integrated with vcfromfilename
* conv2ogg: use command-line args instead of stdin/stdout
v 0.0.4:
* cdripper: bug fixes
* fixname: fixed __ becoming - instead of _
v 0.0.3:
* cdripper: fixed bug with track numbers
v 0.0.2:
* Converted to bash
* fixname: use command-line args
v 0.0.1:
* Initial release

24
README
View File

@ -1,24 +0,0 @@
simple-audiotools is just a collection of perl scripts that I created over time as I found myself needing to do various things with my audio files in Linux.
Enjoy! And if you find anything doesn't work, feel free to file a bug on github :)
burnmusic - This program takes a speed to burn at, a CD-RW device file, and then a list of files to burn. It automatically converts them to .wav files, then burns them in CDDA-format (compatible with CD players). I never use this any more, so it is probably buggy and hasn't been updated in a very, very long time.
cdripper - cdripper rips the CD in whatever drive cdparanoia reads by default. It does a lot of neat stuff, including using CDDB to automatically generate filenames - if it can't find them, you'll be prompted to enter them interactively.
conv2ogg - transcodes anything you give it to ogg vorbis (decodes to PCM using mplayer, then encodes that into vorbis). This incurs a loss of quality, but if you want to take your music somewhere you don't have mp3 capability, this is nice.
cp2dap - designed for devices that support mp3 and ogg vorbis but not flac, such as most Android phones. Converts flacs to ogg, then copies everything over to your player (which is assumed to be mounted at /mnt/phone, and have /mnt/phone/music where music should be placed - these defaults are smart for Android)
dirclean - Possibly useful outside of music management - I wrote it as an easy way to list artist/album combinations on my filesystem.
fixname - renames files to fit my preferred standard, which is very Linux-friendly. Used in conjunction with rename, it can help you clean up odd filenames quickly.
tagfromfilename - Uses the filename and parent directory of a file to create metadata (vorbis comments, flac metadata, or ID3v2, as appropriate).

63
all2sane Executable file
View File

@ -0,0 +1,63 @@
#!/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

11
burnmusic
View File

@ -7,8 +7,14 @@
# The track order is as passed on the commandline # The track order is as passed on the commandline
# #
# Requires oggdec, mpg321, cdrecord # Requires oggdec, mpg321, cdrecord
#
# ChangeLog:
# 0.2: Aligned version with ds-audiotools
# 0.1.2: Added version variable
# 0.1.1: Added command-line wrapper, cleaned code
# 0.1: Initial code
$VERSION = "git"; $VERSION = "0.2"
$HELP_MSG = "# Music Burner v$VERSION\n\tusage: burnmusic <cdspeed> <device> <files>\n"; $HELP_MSG = "# Music Burner v$VERSION\n\tusage: burnmusic <cdspeed> <device> <files>\n";
$temp_dir = '/tmp/burnmusic-' . `whoami`; $temp_dir = '/tmp/burnmusic-' . `whoami`;
@ -42,7 +48,8 @@ system('cdrecord', '-v -pad -audio', "speed=$cdspeed", "dev=$device", "$temp_dir
system("rm -rf $temp_dir"); system("rm -rf $temp_dir");
# Copyright (c) 2005 John Wiggins
#
# 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 # it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or # the Free Software Foundation; either version 2 of the License, or

79
cdripper
View File

@ -1,30 +1,46 @@
#!/usr/bin/perl #!/usr/bin/perl
# #
# CD Ripper # CD Ripper
# usage: cdripper [-o num] [--no-cddb] [-T] [-0] [-a] [-y] [target_directory] # usage: cdripper [-o num] [--no-cddb] [-a] [-y] [target_directory]
# #
# Rips the contents of an audio CD into Ogg Vorbis files # Rips the contents of an audio CD into Ogg Vorbis files
# Puts the files in target_directory/artist/album_name/ # Puts the files in target_directory/artist/album_name/
# (default target_directory is ./) # (default target_directory is ./)
# #
# Requires cdparanoia, oggenc, vcfromfilename # Requires cdparanoia, oggenc, vcfromfilename
#
# Changelog:
# 0.2: Aligned version with ds-audiotools
# Implemented CDDB support (disabled with --no-cddb)
# Ability to preview and edit all text before it's used
# -y option to suppress all user input, taking defaults
# -a option to be asked about CDDB options
# 0.1.2: Removed the erroneous fixname, updated fixname to do what I need
# Now you can name things with natural characters, and it should be
# automatically fixed
# Added the -o option, functions as -o num, makes the first track
# num + 1
# 0.1.1: Added version variable
# 0.1: changed to perl (from bash)
# improved file naming mechanism
# added Vorbiscomment updating (using vcfromfilename script)
# added program to ds-audio package
# 0.0.4: fixed track #s above 10 not happening :P
# 0.0.3: fixed the bug with track #s
# 0.0.2: changed entire code to bash script (from C++)
# 0.0.1: basic code in place
use CDDB_get qw( get_cddb ); use CDDB_get qw( get_cddb );
$VERSION = "git"; $VERSION = "0.2";
$HELP_MSG = "# CD Ripper v$VERSION\n\tusage: cdripper [--no-cddb] [-a] " . $HELP_MSG = "# CD Ripper v$VERSION\n\tusage: cdripper [--no-cddb] [-a] " .
"[-y] [-T] [-0] [-o num] [target_directory]\n\n" . "[-y] [-o num] [target_directory]\n\n" .
"Options:\n-a:\t\tAsk users about multiple CDDB options\n" . "Options:\n-a:\t\tAsk users about multiple CDDB options\n" .
"-o [num]:\tOffset track numbers by num. The first track will be num+1\n" . "-o [num]:\tOffset track numbers by num. The first track will be num+1\n" .
"-y:\t\tDon't prompt for user confirmation of CDDB information\n\t\t(assume defaults are okay).\n" . "-y:\t\tDon't prompt for user confirmation of CDDB information\n\t\t(assume defaults are okay).\n" .
"--no-cddb:\tDon't use CDDB. Prompt the user for all information.\n" . "--no-cddb:\tDon't use CDDB. Prompt the user for all information.\n";
"-T:\t\tWrite uppercase tag names. Passes -T to tagfromfilename\n" .
"-q <number>:\tquality to encode the vorbis data. Defaults to 10. Unused in FLAC mode.\n" .
"-f:\t\tencode to FLAC instead of vorbis\n" .
"-0:\t\tPreserve leading 0 in track numbers\n";
$CDPARANOIA_FORMAT = 'track*.cdda'; $CDPARANOIA_FORMAT = 'track*.cdda';
$quality = '7';
$TRACK_ZERO = 'track00'; $TRACK_ZERO = 'track00';
chomp($orig_dir = `pwd`); chomp($orig_dir = `pwd`);
chomp($temp_dir = '/tmp/ds-cdripper-' . `whoami`); chomp($temp_dir = '/tmp/ds-cdripper-' . `whoami`);
@ -33,9 +49,6 @@ $offset = 0;
$useCDDB = 1; $useCDDB = 1;
$noInput = 0; $noInput = 0;
$askCDDB = 0; $askCDDB = 0;
$flac_mode = 0;
$tagoptions = '';
foreach (@ARGV) foreach (@ARGV)
{ {
@ -44,22 +57,13 @@ foreach (@ARGV)
$offset = $_; $offset = $_;
$offsetOnNext = 0; $offsetOnNext = 0;
} }
elsif ($qualityOnNext)
{
$quality = $_;
$qualityOnNext = 0;
}
else else
{ {
if (/^(--help)|(-h)$/) { print $HELP_MSG; exit; } if (/^(--help)|(-h)$/) { print $HELP_MSG; exit; }
elsif (/^-o$/) { $offsetOnNext = 1; } elsif (/^-o$/) { $offsetOnNext = 1; }
elsif (/^--no-cddb$/) { $useCDDB = 0; } elsif (/^--no-cddb$/) { $useCDDB = 0; }
elsif (/^-y$/) { $noInput = 1; } elsif (/^-f$/) { $noInput = 1; }
elsif (/^-a$/) { $askCDDB = 1; } elsif (/^-a$/) { $askCDDB = 1; }
elsif (/^-f$/) { $flac_mode = 1; }
elsif (/^-q$/) { $qualityOnNext = 1; }
elsif (/^-T$/) { $tagoptions .= ' -T'; }
elsif (/^-0$/) { $tagoptions .= ' -0'; }
else else
{ {
$target_directory = $_; $target_directory = $_;
@ -67,11 +71,6 @@ foreach (@ARGV)
} }
} }
# Extension, for use in later commands
if ($flac_mode) { $extension = 'flac'; }
else { $extension = 'ogg'; }
# Create temp location # Create temp location
system("rm -rf $temp_dir 2> /dev/null"); system("rm -rf $temp_dir 2> /dev/null");
mkdir($temp_dir); mkdir($temp_dir);
@ -82,14 +81,7 @@ handle_names();
# Rip, convert # Rip, convert
system('cdparanoia -B'); system('cdparanoia -B');
if ($flac_mode) system("oggenc $CDPARANOIA_FORMAT.wav");
{
system("flac $CDPARANOIA_FORMAT.wav");
}
else
{
system("oggenc -q $quality $CDPARANOIA_FORMAT.wav");
}
$sanityTest = `ls -1 | wc -l`; $sanityTest = `ls -1 | wc -l`;
chomp $sanityTest; chomp $sanityTest;
die "No files were created. Aborting." unless ($sanityTest > 0); die "No files were created. Aborting." unless ($sanityTest > 0);
@ -108,11 +100,7 @@ chdir($final_location);
warn "Some files were not automatically named." if $unhandledFiles; warn "Some files were not automatically named." if $unhandledFiles;
# Add vorbiscomment data # Add vorbiscomment data
#debug system('vcfromfilename', @new_tracks);
print `pwd`;
print `ls`;
#end debug
system('tagfromfilename', $tagoptions, @new_tracks);
# Clean up # Clean up
chdir($orig_dir); chdir($orig_dir);
@ -150,8 +138,8 @@ sub getinfo_user
chomp (my $input = <STDIN>); chomp (my $input = <STDIN>);
my $input = `fixname -o "$input"`; my $input = `fixname -o "$input"`;
my $track_name = $artist . '-' . $current_track . '-' . $input . '.' . my $track_name = $artist . '-' . $current_track . '-' . $input .
$extension; '.ogg';
push @new_tracks, $track_name; push @new_tracks, $track_name;
$current_track++; $current_track++;
@ -179,7 +167,7 @@ sub getinfo_cddb
foreach (@{$cd{track}}) foreach (@{$cd{track}})
{ {
my $track_name = $artist . '-' . $current_track . '-' . my $track_name = $artist . '-' . $current_track . '-' .
`fixname -o "$_"` . '.' . $extension; `fixname -o "$_"` . '.ogg';
push @new_tracks, $track_name; push @new_tracks, $track_name;
$current_track++; $current_track++;
@ -214,7 +202,7 @@ sub init_current_track
# Populates the @old_tracks array # Populates the @old_tracks array
sub init_old_tracks sub init_old_tracks
{ {
foreach (`ls $CDPARANOIA_FORMAT.$extension`) foreach (`ls $CDPARANOIA_FORMAT.ogg`)
{ {
chomp; chomp;
next if /$TRACK_ZERO/; next if /$TRACK_ZERO/;
@ -279,7 +267,8 @@ sub get_number_of_tracks()
return pop @tracks; return pop @tracks;
} }
# Copyright (c) 2004 - 2007 John Wiggins
#
# 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 # it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or # the Free Software Foundation; either version 2 of the License, or

73
cp2dap
View File

@ -1,73 +0,0 @@
#!/usr/bin/perl
#
# Expects a list of directories that contain ogg|flac
# Directories should be of the form: artist/album
# (i.e., not full paths or relative paths other than this)
$VERSION = "git";
$HELP_MSG = "# Copy files to DAP, converting flac to ogg v$VERSION\n\tusage: copy_top_dap artist1/album1 artist2/album2 ...";
use File::Path qw(make_path remove_tree);
use Cwd;
my $dest='/mnt/phone/music/';
my $tmpdir='/tmp/cp2dap/';
# Do we need help?
foreach (@ARGV)
{
if (/^(--help)|(-h)$/) { die $HELP_MSG; }
}
# Abort if dest doesn't exist - its existence should be a prereq
die "Destination directory not found. Is the DAP mounted?" unless -d $dest;
# Clean out any tmpdir cruft
remove_tree $tmpdir;
foreach (@ARGV)
{
next unless (-d);
# Are any of the files flac?
my $has_flac;
my @files = `ls $_`;
foreach (@files)
{
chomp;
if (/\.flac$/i)
{
$has_flac = true;
break;
}
}
# If we have flac, copy to tmpdir and convert first, then copy to
# dest
if ($has_flac)
{
make_path "$tmpdir/$_";
make_path "$dest/$_";
system("cp -r $_/* $tmpdir/$_/");
system("conv2ogg $tmpdir/$_/*.flac");
my $dir = cwd;
chdir "$tmpdir/$_";
system("tagfromfilename *");
chdir $dir;
system("cp -r $tmpdir/$_/* $dest/$_/");
}
else
{
make_path "$dest/$_";
system("cp -r $_/* $dest/$_/");
}
undef $has_flac;
}
remove_tree $tmpdir;

7
dirclean
View File

@ -10,9 +10,12 @@
# #
# This information is printed to stdout. # This information is printed to stdout.
# Further, the script only goes two levels deep. # Further, the script only goes two levels deep.
#
# ChangeLog:
# 0.2 - aligned version with ds-audiotools
# 0.1 - initial version
$VERSION = "0.2";
$VERSION = "git";
$HELP_MSG = "# dirclean v$VERSION\n\tusage: dirclean <directory>\n\t"; $HELP_MSG = "# dirclean v$VERSION\n\tusage: dirclean <directory>\n\t";
foreach (@ARGV) foreach (@ARGV)

35
fixname
View File

@ -3,17 +3,29 @@
# File Name Fixer # File Name Fixer
# usage: fixname <files> # usage: fixname <files>
# #
# Renames files to comply with Anna's arbitrary standard # Renames files to comply with darkside's arbitrary standard
# #
# This is Anna's standard: # This is darkside's standard:
# 1) all letters are lowercase # 1) all letters are lowercase
# 2) Whitespace becomes underscore # 2) Whitespace becomes underscore
# 3) Never more than one consecutive underscore # 3) Never more than one consecutive underscore
# 4) No underscores flanking dashes # 4) No underscores flanking dashes
# 4) Never more than one consecutive dash # 4) Never more than one consecutive dash
#
# ChangeLog:
# 0.2: Made everything more robust - better at multiple spaces and special
# characters now. Also now renumbering along with ds-audiotools
# 0.1.4: Added -o option, which prints to stdout instead of renaming the file
# 0.1.3: Added version variable
# 0.1.2: Added help message
# 0.1.1: Made code compile and run, no known bugs
# 0.1: Switched code to perl with regular expressions
# 0.0.4: Minor bugs fixed, __ was becoming - instead of _
# 0.0.3: Minor bugs fixed, code improved
# 0.0.2: Takes command-line arguments instead of parsing entire directory
# 0.0.1: basic code in place
$VERSION = "0.2";
$VERSION = "git";
$HELP_MSG = "# Filename fixer v$VERSION\n\tusage: fixname <files>\n\t fixname -o \"name\"\n"; $HELP_MSG = "# Filename fixer v$VERSION\n\tusage: fixname <files>\n\t fixname -o \"name\"\n";
die $HELP_MSG if ($#ARGV < 0); die $HELP_MSG if ($#ARGV < 0);
@ -24,30 +36,19 @@ foreach (@ARGV)
{ {
$toStdOut = true; $toStdOut = true;
} }
if (/^-i$/)
{
$fromStdIn = true;
}
} }
@ARGV = grep(!/^-o$/, @ARGV) if ($toStdOut); @ARGV = grep(!/^-o$/, @ARGV) if ($toStdOut);
@ARGV = grep(!/^-i$/, @ARGV) if ($fromStdIn);
if ($fromStdIn) { @names = <STDIN>; }
else { @names = @ARGV; }
foreach (@ARGV) foreach (@ARGV)
{ {
my $oldname = $_; my $oldname = $_;
s/(.*)/lc($1)/e; # Lowercase it s/(.*)/lc($1)/e; # Lowercase it
s/[()\[\]{}!@#\$%^*,;:\'~]//g; # Remove odd characters that could break bash s/[^\w\s\.-]//g; # Remove odd characters
s/[&]/and/g; # & to 'and'
s/\s/_/g; # Change whitespace to _ s/\s/_/g; # Change whitespace to _
s/_+/_/g; # Squash multiple spaces s/_+/_/g; # Squash multiple spaces
s/\.+/\./g; # Squash multiple dots
s/^_*//; # Remove leading space s/^_*//; # Remove leading space
s/_*$//; # Remove trailing space s/_*$//; # Remove trailing space
s/_*(-|\.)_*/$1/g; # Remove space flanking a - or . s/_*(-|\.)_*/$1/g; # Remove space flanking a - or .
@ -57,6 +58,8 @@ foreach (@ARGV)
} }
# Copyright (c) 2004 - 2007 John Wiggins
#
# 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 # it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or # the Free Software Foundation; either version 2 of the License, or

76
conv2ogg → mp32ogg
View File

@ -1,37 +1,38 @@
#!/usr/bin/perl #!/usr/bin/perl
# #
# Ogg converter # MP3 - Ogg converter
# usage: conv2ogg <files> # usage: mp32ogg <files>
# #
# Creates ogg files from the selected audio files # Creates ogg files from the selected mp3 files
# #
# Requires one of mpg321, mpg123 or mplayer, and oggenc # Requires one of mpg321, mpg123 or mplayer, and oggenc
# Requires mplayer for support for non-mp3 filetypes #
# Changelog:
# 0.2.1: Added new options to mplayer for mplayer's new features
# Added support for m4a if using mplayer
# 0.2: Aligned version with ds-audiotools
# 0.1.3: Added mplayer support, automatically select decoder
# Fixed option passing to system() calls to be as secure as possible
# 0.1.2: added support for passing flags
# Use a temp dir for storage of intermediate wav file
# Cleaned up some syntax
# Added version variable
# 0.1: converted to perl
# changed to use command-line args
# 0.0.1: Initial bash script
$VERSION = "0.2";
$VERSION = "git"; $HELP_MSG = "# MP3 - Ogg Converter v$VERSION\n\tusage: mp32ogg <files>";
$HELP_MSG = "# Audio file - Ogg Converter v$VERSION\n\tusage: conv2ogg [-q] <files>\n" .
"\t\t-q <number>: Use quality for encoding. Default 10";
$DEC_ERROR = "Couldn't find a decoder to use. Please install one of mplayer, mpg321, or mpg123"; $DEC_ERROR = "Couldn't find a decoder to use. Please install one of mplayer, mpg321, or mpg123";
$ENC_ERROR = "Couldn't find oggenc, which is necessary for encoding. Please install the package that provides oggenc (probably named 'oggenc' or 'vorbistools')"; $ENC_ERROR = "Couldn't find oggenc, which is necessary for encoding. Please install the package that provides oggenc (probably named 'oggenc' or 'vorbistools')";
use File::Path qw(make_path remove_tree); chomp($tempdir = '/tmp/mp32ogg-' . `whoami`);
chomp($tempdir = '/tmp/conv2ogg-' . `whoami`);
$quality = 7;
# Do we need help? # Do we need help?
foreach (@ARGV) foreach (@ARGV)
{ {
if (/^(--help)|(-h)$/) { die $HELP_MSG; } if (/^(--help)|(-h)$/) { die $HELP_MSG; }
if ($qualityOnNext)
{
$quality = $_;
$qualityOnNext = 0;
}
elsif (/^-q$/) { $qualityOnNext = 1; }
} }
# Select the encoder and decoder # Select the encoder and decoder
@ -52,28 +53,17 @@ die $DEC_ERROR if (! -x $decoder);
die $ENC_ERROR if (! -x $encoder); die $ENC_ERROR if (! -x $encoder);
# Set up the temp directory # Set up the temp directory
remove_tree $tempdir; system('rm', '-rf', $tempdir) if (-d $tempdir);
make_path $tempdir; mkdir($tempdir);
foreach(@ARGV) foreach(@ARGV)
{ {
my $directory;
if (/\//)
{
$directory = $_;
$directory =~ s|^(.*)/.*?$|\1|;
}
else { $directory = '.'; }
$filename = $_; $filename = $_;
$filename =~ s|^.*/(.*)?$|\1|; $short_name = $_;
$short_name = $filename;
if ($decoder =~ /mplayer/) if ($decoder =~ /mplayer/)
{ {
next if (/\.ogg/); next unless (/\.(m4a|mp3)/);
$short_name =~ s/\..*?$//; $short_name =~ s/\.(mp3|m4a)$//;
} }
else else
{ {
@ -82,19 +72,19 @@ foreach(@ARGV)
} }
# Transcode the file # Transcode the file
system("$decoder $directory/$filename $decoder_options$tempdir/$short_name.wav"); system("$decoder $filename $decoder_options$tempdir/$short_name.wav");
system($encoder, "-q $quality", "$tempdir/$short_name.wav", '-o', "$directory/$short_name.ogg"); system($encoder, "$tempdir/$short_name.wav", '-o', "$short_name.ogg");
# Remove old file # Remove cruft
system('rm', "$directory/$filename"); system('rm', "$tempdir/$short_name.wav");
system('rm', "$filename");
} }
# Remove last of the cruft # Remove last of the cruft
remove_tree $tempdir; system('rm', '-rf', $tempdir);
# Copyright (c) 2005 - 2008 John Wiggins
#
# 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 # it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or # the Free Software Foundation; either version 2 of the License, or

208
tagfromfilename
View File

@ -1,208 +0,0 @@
#!/usr/bin/perl
#
# Vorbiscomment from Filename
# usage: vcfromfilename [options] <files>
# options:
# -n: Only set the track number
# -0: Leading 0s in track number are preserved
# -T: Tag names (not tag content) written to the metadata in all caps
#
# Adds Vorbiscomment data to ogg vorbis and flac files based on the filename.
# Files should be in Anna's arbitrary file name standard, which is:
# artist/album/artist-tracknum-title.(ogg|flac|mp3)
#
# The top-level directory (artist) is optional. Filenames should contain no
# spaces; underscores in the filename are converted to spaces in the resulting
# metadata
#
# Requires vorbiscomment and metaflac
$VERSION = "git";
$HELP_MSG = "Vorbiscomment from Filename $VERSION\n\tusage: vcfromfilename [options] <files>\n\nValid options:\n\t-n\tOnly set the track numbers\n\t-0\tPreserve leading 0s in track numbers\n\t-T: Write tag names (not tag content) in all caps\n";
use Music::Tag;
chomp($COMMENTFILENAME = '/tmp/vcfromfilename-' . `whoami`);
# Look for options
foreach (@ARGV)
{
if (/^(-h)|(--help)$/) { die $HELP_MSG; }
elsif (/^-n$/) { $tracknumonly = true; s/.*//g; }
elsif (/^-T$/) { $captagnames = true; s/.*//g; }
elsif (/^-0$/) { $extrazero = true; s/.*//g; }
elsif (/^-y$/) { $get_year = true; s/.*//g; }
else { push @tracks, $_; }
}
# Set the mode
if ($tracks[0] =~ /\.flac$/) { $mode = 'flac'; }
elsif ($tracks[0] =~ /\.mp3$/) { $mode = 'mp3'; }
elsif ($tracks[0] =~ /\.ogg$/) { $mode = 'ogg'; }
else { die "Couldn't detect mode"; }
# Set the album name
$album = `pwd`; # We WANT the newline here
$album =~ s/^.*\///; # Remove everything up to the last /
$album = formatName($album, 'album=', $captagnames, $mode);
# Try to find the release date
$year;
if ($get_year)
{
$mbinfo = Music::Tag->new($tracks[0]);
if ($mode eq 'ogg') { $mbinfo->add_plugin($mbinfo->plugin("OGG")); }
elsif ($mode eq 'flac') { $mbinfo->add_plugin($mbinfo->plugin("FLAC")); }
elsif ($mode eq 'mp3') { $mbinfo->add_plugin($mbinfo->plugin("MP3")); }
$mbinfo->add_plugin("MusicBrainz");
$mbinfo->get_tag();
$year = formatName($mbinfo->year, 'year=', $captagnames, $mode);
}
# Parse the file list, set comments
foreach (@ARGV)
{
next if (/^$/);
# check filename format
next unless (/^\w+-\d{1,2}-(\w|-|\d)+\.(ogg|flac|mp3)$/);
if ($mode eq 'flac' || $mode eq 'ogg')
{
open COMMENTFILE, '>' . $COMMENTFILENAME;
}
# Remove old comments
if ($mode eq 'flac')
{
system("metaflac --remove-tag=TRACKNUMBER $_");
system("metaflac --remove-tag=tracknumber $_");
if (!$tracknumonly)
{
system("metaflac --remove-tag=TITLE --remove-tag=ARTIST --remove-tag=ALBUM --remove-tag=YEAR $_");
system("metaflac --remove-tag=title --remove-tag=artist --remove-tag=album --remove-tag=year $_");
}
}
elsif ($mode eq 'mp3')
{
system("id3v2 -D $_");
}
# For ogg, preserve existing comments, except the ones we'll replace
else
{
foreach (`vorbiscomment -l $_`)
{
if ($tracknumonly) { print COMMENTFILE $_ unless (/^tracknumber/i); }
else { print COMMENTFILE $_ unless (/^(title)|(artist)|(tracknumber)|(album)|(year)/i); }
}
}
# Create new comments from the filename
if (!$tracknumonly)
{
# Add the artist
$artist = $_;
$artist =~ s/^(.*?)-\d{2}-.*/\1/; # grab everything to the track number
$artist = formatName($artist, 'artist=', $captagnames, $mode);
# Add the title
$title = $_;
$title =~ s/.*-\d{2}-(.*)\.(ogg|flac|mp3)$/\1/; # grab everything after the track number
$title = formatName($title, 'title=', $captagnames, $mode);
# For some modes, print everything to a comment file
if ($mode eq 'flac' || $mode eq 'ogg')
{
print COMMENTFILE $year;
print COMMENTFILE $artist;
print COMMENTFILE $title;
print COMMENTFILE $album;
}
}
# Now get the track number
my $tracknum = $_;
$tracknum =~ s/.*-(\d{2})-.*/\1/;
if (!$extrazero) { $tracknum =~ s/\b0*//; } # removing leading zeros
$tracknum = formatName($tracknum, 'tracknumber=', $captagnames, $mode);
if ($mode eq 'flac' || $mode eq 'ogg')
{
print COMMENTFILE $tracknum;
close COMMENTFILE;
}
if ($mode eq 'flac') { system("metaflac --import-tags-from=$COMMENTFILENAME $_"); }
elsif ($mode eq 'mp3')
{
$tags = "";
$tags .= "-T $tracknum" if $tracknum;
if (!$tracknumonly)
{
$tags .= " -a '$artist'" if $artist;
$tags .= " -t '$title'" if $title;
$tags .= " -A '$album'" if $album;
$tags .= " -y $year" if $year;
}
system("id3v2 $tags $_");
}
elsif ($mode eq 'ogg')
{
system("vorbiscomment -c $COMMENTFILENAME -w $_");
}
if ($mode eq 'flac' || $mode eq 'ogg') { system('rm', $COMMENTFILENAME); }
}
# Formats the first argument, adds the second argument to it
# If the third argument is true, the second argument is converted
# to upper case
sub formatName
{
my $name = shift;
my $prepend = shift;
my $upper = shift;
my $mode = shift;
if ($upper) { $prepend = uc($prepend); }
chomp $name; # we add a newline ourselves
$name =~ s/_/ /g; # underscore - space
$name =~ s/^\s*//; # Remove leading space
$name =~ s/\s*$//; # Remove trailing space
$name =~ s/\b(\w)/uc($1)/eg; # Cap the words
if ($mode eq 'flac' || $mode eq 'ogg')
{
$name = $prepend . $name . "\n";
}
return $name;
}
# 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

130
vcfromfilename Executable file
View File

@ -0,0 +1,130 @@
#!/usr/bin/perl
#
# Vorbiscomment from Filename
# usage: vcfromfilename [options] <files>
# options:
# -n: Only set the track number
#
# Adds Vorbiscomment data to ogg vorbis and flac files based on the filename.
# Files should be in darkside's arbitrary file name standard, which is:
# album/artist-tracknum-title.(ogg|flac)
#
# Requires vorbiscomment and metaflac
#
# Changelog:
# 0.2.2: added flac support
# 0.2.1: fixed version in help message
# fixed handling of dashes in artist name and title
# 0.2: aligned version with ds-audiotools
# 0.1.1: added version variable
# 0.1: initial implementation
$VERSION = "0.2.2";
$HELP_MSG = "Vorbiscomment from Filename $VERSION\n\tusage: vcfromfilename [options] <files>\n";
chomp($COMMENTFILENAME = '/tmp/vcfromfilename-' . `whoami`);
# Look for options
foreach (@ARGV)
{
if (/^(-h)|(--help)$/) { die $HELP_MSG; }
if (/^-n$/) { $tracknumonly = true; s/.*//g; }
}
# Set the album name
$album = `pwd`; # We WANT the newline here
$album =~ s/^.*\///; # Remove everything up to the last /
$album = formatName($album, 'album=');
# Parse the file list, set vorbiscomments
foreach (@ARGV)
{
next if (/^$/);
# check filename format
next unless (/^\w+-\d{1,2}-(\w|-|\d)+\.(ogg|flac)$/);
$isflac = true if (/\.flac$/);
open COMMENTFILE, '>' . $COMMENTFILENAME;
# Remove old flac comments that match
if ($isflac)
{
system("metaflac --remove-tag=tracknumber $_");
if (!$tracknumonly)
{
system("metaflac --remove-tag=title --remove-tag=artist --remove-tag=album $_");
}
}
# Preserve existing comments, except the ones we'll replace
else
{
foreach (`vorbiscomment -l $_`)
{
if ($tracknumonly) { print COMMENTFILE $_ unless (/^tracknumber/); }
else { print COMMENTFILE $_ unless (/^(title)|(artist)|(tracknumber)|(album)/); }
}
}
# Create new comments from the filename
if (!$tracknumonly)
{
# Add the artist
my $artist = $_;
$artist =~ s/^(.*?)-\d{2}-.*/\1/; # grab everything to the track number
$artist = formatName($artist, 'artist=');
print COMMENTFILE $artist;
# Add the title
my $title = $_;
$title =~ s/.*-\d{2}-(.*)\.(ogg|flac)$/\1/; # grab everything after the track number
$title = formatName($title, 'title=');
print COMMENTFILE $title;
# And the album
print COMMENTFILE $album;
}
# Now get the track number
my $tracknum = $_;
$tracknum =~ s/.*-(\d{2})-.*/\1/;
$tracknum =~ s/\b0*//; # removing leading zeros
$tracknum = formatName($tracknum, 'tracknumber=');
print COMMENTFILE $tracknum;
close COMMENTFILE;
if ($isflac) { system("metaflac --import-tags-from=$COMMENTFILENAME $_"); }
else { system("vorbiscomment -c $COMMENTFILENAME -w $_"); }
system('rm', $COMMENTFILENAME);
}
# Formats the first argument, adds the second argument to it
sub formatName
{
my $name = shift;
my $prepend = shift;
chomp $name; # we add a newline ourselves
$name =~ s/_/ /g; # underscore - space
$name =~ s/^\s*//; # Remove leading space
$name =~ s/\s*$//; # Remove trailing space
$name =~ s/\b(\w)/uc($1)/eg; # Cap the words
$name = $prepend . $name . "\n";
}
# Copyright (c) 2005 - 2008 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