oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Updated the hourly script to automatically deal with all sites, and to allow for plugins.

Browse source
This commit is contained in:
JT Smith 2002-05-29 18:42:00 +00:00
parent 2671feae26
commit 2756f43a78
5 changed files with 164 additions and 72 deletions
Download patch file Download diff file Expand all files Collapse all files

26
lib/WebGUI.pm
View file

@ -57,21 +57,25 @@ sub page {
tie %hash, 'Tie::CPHash';
%hash = (%{$wobject},%{$extra});
$wobject = \%hash;
if (${$wobject}{pageId} != $session{page}{pageId} && ${$wobject}{pageId} != 2) {
$wobjectOutput = WebGUI::International::get(417);
WebGUI::ErrorHandler::warn($session{user}{username}." [".$session{user}{userId}."] attempted to access wobject [".$session{form}{wid}."] on page '".$session{page}{title}."' [".$session{page}{pageId}."].");
} else {
$cmd = "WebGUI::Wobject::".${$wobject}{namespace};
$w = $cmd->new($wobject);
$cmd = "www_".$session{form}{func};
$wobjectOutput = $w->$cmd;
}
# $wobjectOutput = WebGUI::International::get(381); # bad error
} else {
WebGUI::ErrorHandler::warn("Wobject [$session{form}{wid}] appears to be missing or corrupt, but was requested by $session{user}{username} [$session{user}{userId}].");
WebGUI::ErrorHandler::warn("Wobject [$session{form}{wid}] appears to be missing or corrupt, but was requested "
."by $session{user}{username} [$session{user}{userId}].");
$wobject = ();
}
}
if ($wobject) {
if (${$wobject}{pageId} != $session{page}{pageId} && ${$wobject}{pageId} != 2) {
$wobjectOutput = WebGUI::International::get(417);
WebGUI::ErrorHandler::warn($session{user}{username}." [".$session{user}{userId}."] attempted to access wobject ["
.$session{form}{wid}."] on page '".$session{page}{title}."' [".$session{page}{pageId}."].");
} else {
$cmd = "WebGUI::Wobject::".${$wobject}{namespace};
$w = $cmd->new($wobject);
$cmd = "www_".$session{form}{func};
$wobjectOutput = $w->$cmd;
}
# $wobjectOutput = WebGUI::International::get(381); # bad error
}
}
if ($operationOutput ne "") {
$contentHash{0} = $operationOutput;