expand_variable_in_buffer: expand $varname to $config->{ varname }

1 files changed, 25 insertions, 1 deletions

diff --git a/fml/lib/FML/Config.pm b/fml/lib/FML/Config.pm
index ec022e4a..ce0be180 100644
--- a/fml/lib/FML/Config.pm
+++ b/fml/lib/FML/Config.pm
@@ -1,7 +1,7 @@
 #-*- perl -*-
 # Copyright (C) 2000-2001 Ken'ichi Fukamachi
 #
-# $FML: Config.pm,v 1.41 2001/10/10 03:10:10 fukachan Exp $
+# $FML: Config.pm,v 1.42 2001/10/10 14:53:45 fukachan Exp $
 #
 
 package FML::Config;
@@ -491,6 +491,30 @@ sub _expand_variables
 }
 
 
+=head2 C<expand_variable_in_buffer($rbuf)>
+
+expand $varname to $config->{ varname } in C<$rbuf>.
+
+=cut
+
+# Descriptions: expand $varname to $config->{ varname } 
+#    Arguments: $config $ref_buffer
+# Side Effects: $ref_buffer is rewritten.
+# Return Value: none
+sub expand_variable_in_buffer
+{
+    my ($config, $rbuf) = @_;
+
+    while ($$rbuf =~ /\$([\w\d\_]+)/) {
+	my $varname = $1;
+	if (defined $config->{ $varname }) {
+	    my $x = $config->{ $varname };
+	    $$rbuf =~ s/\$$varname/$x/;
+	}
+    }
+}
+
+
 =head2 C<yes( key )>
 
 useful method to return 1 or 0 according the value to the given key.