html entity decoding

diff --git a/botm-common b/botm-common
index b32a014fe5391f7557580eb2e1263e2f8e7bfc94..5eb6fff2ecca3f68b44aeffcfaf10663a9e72502 160000 (submodule)
--- a/botm-common
+++ b/botm-common
@@ -1 +1 @@
-Subproject commit b32a014fe5391f7557580eb2e1263e2f8e7bfc94
+Subproject commit 5eb6fff2ecca3f68b44aeffcfaf10663a9e72502

diff --git a/sendpost.1.pl b/sendpost.1.pl
index 49b9ef5507e20a6a658754db3a106e9ca8a828a1..f1bd7fce63a8e057d6bbae286bb5b9b91f5ba7dd 100644 (file)
--- a/sendpost.1.pl
+++ b/sendpost.1.pl
@@ -25,7 +25,7 @@ use botm_common (
        'read_data_file', 'write_data_file',
        'url_encode', 'url_decode',
        'join_path',
-       'html_entity_encode_dec', 'html_entity_encode_hex'
+       'html_entity_decode'
 );
 
 ###PERL_ENCODING_FILE_IN:  use constant ENCODING_FILE_IN  => 'UTF-8';
@@ -103,12 +103,23 @@ GetOptions (
        'help|h'         => \$options{   'help'}
 );
 
-print html_entity_encode_dec('<a ="bleb & ęóąśłżźćń"/>')."\n";
-print html_entity_encode_dec('<a ="bleb & ęóąśłżźćń"/>', '', 1)."\n";
-print html_entity_encode_dec('<a ="bleb & ęóąśłżźćń"/>', 'UTF-8', 1)."\n";
-print html_entity_encode_hex('<a ="bleb & ęóąśłżźćń"/>')."\n";
-print html_entity_encode_hex('<a ="bleb & ęóąśłżźćń"/>', '', 1)."\n";
-print html_entity_encode_hex('<a ="bleb & ęóąśłżźćń"/>', 'UTF-8', 1)."\n";
+print html_entity_decode(
+       'illegal: "&" -' . "\n".
+       'name(gt): "&gt;" -' . "\n".
+       'name_inf(gta): "&gta" -' . "\n".
+       'decimal(126): "&#126;" -' . "\n".
+       'hexadecimal(7E). "&#x7E;" -' . "\n".
+       'bad names: &#12Y;&enhedksdh; -' . "\n".
+       'finally, some text :> -'
+)."\n";
+       
+
+# print html_entity_encode_dec ('<a ="bleb & ęóąśłżźćń my ziom"/>')."\n";
+# print html_entity_encode_hex ('<a ="bleb & ęóąśłżźćń my ziom"/>')."\n";
+# print html_entity_encode_name('<a ="bleb & ęóąśłżźćń my ziom"/>')."\n";
+# print html_entity_encode_dec ('<a ="bleb & ęóąśłżźćń my ziom"/>', 1)."\n";
+# print html_entity_encode_hex ('<a ="bleb & ęóąśłżźćń my ziom"/>', 1)."\n";
+# print html_entity_encode_name('<a ="bleb & ęóąśłżźćń my ziom"/>', 1)."\n";
 exit 0;
 
 if ($options{'help'} ne '') {