switched to use of $curproc->mkdir() if could

4 files changed, 12 insertions, 22 deletions

diff --git a/fml/lib/FML/Process/Distribute.pm b/fml/lib/FML/Process/Distribute.pm
index 83f38e0f..a4cb77b5 100644
--- a/fml/lib/FML/Process/Distribute.pm
+++ b/fml/lib/FML/Process/Distribute.pm
@@ -3,7 +3,7 @@
 # Copyright (C) 2000,2001,2002 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML: Distribute.pm,v 1.94 2002/09/02 03:31:43 fukachan Exp $
+# $FML: Distribute.pm,v 1.95 2002/09/11 23:18:14 fukachan Exp $
 #
 
 package FML::Process::Distribute;
@@ -514,13 +514,8 @@ sub htmlify
     };
     unless ($@) {
 	unless (-d $html_dir) {
-	    eval q{
-		use File::Path;
-		mkpath($html_dir, 0, 0755);
-		Log("mkdir $html_dir") if -d $html_dir;
-		LogError("fail to mkdir $html_dir") unless -d $html_dir;
-	    };
-	    if ($@) { LogError($@);}
+	    $curproc->mkdir($html_dir, "mode=public");
+	    LogError("fail to mkdir $html_dir") unless -d $html_dir;
 	}
 
 	eval q{
diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm
index e7a4eac1..4c283a10 100644
--- a/fml/lib/FML/Process/Kernel.pm
+++ b/fml/lib/FML/Process/Kernel.pm
@@ -4,7 +4,7 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: Kernel.pm,v 1.134 2002/08/28 05:52:35 fukachan Exp $
+# $FML: Kernel.pm,v 1.135 2002/09/11 23:18:15 fukachan Exp $
 #
 
 package FML::Process::Kernel;
@@ -335,8 +335,7 @@ sub _lock_init
 
     # only user "fml" should read lock files.
     unless (-d $lock_dir) {
-	use File::Path;
-	mkpath($lock_dir, 0, 0700);
+	$curproc->mkdir($lock_dir, "mode=private");
     }
 
     use File::Spec;
@@ -435,8 +434,7 @@ sub _init_event_timeout
     my $dir    = $config->{ event_queue_dir };
 
     unless (-d $dir) {
-	use File::Path;
-	mkpath($dir, 0, 0700);
+	$curproc->mkdir($dir, "mode=private");
     }
 
     use File::Spec;
@@ -1765,7 +1763,7 @@ sub prepare_file_to_return
     my $src_file    = $args->{ src };
     my $charset_out = $args->{ charset };
 
-    -d $tmp_dir || mkdir $tmp_dir, 0755;
+    -d $tmp_dir || $curproc->mkdir($tmp_dir, "mode=private");
 
     use FileHandle;
     my $rh = new FileHandle $src_file;
diff --git a/fml/lib/FML/Process/Scheduler.pm b/fml/lib/FML/Process/Scheduler.pm
index 333e16b3..763582e9 100644
--- a/fml/lib/FML/Process/Scheduler.pm
+++ b/fml/lib/FML/Process/Scheduler.pm
@@ -3,7 +3,7 @@
 # Copyright (C) 2002 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML: Scheduler.pm,v 1.16 2002/08/07 14:32:45 fukachan Exp $
+# $FML: Scheduler.pm,v 1.17 2002/09/11 23:18:16 fukachan Exp $
 #
 
 package FML::Process::Scheduler;
@@ -41,10 +41,7 @@ sub new
     my $qdir   = $config->{ event_queue_dir };
 
     unless (-d $qdir) {
-	eval q{
-	    use File::Utils qw(mkdirhier);
-	    mkdirhier($qdir, $config->{ default_dir_mode } || 0755 );
-	};
+	$curproc->mkdir($qdir, "mode=public");
     }
 
     return bless $me, $type;
diff --git a/fml/lib/FML/Process/Spool.pm b/fml/lib/FML/Process/Spool.pm
index 01ef2dea..eb951b49 100644
--- a/fml/lib/FML/Process/Spool.pm
+++ b/fml/lib/FML/Process/Spool.pm
@@ -3,7 +3,7 @@
 # Copyright (C) 2002 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML: Spool.pm,v 1.8 2002/08/14 03:31:57 fukachan Exp $
+# $FML: Spool.pm,v 1.9 2002/09/11 23:18:16 fukachan Exp $
 #
 
 package FML::Process::Spool;
@@ -165,7 +165,7 @@ sub _convert
     if ($src_dir eq $dst_dir) {
 	$src_dir .= ".old";
 	rename($dst_dir, $src_dir);
-	mkdir($dst_dir, 0700);
+	$curproc->mkdir($dst_dir, "mode=private");
 	$use_link = 1;
     }
 
@@ -198,7 +198,7 @@ sub _convert
 		}
 		else {
 		    unless (-d $subdirpath) {
-			mkdir($subdirpath, 0700);
+			$curproc->mkdir($subdirpath, "mode=private");
 		    }
 
 		    if (-d $subdirpath) {