HTML entity encoding

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

diff --git a/sendpost.1.pl b/sendpost.1.pl
index 2d12d60b2f2e772882405038899f4a801f07402d..49b9ef5507e20a6a658754db3a106e9ca8a828a1 100644 (file)
--- a/sendpost.1.pl
+++ b/sendpost.1.pl
@@ -21,7 +21,12 @@ use Getopt::Long;
 use Encode qw(encode decode);
 
 ###PERL_LIB: use lib '/botm/lib/post';
-use botm_common qw(read_data_file write_data_file url_encode url_decode join_path);
+use botm_common (
+       'read_data_file', 'write_data_file',
+       'url_encode', 'url_decode',
+       'join_path',
+       'html_entity_encode_dec', 'html_entity_encode_hex'
+);
 
 ###PERL_ENCODING_FILE_IN:  use constant ENCODING_FILE_IN  => 'UTF-8';
 ###PERL_ENCODING_FILE_OUT: use constant ENCODING_FILE_OUT => 'utf8';
@@ -98,6 +103,14 @@ 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";
+exit 0;
+
 if ($options{'help'} ne '') {
        print HELP_TEXT;
        exit 0;
@@ -129,7 +142,6 @@ foreach my $arg (@ARGV) {
        # }
 # }
 
-
 sub prepare_post {
        (my $cmd_options, my $file_data) = @_;
        my %post;