/usr/share/octopussy/tables.asp 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 | <WebUI:PageTop title="_TABLES" help="tables" />
<%
my $f = $Request->Form();
my $table = $f->{table} || $Request->QueryString("table");
$table = (Octopussy::Table::Valid_Name($table) ? $table : undef);
my $action = $Request->QueryString("action");
my $sort = $Request->QueryString("tables_table_sort");
$table =~ s/ /_/g;
if (NULL($table))
{
%><AAT:Inc file="octo_tables_list" url="./tables.asp" sort="$sort" /><%
}
else
{
if ((!-f Octopussy::Table::Filename($table))
&& ($Session->{AAT_ROLE} !~ /ro/i))
{
Octopussy::Table::New({ name => $table, description => $f->{description} });
AAT::Syslog::Message("octo_WebUI", "GENERIC_CREATED", "Table", $table, $Session->{AAT_LOGIN});
$Response->Redirect("./table_fields.asp?table=$table");
}
elsif (($action eq "remove") && ($Session->{AAT_ROLE} !~ /ro/i))
{
Octopussy::Table::Remove($table);
AAT::Syslog::Message("octo_WebUI", "GENERIC_DELETED", "Table", $table, $Session->{AAT_LOGIN});
$Response->Redirect("./tables.asp");
}
else
{
$Response->Redirect("./table_fields.asp?table=$table");
}
}
%>
<WebUI:PageBottom />
|