[Affelio-cvs 1289] CVS update: affelio/lib

Back to archive index

Tadashi Okoshi slash****@users*****
2006年 5月 29日 (月) 19:16:08 JST


Index: affelio/lib/AffelioApp.pm
diff -u affelio/lib/AffelioApp.pm:1.22 affelio/lib/AffelioApp.pm:1.23
--- affelio/lib/AffelioApp.pm:1.22	Wed Apr 19 20:32:41 2006
+++ affelio/lib/AffelioApp.pm	Mon May 29 19:16:08 2006
@@ -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.22 2006/04/19 11:32:41 slash5234 Exp $
+# $Id: AffelioApp.pm,v 1.23 2006/05/29 10:16:08 slash5234 Exp $
 
 package AffelioApp;
 {
@@ -60,10 +60,12 @@
 	my $af;
 	if($ENV{FARM_MODE} eq "AFE2"){
 	    $af = new Affelio(ConfigDir => "$ENV{FARM_FS_TOP}/affelio/config/",
-			      Caller    => $install_name);
+			      Caller    => $install_name,
+			      CGI       => $cgi);
 	}else{
 	    $af = new Affelio(ConfigDir => "$app__fs_root/../../config/",
-			      Caller    => $install_name);
+			      Caller    => $install_name,
+			      CGI       => $cgi);
 	}
 
 	my $app__web_root = "$af->{site__user_afid}/apps/$install_name";
@@ -79,9 +81,7 @@
 	#Authentication with Cookie
 	############################
 	my $sid = $cgi->cookie("affelio-$af->{user__nickname}");
-	my $session = new CGI::Session(undef, 
-				       $sid, 
-				       {Directory=> $af->{site__session_dir}});
+	my $session = $af->getSM->get_session();
 	my $visitor_type="pb";
 	my $visitor_nickname="anonymous";
 	my $visitor_afid="";


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