Tadashi Okoshi
slash****@users*****
2005年 10月 24日 (月) 22:11:23 JST
Index: affelio/lib/Affelio/misc/InitAffelio.pm
diff -u affelio/lib/Affelio/misc/InitAffelio.pm:1.3 affelio/lib/Affelio/misc/InitAffelio.pm:1.4
--- affelio/lib/Affelio/misc/InitAffelio.pm:1.3 Mon Oct 24 21:51:56 2005
+++ affelio/lib/Affelio/misc/InitAffelio.pm Mon Oct 24 22:11:23 2005
@@ -16,7 +16,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.3 2005/10/24 12:51:56 slash5234 Exp $
+# $Id: InitAffelio.pm,v 1.4 2005/10/24 13:11:23 slash5234 Exp $
package Affelio::misc::InitAffelio;
{
@@ -417,6 +417,9 @@
#####################################################################
+ #setup_affelio
+ # all-in-one function to setup affelio
+ #####################################################################
sub setup_affelio{
my $root_dir = shift;
my $root_url = shift;
@@ -437,20 +440,48 @@
my $nickname =shift;
my $email =shift;
+ debug_print("InitAffelio:setup start.");
+ debug_print("\t$root_dir ");
+ debug_print("\t$root_url ");
+ debug_print("\t$locale ");
+ debug_print("\t$lh ");
+ debug_print("\t$template ");
+ debug_print("\t$sendmail_path ");
+ debug_print("\t$db_type ");
+ debug_print("\t$db_dbname ");
+ debug_print("\t$db_username ");
+ debug_print("\t$db_password ");
+ debug_print("\t$db_hostname ");
+ debug_print("\t$db_port ");
+ debug_print("\t$username ");
+ debug_print("\t$password ");
+ debug_print("\t$nickname ");
+ debug_print("\t$email ");
+
+ ################################
+ #(1)Create user dir
create_userdir($root_dir);
+ debug_print("InitAffelio:setup (1) create dir done.");
+ ################################
+ #(2)Create af_cfg
create_af_cfg("$root_dir/config/affelio.cfg",
$root_dir,
$root_url,
$locale,
$template,
$sendmail_path);
-
chmod 0700, "$root_dir/config";
+ debug_print("InitAffelio:setup (2) create affelio.cfg done.");
+ ################################
+ #(3)Get userdata dir
my $user_dir = "";
- $user_dir = get_userdir("$root_dir /userdata");
+ $user_dir = get_userdir("$root_dir/userdata");
+ debug_print("InitAffelio:setup (3) user dir = [$user_dir]");
+ ################################
+ #(4)create db.cfg
create_db_cfg("$user_dir/db.cfg",
$db_type,
$db_dbname,
@@ -458,24 +489,41 @@
$db_password,
$db_hostname,
$db_port);
+ debug_print("InitAffelio:setup (4) create db.cfg done");
-
+ ################################
+ #(5)create login.cfg
my @salts = ( "A".."Z", "a".."z", "0".."9", ".", "/" );
my $salt = $salts[int(rand(64))] . $salts[int(rand(64))];
my $crypted_password = crypt($password, $salt);
create_login_cfg("$user_dir/login.cfg",
$username,
$crypted_password);
+ debug_print("InitAffelio:setup (5) create login.cfg [$crypted_password] done.");
+ ################################
+ #(6)Copy default files
copy_def_files($root_dir , $user_dir, $locale);
+ debug_print("InitAffelio:setup (6) copy default files. done.");
+ ################################
+ #(7)initialize DB
init_db($root_dir , $nickname, $email, $lh);
+ debug_print("InitAffelio:setup (7) Init DB done.");
+ ################################
+ #(8)Rebuild template
my $af;
- $af = new Affelio(ConfigDir => "$root_dir /config/");
+ $af = new Affelio(ConfigDir => "$root_dir/config/");
Affelio::App::Admin::EditTemplates::rebuild($af);
+ debug_print("InitAffelio:setup (8) Rebuild template done.");
+ ################################
+ #(9)Set permission
set_datadir_perm($root_dir );
+ debug_print("InitAffelio:setup (9) Set permission done.");
+
+ debug_print("InitAffelio:setup ****ALL DONE****");
}
}