#!/usr/bin/perl =head1 NAME dh_installmime - install mime files into package build directories =cut use strict; use warnings; use Debian::Debhelper::Dh_Lib; =head1 SYNOPSIS B [S>] =head1 DESCRIPTION B is a debhelper program that is responsible for installing mime files into package build directories. =head1 FILES =over 4 =item debian/I.mime Installed into usr/lib/mime/packages/I in the package build directory. =item debian/I.sharedmimeinfo Installed into /usr/share/mime/packages/I.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") { install_dir("$tmp/usr/lib/mime/packages"); } install_file($mime, "$tmp/usr/lib/mime/packages/$package"); } my $sharedmimeinfo=pkgfile($package,"sharedmimeinfo"); if ($sharedmimeinfo ne '') { if (! -d "$tmp/usr/share/mime/packages") { install_dir("$tmp/usr/share/mime/packages"); } install_file($sharedmimeinfo, "$tmp/usr/share/mime/packages/$package.xml"); } } =head1 SEE ALSO L This program is a part of debhelper. =head1 AUTHOR Joey Hess =cut # Local Variables: # indent-tabs-mode: t # tab-width: 4 # cperl-indent-level: 4 # End: