Tadashi Okoshi
slash****@users*****
2005年 12月 17日 (土) 12:02:07 JST
Index: affelio/lib/Affelio.pm
diff -u affelio/lib/Affelio.pm:1.33 affelio/lib/Affelio.pm:1.34
--- affelio/lib/Affelio.pm:1.33 Sat Dec 17 04:50:00 2005
+++ affelio/lib/Affelio.pm Sat Dec 17 12:02:06 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.33 2005/12/16 19:50:00 slash5234 Exp $
+# $Id: Affelio.pm,v 1.34 2005/12/17 03:02:06 slash5234 Exp $
package Affelio;
{
@@ -22,8 +22,6 @@
use lib("../extlib");
use lib("../../extlib");
use DBI;
- use Config::Tiny;
- use Config::IniFiles;
use Error qw(:try);
use lib("../lib");
use Affelio::SNS::FriendManager;
@@ -218,6 +216,7 @@
undef($self->{db});
#Load username and password
+ require Config::Tiny;
my $DBConfig = Config::Tiny->new();
$DBConfig = Config::Tiny->read("$self->{site__user_dir}/db.cfg");
my $rootproperty = $DBConfig->{_}->{rootproperty};
@@ -270,6 +269,7 @@
my $app_install_name = shift;
#Load username and password
+ require Config::Tiny;
my $DBConfig = Config::Tiny->new();
$DBConfig = Config::Tiny->read("$self->{site__user_dir}/db.cfg");
my $rootproperty = $DBConfig->{_}->{rootproperty};
@@ -630,6 +630,7 @@
sub get_farm_connecter{
my $self = shift;
if( !($self->{farm_con}) ){
+ require Config::Tiny;
my $Config = Config::Tiny->new();
$Config = Config::Tiny->read($self->{cfg_path});
@@ -676,6 +677,7 @@
my $wi = new Affelio::misc::WebInput();
+ require Config::Tiny;
my $Config = Config::Tiny->new();
$Config = Config::Tiny->read($self->{cfg_path});
@@ -734,6 +736,7 @@
my $self = shift;
debug_print("Affelio::write_user_prefs: start.");
+ require Config::Tiny;
my $Config = Config::Tiny->new();
$Config = Config::Tiny->read("$self->{site__user_dir}/preference.cfg");
if($@ || !$Config){
@@ -772,6 +775,7 @@
my $wi = new Affelio::misc::WebInput;
+ require Config::Tiny;
my $Config = Config::Tiny->new();
$Config = Config::Tiny->read("$self->{site__user_dir}/preference.cfg");
if($@ || !$Config){