/usr/share/perl5/AAT/File.pm is in octopussy 1.0.6-0ubuntu1.
This file is owned by root:root, with mode 0o644.
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 | # $HeadURL$
# $Revision: 353 $
# $Date: 2010-05-17 18:44:55 +0100 (Mon, 17 May 2010) $
# $Author: sebthebert $
=head1 NAME
AAT::File - AAT File module
=cut
package AAT::File;
use strict;
use warnings;
use Readonly;
use AAT::Utils qw( NOT_NULL );
Readonly my $DIR_MIME_SMALL => 'THEMES/DEFAULT/mime/22x22';
Readonly my $DIR_MIME_BIG => 'THEMES/DEFAULT/mime/128x128';
=head1 FUNCTIONS
=head2 Mime_Icon($file, $type)
=cut
sub Mime_Icon
{
my ($file, $type) = @_;
my $dir = (
((NOT_NULL($type)) && ($type =~ /BIG/i))
? $DIR_MIME_BIG
: $DIR_MIME_SMALL
);
if ($file =~ /.+\.(\w+)$/)
{
my $ext = $1;
return ("$dir/$ext.png")
if ((defined $ext) && (-f "$dir/$ext.png"));
}
return ("$dir/DIRECTORY.png") if (-d $file);
return ("$dir/FILE.png");
}
1;
=head1 AUTHOR
Sebastien Thebert <octo.devel@gmail.com>
=cut
|