This file is indexed.

/usr/bin/dh_scour is in scour 0.36-2.

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
#!/usr/bin/perl -w

=head1 NAME

dh_scour - run scour optimizer on shipped SVG files

=cut

use strict;
use File::Find;
use Debian::Debhelper::Dh_Lib;

=head1 SYNOPSIS

B<dh_scour> [I<debhelper options>] [S<B<--> I<params>>]

=head1 DESCRIPTION

dh_scour is a debhelper program that will run the scour SVG image
scrubber on all shipped SVG files.

=head1 OPTIONS

=over 4

=item B<--> I<params>

Pass "params" to L<scour(1)>. By default, no extra arguments are passed.

=back

=cut

init();

sub iter {
    return unless /\.svgz?$/;
    return if -l $_ or -d $_; # Skip directories and symlinks
    my $name = $_;

    # See if we were asked to exclude this file.
    foreach my $f (@{$dh{EXCLUDE}}) {
	    return if ($File::Find::name =~ m/\Q$f\E/);
    }

    my $optname = $name;
    $optname =~ s/(svgz?)$/opt.$1/;
    my @scour_cmd = ('scour', '-i', $name, '-o', $optname, '--disable-style-to-xml', @ARGV);
    my @check_cmd = ('/usr/share/scour/cmpsvg', $name, $optname);
    verbose_print(escape_shell(@scour_cmd));
    verbose_print(escape_shell(@check_cmd));
    if (system (@scour_cmd) == 0 && system (@check_cmd) == 0) {
	# fix permisssions
	my @st = stat $name;
	chmod $st[2], $optname or error("cannot restore permissions on optimized SVG file: $!");
	chown $st[4], $st[5], $optname or error("cannot restore user/group on optimized SVG file: $!");

	rename $optname, $name or error("cannot rename optimized SVG file: $!");
    } else {
	warning "scour was not able to process $name";
	unlink $optname;
    }
}

foreach my $package (@{$dh{DOPACKAGES}}) {
    find(\&iter, tmpdir($package))
}

=head1 SEE ALSO

L<debhelper>

=head1 AUTHOR

Martin Pitt <martin.pitt@ubuntu.com>

=cut