diff options
| author | fukachan <fukachan> | 2005-10-08 04:25:44 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2005-10-08 04:25:44 +0000 |
| commit | 07b82b2efa369c551d1e7aa06e0c68cfa511ed8a (patch) | |
| tree | 372d546eba50323b6a65cbe758cef83bb2f8c9ad /fml/utils | |
| parent | 5757f1082d3a337814ae3185d796e11acb9f277b (diff) | |
| download | fml8-07b82b2efa369c551d1e7aa06e0c68cfa511ed8a.tar.gz fml8-07b82b2efa369c551d1e7aa06e0c68cfa511ed8a.tar.bz2 fml8-07b82b2efa369c551d1e7aa06e0c68cfa511ed8a.zip | |
escape html meta char
Diffstat (limited to 'fml/utils')
| -rwxr-xr-x | fml/utils/bin/varlist.pl | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/fml/utils/bin/varlist.pl b/fml/utils/bin/varlist.pl index 3d4ae762..db8dc429 100755 --- a/fml/utils/bin/varlist.pl +++ b/fml/utils/bin/varlist.pl @@ -5,12 +5,13 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: varlist.pl,v 1.1 2001/11/24 06:55:23 fukachan Exp $ +# $FML: varlist.pl,v 1.2 2002/04/01 23:41:24 fukachan Exp $ # use strict; use Carp; use Getopt::Long; +use lib qw(../../../../fml/lib ../../../../cpan/lib); my %option = (); my %list = ('__table_head__' => { @@ -149,8 +150,11 @@ sub _print_row print $list{ $varname }->{ desc }; print $table_entry_end; + my $x = $list{ $varname }->{ value }; + print $table_entry_begin; - print $list{ $varname }->{ value }; + use HTML::FromText; + print text2html($x); print $table_entry_end; print $table_block_end; |