Tadashi Okoshi
slash****@users*****
2005年 10月 27日 (木) 20:15:01 JST
Index: affelio/lib/Affelio.pm
diff -u affelio/lib/Affelio.pm:1.23 affelio/lib/Affelio.pm:1.24
--- affelio/lib/Affelio.pm:1.23 Thu Oct 27 19:26:37 2005
+++ affelio/lib/Affelio.pm Thu Oct 27 20:15:01 2005
@@ -14,7 +14,7 @@
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#
-# $Id: Affelio.pm,v 1.23 2005/10/27 10:26:37 slash5234 Exp $
+# $Id: Affelio.pm,v 1.24 2005/10/27 11:15:01 slash5234 Exp $
package Affelio;
{
@@ -139,33 +139,12 @@
$self->read_site_config();
$self->read_user_prefs();
- #Connect to DB
- $self->openDB();
-
#Load locale
$self->load_Locale();
- #Load profile manager
- $self->load_ProfileManager();
-
- #Load friend manager
- $self->load_FriendManager();
-
- #Load group manager
- $self->load_GroupManager();
-
- #Load permission manager
- $self->load_PermissionManager();
-
- #Load permission manager
- $self->load_MessageManager();
-
- #Load permission manager
- $self->load_AccessLogManager();
-
- if($self->{mode} ne "init"){
- $self->load_ApplicationManager();
- }
+ #if($self->{mode} ne "init"){
+ # $self->load_ApplicationManager();
+ #}
debug_print("Affelio::new: end.");
return $self;
@@ -193,6 +172,20 @@
$self->{guest_owner_switch} = "owner";
}
+
+ ######################################################################
+ #getDB
+ ######################################################################
+ sub getDB{
+ my $self=shift;
+
+ if(! ($self->{db}) ){
+ $self->openDB();
+ }
+ return($self->{db});
+ }
+
+
######################################################################
#openDB
######################################################################
@@ -308,6 +301,18 @@
}
######################################################################
+ #getPM
+ ######################################################################
+ sub getPM{
+ my $self=shift;
+
+ if(! ($self->{pm}) ){
+ $self->load_ProfileManager();
+ }
+ return($self->{pm});
+ }
+
+ ######################################################################
#load_ProfileManager
######################################################################
sub load_ProfileManager{
@@ -325,6 +330,18 @@
}
######################################################################
+ #getFM
+ ######################################################################
+ sub getFM{
+ my $self=shift;
+
+ if(! ($self->{fm}) ){
+ $self->load_FriendManager();
+ }
+ return($self->{fm});
+ }
+
+ ######################################################################
#load_FriendManager
######################################################################
sub load_FriendManager{
@@ -340,6 +357,18 @@
}
######################################################################
+ #getGM
+ ######################################################################
+ sub getGM{
+ my $self=shift;
+
+ if(! ($self->{gm}) ){
+ $self->load_GroupManager();
+ }
+ return($self->{gm});
+ }
+
+ ######################################################################
#load_GroupManager
######################################################################
sub load_GroupManager{
@@ -357,6 +386,18 @@
}
######################################################################
+ #getPERM
+ ######################################################################
+ sub getPERM{
+ my $self=shift;
+
+ if(! ($self->{perm}) ){
+ $self->load_PermissionManager();
+ }
+ return($self->{perm});
+ }
+
+ ######################################################################
#load_PermissionManager
######################################################################
sub load_PermissionManager{
@@ -373,6 +414,18 @@
}
######################################################################
+ #getMESGM
+ ######################################################################
+ sub getMESGM{
+ my $self=shift;
+
+ if(! ($self->{mesgm}) ){
+ $self->load_MessageManager();
+ }
+ return($self->{mesgm});
+ }
+
+ ######################################################################
#load_MessageManager
######################################################################
sub load_MessageManager{
@@ -390,6 +443,18 @@
}
######################################################################
+ #getALM
+ ######################################################################
+ sub getALM{
+ my $self=shift;
+
+ if(! ($self->{alm}) ){
+ $self->load_AccessLogManager();
+ }
+ return($self->{alm});
+ }
+
+ ######################################################################
#load_AccessLogManager
######################################################################
sub load_AccessLogManager{
@@ -407,6 +472,18 @@
}
######################################################################
+ #getAM
+ ######################################################################
+ sub getAM{
+ my $self=shift;
+
+ if(! ($self->{am}) ){
+ $self->load_ApplicationManager();
+ }
+ return($self->{am});
+ }
+
+ ######################################################################
#load_ApplicationManager
######################################################################
sub load_ApplicationManager{
@@ -444,7 +521,6 @@
######################################################################
#get_farm_connecter{
- #
######################################################################
sub get_farm_connecter{
my $self = shift;
@@ -639,9 +715,9 @@
my $owner_mode_url="";
if($self->{caller}){
$guest_mode_url
- = $self->{am}->{apps}->{$self->{caller}}->{guest_index};
+ = $self->getAM->{apps}->{$self->{caller}}->{guest_index};
$owner_mode_url
- = $self->{am}->{apps}->{$self->{caller}}->{owner_index};
+ = $self->getAM->{apps}->{$self->{caller}}->{owner_index};
}else{
$guest_mode_url= $self->{site__web_root} . "/index.cgi?mode=index";
$owner_mode_url= $self->{site__web_root} . "/admin.cgi";
@@ -721,17 +797,17 @@
#########################
my $tmp_name;
my $this_app_ref;
- while ( ($tmp_name, $this_app_ref) = each( %{$self->{am}->{apps}} ) ){
+ while ( ($tmp_name, $this_app_ref) = each( %{$self->getAM->{apps}} ) ){
my %this_app = %$this_app_ref;
debug_print("Affelio::get_module_list: $this_app{'install_name'}");
#Is this application permmited to be printed at the tab??
- $self->{am}->prepare_app_perm_table($this_app{'install_name'});
+ $self->getAM->prepare_app_perm_table($this_app{'install_name'});
my $perm_to_tab=0;
$perm_to_tab
- = $self->{am}->get_summed_app_perm($visitor_afid,
+ = $self->getAM->get_summed_app_perm($visitor_afid,
$visitor_type,
$this_app{'install_name'},
"DF_visibility");
Index: affelio/lib/AffelioApp.pm
diff -u affelio/lib/AffelioApp.pm:1.13 affelio/lib/AffelioApp.pm:1.14
--- affelio/lib/AffelioApp.pm:1.13 Thu Oct 27 19:26:37 2005
+++ affelio/lib/AffelioApp.pm Thu Oct 27 20:15:01 2005
@@ -14,7 +14,7 @@
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#
-# $Id: AffelioApp.pm,v 1.13 2005/10/27 10:26:37 slash5234 Exp $
+# $Id: AffelioApp.pm,v 1.14 2005/10/27 11:15:01 slash5234 Exp $
package AffelioApp;
{
@@ -123,7 +123,7 @@
debug_print("AffelioApp::new: visitor_nickname= $visitor_nickname");
debug_print("AffelioApp::new: visitor_afid= $visitor_afid");
- my $install_title = $af->{am}->{apps}->{$install_name}->{install_title};
+ my $install_title = $af->getAM->{apps}->{$install_name}->{install_title};
my $dbh = $af->openAppDB($install_name);
@@ -194,7 +194,7 @@
my $ret=0;
try{
$ret=
- $self->{af}->{am}->get_summed_app_perm($self->{visitor_afid},
+ $self->{af}->getAM->get_summed_app_perm($self->{visitor_afid},
$self->{visitor_type},
$self->{install_name},
$action_type);