[Affelio-cvs 716] CVS update: affelio/lib/Affelio/misc

Back to archive index

Tadashi Okoshi slash****@users*****
2005年 10月 27日 (木) 20:15:02 JST


Index: affelio/lib/Affelio/misc/InitAffelio.pm
diff -u affelio/lib/Affelio/misc/InitAffelio.pm:1.8 affelio/lib/Affelio/misc/InitAffelio.pm:1.9
--- affelio/lib/Affelio/misc/InitAffelio.pm:1.8	Thu Oct 27 19:26:37 2005
+++ affelio/lib/Affelio/misc/InitAffelio.pm	Thu Oct 27 20:15:02 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: InitAffelio.pm,v 1.8 2005/10/27 10:26:37 slash5234 Exp $
+# $Id: InitAffelio.pm,v 1.9 2005/10/27 11:15:02 slash5234 Exp $
 
 package Affelio::misc::InitAffelio;
 {
@@ -164,7 +164,7 @@
 	try{
 	    $af = new Affelio(ConfigDir => $cfg_dir,
 			      Mode => "init");
-	    $dbh = $af->{db};
+	    $dbh = $af->getDB;
 	}catch Error with{
 	    my $e = shift;
 	    throw Affelio::exception::Exception("Could not load Affelio (init): $e");
@@ -187,7 +187,7 @@
 	$af->{user__nickname} = $g_nickname;
 	$af->{user__email1} = $g_email;
 	try{
-	    $af->{pm}->save_profile();
+	    $af->getPM->save_profile();
 	}catch Error with{
 	    my $e = shift;
 	    throw  Affelio::exception::Exception("Cannot save_profile: $@");
@@ -335,7 +335,7 @@
 	#                 n names  b i  intro   email     url     im
 	my @flag_array = (1,1,1,1, 1,1, 1,1,    0,0,0,0, 1,1,1,1, 0,0,0,0,0,0, 1);
 	try{				    
-	    $af->{perm}->add_permission("f", "f1", \@flag_array); 
+	    $af->getPERM->add_permission("f", "f1", \@flag_array); 
 	}catch Error with{
 	    my $e = shift;
 	    throw  Affelio::exception::Exception("adding F1 perm: $@");
@@ -347,7 +347,7 @@
 	#                 n names  b i  intro   email     url     im
 	my @flag_array = (1,0,0,0, 0,1, 1,1,    0,0,0,0, 1,1,1,1, 0,0,0,0,0,0, 1);
 	try{				    
-	    $af->{perm}->add_permission("f", "f2", \@flag_array); 
+	    $af->getPERM->add_permission("f", "f2", \@flag_array); 
 	}catch Error with{
 	    my $e = shift;
 	    throw  Affelio::exception::Exception("adding F2 perm: $@");
@@ -359,7 +359,7 @@
 	#                 n names  b i  intro   email     url     im
 	my @flag_array = (1,0,0,0, 0,0, 1,0,    0,0,0,0, 0,0,0,0, 0,0,0,0,0,0, 0);
 	try{				    
-	    $af->{perm}->add_permission("f", "pb", \@flag_array); 
+	    $af->getPERM->add_permission("f", "pb", \@flag_array); 
 	}catch Error with{
 	    my $e = shift;
 	    throw  Affelio::exception::Exception("adding PB perm: $@");
@@ -370,7 +370,7 @@
 	################################
 	my $gid;
 	try{				    
-	    $gid = $af->{gm}->add_group($af->{lh}->maketext("_SETUP_group_dear_friend"));
+	    $gid = $af->getGM->add_group($af->{lh}->maketext("_SETUP_group_dear_friend"));
 	}catch Error with{
 	    my $e = shift;
 	    throw  Affelio::exception::Exception("adding dear Grp: $@");
@@ -382,7 +382,7 @@
 	#                 n names  b i  intro   email     url     im
 	my @flag_array = (1,1,1,1, 1,1, 1,1,    1,1,1,1, 1,1,1,1, 1,1,1,1,1,1, 1);
 	try{				    
-	    $af->{perm}->add_permission("g", $gid, \@flag_array); 
+	    $af->getPERM->add_permission("g", $gid, \@flag_array); 
 	}catch Error with{
 	    my $e = shift;
 	    throw  Affelio::exception::Exception("adding perm to Grp: $@");


Affelio-cvs メーリングリストの案内
Back to archive index