--- libmp3-info-perl-1.24.orig/debian/README.Debian +++ libmp3-info-perl-1.24/debian/README.Debian @@ -0,0 +1,14 @@ +libmp3-info-perl for Debian +--------------------------- + +This package was formerly named libmpeg-mp3info-perl, but the upstream +author has changed its name to libmp3-info-perl. Reflecting this change, +this Debian package that contains the new upstream release also has the +new name. + +As a simple Perl wrapper module is included (so applications that used +MPEG::MP3Info still work with the new module without any required +modifications), it's safe to replace the old package with this new one, +even if you're using programs that depend on the old name. + + -- Andras Bali , Thu, 10 May 2001 16:12:24 +0200 --- libmp3-info-perl-1.24.orig/debian/changelog +++ libmp3-info-perl-1.24/debian/changelog @@ -0,0 +1,133 @@ +libmp3-info-perl (1.24-1.2) unstable; urgency=medium + + * Non-maintainer upload. + * Fix "FTBFS with '.' removed from perl's @INC": + call perl with "-I." in debian/rules. + (Closes: #834346) + + -- gregor herrmann Sun, 21 Aug 2016 20:43:07 +0200 + +libmp3-info-perl (1.24-1.1) unstable; urgency=medium + + * Non-maintainer upload. + * Fix "FTBFS with perl 5.22 in experimental (MakeMaker changes)": + use DESTDIR in debian/rules. + (Closes: #793538) + + -- gregor herrmann Thu, 27 Aug 2015 17:58:22 +0200 + +libmp3-info-perl (1.24-1) unstable; urgency=low + + * New upstream release + * Update watch file (Closes: #529123) + + -- Alexander Wirt Sat, 14 Nov 2009 23:18:17 +0100 + +libmp3-info-perl (1.23-1) unstable; urgency=low + + * New upstream release + * Update watch file + * Bump standards version (no changes) + * Move section to "perl" + + -- Alexander Wirt Sun, 27 Jan 2008 20:56:54 +0100 + +libmp3-info-perl (1.22-1) unstable; urgency=low + + * New upstream release (Closes: #430651) + * Some minor packaging updates + + -- Alexander Wirt Tue, 26 Jun 2007 21:50:34 +0200 + +libmp3-info-perl (1.20-1) unstable; urgency=low + + * New upstream release + * Fixed some packaging quirks + * Bumped standards version + + -- Alexander Wirt Tue, 8 Aug 2006 21:30:41 +0200 + +libmp3-info-perl (1.13-1) unsta ble; urgency=low + + * New upstream release + + -- Alexander Wirt Fri, 8 Apr 2005 21:52:46 +0200 + +libmp3-info-perl (1.02-2) unstable; urgency=low + + * Reintroduced mp3id binary (Closes: #275817) + + -- Alexander Wirt Sun, 12 Dec 2004 12:56:03 +0100 + +libmp3-info-perl (1.02-1) unstable; urgency=low + + * New upstream release (Closes: #192055) + * New maintainer: Alexander Wirt + * Added libunicode-string-perl to depends (Closes: #204594) + + -- Alexander Wirt Wed, 29 Sep 2004 19:23:55 +0200 + +libmp3-info-perl (1.01-1) unstable; urgency=low + + * New upstream release (Closes: #143895). + * Changed Build-Depends to Build-Depends-Indep. + + -- Andras Bali Sun, 21 Apr 2002 18:15:30 +0200 + +libmp3-info-perl (0.91-1) unstable; urgency=low + + * New upstream release (Closes: #64544). + * Rebuilt on a system with perl 5.6 (Closes: #80653). + * Renamed package reflecting upstream change. + * New maintainer. + + -- Andras Bali Thu, 10 May 2001 16:12:24 +0200 + +libmpeg-mp3info-perl (0.71-5) frozen unstable; urgency=low + + * Fixed path to common licenses in copyright info. + * Description of package announces mp3id. + * mp3id binary now works good (fixed serious bug) and support + new option (--various). + + -- Piotr Roszatycki Thu, 27 Jan 2000 20:00:32 +0100 + +libmpeg-mp3info-perl (0.71-4) unstable; urgency=low + + * Modified copyright info. + * New binary mp3id(1). + * /usr/doc/... symlink + + -- Piotr Roszatycki Fri, 15 Oct 1999 23:01:13 +0200 + +libmpeg-mp3info-perl (0.71-3) unstable; urgency=low + + * Correct Description: + * Copyright: Artistic + + -- Piotr Roszatycki Thu, 12 Aug 1999 23:43:52 +0200 + +libmpeg-mp3info-perl (0.71-2) unstable; urgency=low + + * Fixed problem with fakeroot + * Standards-Version: 3.0.1.0 + + -- Piotr Roszatycki Tue, 10 Aug 1999 12:00:01 +0200 + +libmpeg-mp3info-perl (0.71-1) unstable; urgency=low + + * Depends: perl-5.005 | data-dumper + * Standards-Version: 3.0.0.0 + * New upstream release + + -- Piotr Roszatycki Wed, 21 Jul 1999 15:35:57 +0200 + +libmpeg-mp3info-perl (0.63-1) unstable; urgency=low + + * Initial Debian version. + + -- Piotr Roszatycki Tue, 6 Jul 1999 16:19:20 +0200 + +Local variables: +mode: debian-changelog +End: --- libmp3-info-perl-1.24.orig/debian/compat +++ libmp3-info-perl-1.24/debian/compat @@ -0,0 +1 @@ +5 --- libmp3-info-perl-1.24.orig/debian/control +++ libmp3-info-perl-1.24/debian/control @@ -0,0 +1,22 @@ +Source: libmp3-info-perl +Section: perl +Priority: optional +Maintainer: Alexander Wirt +Build-Depends: debhelper (>= 5) +Build-Depends-Indep: perl (>= 5.6.0-16) +Standards-Version: 3.8.3 + +Package: libmp3-info-perl +Architecture: all +Depends: ${perl:Depends}, libunicode-string-perl +Conflicts: libmpeg-mp3info-perl +Replaces: libmpeg-mp3info-perl +Provides: libmpeg-mp3info-perl +Description: Perl MP3::Info - Manipulate / fetch info from MP3 audio files + This Perl library gives a set of function for manipulating info tags in MP3 + files and retrieving technical information from them. + . + This package was formerly known as MPEG::MP3Info and still has a wrapper + for applications that refer to it using the old name. + . + The Debian package also provides a simple tool for editing MP3 tags - mp3id. --- libmp3-info-perl-1.24.orig/debian/copyright +++ libmp3-info-perl-1.24/debian/copyright @@ -0,0 +1,34 @@ +This package was debianized by Andras Bali on +Thu, 10 May 2001 16:12:24 +0200. + +Earlier packages under the name of libmpeg-mp3info-perl were +made by Piotr Roszatycki . + +It was downloaded from +http://www.cpan.org/modules/by-module/MP3/MP3-Info-0.91.tar.gz. + +Upstream Author: Chris Nandor + +The mp3id script was written by Piotr Roszatycki . + +Copyright: + +Copyright (c) 1998-2002 Chris Nandor. All rights reserved. This program +is free software; you can redistribute it and/or modify it under the +terms of the Artistic License, distributed with Perl. + +On Debian GNU/Linux systems, the complete text of the Artistic Licence +can be found in `/usr/share/common-licenses/Artistic'. + +mp3id 0.4 (c) 1999-2000 Piotr Roszatycki + +This 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, or (at your option) any later +version. + +You should also have received a copy of the GNU General Public +License along with this system, in /usr/share/common-licenses/GPL; if not, +write to the Free Software Foundation, Inc., 51 Franklin St, Fifth Floor, +MA 02110-1301, USA. + --- libmp3-info-perl-1.24.orig/debian/libmp3-info-perl.install +++ libmp3-info-perl-1.24/debian/libmp3-info-perl.install @@ -0,0 +1 @@ +mp3id /usr/bin/ --- libmp3-info-perl-1.24.orig/debian/rules +++ libmp3-info-perl-1.24/debian/rules @@ -0,0 +1,45 @@ +#!/usr/bin/make -f + +package := $(shell egrep '^Package: ' debian/control | sed 's/^Package: //') + +build: build-stamp +build-stamp: + dh_testdir + perl -I. Makefile.PL INSTALLDIRS=vendor + $(MAKE) OPTIMIZE="-O2 -g -Wall" + perl eg/mp3tag.PL + perl eg/mp3tocddb.PL + touch build-stamp + +clean: + dh_testdir + dh_testroot + rm -f build-stamp + [ ! -f Makefile ] || $(MAKE) distclean + dh_clean + rm -f Makefile.old eg/mp3tag eg/mp3tocddb + +binary-arch: + # nothing to do here + +binary-indep: build + dh_testdir + dh_testroot + dh_clean + $(MAKE) install DESTDIR=$(CURDIR)/debian/$(package) + find `pwd`/debian/$(package) -type f -name .packlist | xargs -r rm -f + -find `pwd`/debian/$(package) -type d -empty | xargs -r rmdir -p --ignore-fail-on-non-empty + dh_installdocs README + dh_installexamples eg/mp3tag eg/mp3tocddb mp3id + dh_installchangelogs + dh_compress -Xmp3tag -Xmp3id -Xmp3tocddb + dh_fixperms + dh_installdeb + dh_perl + dh_gencontrol + dh_md5sums + dh_builddeb + + +binary: binary-indep +.PHONY: build clean binary-indep binary --- libmp3-info-perl-1.24.orig/debian/watch +++ libmp3-info-perl-1.24/debian/watch @@ -0,0 +1,4 @@ +# format version number, currently 2; this line is compulsory! +version=2 +http://www.cpan.org/modules/by-module/MP3/MP3-Info-(.*)(.tar.gz|.tar|.tgz) + --- libmp3-info-perl-1.24.orig/mp3id +++ libmp3-info-perl-1.24/mp3id @@ -0,0 +1,288 @@ +#!/usr/bin/perl + +eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' + if 0; # not running under some shell + +# mp3id 0.4 (c) 1999-2000 Piotr Roszatycki + +# This 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, or (at your option) any later +# version. + + +use Cwd; +use File::Copy; +use Getopt::Long; +use MP3::Info qw(:all); + +use_winamp_genres(); + +my @files; + +GetOptions( \%opt, + "artist|a=s", + "album|l=s", + "title|t=s", + "comment|c=s", + "year|y=i", + "genre|g=s", + "tracknum|n=i", + "input|i", + "rename|r", + "various|v", + "help|h", + "<>", \&optfiles +); + +sub optfiles { + push @files, shift; +} + +die "mp3id 0.4 (c) 1999-2000 Piotr Roszatycki \n". + "This is free software under GPL and WITHOUT ANY WARRANTY\n". + "\n". + "usage: mp3id [--artist|-a ] [--title|-t ] [--comment|-c ]\n". + " [--album|-l ] [--year|-y ] [--genre|-g ]\n". + " [--tracknum|-n ] [--input|-i] [--rename|-r] [--various|-v]\n". + " [--help|-h]\n". + + "\n". + " --artist|-a sets name of artist\n". + " --album|-l sets album name\n". + " --title|-t sets song title\n". + " --comment|-c sets comment\n". + " --year|-y sets published year (4 digits)\n". + " --genre|-g sets genre or show genre list if given 0\n". + " --tracknum|-n sets track number, automatically if given 0\n". + " --input|-i inputs data in interactive mode\n". + " --rename|-r renames filename to\n". + " ../\$artist-\$album/\$tracknum-\$artist-\$title.mp3\n". + " --various|-v sets \"Various\" as artist of album for renamed filename\n". + " --help|-h this help info\n". + "\n" + if $opt{help}; + +if( defined $opt{genre} && $opt{genre} eq "0" ) { + foreach( sort @mp3_genres ) { + print $_, "\n"; + } + exit; +} + +$cwd = cwd; + +if( ! @files ) { + opendir(DIR, $cwd) || die "can't opendir $cwd: $!"; + @files = sort grep { /\.mp3$/i && -f "$cwd/$_" } readdir(DIR); + closedir DIR; +} + +my $tracknum = 0; + +foreach $file ( @files ) { + + my $info = get_mp3info($file) or next; + my $tag = get_mp3tag($file); + + $tracknum ++; + + $tag->{ARTIST} = sprintf "%.30s", $opt{artist} if defined $opt{artist}; + $tag->{ALBUM} = sprintf "%.30s", $opt{album} if defined $opt{album}; + $tag->{TITLE} = sprintf "%.30s", $opt{title} if defined $opt{title}; + $tag->{COMMENT} = sprintf "%.28s", $opt{comment} if defined $opt{comment}; + $tag->{YEAR} = sprintf "%04i", $opt{year} % 1e4 if defined $opt{year}; + $tag->{GENRE} = sprintf "%.30s", $opt{genre} if defined $opt{genre}; + $tag->{TRACKNUM} = sprintf "%02i", $opt{tracknum} % 1e2 if defined $opt{tracknum}; + $tag->{TRACKNUM} = sprintf "%02i", $tracknum if defined $opt{tracknum} && + $opt{tracknum} == 99; + + print "Filename: ", $file, "\n"; + + if( $opt{input} ) { + print "Artist [", $tag->{ARTIST}, "]: "; + $_ = <>; + if( chomp $_ ) { + $_ ne '' and $tag->{ARTIST} = sprintf "%.30s", $_; + } else { + print "\n"; + delete $tag->{ARTIST}; + } + print "Album [", $tag->{ALBUM}, "]: "; + $_ = <>; + if( chomp $_ ) { + $_ ne '' and $tag->{ALBUM} = sprintf "%.30s", $_; + } else { + print "\n"; + delete $tag->{ALBUM}; + } + print "Title [", $tag->{TITLE}, "]: "; + $_ = <>; + if( chomp $_ ) { + $_ ne '' and $tag->{TITLE} = sprintf "%.30s", $_; + } else { + print "\n"; + delete $tag->{TITLE}; + } + print "Comment [", $tag->{COMMENT}, "]: "; + $_ = <>; + if( chomp $_ ) { + $_ ne '' and $tag->{COMMENT} = sprintf "%.28s", $_; + } else { + print "\n"; + delete $tag->{COMMENT}; + } + print "Year [", $tag->{YEAR}, "]: "; + $_ = <>; + if( chomp $_ ) { + $_ ne '' and $tag->{YEAR} = sprintf "%04i", $_; + } else { + print "\n"; + delete $tag->{YEAR}; + } + print "Genre [", $tag->{GENRE}, "]: "; + $_ = <>; + if( chomp $_ ) { + $_ ne '' and $tag->{GENRE} = sprintf "%.30s", $_; + } else { + print "\n"; + delete $tag->{GENRE}; + } + print "Tracknum [", $tag->{TRACKNUM}, "]: "; + $_ = <>; + if( chomp $_ ) { + $_ ne '' and $tag->{TRACKNUM} = sprintf "%02i", $_; + } else { + print "\n"; + delete $tag->{TRACKNUM}; + } + } + + if( defined $opt{artist} || defined $opt{title} || + defined $opt{comment} || defined $opt{album} || + defined $opt{year} || defined $opt{genre} || + defined $opt{tracknum} || defined $opt{input} ) { + set_mp3tag($file, $tag); + $tag = get_mp3tag($file); + } + + print "A:[", $tag->{ARTIST}, "] " if $tag->{ARTIST} ne ''; + print "L:[", $tag->{ALBUM}, "] " if $tag->{ALBUM} ne ''; + print "T:[", $tag->{TITLE}, "] " if $tag->{TITLE} ne ''; + print "C:[", $tag->{COMMENT}, "] " if $tag->{COMMENT} ne ''; + print "Y:[", $tag->{YEAR}, "] " if $tag->{YEAR} ne ''; + print "G:[", $tag->{GENRE}, "] " if $tag->{GENRE} ne ''; + print "T:[", $tag->{TRACKNUM}, "] " if $tag->{TRACKNUM} ne ''; + print "\n"; + + if( defined $opt{rename} ) { + my $name; + $name = $opt{various} ? "Various" : "$tag->{ARTIST}"; + $name =~ tr/-/+/; + $name .= "-$tag->{ALBUM}"; + $name =~ tr/ ()/_[]/; + $name =~ s/[^a-zA-Z0-9_\[\]-]/+/g; + my $dir = $tag->{ALBUM} ? "../$name/" : ""; + + $name = "$tag->{ARTIST}"; + $name =~ tr/-/+/; + $name .= "-$tag->{TITLE}"; + $name .= " $tag->{COMMENT}" if $tag->{COMMENT}; + $name =~ tr/ ()/_[]/; + $name =~ s/[^a-zA-Z0-9_\[\]-]/+/g; + + $name = sprintf "%02d-$name.mp3", $tag->{TRACKNUM} ? $tag->{TRACKNUM} : $n; + + my $src = $file; + my $dst = "$dir$name"; + $dst =~ s/\//\\/g if $MSDOS; + + print "Rename: ", $dst, "\n"; + + mkdir $dir, 0755; + move( $src, $dst ); + } + + print "\n"; + +} + + +__END__ + +=head1 NAME + +mp3id - MP3 tag manipulate utility + +=head1 SYNOPSIS + +B S<[ B<--artist>|B<-a> I ]> S<[ B<--title>|B<-t> I ]> + S<[ B<--comment>|B<-c> I ]> S<[ B<--album>|B<-l> I ]> + S<[ B<--year>|B<-y> I ]> S<[ B<--genre>|B<-g> I ]> + S<[ B<--tracknum>|B<-n> I ]> S<[ B<--input>|B<-i> ]> + S<[ B<--rename>|B<-r> ]> S<[ B<--various>|B<-v> ]> + S<[ B<--help>|B<-h> ]> + +=head1 DESCRIPTION + +mp3id is a very simple tool written in perl with usage of MPEG::MP3Info +library. This utility allows to read tag, modify in interactive mode or +command line, and rename filename. + +=head1 OPTIONS + +=over 8 + +=item B<--artist>|B<-a> I + +Sets name of artist. + +=item B<--album>|B<-l> I + +Sets album name. + +=item B<--title>|B<-t> I + +Sets song title. + +=item B<--comment>|B<-c> I + +Sets comment. + +=item B<--year>|B<-y> I + +Sets published year (4 digits). + +=item B<--genre>|B<-g> I + +Sets genre or show genre list if given 0. + +=item B<--tracknum>|B<-n> I + +Sets track number, automatically if given 0. + +=item B<--input>|B<-i> + +Inputs data in interactive mode. Enter means default value. EOF (ctrl+D) means +empty value. + +=item B<--rename>|B<-r> + +Renames filename to ../$artist-$album/$tracknum-$artist-$title.mp3 after +modifing tag. The variables are taken from tag info. + +=item B<--various>|B<-v> + +Sets "Various" as artist of album for renamed filename. This is helpful +for OST or albums of various artists. + +=item B<--help>|B<-h> + +Show help info. + +=head1 AUTHOR AND COPYRIGHT + +(c) 1999 Piotr Roszatycki Edexter@debian.orgE + +All rights reserved. This program is free software; you can redistribute it +and/or modify it under the terms of the GNU General Public License, the latest version.