Tadashi Okoshi
slash****@users*****
2005年 10月 27日 (木) 19:26:37 JST
Index: affelio/lib/Affelio/misc/InitAffelio.pm
diff -u affelio/lib/Affelio/misc/InitAffelio.pm:1.7 affelio/lib/Affelio/misc/InitAffelio.pm:1.8
--- affelio/lib/Affelio/misc/InitAffelio.pm:1.7 Tue Oct 25 01:50:09 2005
+++ affelio/lib/Affelio/misc/InitAffelio.pm Thu Oct 27 19:26:37 2005
@@ -14,14 +14,14 @@
# 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.7 2005/10/24 16:50:09 slash5234 Exp $
+# $Id: InitAffelio.pm,v 1.8 2005/10/27 10:26:37 slash5234 Exp $
package Affelio::misc::InitAffelio;
{
use strict;
use Exporter;
@Affelio::misc::InitAffelio::ISA = "Exporter";
- @Affelio::misc::InitAffelio::EXPORT = qw (create_userdir get_userdir create_af_cfg create_db_cfg create_login_cfg copy_def_files init_db set_datadir_perm setup_affelio);
+ @Affelio::misc::InitAffelio::EXPORT = qw (create_userdir create_af_cfg create_db_cfg create_login_cfg copy_def_files init_db set_datadir_perm setup_affelio);
use lib("../../../extlib/");
use Cwd;
@@ -33,6 +33,7 @@
use Affelio::misc::CGIError;
use Affelio::misc::Debug;
use Affelio::misc::MyCrypt;
+ use Affelio::misc::Util qw(get_userdir);
use Affelio::App::Admin::EditTemplates;
use Affelio::exception::Exception;
use Affelio::exception::DBException;
@@ -51,29 +52,6 @@
}
#####################################################################
- sub get_userdir{
- my $userdata_dir = shift;
-
- my $dir;
- my $ret;
- try{
- opendir(DIR, $userdata_dir);
-
- while (defined($dir = readdir(DIR))) {
- if(($dir ne '.') && ($dir ne '..')
- && ($dir ne 'default') && ($dir ne 'CVS')
- && ($dir ne 'index.html')){
- $ret = "$userdata_dir/$dir";
- }
- }
- }catch Error with{
- my $e=shift;
- throw($e);
- };
- return($ret);
- }
-
- #####################################################################
sub create_af_cfg{
my $affelio_cfg_path = shift;
my $fs_root = shift;