exec with encoding

diff --git a/botm_common.pm b/botm_common.pm
index 0d6b4dd98276e6d2f6696c433a2885afc0dae1bc..0e8c405ffcef37ae42f39b96da0006e4ab15895f 100644 (file)
--- a/botm_common.pm
+++ b/botm_common.pm
@@ -24,21 +24,19 @@ use Encode::Locale;
 use Encode ('encode', 'decode');
 
 use Exporter;
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
-# vX.Y.Z:      X YYYZZZ
-$VERSION     = 1.000010;
-@ISA         = qw(Exporter);
-@EXPORT      = ();
-@EXPORT_OK   = (
+our $VERSION     = '1.0.11';
+our @ISA         = qw(Exporter);
+our @EXPORT      = ();
+our @EXPORT_OK   = (
        'read_data_file', 'write_data_file',
        'url_encode', 'url_decode',
        'url_query_encode', 'url_query_decode',
        'split_url', 'join_url', 'merge_url',
        'html_entity_encode_dec', 'html_entity_encode_hex', 'html_entity_encode_name', 'html_entity_decode',
-       'join_path', 'make_temp_path'
+       'join_path', 'make_temp_path',
+       'system_encoded', 'exec_encoded'
 );
-%EXPORT_TAGS = ();
 
 
 
@@ -94,6 +92,32 @@ sub make_temp_path {
        return join_path('/', $dir, $filename);
 }
 
+sub system_encoded {
+       (my $cmd, my @arg) = @_;
+       my @newarg;
+       
+       my $newcmd = encode('locale_fs', $cmd);
+       
+       foreach my $a (@arg) {
+               push @newarg, encode('locale', $a);
+       }
+       
+       return system $newcmd, @newarg;
+}
+
+sub exec_encoded {
+       (my $cmd, my @arg) = @_;
+       my @newarg;
+       
+       my $newcmd = encode('locale_fs', $cmd);
+       
+       foreach my $a (@arg) {
+               push @newarg, encode('locale', $a);
+       }
+       
+       return exec $newcmd, @newarg;
+}
+
 
 
 ##################