/usr/share/perl5/Octopussy/Info.pm is in octopussy 1.0.6-0ubuntu2.
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 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 | # $HeadURL: https://syslog-analyzer.svn.sourceforge.net/svnroot/syslog-analyzer/tags/Octopussy-1.0.6/usr/share/perl5/Octopussy/Info.pm $
# $Revision: 356 $
# $Date: 2010-05-27 18:51:53 +0100 (Thu, 27 May 2010) $
# $Author: sebthebert $
=head1 NAME
Octopussy::Info - Octopussy Information module
=cut
package Octopussy::Info;
use strict;
use warnings;
use Readonly;
use AAT::Application;
Readonly my $APPLICATION_NAME => 'Octopussy';
=head1 FUNCTIONS
=head2 Email()
Returns Octopussy Support Email
=cut
sub Email
{
my $info = AAT::Application::Info($APPLICATION_NAME);
return ($info->{email});
}
=head2 User()
Returns Octopussy System User
=cut
sub User
{
my $info = AAT::Application::Info($APPLICATION_NAME);
return ($info->{user});
}
=head2 WebSite()
Returns Octopussy WebSite
=cut
sub WebSite
{
my $info = AAT::Application::Info($APPLICATION_NAME);
return ($info->{website});
}
1;
=head1 AUTHOR
Sebastien Thebert <octo.devel@gmail.com>
=cut
|