1 files changed, 73 insertions, 0 deletions
diff --git a/dh_installmime b/dh_installmime
new file mode 100755
index 00000000..3360250f
--- /dev/null
+++ b/dh_installmime
@@ -0,0 +1,73 @@
+#!/usr/bin/perl -w
+
+=head1 NAME
+
+dh_installmime - install mime files into package build directories
+
+=cut
+
+use strict;
+use Debian::Debhelper::Dh_Lib;
+
+=head1 SYNOPSIS
+
+B<dh_installmime> [S<I<debhelper options>>]
+
+=head1 DESCRIPTION
+
+B<dh_installmime> is a debhelper program that is responsible for installing
+mime files into package build directories.
+
+=head1 FILES
+
+=over 4
+
+=item debian/I<package>.mime
+
+Installed into usr/lib/mime/packages/I<package> in the package build
+directory.
+
+=item debian/I<package>.sharedmimeinfo
+
+Installed into /usr/share/mime/packages/I<package>.xml in the package build
+directory.
+
+=back
+
+=cut
+
+init();
+
+# PROMISE: DH NOOP WITHOUT mime sharedmimeinfo
+
+foreach my $package (@{$dh{DOPACKAGES}}) {
+	my $tmp=tmpdir($package);
+
+	my $mime=pkgfile($package,"mime");
+	if ($mime ne '') {
+		if (! -d "$tmp/usr/lib/mime/packages") {
+			doit("install","-d","$tmp/usr/lib/mime/packages");
+		}
+		doit("install","-p","-m644",$mime,"$tmp/usr/lib/mime/packages/$package");
+	}
+	
+	my $sharedmimeinfo=pkgfile($package,"sharedmimeinfo");
+	if ($sharedmimeinfo ne '') {
+		if (! -d "$tmp/usr/share/mime/packages") {
+			doit("install", "-d", "$tmp/usr/share/mime/packages");
+		}
+		doit("install", "-p", "-m644", $sharedmimeinfo, "$tmp/usr/share/mime/packages/$package.xml");
+	}
+}
+
+=head1 SEE ALSO
+
+L<debhelper(7)>
+
+This program is a part of debhelper.
+
+=head1 AUTHOR
+
+Joey Hess <joeyh@debian.org>
+
+=cut