/usr/share/octopussy/wizard_msg.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 | <WebUI:PageTop title="Wizard Message" />
<%
my $device = $Request->Form("device");
$device = (Octopussy::Device::Valid_Name($device) ? $device : undef);
my $msg_orig = $Request->Form("msg_orig");
my $msg_pattern = $Request->Form("msg_pattern");
my $service = $Request->Form("service");
$service = (Octopussy::Service::Valid_Name($service) ? $service : undef);
my $loglevel = $Request->Form("loglevel");
$loglevel = (Octopussy::Loglevel::Valid_Name($loglevel) ? $loglevel : undef);
my $taxonomy = $Request->Form("taxonomy");
$taxonomy = (Octopussy::Taxonomy::Valid_Name($taxonomy) ? $taxonomy : undef);
my $table = $Request->Form("table");
$table = (Octopussy::Table::Valid_Name($table) ? $table : undef);
my $table_field = $Request->Form("table_field_1");
my $orig = $msg_orig;
if (defined $table_field)
{
my %tf = %{{ map { $_->{title} => $_->{type} } Octopussy::Table::Fields($table) }};
my $i = 1;
while ($msg_pattern =~ /<\@([^:]+?)\@>/)
{
my $field = $Request->Form("table_field_$i");
if ($field =~ /^CONST (.+)$/)
{
my $constant = $1;
$msg_pattern =~ s/(.*?)<\@([^:]+?)\@>/$1$constant/;
}
else
{
my $type = $tf{$field};
if ($type !~ /DATETIME/)
{ $msg_pattern =~ s/(.*?)<\@([^:]+?)\@>/$1<\@$type:$field\@>/; }
else
{ $msg_pattern =~ s/(.*?)<\@([^:]+?)\@>/$1<\@$2:$field\@>/; }
}
$i++;
}
%><AAT:Inc file="octo_wizard_msg_edit" device="$device"
service="$service" loglevel="$loglevel"
taxonomy="$taxonomy" table="$table"
msg_orig="$msg_orig" msg_pattern="$msg_pattern" /><%
}
else
{
%><AAT:Inc file="octo_wizard_msg" service="$service"
loglevel="$loglevel" taxonomy="$taxonomy" table="$table"
msg_orig="$msg_orig" msg_pattern="$msg_pattern" />
<AAT:Inc file="octo_wizard_msg_fields" device="$device"
service="$service" loglevel="$loglevel"
taxonomy="$taxonomy" table="$table"
msg_orig="$msg_orig" msg_pattern="$msg_pattern" /><%
}
%>
<WebUI:PageBottom />
|