Permalink
Browse files

Added bundle

  • Loading branch information...
1 parent 97407cc commit 642fada6d6b98ebbd9f6c4ad1401b46257571c94 @riemann42 committed Jul 28, 2010
@@ -0,0 +1,15 @@
+Release Name: 0.40_01
+============================
+* Normalized to .40_01
+* Changed to use Text::Levenshtein
+* Changed to use Music::Tag::LyricsFetcher
+* Updated README
+
+Release Name: 0.02
+============================
+* Added Config::Options
+* Added Tree::Simple
+
+Release Name: 0.01
+============================
+* Initial Public Release
@@ -0,0 +1,5 @@
+Changes
+lib/Bundle/Music/Tag.pm
+Makefile.PL
+MANIFEST This list of files
+README
@@ -0,0 +1,8 @@
+use ExtUtils::MakeMaker;
+WriteMakefile( NAME => 'Bundle::Music::Tag',
+ VERSION_FROM => 'lib/Bundle/Music/Tag.pm',
+ ABSTRACT_FROM=> 'lib/Bundle/Music/Tag.pm',
+ AUTHOR => 'Edward Allen (ealleniii _at_ cpan _dot_ org)',
+ PREREQ_PM => { },
+ );
+
@@ -0,0 +1,23 @@
+Bundle-Music-Tag version 0.01
+==================================
+
+A simple bundle of Music::Tag, the core Music::Tag modules,
+and all recommended modules.
+
+
+INSTALLATION
+
+To install this module type the following:
+
+ perl Makefile.PL
+ make
+ make test
+ make install
+
+DEPENDENCIES
+
+Should be listed.
+
+COPYRIGHT AND LICENCE
+
+Please see modules for their copyright info.
@@ -0,0 +1,63 @@
+package Bundle::Music::Tag;
+$VERSION = '0.02';
+1;
+__END__
+
+
+=head1 NAME
+
+Bundle::Music::Tag - Music::Tag bundle for quick installation
+
+=head1 SYNOPSIS
+
+ C<perl -MCPAN -e 'install Bundle::Music::Tag'>
+
+=head1 CONTENTS
+
+Term::ANSIColor
+
+Text::Levenshtein
+
+Text::Unaccent
+
+Time::Local
+
+Config::Options
+
+Music::Tag
+
+Music::Tag::Amazon
+
+Music::Tag::FLAC
+
+Music::Tag::File
+
+Music::Tag::LyricsFetcher
+
+Tree::Simple
+
+Music::Tag::M4A
+
+Music::Tag::MP3
+
+Music::Tag::OGG
+
+=head1 DESCRIPTION
+
+This is a bundle for installing Music::Tag. Use this to install everything previously
+included in Music::Tag.
+
+=head1 AUTHOR
+
+Edward Allen, ealleniii _at_ cpan _dot_ org
+
+=head1 LICENSE
+
+See tbe individual modules for full licence information.
+
+=head1 SEE ALSO
+
+L<Music::Tag>
+
+=cut
+
View
@@ -0,0 +1,9 @@
+^\.git\/
+Makefile$
+^blib
+^pm_to_blib
+^.*.bak
+^.*.old
+^cover_db
+^.*\.log
+^.*\.swp$
View
@@ -1,36 +0,0 @@
-#!/usr/bin/perl
-use strict;
-use Music::Tag;
-
-my @lame = ( "lame", "--preset", "extreme", "-", '[FILENAME]') ;
-
-foreach my $infile (@ARGV) {
- my $info = Music::Tag->new($infile);
- $info->get_tag();
- print "Performer is ", $info->artist, "\n";
- my $outfile = $info->filename();
- $outfile =~ s/\.[^.]*$/\.mp3/;
- if ($outfile eq $infile) {
- $outfile =~ s/\.mp3$/_1\.mp3/;
- }
- print STDERR "Writing mp3 to $outfile\n";
- my @out = ();
- foreach (@lame) {
- my $a = $_;
- $a =~ s/\[FILENAME\]/$outfile/ge;
- }
- open (OUT, "|-", @out);
- $info->wav_out(\*OUT);
- my $newinfo = Music::Tag->new($outfile);
- $newinfo->get_tag();
- foreach (@{$info->used_datamethods}) {
- next if ($newinfo->$_);
- $newinfo->$_($info->$_);
- }
- $newinfo->set_tag();
- $info->close();
- $newinfo->close();
-}
-
-
-
Oops, something went wrong.

0 comments on commit 642fada

Please sign in to comment.