--- gnupod-tools-0.99.8.orig/debian/README.Debian +++ gnupod-tools-0.99.8/debian/README.Debian @@ -0,0 +1,22 @@ +gnupod-tools for Debian +----------------------- + + All extensions .pl were removed. + + -- Quôc Peyrot , Mon, 14 Apr 2003 01:40:56 +0000 + + Not all encoders/decoders are available by Debian. If you are looking + for them either, take a look at www.debian-unofficial.org. It contains + packages which are not distributable within Debian due to special license + terms as well as packages which are not included in Debian due to political + reasons (e.g. alleged possible patent infrigement, binary-only/no sources, + or special too restrictive licenses). + + Add the following line into your /etc/apt/sources.list file: + deb http://ftp.debian-unofficial.org/debian DIST main contrib non-free restricted + + DIST is your distirbution. Chack /etc/debian_version for your installed + Debian version. + + -- Raphael Bossek Sat, 07 Jun 2008 16:00:34 +0200 + --- gnupod-tools-0.99.8.orig/debian/README.source +++ gnupod-tools-0.99.8/debian/README.source @@ -0,0 +1,6 @@ +How to maintain maintainer's changes +------------------------------------ + +The source tarball will be extraced at runtime. Modifications are initiated by debian/rules on +the extracted sources. Most changes are done using quilt patches in debian/patches, but +some are still left in debian/maintenance. --- gnupod-tools-0.99.8.orig/debian/changelog +++ gnupod-tools-0.99.8/debian/changelog @@ -0,0 +1,227 @@ +gnupod-tools (0.99.8-5) unstable; urgency=medium + + * Fix build problem with quilt. + * Add dummy build-arch target to d/rules. + + -- Petter Reinholdtsen Sun, 30 Jul 2017 18:59:50 +0200 + +gnupod-tools (0.99.8-4) unstable; urgency=medium + + * QA upload. + * Correct location of Homepage URL in d/control. + * Rewrite d/copyright file to machine readable format. + * Changed d/rules to try to get quilt patching working without ~/.quiltrc. + + -- Petter Reinholdtsen Sun, 30 Jul 2017 15:42:24 +0200 + +gnupod-tools (0.99.8-3) unstable; urgency=medium + + * QA upload. + * Changed maintainer to Debian QA Group as package is orphaned. + * Moved from debhelper version 5 to 9. + * Changed Standards-Version from 3.8.2 to 4.0.0. + * Reformatted files using wrap-and-sort. + * Added 01-new-perl.patch to adjust code to work with current Perl version. + (Closes: #813920) + * Added 02-case-insensitive-metadata.patch to handle FLAC metadata. + (Closes: #636488) + * Add curl as dependency. (Closes: #640197) + * Added rename to build depend. (Closes: #825241) + * Replace dh_clean -k with dh_prep in debian/rules. Thanks lintian. + * Transformed 02install_incdir.sh and 03_use-Digest-SHA.sh to + 04-install-incdir.patch and 03-use-digest-sha.patch. + * Corrected d/README.source. + * Added simple autopkgtest script. + + -- Petter Reinholdtsen Sun, 30 Jul 2017 13:54:36 +0200 + +gnupod-tools (0.99.8-2.1) unstable; urgency=low + + * Non-maintainer upload. + * Drop (Build-)Depends(-Indep) on libdigest-sha1-perl and add + debian/maintenance/03_use-Digest-SHA.sh to substitute the use of + Digest::SHA1 with Digest::SHA when tar.gz with original sources are + unpacked (Closes: #625875). + + -- Salvatore Bonaccorso Wed, 31 Aug 2011 14:30:40 +0200 + +gnupod-tools (0.99.8-2) unstable; urgency=low + + * Drop /etc/perl/GNUpod directory. + + -- Raphael Bossek Fri, 30 Oct 2009 22:06:41 +0100 + +gnupod-tools (0.99.8-1) unstable; urgency=low + + * New upstream version. Closes: #549980, #535344 + * Update to standards version 3.8.2; no changes required. + * Don't ship /usr/share/info/dir.gz or /usr/share/info/dir.old.gz + (LP: #358854). + + -- Raphael Bossek Fri, 30 Oct 2009 21:32:43 +0100 + +gnupod-tools (0.99.7-2) unstable; urgency=low + + * Fixed package dependency on libtimedate-perl. Closes: #509482 + + -- Raphael Bossek Sat, 10 Jan 2009 18:00:51 +0100 + +gnupod-tools (0.99.7-1) unstable; urgency=low + + * New upstream release. + + -- Raphael Bossek Fri, 12 Sep 2008 07:37:51 +0200 + +gnupod-tools (0.99.6-5) unstable; urgency=medium + + * Install perl modules in /usr/share/perl5 instead of /etc/perl5. (closes: + #498363) + + -- Raphael Bossek Thu, 11 Sep 2008 07:31:42 +0200 + +gnupod-tools (0.99.6-4) unstable; urgency=medium + + * Added libdigest-sha1-perl as package dependency. (closes: #498319) + + -- Raphael Bossek Tue, 09 Sep 2008 07:33:20 +0200 + +gnupod-tools (0.99.6-3) unstable; urgency=medium + + * Fixed problem where gnopod_convert_* scripts are named. (closes: #488446) + + -- Raphael Bossek Mon, 30 Jun 2008 19:31:52 +0200 + +gnupod-tools (0.99.6-2) unstable; urgency=low + + * Fixed build dependencies. (Closes: #486952) + + -- Raphael Bossek Thu, 19 Jun 2008 20:11:01 +0200 + +gnupod-tools (0.99.6-1) unstable; urgency=low + + * Update to latest version (closes: #425288) + * Prepered compliance with standards version 3.8.0 (README.source added). + * Added gnupodrc.example to documentation. (closes: #409615) + + -- Raphael Bossek Sat, 07 Jun 2008 16:00:34 +0200 + +gnupod-tools (0.98.3-1.1) unstable; urgency=medium + + * NMU from the Cambridge BSP. + * Fix the sed pipeline on manpages so that they don't get truncated. + Closes: #343333 + * Add a binary-arch: target in debian/rules. Closes: #395601 + * Fixed multiple lintian warnings/errors: + + build-depends-indep-should-be-build-depends debhelper + + -- Steve McIntyre <93sam@debian.org> Sat, 28 Oct 2006 16:15:12 +0100 + +gnupod-tools (0.98.3-1) unstable; urgency=low + + * New upstream release (Closes: #336630) + + -- Brian Nelson Sat, 12 Nov 2005 15:44:12 -0800 + +gnupod-tools (0.98.2-1) unstable; urgency=low + + * New upstream release + - Crop filenames after 49 chars to cope with iPod Mini's reduction of + maximum length from 64 to 55 (Closes: #320400) + * Bumped standards version to 3.6.2 + * Use ${perl:Depends} and ${misc:Depends} variable substitutions to + generate proper dependencies + + -- Brian Nelson Sat, 20 Aug 2005 00:31:28 -0700 + +gnupod-tools (0.98-3) unstable; urgency=low + + * Removed all of the manpages in the debian dir, use the upstream ones + from now on + * debian/rules: removed the docbook2man stuff + * debian/control: removed the dependency on docbook-utils | + docbook-to-man + * debian/control: (hopefully) improved the package description + + -- Brian Nelson Mon, 20 Jun 2005 11:27:40 +0300 + +gnupod-tools (0.98-2) unstable; urgency=low + + * Changed the libaudio-flac-perl dependency to libaudio-flac-header-perl + + -- Brian Nelson Tue, 5 Apr 2005 09:10:01 -0700 + +gnupod-tools (0.98-1) unstable; urgency=low + + * New maintainer (Closes: #287987) + * New upstream release + - Fixes id3v2.2 tag support (Closes: #240637) + * Added dependencies on libogg-vorbis-header-pureperl-perl and + libaudio-flac-perl. It should be using libaudio-flac-header-perl + instead, but that's currently stuck in the NEW queue. + * Modified scripts to try to run each other without the .pl file + extension. (Closes: #239315) + * src/: added an "assume-yes|y" option to disable the + continue prompt. This allows the script to be run noninteractively. + * Fixed broken multi-line build-depends + * Suggest lame, flac, faac, and vorbis-tools + + -- Brian Nelson Wed, 2 Mar 2005 00:21:19 -0800 + +gnupod-tools (0.94rc1-1) unstable; urgency=low + + * New upstream release. Closes: #230570. + * the function getutf8 is rewritten. Closes: #213050. + * The duplicate detection has been re-written from 0.92. Closes: #224886. + Feel free to re-open this bug if you feel the duplicate detection + doesn't match your needs. + * The "restore" fix from Lukas has been applied on this package, and the + "TIT2" bug has been fixed by the upstream author. + Closes: #225052. + + -- Quôc Peyrot Sun, 1 Feb 2004 00:32:51 +0000 + +gnupod-tools (0.91-2) unstable; urgency=low + + * src/ext/FileMagic.pm: Filter null char from idv2 tags. Closes #213050. + + -- Quôc Peyrot Sun, 28 Sep 2003 09:37:27 +0000 + +gnupod-tools (0.91-1) unstable; urgency=low + + * New upstream release. + * Change the debian maintainer email to chojin@debian.org. + * Update policy revision to 3.6.1 (use UTF-8). + * Gnupod-tools has been rewritten by the upstream author and doesn't depend + anymore on Getopt::Mixed. Closes: #193936. + + * debian/gnupod_INITpod.sgml: Rename to gnupod_INIT.sgml. + * debian/gnupod_delete.sgml, debian/gnupod_list.sgml, debian/gnupod_m3u2pl.sgml, + debian/gnupod_mkm3u.sgml, debian/gnupod_renumber.sgml: Delete. + * debian/gnupod_INIT.sgml, debian/gnupod_addsong.sgml, + debian/gnupod_search.sgml, debian/mktunes.sgml, debian/tunes2pod.sgml: Update. + + * Fix the bug #199954 again. The patch has been submitted to the upstream author. + + -- Quôc Peyrot Sun, 21 Sep 2003 12:28:33 +0000 + +gnupod-tools (0.28-3) unstable; urgency=low + + * src/: Get raw id3v3 tag and check for existance of + TCOM key instead of the non-existing 'COMPOSER' key. Closes: #199954. + * Update policy revision to 3.5.10 + + -- Quôc Peyrot Mon, 7 Jul 2003 00:00:40 +0000 + +gnupod-tools (0.28-2) unstable; urgency=low + + * Oops, forgot to duplicate build dependencies to package dependencies. Closes: #190298. + * Oops, Remove Julien Lemoine from co-maintainer. + * Update policy revision. + + -- Quôc Peyrot Wed, 23 Apr 2003 15:53:27 +0000 + +gnupod-tools (0.28-1) unstable; urgency=low + + * Initial Release. Closes: #182250. + + -- Quôc Peyrot Mon, 14 Apr 2003 01:16:37 +0000 --- gnupod-tools-0.99.8.orig/debian/compat +++ gnupod-tools-0.99.8/debian/compat @@ -0,0 +1 @@ +9 --- gnupod-tools-0.99.8.orig/debian/control +++ gnupod-tools-0.99.8/debian/control @@ -0,0 +1,37 @@ +Source: gnupod-tools +Section: sound +Priority: optional +Maintainer: Debian QA Group +Build-Depends: debhelper (>= 9), + quilt +Build-Depends-Indep: rename, + docbook-to-man, + libaudio-flac-header-perl, + libfile-ncopy-perl, + libmp3-info-perl, + libogg-vorbis-header-pureperl-perl, + libtimedate-perl, + libunicode-string-perl, + libxml-parser-perl, + libxml-simple-perl, + perl +Standards-Version: 4.0.0 +Homepage: http://www.gnu.org/software/gnupod + +Package: gnupod-tools +Architecture: all +Depends: ${misc:Depends}, ${perl:Depends}, + libaudio-flac-header-perl, + libmp3-info-perl, + libogg-vorbis-header-pureperl-perl, + libtimedate-perl, + libunicode-string-perl, + libxml-parser-perl, + libxml-simple-perl, + curl +Recommends: gtkpod +Suggests: faac, flac, lame, timidity, vorbis-tools +Description: command-line tools for the iPod family of portable music players + GNUpod is made up of scripts that allow a user to manage a collection + of songs and playlists on an Apple iPod. The original iPod, iPod Mini, + and iPod Shuffle players are all supported. --- gnupod-tools-0.99.8.orig/debian/copyright +++ gnupod-tools-0.99.8/debian/copyright @@ -0,0 +1,21 @@ +Format: https://www.debian.org/doc/packaging-manuals/copyright-format/1.0/ + +Files: * +Copyright: + 2002-2003 Adrian Ulrich + 2002 Eric C. Cooper +License: GPL + +Files: debian/* +Copyright: + 2005, Brian Nelson + 2003, Quôc Peyrot + 2008, Raphael Bossek +License: GPL + +License: GPL + You are free to distribute this software under the terms of + the GNU General Public License. + On Debian systems, the complete text of the GNU General Public + License can be found in the file `/usr/share/common-licenses/GPL'. + --- gnupod-tools-0.99.8.orig/debian/dirs +++ gnupod-tools-0.99.8/debian/dirs @@ -0,0 +1,3 @@ +usr/bin +usr/share/man/man1 +usr/share/perl5 --- gnupod-tools-0.99.8.orig/debian/doc-base +++ gnupod-tools-0.99.8/debian/doc-base @@ -0,0 +1,10 @@ +Document: gnupod-tools +Title: Debian gnupod-tools Manual +Author: Adrian Ulrich +Abstract: This manual describes what gnupod-tools is + and how it can be used. +Section: Sound + +Format: HTML +Index: /usr/share/doc/gnupod-tools/gnupod.html +Files: /usr/share/doc/gnupod-tools/*.html --- gnupod-tools-0.99.8.orig/debian/gnupod_convert_ALL.sgml +++ gnupod-tools-0.99.8/debian/gnupod_convert_ALL.sgml @@ -0,0 +1,110 @@ + manpage.1'. You may view + the manual page with: `docbook-to-man manpage.sgml | nroff -man | + less'. A typical entry in a Makefile or Makefile.am is: + +manpage.1: manpage.sgml + docbook-to-man $< > $@ + + + The docbook-to-man binary is found in the docbook-to-man package. + Please remember that if you create the nroff version in one of the + debian/rules file targets (such as build), you will need to include + docbook-to-man in your Build-Depends control field. + + --> + + + Raphael"> + Bossek"> + + Sun, 08 Jun 2008"> + + 1"> + bossekr@debian.org"> + + GNUPOD_CONVERT"> + + + Debian"> + GNU"> + GPL"> +]> + + + +
+ &dhemail; +
+ + &dhfirstname; + &dhsurname; + + + 2008 + &dhusername; + + &dhdate; + + + &dhucpackage; + + &dhsection; + + + gnupod_convert_* + convert files to your desired audio file format + + + DESCRIPTION + + The gnupod_convert_* applications are used by gnupod_addsond internaly. Do not use them directly. + + This manual page was written for the &debian; distribution + because the original program does not have a manual page. + Instead, it has documentation in the &gnu; + Info format; see below. + + + + SEE ALSO + + gnupod_addsong (1). + + + AUTHOR + + This manual page was written by &dhusername; &dhemail; for + the &debian; system (but may be used by others). Permission is + granted to copy, distribute and/or modify this document under + the terms of the &gnu; General Public License, Version 2 any + later version published by the Free Software Foundation. + + + On Debian systems, the complete text of the GNU General Public + License can be found in /usr/share/common-licenses/GPL. + + + + + + + --- gnupod-tools-0.99.8.orig/debian/maintenance/01patch_rename.sh +++ gnupod-tools-0.99.8/debian/maintenance/01patch_rename.sh @@ -0,0 +1,29 @@ +#!/bin/sh + +dir="$1" +version="$2" + +find "$dir/src" -name "*.pl" -printf "%f\n" | sed -e 's,\.pl$,,g' | while read pname; do + if [ ! -e "$dir/src/$pname.pl" ]; then + echo "E: $dir/src/$pname.pl missing" + exit 1 + fi + manfile="$dir/man/$pname.pl.1.gz" + if [ -e "$manfile" ]; then + zcat "$manfile" | sed -e "s,\"[[:digit:]][[:digit:]]\",\"1\",g;s,\"[[:digit:]][[:digit:]]\",\"1\",g;s,$pname\.pl,$pname,g;s,$pname [[:digit:]]\+\.[[:digit:]]\+\.[[:digit:]]\+,$pname $version,g;s,manual page for gnupod_INIT.*,prepares a 'virgin' iPod for GNUpod,g;s,manual page for gnupod_addsong.*,upload music to the iPod,g;s,manual page for gnupod_check.*,check for lost/zombie files on the iPod,g;s,manual page for gnupod_otgsync.*,helper script for On-The-Go stuff,g;s,manual page for mktunes.*,convert GNUtunesDB's XML into iTunesDB format,g;s,manual page for tunes2pod.*,convert an iTunesDB into GNUtunesDB's XML,g;s,manual page for gnupod_search.*,search and remove files,g" | gzip -c --best > "$manfile.new" + chmod --reference="$manfile" "$manfile.new" + mv -f "$manfile.new" "$manfile" + echo "Patched $manfile" + else + docbook-to-man debian/gnupod_convert_ALL.sgml | gzip -c --best > "$manfile" + echo "Created $manfile" + fi + for f in `grep -rl "$pname\.pl" "$dir"`; do + sed -e "s,$pname\.pl,$pname,g" "$f" > "$f.new" + chmod --reference="$f" "$f.new" + diff -Naur "$f" "$f.new" + mv -f "$f.new" "$f" +# echo "Patched $f" + done +done + --- gnupod-tools-0.99.8.orig/debian/patches/01-new-perl.patch +++ gnupod-tools-0.99.8/debian/patches/01-new-perl.patch @@ -0,0 +1,42 @@ +Description: Adjust perl code to work with recent perl versions. +Author: Alberto Gonzalez Iniesta +Bugs-Debian: https://bugs.debian.org/813920 +Forwarded: no +Reviewed-By: Petter Reinholdtsen +Last-Update: 2017-07-30 + +--- a/gnupod-0.99.8/src/ext/FileMagic.pm.orig 2016-07-22 18:26:01.287639095 +0200 ++++ b/gnupod-0.99.8/src/ext/FileMagic.pm 2016-07-22 18:18:42.091089864 +0200 +@@ -362,7 +362,7 @@ + foreach (keys(%{$in})) { + my $kvp = __flatten($_, $exclude); # key + next if !defined($kvp); +- my $v = __flatten(%{$in}->{$_}, $exclude); # value ++ my $v = __flatten($in->{$_}, $exclude); # value + $kvp .= " : ".$v if (defined($v) && ("$v" ne "")); + push @out, $kvp; + } +@@ -418,9 +418,9 @@ + my $case = "check"; + + if (ref($options) eq "HASH") { +- $joinby = %{$options}->{joinby} if defined(%{$options}->{joinby}); +- $wspace = lc(%{$options}->{wspace}) if defined(%{$options}->{wspace}); +- $case = lc(%{$options}->{case}) if defined(%{$options}->{case}); ++ $joinby = $options->{joinby} if defined($options->{joinby}); ++ $wspace = lc($options->{wspace}) if defined($options->{wspace}); ++ $case = lc($options->{case}) if defined($options->{case}); + } + my $merged = ""; + +--- a/gnupod-0.99.8/src/ext/XMLhelper.pm.orig 2016-07-22 17:38:11.631804901 +0200 ++++ b/gnupod-0.99.8/src/ext/XMLhelper.pm 2016-07-22 17:37:12.131626030 +0200 +@@ -359,7 +359,7 @@ + print OUT " \n"; + } + elsif(my $phr = get_plpref($current_plname)) { #plprefs found.. +- if (defined(@{$XDAT->{playlists}->{data}->{$current_plname}})) { #the playlist is not empty ++ if (@{$XDAT->{playlists}->{data}->{$current_plname}}) { #the playlist is not empty + print OUT "\n ".mkfile({playlist=>$phr}, {return=>1,noend=>1})."\n"; + foreach(@{$XDAT->{playlists}->{data}->{$current_plname}}) { + print OUT " $_\n"; --- gnupod-tools-0.99.8.orig/debian/patches/02-case-insensitive-metadata.patch +++ gnupod-tools-0.99.8/debian/patches/02-case-insensitive-metadata.patch @@ -0,0 +1,58 @@ +Description: Handle FLAC metadata field names as case insensitive + + gnupod_addsong fails to read metadata if the fieldnames are not in + BLOCKCAPS. This is contrary to the the Vorbis comment + specification[0] (which FLAC uses for its tags) which states "A + case-insensitive field name that may consist of ASCII 0x20 through + 0x7D, 0x3D ('=') excluded. ASCII 0x41 through 0x5A inclusive (A-Z) is + to be considered equivalent to ASCII 0x61 through 0x7A inclusive + (a-z).". Some software (MusicBrainz Picard is the one I used) does + not write the fieldnames in BLOCKCAPS resulting in gnupod failing to + read the metadata correctly. Picard, for example, writes all + lowercase fieldnames. + + [0] http://www.xiph.org/vorbis/doc/v-comment.html + + I have patched the gnupod_convert_FLAC script with the patch below + which corrects this behaviour (although there maybe a better + solution). + +Author: Laurence Alexander Hurst +Bugs-Debian: https://bugs.debian.org/636488 +Forwarded: no +Reviewed-By: Petter Reinholdtsen +Last-Update: 2017-07-30 + + +--- a/gnupod-0.99.8/src/gnupod_convert_FLAC.orig 2011-08-03 12:23:34.581469042 +0100 ++++ b/gnupod-0.99.8/src/gnupod_convert_FLAC.pl 2011-08-03 12:41:06.742045179 +0100 +@@ -51,13 +51,22 @@ + warn "Error: $@\n"; + exit(1); + } +- print "_ARTIST:$ftag->{ARTIST}\n"; +- print "_ALBUM:$ftag->{ALBUM}\n"; +- print "_TITLE:$ftag->{TITLE}\n"; +- print "_GENRE:$ftag->{GENRE}\n"; +- print "_TRACKNUM:$ftag->{TRACKNUMBER}\n"; +- print "_COMMENT:$ftag->{COMMENT}\n"; +- print "_VENDOR:$ftag->{VENDOR}\n"; ++ ++ # According to the Vobis specification[0] fieldnames are case insensitive, ++ # so need to convert to known case to use them as a hash field ++ # [0] http://www.xiph.org/vorbis/doc/v-comment.html ++ my %tags; ++ for my $tag ( keys %$ftag ) { ++ $tags{uc($tag)} = $ftag->{$tag}; ++ } ++ ++ print "_ARTIST:$tags{ARTIST}\n"; ++ print "_ALBUM:$tags{ALBUM}\n"; ++ print "_TITLE:$tags{TITLE}\n"; ++ print "_GENRE:$tags{GENRE}\n"; ++ print "_TRACKNUM:$tags{TRACKNUMBER}\n"; ++ print "_COMMENT:$tags{COMMENT}\n"; ++ print "_VENDOR:$tags{VENDOR}\n"; + print "_MEDIATYPE:".(GNUpod::FileMagic::MEDIATYPE_AUDIO)."\n"; + print "FORMAT:FLAC\n"; + } --- gnupod-tools-0.99.8.orig/debian/patches/03-use-digest-sha.patch +++ gnupod-tools-0.99.8/debian/patches/03-use-digest-sha.patch @@ -0,0 +1,54 @@ +diff -ur gnupod-0.99.8.orig/configure gnupod-0.99.8/configure +--- a/gnupod-0.99.8.orig/configure 2009-08-04 05:49:56.000000000 +0000 ++++ b/gnupod-0.99.8/configure 2017-07-30 11:37:29.708161021 +0000 +@@ -1771,7 +1771,7 @@ + exit 1 + fi + +-ALL_MODULES="Digest::MD5 Digest::SHA1 XML::Parser Unicode::String MP3::Info File::Copy Date::Parse Date::Format Data::Dumper" ++ALL_MODULES="Digest::MD5 Digest::SHA XML::Parser Unicode::String MP3::Info File::Copy Date::Parse Date::Format Data::Dumper" + OPT_MODULES="Audio::FLAC::Header Ogg::Vorbis::Header::PurePerl Date::Manip" + + ###IFS=" " Not needed with new autoconf?! +diff -ur gnupod-0.99.8.orig/configure.ac gnupod-0.99.8/configure.ac +--- a/gnupod-0.99.8.orig/configure.ac 2009-07-10 23:20:05.000000000 +0000 ++++ b/gnupod-0.99.8/configure.ac 2017-07-30 11:37:29.708161021 +0000 +@@ -18,7 +18,7 @@ + fi + + dnl Basic modules +-ALL_MODULES="Digest::MD5 Digest::SHA1 XML::Parser Unicode::String MP3::Info File::Copy Date::Parse Date::Format Data::Dumper" ++ALL_MODULES="Digest::MD5 Digest::SHA XML::Parser Unicode::String MP3::Info File::Copy Date::Parse Date::Format Data::Dumper" + OPT_MODULES="Audio::FLAC::Header Ogg::Vorbis::Header::PurePerl Date::Manip" + + dnl Ugly check for modules +diff -ur gnupod-0.99.8.orig/src/ext/Hash58.pm gnupod-0.99.8/src/ext/Hash58.pm +--- a/gnupod-0.99.8.orig/src/ext/Hash58.pm 2009-07-10 23:20:05.000000000 +0000 ++++ b/gnupod-0.99.8/src/ext/Hash58.pm 2017-07-30 11:37:29.712161039 +0000 +@@ -22,7 +22,7 @@ + # along with this program. If not, see .# + + use strict; +-use Digest::SHA1; ++use Digest::SHA; + + use constant OFFSET_UNK30 => 0x30; # Will set this to 1 + use constant OFFSET_DBID => 0x18; # Offset of dbid, we need to blank it out +@@ -122,7 +122,7 @@ + my $brain = _PrepareItunes(FD=>*ITUNES); # Blank out some offsets in iTunesDB + + Hmac($key,64,0x36); # Create HMAC for $key +- $sha1 = Digest::SHA1->new; # SHA1-Round1 ++ $sha1 = Digest::SHA->new; # SHA1-Round1 + $sha1->add(_ArrayRefToString($key)); # -> Add HMACed $key + $sha1->addfile(*ITUNES); # -> Add iTunesDB with some blanks + $phash = $sha1->digest; # -> this is the phash +@@ -162,7 +162,7 @@ + $y->[$i] = $inv_table->[$y->[$i]]; + } + +- my $sha1 = Digest::SHA1->new; ++ my $sha1 = Digest::SHA->new; + $sha1->add(_ArrayRefToString($fixed)); + $sha1->add(_ArrayRefToString($y)); + --- gnupod-tools-0.99.8.orig/debian/patches/04-install-incdir.patch +++ gnupod-tools-0.99.8/debian/patches/04-install-incdir.patch @@ -0,0 +1,42 @@ +diff -ur gnupod-0.99.8.orig/tools/gnupod_install.pl gnupod-0.99.8/tools/gnupod_install.pl +--- a/gnupod-0.99.8.orig/tools/gnupod_install.pl 2009-07-10 23:20:05.000000000 +0000 ++++ b/gnupod-0.99.8/tools/gnupod_install.pl 2017-07-30 11:38:42.036486304 +0000 +@@ -19,10 +19,10 @@ + + my $VINSTALL = `cat .gnupod_version`; #Version of this release + +-#Check if everything looks okay.. ++my $include_dir = "/usr/share/perl5"; + die "File .gnupod_version does not exist, did you run configure?\n" unless $VINSTALL; + die "Expected 5 arguments, got ".int(@ARGV)."\n make will run me, not you! stupid human!" if !$opts{mandir} || $ARGV[6]; +-die "Strange Perl installation, no \@INC! Can't install Perl-Module(s), killing myself..\n" if !$INC[0]; ++die "Strange Perl installation, no \@INC! Can't install Perl-Module(s), killing myself..\n" if !$include_dir; + + if($opts{MODE} eq "INSTALL") { + #ok, we are still alive, let's blow up the system ;) +@@ -144,13 +144,13 @@ + #Uninstall Modules + sub remove_pm { + my($globme, $modi) = @_; +- print " > Removing Modules at $INC[0]/$modi\n"; ++ print " > Removing Modules at $include_dir/$modi\n"; + foreach (glob($globme)) { +- my $rmme = $INC[0]."/$modi/".fof($_); ++ my $rmme = $include_dir."/$modi/".fof($_); + print " -> Removing $rmme "; + killold($rmme); + } +- rmdir($INC[0]."/$modi") or print "Could not remove $INC[0]/$modi: $!\n"; ++ rmdir($include_dir."/$modi") or print "Could not remove $include_dir/$modi: $!\n"; + } + + +@@ -175,7 +175,7 @@ + sub install_pm { + my($basedir, $modi, $perlbin, $pfix) = @_; + +-my $fullINCdir = "$pfix"."$INC[0]/$modi"; ++my $fullINCdir = "$pfix"."$include_dir/$modi"; + my $stepINC = _recmkdir($fullINCdir); + + print "Installing Modules at $stepINC\n"; --- gnupod-tools-0.99.8.orig/debian/patches/series +++ gnupod-tools-0.99.8/debian/patches/series @@ -0,0 +1,4 @@ +01-new-perl.patch +02-case-insensitive-metadata.patch +03-use-digest-sha.patch +04-install-incdir.patch --- gnupod-tools-0.99.8.orig/debian/postinst +++ gnupod-tools-0.99.8/debian/postinst @@ -0,0 +1,40 @@ +#!/bin/sh +# postinst script for #PACKAGE# +# +# see: dh_installdeb(1) + +set -e + +# summary of how this script can be called: +# * `configure' +# * `abort-upgrade' +# * `abort-remove' `in-favour' +# +# * `abort-remove' +# * `abort-deconfigure' `in-favour' +# `removing' +# +# for details, see http://www.debian.org/doc/debian-policy/ or +# the debian-policy package + + +case "$1" in + configure) + rm -rf /etc/perl/GNUpod + ;; + + abort-upgrade|abort-remove|abort-deconfigure) + ;; + + *) + echo "postinst called with unknown argument \`$1'" >&2 + exit 1 + ;; +esac + +# dh_installdeb will replace this with shell code automatically +# generated by other debhelper scripts. + +#DEBHELPER# + +exit 0 --- gnupod-tools-0.99.8.orig/debian/quiltrc +++ gnupod-tools-0.99.8/debian/quiltrc @@ -0,0 +1 @@ +QUILT_PATCHES=debian/patches --- gnupod-tools-0.99.8.orig/debian/rules +++ gnupod-tools-0.99.8/debian/rules @@ -0,0 +1,75 @@ +#!/usr/bin/make -f +# debian/rules file for the Debian/GNU Linux gnupod-tools package +# Copyright 2003 by Quôc Peyrot +# Copyright 2005 by Brian Nelson +# Copyright 2008 by Raphael Bossek + +DEB_HOST_GNU_TYPE ?= $(shell dpkg-architecture -qDEB_HOST_GNU_TYPE) +DEB_BUILD_GNU_TYPE ?= $(shell dpkg-architecture -qDEB_BUILD_GNU_TYPE) + +ARCHIVE=$(shell ls -1 gnupod-*.tgz) +SRCDIR=$(shell ls -1 gnupod-*.tgz | sed -e 's,\.tgz,,g') +VERSION:=$(shell dpkg-parsechangelog | grep '^Version:' | sed -e 's/^Version: //g;s/-.*//g') + +$(SRCDIR)/configure: $(ARCHIVE) + tar -xzf $(ARCHIVE) + test -d $(SRCDIR) + sh $(CURDIR)/debian/maintenance/01patch_rename.sh $(SRCDIR) $(VERSION) + quilt --quiltrc debian/quiltrc push -a + +$(SRCDIR)/config.status: $(SRCDIR)/configure + dh_testdir + cd $(SRCDIR) && ./configure --host=$(DEB_HOST_GNU_TYPE) --build=$(DEB_BUILD_GNU_TYPE) --prefix=/usr --mandir=\$${prefix}/share/man --infodir=\$${prefix}/share/info + +build: build-indep +build-indep: build-indep-stamp +build-indep-stamp: $(SRCDIR)/config.status + dh_testdir + +clean: + quilt --quiltrc debian/quiltrc pop -a || true + $(RM) -r .pc + dh_testdir + rm -rf $(SRCDIR) + rm -f build-indep-stamp config-stamp + dh_clean + +install: install-indep +install-indep: + dh_testdir + dh_testroot + dh_prep -i + dh_installdirs -i + $(MAKE) -C $(SRCDIR) install DESTDIR=$(CURDIR)/debian/gnupod-tools + + : # Drop the .pl from each manpage and executable name + rename 's/\.pl//' $(CURDIR)/debian/gnupod-tools/usr/bin/*.pl + rename 's/\.pl//' $(CURDIR)/debian/gnupod-tools/usr/share/man/man1/*.gz + + rm -f debian/gnupod-tools/usr/share/info/dir* + +binary-common: + dh_testdir + dh_testroot + dh_installdocs $(SRCDIR)/TODO $(SRCDIR)/doc/fdl.texi $(SRCDIR)/doc/version.texi $(SRCDIR)/doc/gnupod.texi $(SRCDIR)/doc/gnupod.html $(SRCDIR)/doc/gnupodrc.example + dh_installexamples $(SRCDIR)/doc/gnutunesdb.example + dh_installinfo $(SRCDIR)/doc/gnupod.info + dh_installman + dh_installchangelogs $(SRCDIR)/CHANGES + dh_link + dh_compress + dh_fixperms + dh_installdeb + dh_perl + dh_gencontrol + dh_md5sums + dh_builddeb + +build-arch: build +binary-arch: build + +binary-indep: build-indep install-indep + $(MAKE) -f debian/rules DH_OPTIONS=-i binary-common + +binary: binary-arch binary-indep +.PHONY: build clean binary-indep binary install install-indep --- gnupod-tools-0.99.8.orig/debian/tests/control +++ gnupod-tools-0.99.8/debian/tests/control @@ -0,0 +1,2 @@ +Tests: test-command-line +Depends: @ --- gnupod-tools-0.99.8.orig/debian/tests/test-command-line +++ gnupod-tools-0.99.8/debian/tests/test-command-line @@ -0,0 +1,24 @@ +#!/bin/sh + +errno=0 + +set -e + +at_exit() { + echo "info: test exiting" +} +trap at_exit INT TERM EXIT + +cd "$ADTTMP" +set -x + +mkdir -p "$ADTTMP/ipod" + +if echo | gnupod_INIT -m "$ADTTMP/ipod"; then + echo "success: gnupod_INIT ran without errors" +else + echo "failure: gnupod_INIT reported an error" + errno=1 +fi + +exit $errno