/usr/share/octopussy/user_pref.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 | <WebUI:PageTop title="_USER_PREFS" help="user_prefs"/>
<%
my $f = $Request->Form();
my $login = $Session->{AAT_LOGIN};
my $ok = 1;
if (defined $f->{update})
{
my %conf = ();
$conf{language} = $f->{AAT_Language};
$conf{theme} = $f->{AAT_Theme};
$conf{menu_mode} = $f->{AAT_MenuMode};
if (NOT_NULL($f->{old_pwd}) || NOT_NULL($f->{new_pwd1})
|| NOT_NULL($f->{new_pwd2}))
{
my $auth = AAT::User::Authentication("Octopussy", $login, $f->{old_pwd});
if (NULL($auth->{login}))
{
$ok = 0;
%><AAT:Message level="2" msg="Wrong Password !" /><%
}
elsif ($f->{new_pwd1} ne $f->{new_pwd2})
{
$ok = 0;
%><AAT:Message level="2" msg="Password Mismatch !" /><%
}
else
{ $conf{password} = $f->{new_pwd1}; }
}
if ($ok)
{
AAT::User::Update("Octopussy", $login, $Session->{AAT_USER_TYPE}, \%conf);
AAT::Language($f->{AAT_Language});
AAT::Menu_Mode($f->{AAT_MenuMode});
AAT::Theme($f->{AAT_Theme});
AAT::Syslog::Message("octo_WebUI", "USER_PREF_MODIFIED", $Session->{AAT_LOGIN});
$Response->Redirect("./user_pref.asp");
}
}
$Response->Include("AAT/INC/AAT_User_Prefs.inc", url => "./user_pref.asp");
%>
<WebUI:PageBottom />
|