1 # UVmessages: parses resource strings and substitutes variables
2 # Used by all components
7 use vars qw(@ISA @EXPORT_OK $VERSION);
17 my ($key, %param) = @_;
19 my $string = $UVconfig::messages{$key} || return '';
21 while ($string =~ m/\$\{([A-Za-z0-9_-]+)\}/) {
23 my $sval = $param{$skey};
24 $sval = '' unless defined($sval);
26 $string =~ s/\$\{$skey\}/$sval/g;