This file is indexed.

/usr/bin/dh_installmime is in debhelper 9.20120909.

This file is owned by root:root, with mode 0o755.

The actual contents of the file can be viewed below.

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
#!/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>>] [B<-n>]

=head1 DESCRIPTION

B<dh_installmime> is a debhelper program that is responsible for installing
mime files into package build directories.

It also automatically generates the F<postinst> and F<postrm> commands needed to
interface with the debian B<mime-support> and B<shared-mime-info> packages. These
commands are inserted into the maintainer scripts by L<dh_installdeb(1)>.

=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

=head1 OPTIONS

=over 4

=item B<-n>, B<--noscripts>

Do not modify F<postinst>/F<postrm> scripts.

=back

=head1 NOTES

Note that this command is not idempotent. L<dh_prep(1)> should be called
between invocations of this command. Otherwise, it may cause multiple
instances of the same text to be added to maintainer scripts.

=cut

init();

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");
	}
	# Check whether we have to call update-mime (either upstream already
	# installs a MIME information file or Debian provides one)
	if ((! $dh{NOSCRIPTS}) && (-d "$tmp/usr/lib/mime/packages")) {
		autoscript($package,"postinst","postinst-mime");
		autoscript($package,"postrm","postrm-mime")
	}
	
	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");
	}
	# check whether we have to call update-mime-database (either upstream
	# already installs a shared MIME information file or Debian provides
	# one)
	if ((! $dh{NOSCRIPTS}) && (-d "$tmp/usr/share/mime/packages")) {
		autoscript($package, "postinst", "postinst-sharedmimeinfo");
		autoscript($package, "postrm", "postrm-sharedmimeinfo")
	}
}

=head1 SEE ALSO

L<debhelper(7)>

This program is a part of debhelper.

=head1 AUTHOR

Joey Hess <joeyh@debian.org>

=cut