From 07b82b2efa369c551d1e7aa06e0c68cfa511ed8a Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Sat, 8 Oct 2005 04:25:44 +0000
Subject: escape html meta char

---
 fml/utils/bin/varlist.pl | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'fml/utils')

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;
-- 
cgit v1.2.1