make command get,mget,help work

1 files changed, 21 insertions, 2 deletions

diff --git a/fml/lib/FML/Command/User/help.pm b/fml/lib/FML/Command/User/help.pm
index 587eccbe..6c17b541 100644
--- a/fml/lib/FML/Command/User/help.pm
+++ b/fml/lib/FML/Command/User/help.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: help.pm,v 1.2 2001/08/26 07:58:39 fukachan Exp $
+# $FML: help.pm,v 1.1 2001/10/08 15:54:42 fukachan Exp $
 #
 
 package FML::Command::User::help;
@@ -40,10 +40,29 @@ sub process
     my $config        = $curproc->{ config };
     my $member_map    = $config->{ primary_member_map };
     my $recipient_map = $config->{ primary_recipient_map };
+    my $charset       = $config->{ template_file_charset };
+    my $help_file     = $config->{ help_file };
     my $options       = $optargs->{ options };
     my $address       = $optargs->{ address } || $options->[ 0 ];
 
-    $curproc->reply_message("help message (dummy ;-)");
+    # *** template substitution ***
+    # 1. in Japanese case, convert kanji code: iso-2022-jp -> euc
+    # 2. expand variables: $ml_name -> elena
+    # 3. back kanji code: euc -> iso-2022-jp
+    # 4. return the new created template
+    my $help_template = $curproc->expand_variables_in_file( $help_file );
+
+    if (-f $help_file) {
+	$curproc->reply_message( {
+	    type        => "text/plain; charset=$charset",
+	    path        => $help_template,
+	    filename    => "help",
+	    disposition => "help",
+	});
+    }
+    else {
+	croak("no help file ($help_file)\n");
+    }
 }