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

Added wobject loader.

Browse source
This commit is contained in:
JT Smith 2002-05-12 23:13:35 +00:00
parent 0bf9cecdf9
commit cc86d66705
1 changed files with 76 additions and 54 deletions
Download patch file Download diff file Expand all files Collapse all files

130
lib/WebGUI/Session.pm
View file

@ -52,7 +52,7 @@ sub _getPageInfo {
} }
%page = WebGUI::SQL->quickHash("select * from page where pageId='".$pageId."'",$_[1]); %page = WebGUI::SQL->quickHash("select * from page where pageId='".$pageId."'",$_[1]);
$page{url} = $_[3]."/".$page{urlizedTitle}; $page{url} = $_[3]."/".$page{urlizedTitle};
return %page; return \%page;
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------
@ -65,7 +65,7 @@ sub _getSessionVars {
WebGUI::SQL->write("update userSession set lastPageView=".time().", lastIP='$ENV{REMOTE_ADDR}', expires=".(time()+$_[2])." where sessionId='$_[0]'",$_[1]); WebGUI::SQL->write("update userSession set lastPageView=".time().", lastIP='$ENV{REMOTE_ADDR}', expires=".(time()+$_[2])." where sessionId='$_[0]'",$_[1]);
} }
} }
return %vars; return \%vars;
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------
@ -79,7 +79,29 @@ sub _getUserInfo {
} }
%profile = WebGUI::SQL->buildHash("select userProfileField.fieldName, userProfileData.fieldData from userProfileData, userProfileField where userProfileData.fieldName=userProfileField.fieldName and userProfileData.userId=$user{userId}", $_[1]); %profile = WebGUI::SQL->buildHash("select userProfileField.fieldName, userProfileData.fieldData from userProfileData, userProfileField where userProfileData.fieldName=userProfileField.fieldName and userProfileData.userId=$user{userId}", $_[1]);
%user = (%user, %profile); %user = (%user, %profile);
return %user; return \%user;
}
#-------------------------------------------------------------------
sub _loadWobjects {
my ($dir, @files, $file, $cmd, $namespace);
if ($^O =~ /Win/i) {
$dir = "\\lib\\WebGUI\\Wobject";
} else {
$dir = "/lib/WebGUI/Wobject";
}
opendir (DIR,$session{config}{webguiRoot}.$dir) or WebGUI::ErrorHandler::fatalError("Can't open wobject directory!");
@files = readdir(DIR);
foreach $file (@files) {
if ($file =~ /(.*?)\.pm$/) {
$namespace = $1;
$cmd = "use WebGUI::Wobject::".$namespace;
eval($cmd);
$cmd = "\$WebGUI::Wobject::".$namespace."::name";
$session{wobject}{$namespace} = eval($cmd);
}
}
closedir(DIR);
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------
@ -111,83 +133,83 @@ sub httpRedirect {
#------------------------------------------------------------------- #-------------------------------------------------------------------
sub open { sub open {
my ($key, %CONFIG, %VARS, %PAGE, %FORM, $query, %COOKIES, $config, %USER, %SETTINGS, $dbh); my ($key, $config);
tie %USER, 'Tie::CPHash'; ###----------------------------
tie %VARS, 'Tie::CPHash'; ### config variables
tie %PAGE, 'Tie::CPHash'; $session{config}{webguiRoot} = $_[0];
$CONFIG{webguiRoot} = $_[0]; $session{config}{configFile} = $_[1] || "WebGUI.conf";
$CONFIG{configFile} = $_[1] || "WebGUI.conf"; $config = new Data::Config $session{config}{webguiRoot}.'/etc/'.$session{config}{configFile};
$config = new Data::Config $CONFIG{webguiRoot}.'/etc/'.$CONFIG{configFile};
foreach ($config->param) { foreach ($config->param) {
$CONFIG{$_} = $config->param($_); $session{config}{$_} = $config->param($_);
} }
if( defined( $CONFIG{scripturl} ) ) { if( defined( $session{config}{scripturl} ) ) {
# get rid of leading "/" if present. # get rid of leading "/" if present.
$CONFIG{scripturl} =~ s/^\///; $session{config}{scripturl} =~ s/^\///;
} else { } else {
# default to the "real" path to script. # default to the "real" path to script.
$CONFIG{scripturl} = $ENV{SCRIPT_NAME}; $session{config}{scripturl} = $ENV{SCRIPT_NAME};
} }
$dbh = DBI->connect($CONFIG{dsn}, $CONFIG{dbuser}, $CONFIG{dbpass}, { RaiseError => 0, AutoCommit => 1 }); ###----------------------------
if ( $CONFIG{dsn} =~ /Oracle/ ) { # Set Oracle specific attributes ### default database handler object
$dbh->{LongReadLen} = 512 * 1024; $session{dbh} = DBI->connect($session{config}{dsn},$session{config}{dbuser},$session{config}{dbpass},{ RaiseError=>0,AutoCommit=>1 });
$dbh->{LongTruncOk} = 1; if ( $session{config}{dsn} =~ /Oracle/ ) { # Set Oracle specific attributes
} $session{dbh}->{LongReadLen} = 512 * 1024;
$query = CGI->new(); $session{dbh}->{LongTruncOk} = 1;
foreach ($query->param) { }
$FORM{$_} = $query->param($_); ###----------------------------
### global system settings (from settings table)
$session{setting} = WebGUI::SQL->buildHashRef("select name,value from settings");
###----------------------------
### CGI object
$session{cgi} = CGI->new();
$CGI::POST_MAX=1024 * $session{setting}{maxAttachmentSize};
###----------------------------
### evironment variables from web server
$session{env} = \%ENV;
###----------------------------
### form variables
foreach ($session{cgi}->param) {
$session{form}{$_} = $session{cgi}->param($_);
} }
foreach ($query->cookie) { ###----------------------------
$COOKIES{$_} = $query->cookie($_); ### cookies
foreach ($session{cgi}->cookie) {
$session{cookie}{$_} = $session{cgi}->cookie($_);
} }
%SETTINGS = WebGUI::SQL->buildHash("select name,value from settings",$dbh); ###----------------------------
%VARS = _getSessionVars($COOKIES{wgSession},$dbh,$SETTINGS{sessionTimeout}); ### session variables (from userSession table)
%USER = _getUserInfo($VARS{userId},$dbh); $session{var} = _getSessionVars($session{cookie}{wgSession},$session{dbh},$session{setting}{sessionTimeout});
$CGI::POST_MAX=1024 * $SETTINGS{maxAttachmentSize}; ###----------------------------
%PAGE = _getPageInfo("",$dbh,$SETTINGS{notFoundPage},$CONFIG{scripturl}); ### current user's account and profile information (from users and userProfileData tables)
%session = ( $session{user} = _getUserInfo($session{var}{userId},$session{dbh});
env => \%ENV, # environment variables from the web server ###----------------------------
config=> \%CONFIG, # variables loaded from the config file ### current page's properties (from page table)
user => \%USER, # the user's account information $session{page} = _getPageInfo("",$session{dbh},$session{setting}{notFoundPage},$session{config}{scripturl});
var => \%VARS, # session specific variables ###----------------------------
form => \%FORM, # variables passed in from a form ### loading plugins
cookie => \%COOKIES, # variables passed in via cookie _loadWobjects();
setting => \%SETTINGS, # variables set by the administrator
cgi => $query, # interface to the CGI environment
page => \%PAGE, # variables related to the current page
dbh => $dbh, # interface to the default WebGUI database
header => $session{header} # HTTP header modifiers
);
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------
sub refreshPageInfo { sub refreshPageInfo {
my (%PAGE, $pageId); my ($pageId);
tie %PAGE, 'Tie::CPHash';
if ($_[0] == 0) { if ($_[0] == 0) {
$pageId = 1; $pageId = 1;
} else { } else {
$pageId = $_[0]; $pageId = $_[0];
} }
%PAGE = _getPageInfo($pageId,$session{dbh},$session{setting}{notFoundPage},$session{config}{scripturl}); $session{page} = _getPageInfo($pageId,$session{dbh},$session{setting}{notFoundPage},$session{config}{scripturl});
$session{page} = \%PAGE;
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------
sub refreshSessionVars { sub refreshSessionVars {
my (%VARS); $session{var} = _getSessionVars($_[0],$session{dbh},$session{setting}{sessionTimeout});
tie %VARS, 'Tie::CPHash';
%VARS = _getSessionVars($_[0],$session{dbh},$session{setting}{sessionTimeout});
$session{var} = \%VARS;
refreshUserInfo($session{var}{userId}); refreshUserInfo($session{var}{userId});
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------
sub refreshUserInfo { sub refreshUserInfo {
my (%USER); $session{user} = _getUserInfo($_[0],$session{dbh});
tie %USER, 'Tie::CPHash';
%USER = _getUserInfo($_[0],$session{dbh});
$session{user} = \%USER;
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------