/usr/share/octopussy/system.asp 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 | <%
$Response->Redirect("./index.asp")
if ($Session->{AAT_ROLE} !~ /admin/);
my $f = $Request->Form();
my $q = $Request->QueryString();
my $action = $f->{action} || $q->{action};
my $file = $f->{file} || $q->{file};
my $restored = 0;
if (NOT_NULL($action) && ($action eq "backup"))
{
$file = Octopussy::Configuration::Backup();
if ($file =~ /(backup_\d{12}.tgz)/)
{
my $filename = $1;
AAT::File_Save( { contenttype => "archive/tar",
input_file => $file, output_file => $filename } );
}
}
elsif ((NOT_NULL($file)) && ($action eq "restore"))
{ $Response->Redirect("./dialog.asp?id=restore_config&arg1=$file"); }
elsif ((NOT_NULL($file)) && ($action eq "restore_confirmed"))
{
Octopussy::Configuration::Restore($file);
$restored = 1;
}
%>
<WebUI:PageTop title="_SYSTEM_CONFIG" help="system_config"/>
<%
if ($restored)
{
my $msg = sprintf(AAT::Translation("_MSG_CONFIG_RESTORED"), $file);
%><AAT:Message level="0" msg="$msg" /><%
}
if (defined $f->{config})
{
if ($f->{config} eq "database")
{
my %db_conf = ( database => { type => $f->{"db_type"},
host => $f->{"db_host"}, user => $f->{"db_user"},
password => $f->{"db_password"}, db => $f->{"db_database"} } );
AAT::Update_Configuration("Octopussy", "db", \%db_conf, "aat_db");
}
elsif ($f->{config} eq "ldap_contacts")
{
my $c = AAT::LDAP::Configuration("Octopussy");
my ($u_server, $u_auth_dn, $u_auth_pwd, $u_base, $u_filter) =
($c->{users_server}, $c->{users_auth_dn}, $c->{users_auth_password},
$c->{users_base}, $c->{users_filter});
my %ldap_conf = ( ldap => { contacts_base => $f->{"ldap_contacts_base"},
contacts_auth_dn => $f->{"ldap_contacts_auth_dn"},
contacts_auth_password => $f->{"ldap_contacts_auth_password"},
contacts_filter => $f->{"ldap_contacts_filter"},
contacts_server => $f->{"ldap_contacts_server"},
users_base => $u_base, users_auth_dn => $u_auth_dn,
users_auth_password => $u_auth_pwd,
users_filter => $u_filter, users_server => $u_server } );
AAT::Update_Configuration("Octopussy", "ldap", \%ldap_conf, "aat_ldap");
}
elsif ($f->{config} eq "ldap_users")
{
my $c = AAT::LDAP::Configuration("Octopussy");
my ($c_server, $c_auth_dn, $c_auth_pwd, $c_base, $c_filter) =
($c->{contacts_server}, $c->{contacts_auth_dn},
$c->{contacts_auth_password}, $c->{contacts_base}, $c->{contacts_filter});
my %ldap_conf = ( ldap => { contacts_base => $c_base,
contacts_auth_dn => $c_auth_dn, contacts_auth_password => $c_auth_pwd,
contacts_filter => $c_filter, contacts_server => $c_server,
users_base => $f->{"ldap_users_base"},
users_auth_dn => $f->{"ldap_users_auth_dn"},
users_auth_password => $f->{"ldap_users_auth_password"},
users_filter => $f->{"ldap_users_filter"},
users_server => $f->{"ldap_users_server"} } );
AAT::Update_Configuration("Octopussy", "ldap", \%ldap_conf, "aat_ldap");
}
elsif ($f->{config} eq "nsca")
{
my %nsca_conf = ( nsca => { bin => $f->{"nsca_bin"},
conf => $f->{"nsca_conf"}, nagios_server => $f->{"nsca_nagios_server"},
nagios_host => $f->{"nsca_nagios_host"},
nagios_service => $f->{"nsca_nagios_service"} } );
AAT::Update_Configuration("Octopussy", "nsca", \%nsca_conf, "aat_nsca");
}
elsif ($f->{config} eq "proxy")
{
my %proxy_conf = ( proxy => { server => $f->{"proxy_server"},
port => $f->{"proxy_port"}, user => $f->{"proxy_user"},
password => $f->{"proxy_password"} } );
AAT::Update_Configuration("Octopussy", "proxy", \%proxy_conf, "aat_proxy");
}
elsif ($f->{config} eq "smtp")
{
my $auth_type = $f->{"smtp_authtype"};
my %smtp_conf = ( smtp => { server => $f->{"smtp_server"},
sender => $f->{"smtp_sender"},
auth_type => ($auth_type eq "-NONE-" ? undef : $auth_type),
auth_login => $f->{"smtp_authlogin"},
auth_password => $f->{"smtp_authpassword"} } );
AAT::Update_Configuration("Octopussy", "smtp", \%smtp_conf, "aat_smtp");
}
elsif ($f->{config} eq "xmpp")
{
my %xmpp_conf = ( xmpp => { server => $f->{"xmpp_server"},
port => $f->{"xmpp_port"},
component_name => $f->{"xmpp_component_name"},
connection_type => $f->{xmpp_connection_type}, tls => $f->{"xmpp_tls"},
user => $f->{"xmpp_user"}, password => $f->{"xmpp_password"} } );
AAT::Update_Configuration("Octopussy", "xmpp", \%xmpp_conf, "aat_xmpp");
}
elsif ($f->{config} eq "zabbix")
{
my %zabbix_conf = ( zabbix => { bin => $f->{"zabbix_bin"},
conf => $f->{"zabbix_conf"}, zabbix_server => $f->{"zabbix_server"},
zabbix_host => $f->{"zabbix_host"}, zabbix_item => $f->{"zabbix_item"} } );
AAT::Update_Configuration("Octopussy", "zabbix", \%zabbix_conf, "aat_zabbix");
}
AAT::Syslog::Message("octo_WebUI", "SYSTEM_CONFIG_MODIFIED", $Session->{AAT_LOGIN});
}
%>
<AAT:Inc file="octo_system_configurator" action="./system.asp" />
<WebUI:PageBottom />
|