From ab41850a7a73d7c4e70425f1cb78ce3d2aeba1ae Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Mon, 15 Apr 2002 10:29:44 +0000
Subject: implement ml_home_dir()

---
 fml/lib/FML/Process/Utils.pm | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

(limited to 'fml/lib')

diff --git a/fml/lib/FML/Process/Utils.pm b/fml/lib/FML/Process/Utils.pm
index c9939f99..7ec36e29 100644
--- a/fml/lib/FML/Process/Utils.pm
+++ b/fml/lib/FML/Process/Utils.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: Utils.pm,v 1.17 2002/03/30 11:08:36 fukachan Exp $
+# $FML: Utils.pm,v 1.18 2002/04/07 05:27:19 fukachan Exp $
 #
 
 package FML::Process::Utils;
@@ -285,6 +285,20 @@ sub ml_home_prefix
 }
 
 
+# Descriptions: return $ml ML's home directory
+#    Arguments: OBJ($curproc) STR($ml) STR($domain)
+# Side Effects: none
+# Return Value: STR
+sub ml_home_dir
+{
+    my ($curproc, $ml, $domain) = @_;
+    my $prefix = $curproc->ml_home_prefix($domain);
+
+    use File::Spec;
+    return File::Spec->catfile($prefix, $ml);
+}
+
+
 # Descriptions: return $ml_home_prefix defined in main.cf (/etc/fml/main.cf).
 #               return $ml_home_prefix for $domain if $domain is specified.
 #               return default one if $domain is not specified.
-- 
cgit v1.2.1