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

Back to archive index

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


Index: affelio/lib/Affelio.pm
diff -u affelio/lib/Affelio.pm:1.42 affelio/lib/Affelio.pm:1.43
--- affelio/lib/Affelio.pm:1.42	Sat Apr 15 04:35:27 2006
+++ affelio/lib/Affelio.pm	Mon May 29 21:08:49 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: Affelio.pm,v 1.42 2006/04/14 19:35:27 slash5234 Exp $
+# $Id: Affelio.pm,v 1.43 2006/05/29 12:08:49 slash5234 Exp $
 
 package Affelio;
 {
@@ -45,8 +45,16 @@
 	###################################
 	#Config dir
 	###################################
-	my $cfg_dir = $param{ConfigDir};
-	my $cfg_path = $param{ConfigDir} . "/affelio.cfg";
+	my $cfg_dir = "";
+	my $cfg_path = "";
+	if($ENV{'FARM_FS_TOP'}){
+	    $cfg_dir = "$ENV{'FARM_FS_TOP'}/affelio/config/";
+	    $cfg_path = "$ENV{'FARM_FS_TOP'}/affelio/config/affelio.cfg";
+	}else{
+	    $cfg_dir = $param{ConfigDir};
+	    $cfg_path = $param{ConfigDir} . "/affelio.cfg";
+	}
+
 	debug_print("Affelio::new: cfg_path= [$cfg_path]");
 	#cfg_path               Configuration file's path
 	#cfg_dir                Configuration file's directory


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