Apache::Icon - Lookup icon images
use Apache::Icon (); my $icon = Apache::Icon->new($subr); my $img = $icon->find || $icon->default; my $alt = $icon->alt;
This module rips out the icon guts of mod_autoindex and provides a Perl interface for looking up icon images. The motivation is to piggy-back the existing AddIcon and related directives for mapping file extensions and names to icons, while keeping things as small and fast as mod_autoindex does.
Create a new Apache::Icon object with the given Apache::SubRequest object. Example:
for my $entry (sort $dh->read) { next if $entry eq '.'; my $subr = $r->lookup_file($entry); my $icon = Apache::Icon->new($subr); ...
Lookup icon image associated with the subrequest.
my $img = $icon->find;
Lookup the default icon images.
my $img = $icon->default; #DefaultIcon (unknown.gif) my $img = $icon->default("^^DIRECTORY^^"); #folder.gif my $img = $icon->default("^^BLANKICON^^"); #blank.gif
Lookup the text alternative specified by the AddAlt directive.
my $alt = $icon->alt || $img;
Refer to the mod_autoindex documentation for directives listed here with no description.
This directive can be set to On or Off. The default is On if mod_autoindex is configured with the server, Off otherwise. When the directive is On, mod_icon directive handlers will return DECLINE_CMD after processing which allows mod_autoindex to also handle the various Icon and Alt directives.
Apache::AutoIndex(3)
Doug MacEachern
C code based on mod_autoindex by the Apache Group
To install Apache::Icon, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Apache::Icon
CPAN shell
perl -MCPAN -e shell install Apache::Icon
For more information on module installation, please visit the detailed CPAN module installation guide.