/usr/share/octopussy/global.asa 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 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 | use utf8;
use AAT;
use AAT::Certificate;
use AAT::Datetime;
use AAT::DB;
use AAT::LDAP;
use AAT::List;
use AAT::NSCA;
use AAT::SMTP;
use AAT::Syslog;
use AAT::Translation;
use AAT::User;
use AAT::Utils qw( ARRAY NOT_NULL NULL);
use AAT::XML;
use AAT::XMPP;
use AAT::Zabbix;
use Octopussy;
use Octopussy::Alert;
use Octopussy::Cache;
use Octopussy::Configuration;
use Octopussy::Contact;
use Octopussy::Data_Report;
use Octopussy::DB;
use Octopussy::Device;
use Octopussy::DeviceGroup;
use Octopussy::FS;
use Octopussy::Info;
use Octopussy::Location;
use Octopussy::Loglevel;
use Octopussy::Logs;
use Octopussy::Map;
use Octopussy::Message;
use Octopussy::Plugin;
use Octopussy::Report;
use Octopussy::RRDTool;
use Octopussy::Schedule;
use Octopussy::Search_Template;
use Octopussy::Service;
use Octopussy::ServiceGroup;
use Octopussy::Stats;
use Octopussy::Storage;
use Octopussy::System;
use Octopussy::Table;
use Octopussy::Taxonomy;
use Octopussy::TimePeriod;
use Octopussy::Type;
use Octopussy::World_Stats;
=head1 FUNCTIONS
=head2 Script_OnStart()
Function executed before any .asp page code
(see http://apache-asp.org/events.html)
Stores all parameters (QueryString & Form) in $Session hash
=cut
sub Script_OnStart()
{
my $q = $Request->QueryString();
my $f = $Request->Form();
foreach my $k (keys %{$q})
{
$k = $1 if ($k =~ /(.{1000}).*/); #(SDBM limited to 1008 bytes key)
$Session->{$k} = $q->{$k} if ($k !~ /^AAT_/);
}
foreach my $k (keys %{$f})
{
$k = $1 if ($k =~ /(.{1000}).*/); #(SDBM limited to 1008 bytes key)
$Session->{$k} = $f->{$k} if ($k !~ /^AAT_/);
}
}
=head2 Session_OnEnd()
Function executed at the End of the Session
(see http://apache-asp.org/events.html)
Removes any Logs Search files
=cut
sub Session_OnEnd()
{
my $run_dir = Octopussy::FS::Directory("running");
my $login = $Session->{AAT_LOGIN};
`rm -f $run_dir/logs_${login}_*`;
}
=head2 Purge_Session()
Purges $Session hash
=cut
sub Purge_Session
{
foreach my $k (keys %{$Session})
{
delete $Session->{$k} if (($k !~ /^AAT_/));
}
}
=head1 NAME
WebUI
=cut
package WebUI;
=head1 FUNCTIONS
=head2 PageTop($args, $body)
=cut
sub PageTop
{
my ($args, $body) = @_;
$main::Response->Include('INC/octo_page_top.inc', %{$args});
}
=head2 PageTopRestricted($args, $body)
=cut
sub PageTopRestricted
{
my ($args, $body) = @_;
$main::Response->Include('INC/octo_page_top_restricted.inc', %{$args});
}
=head2 PageBottom($args, $body)
=cut
sub PageBottom
{
my ($args, $body) = @_;
$main::Response->Include('INC/octo_page_bottom.inc');
}
1;
|