/usr/share/octopussy/device_storages.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 | <WebUI:PageTop title="Device Storages" help="devices" />
<%
my $device = $Request->QueryString("device");
$device = (Octopussy::Device::Valid_Name($device) ? $device : undef);
my $f = $Request->Form();
if ($Session->{AAT_ROLE} =~ /(admin|rw)/)
{
if ($f->{action} eq "update")
{
my $conf = Octopussy::Device::Configuration($device);
my @services = ();
foreach my $s (ARRAY($conf->{service}))
{
my $serv = $s->{sid};
if (defined $f->{"logrotate_$serv"})
{
push(@services, { sid => $serv, rank => $s->{rank},
logrotate => $f->{"logrotate_$serv"} });
}
else
{ push(@services, { sid => $serv, rank => $s->{rank} }); }
}
foreach my $k (keys %{$f})
{ $conf->{$k} = $f->{$k} if ($k =~ /^storage_.+$/); }
$conf->{service} = \@services;
Octopussy::Device::Modify($conf);
}
}
%>
<AAT:Inc file="octo_device_storages_default" device="$device"
url="./device_storages.asp?device=$device" />
<WebUI:PageBottom />
|