--- gnupod-tools-0.99.8.orig/debian/copyright
+++ gnupod-tools-0.99.8/debian/copyright
@@ -0,0 +1,17 @@
+This package was debianized by Quôc Peyrot <chojin@debian.org> on Mon,
+14 Apr 2003 01:08:15 +0000.  It is now maintained by Brian Nelson
+<pyro@debian.org>. It is now maintained by Raphael Bossek
+<bossekr@debian.org>  Sat, 07 Jun 2008 16:00:34 +0200.
+
+It was downloaded from http://blinkenlights.ch/gnupod-dist/stable/
+
+Upstream Authors: Adrian Ulrich <pab at blinkenlights.ch>
+                  Eric C. Cooper <ecc@cmu.edu> 
+
+Copyright (C) 2002-2003 Adrian Ulrich <pab at blinkenlights.ch>
+              2002  Eric C. Cooper <ecc@cmu.edu>
+
+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/README.source
+++ gnupod-tools-0.99.8/debian/README.source
@@ -0,0 +1,7 @@
+How to maintain maintainer's changes
+------------------------------------
+
+  The source tarball will be extraced at runtime. Modifications are initiated by debian/rules on the extracted sources.
+
+ -- Raphael Bossek <bossekr@debian.org>  Sat, 07 Jun 2008 16:00:34 +0200
+
--- gnupod-tools-0.99.8.orig/debian/control
+++ gnupod-tools-0.99.8/debian/control
@@ -0,0 +1,19 @@
+Source: gnupod-tools
+Section: sound
+Priority: optional
+Maintainer: Raphael Bossek <bossekr@debian.org>
+Build-Depends: debhelper (>> 5.0.0)
+Build-Depends-Indep: perl, libxml-parser-perl, libxml-simple-perl, libunicode-string-perl, libfile-ncopy-perl, libmp3-info-perl, libogg-vorbis-header-pureperl-perl, libaudio-flac-header-perl, docbook-to-man, libtimedate-perl
+Standards-Version: 3.8.2
+
+Package: gnupod-tools
+Architecture: all 
+Depends: ${perl:Depends}, ${misc:Depends}, libxml-parser-perl, libunicode-string-perl, libxml-simple-perl, libmp3-info-perl, libogg-vorbis-header-pureperl-perl, libaudio-flac-header-perl, libtimedate-perl
+Recommends: gtkpod
+Suggests: timidity, lame, flac, faac, vorbis-tools
+Homepage: http://www.gnu.org/software/gnupod
+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/changelog
+++ gnupod-tools-0.99.8/debian/changelog
@@ -0,0 +1,190 @@
+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 <carnil@debian.org>  Wed, 31 Aug 2011 14:30:40 +0200
+
+gnupod-tools (0.99.8-2) unstable; urgency=low
+
+  * Drop /etc/perl/GNUpod directory.
+
+ -- Raphael Bossek <bossekr@debian.org>  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 <bossekr@debian.org>  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 <bossekr@debian.org>  Sat, 10 Jan 2009 18:00:51 +0100
+
+gnupod-tools (0.99.7-1) unstable; urgency=low
+
+  * New upstream release.
+
+ -- Raphael Bossek <bossekr@debian.org>  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 <bossekr@debian.org>  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 <bossekr@debian.org>  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 <bossekr@debian.org>  Mon, 30 Jun 2008 19:31:52 +0200
+
+gnupod-tools (0.99.6-2) unstable; urgency=low
+
+  * Fixed build dependencies. (Closes: #486952)
+
+ -- Raphael Bossek <bossekr@debian.org>  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 <bossekr@debian.org>  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 <pyro@debian.org>  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 <pyro@debian.org>  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 <pyro@debian.org>  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 <pyro@debian.org>  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 <pyro@debian.org>  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 <chojin@debian.org>  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 <chojin@debian.org>  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 <chojin@debian.org>  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 <chojin@debian.org>  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 <chojin@debian.org>  Wed, 23 Apr 2003 15:53:27 +0000
+
+gnupod-tools (0.28-1) unstable; urgency=low
+
+  * Initial Release. Closes: #182250.
+
+ -- Quôc Peyrot <chojin@debian.org>  Mon, 14 Apr 2003 01:16:37 +0000
--- 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:
+#        * <postinst> `configure' <most-recently-configured-version>
+#        * <old-postinst> `abort-upgrade' <new version>
+#        * <conflictor's-postinst> `abort-remove' `in-favour' <package>
+#          <new-version>
+#        * <postinst> `abort-remove'
+#        * <deconfigured's-postinst> `abort-deconfigure' `in-favour'
+#          <failed-install-package> <version> `removing'
+#          <conflicting-package> <version>
+# 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/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 <chojin@debian.org>, 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 <bossekr@debian.org>  Sat, 07 Jun 2008 16:00:34 +0200
+
--- gnupod-tools-0.99.8.orig/debian/rules
+++ gnupod-tools-0.99.8/debian/rules
@@ -0,0 +1,74 @@
+#!/usr/bin/make -f
+# debian/rules file for the Debian/GNU Linux gnupod-tools package
+# Copyright 2003 by Quôc Peyrot <chojin@debian.org>
+# Copyright 2005 by Brian Nelson <pyro@debian.org>
+# Copyright 2008 by Raphael Bossek <bossekr@debian.org>
+
+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)
+	sh $(CURDIR)/debian/maintenance/02install_incdir.sh $(SRCDIR) $(VERSION)
+	sh $(CURDIR)/debian/maintenance/03_use-Digest-SHA.sh $(SRCDIR)
+
+$(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:
+	dh_testdir
+	rm -rf $(SRCDIR)
+	rm -f build-indep-stamp config-stamp
+	dh_clean
+
+install: install-indep 
+install-indep:
+	dh_testdir
+	dh_testroot
+	dh_clean -k -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
+
+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/dirs
+++ gnupod-tools-0.99.8/debian/dirs
@@ -0,0 +1,3 @@
+usr/bin
+usr/share/perl5
+usr/share/man/man1
--- gnupod-tools-0.99.8.orig/debian/compat
+++ gnupod-tools-0.99.8/debian/compat
@@ -0,0 +1 @@
+5
--- 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 @@
+<!doctype refentry PUBLIC "-//OASIS//DTD DocBook V4.1//EN" [
+
+<!-- Process this file with docbook-to-man to generate an nroff manual
+     page: `docbook-to-man manpage.sgml > 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.
+
+  -->
+
+  <!-- Fill in your name for FIRSTNAME and SURNAME. -->
+  <!ENTITY dhfirstname "<firstname>Raphael</firstname>">
+  <!ENTITY dhsurname   "<surname>Bossek</surname>">
+  <!-- Please adjust the date whenever revising the manpage. -->
+  <!ENTITY dhdate      "<date>Sun, 08 Jun 2008</date>">
+  <!-- SECTION should be 1-8, maybe w/ subsection other parameters are
+       allowed: see man(7), man(1). -->
+  <!ENTITY dhsection   "<manvolnum>1</manvolnum>">
+  <!ENTITY dhemail     "<email>bossekr@debian.org</email>">
+  <!ENTITY dhusername  "Raphael Bossek">
+  <!ENTITY dhucpackage "<refentrytitle>GNUPOD_CONVERT</refentrytitle>">
+  <!ENTITY dhpackage   "gnupod_convert_*">
+
+  <!ENTITY debian      "<productname>Debian</productname>">
+  <!ENTITY gnu         "<acronym>GNU</acronym>">
+  <!ENTITY gpl         "&gnu; <acronym>GPL</acronym>">
+]>
+
+<refentry>
+  <refentryinfo>
+    <address>
+      &dhemail;
+    </address>
+    <author>
+      &dhfirstname;
+      &dhsurname;
+    </author>
+    <copyright>
+      <year>2008</year>
+      <holder>&dhusername;</holder>
+    </copyright>
+    &dhdate;
+  </refentryinfo>
+  <refmeta>
+    &dhucpackage;
+
+    &dhsection;
+  </refmeta>
+  <refnamediv>
+    <refname>gnupod_convert_*</refname>
+    <refpurpose>convert files to your desired audio file format</refpurpose>
+  </refnamediv>
+  <refsect1>
+    <title>DESCRIPTION</title>
+
+    <para>The <command>gnupod_convert_*</command> applications are used by <command>gnupod_addsond</command> internaly. Do not use them directly.</para>
+
+    <para>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;
+      <application>Info</application> format; see below.</para>
+
+  </refsect1>
+  <refsect1>
+    <title>SEE ALSO</title>
+
+    <para>gnupod_addsong (1).</para>
+  </refsect1>
+  <refsect1>
+    <title>AUTHOR</title>
+
+    <para>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.
+    </para>
+	<para>
+	  On Debian systems, the complete text of the GNU General Public
+	  License can be found in /usr/share/common-licenses/GPL.
+	</para>
+
+  </refsect1>
+</refentry>
+
+<!-- Keep this comment at the end of the file
+Local variables:
+mode: sgml
+sgml-omittag:t
+sgml-shorttag:t
+sgml-minimize-attributes:nil
+sgml-always-quote-attributes:t
+sgml-indent-step:2
+sgml-indent-data:t
+sgml-parent-document:nil
+sgml-default-dtd-file:nil
+sgml-exposed-tags:nil
+sgml-local-catalogs:nil
+sgml-local-ecat-files:nil
+End:
+-->
+
--- gnupod-tools-0.99.8.orig/debian/maintenance/02install_incdir.sh
+++ gnupod-tools-0.99.8/debian/maintenance/02install_incdir.sh
@@ -0,0 +1,16 @@
+#!/bin/sh
+
+set -e
+
+dir="$1"
+version="$2"
+
+file="$dir/tools/gnupod_install.pl"
+test -s "$file"
+
+sed -e 's,^#Check .*,my $include_dir = "/usr/share/perl5";,g;s,$INC\[0\],$include_dir,g' "$file" > "$file.new"
+
+chmod --reference="$file" "$file.new"
+mv -f "$file.new" "$file"
+
+exit 0
--- gnupod-tools-0.99.8.orig/debian/maintenance/03_use-Digest-SHA.sh
+++ gnupod-tools-0.99.8/debian/maintenance/03_use-Digest-SHA.sh
@@ -0,0 +1,13 @@
+#!/bin/sh
+
+dir="$1"
+list="configure configure.ac src/ext/Hash58.pm"
+
+for file in $list; do
+	if [ ! -e $dir/$file ]; then
+		echo "E: File $dir/$file does not exist!"
+		exit 1
+	fi
+	echo "I: Patching File $dir/$file."
+	perl -pi -e 's{Digest::SHA1}{Digest::SHA}g;' $dir/$file
+done
--- 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
+