ÿØÿà JFIF ÿÛ „ ( %"1"%)+...383,7(-.-
Server : LiteSpeed System : Linux v2202501248978307069 5.4.0-204-generic #224-Ubuntu SMP Thu Dec 5 13:38:28 UTC 2024 x86_64 User : voirf6718 ( 1002) PHP Version : 7.3.33-1+focal Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals, Directory : /bin/X11/X11/ |
#!/usr/bin/perl =head1 NAME dh_icons - Update caches of Freedesktop icons =cut use strict; use warnings; use File::Find; use Debian::Debhelper::Dh_Lib; our $VERSION = DH_BUILTIN_VERSION; =head1 SYNOPSIS B<dh_icons> [S<I<debhelper options>>] [B<-n>] =head1 DESCRIPTION B<dh_icons> is a debhelper program that updates caches of Freedesktop icons when needed, using the B<update-icon-caches> program provided by GTK+2.12. Currently this program does not handle installation of the files, though it may do so at a later date, so should be run after icons are installed in the package build directories. It takes care of adding maintainer script fragments to call B<update-icon-caches> for icon directories. (This is not done for gnome and hicolor icons, as those are handled by triggers.) These commands are inserted into the maintainer scripts by L<dh_installdeb(1)>. =head1 OPTIONS =over 4 =item B<-n>, B<--no-scripts> Do not modify maintainer scripts. =back =cut init(); # PROMISE: DH NOOP WITHOUT tmp(usr/share/icons) cli-options() my $baseicondir="/usr/share/icons"; foreach my $package (@{$dh{DOPACKAGES}}) { my $tmp=tmpdir($package); my $icondir="$tmp$baseicondir"; if (-d $icondir) { my @dirlist; opendir(my $dirfd, $icondir) or error("Cannot opendir($icondir): $!"); while (my $subdir = readdir($dirfd)) { next if $subdir =~ /^\./; next if $subdir eq "gnome"; next if $subdir eq "hicolor"; my $needs_cache = 0; find sub { $needs_cache = 1 if -f and (/\.png$/ or /\.svg$/ or /\.xpm$/ or /\.icon$/); }, "$icondir/$subdir" ; push @dirlist, "$baseicondir/$subdir" if $needs_cache; } closedir($dirfd); if (@dirlist and ! $dh{NOSCRIPTS}) { my $list=join(" ", sort @dirlist); autoscript($package, 'postinst', 'postinst-icons', { 'DIRLIST' => $list }); autoscript($package, 'postrm', 'postrm-icons', { 'DIRLIST' => $list }); } } } =head1 SEE ALSO L<debhelper> This program is a part of debhelper. =head1 AUTHOR Ross Burton <ross@burtonini.com> Jordi Mallach <jordi@debian.org> Josselin Mouette <joss@debian.org> =cut