bug fixes
This commit is contained in:
parent
0026b1e73f
commit
0dd6b7b660
12 changed files with 1151 additions and 219 deletions
|
|
@ -78,6 +78,45 @@ sub audit {
|
|||
}
|
||||
|
||||
|
||||
#-------------------------------------------------------------------
|
||||
|
||||
=head canShowDebug ( )
|
||||
|
||||
Returns true if the user meets the condition to see debugging information and debug mode is enabled.
|
||||
|
||||
=cut
|
||||
|
||||
sub canShowDebug {
|
||||
return (
|
||||
(
|
||||
$WebGUI::Session::session{setting}{showDebug}
|
||||
) && (
|
||||
$WebGUI::Session::session{setting}{debugIp} =~ /^$WebGUI::Session::session{env}{REMOTE_ADDR}/ ||
|
||||
$WebGUI::Session::session{setting}{debugIp} eq ""
|
||||
)
|
||||
);
|
||||
}
|
||||
|
||||
#-------------------------------------------------------------------
|
||||
|
||||
=head canShowPerformanceIndicators ()
|
||||
|
||||
Returns true if the user meets the conditions to see performance indicators and performance indicators are enabled.
|
||||
|
||||
=cut
|
||||
|
||||
sub canShowPerformanceIndicators {
|
||||
return (
|
||||
(
|
||||
$WebGUI::Session::session{setting}{showPerformanceIndicators}
|
||||
) && (
|
||||
$WebGUI::Session::session{setting}{debugIp} =~ /^$session{env}{REMOTE_ADDR}/ ||
|
||||
$WebGUI::Session::session{setting}{debugIp} eq ""
|
||||
)
|
||||
);
|
||||
}
|
||||
|
||||
|
||||
#-------------------------------------------------------------------
|
||||
|
||||
=head2 debug ( message )
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue