wget

diff --git a/botm-common b/botm-common
index b443d985fea32c8971cf6ffe5e2821119598d823..f59a33c43337111906246e3c26df2445886255bb 160000 (submodule)
--- a/botm-common
+++ b/botm-common
@@ -1 +1 @@
-Subproject commit b443d985fea32c8971cf6ffe5e2821119598d823
+Subproject commit f59a33c43337111906246e3c26df2445886255bb

diff --git a/sendpost.1.pl b/sendpost.1.pl
index 510821885c8a1b6b6e6786415f55a1f2418eaff3..5a5cb106c768cc79839022029fadb23c91181d62 100644 (file)
--- a/sendpost.1.pl
+++ b/sendpost.1.pl
@@ -25,7 +25,8 @@ use Encode ('encode', 'decode');
 use botm_common (
        'read_data_file', 'write_data_file',
        'merge_url',
-       'make_temp_path'
+       'make_temp_path',
+       'system_encoded'
 );
 
 ###PERL_ENCODING_FILE:  use constant ENCODING_FILE  => 'UTF-8';
@@ -34,7 +35,9 @@ use botm_common (
 ###PERL_DEFAULT_SUBJECT:  use constant DEFAULT_SUBJECT  => 'Re: 1190: "Time"';
 ###PERL_DEFAULT_USERNAME: use constant DEFAULT_USERNAME => 'username';
 
-###PERL_TMP_PATH:   use constant TMP_PATH   => '/botm/tmp/post';
+###PERL_WGET: use constant WGET => '/usr/bin/wget';
+
+###PERL_TMP_PATH: use constant TMP_PATH   => '/botm/tmp/post';
 
 ###PERL_MIRROR_URL: use constant MIRROR_URL => 'https://1190.bicyclesonthemoon.info/ott';
 
@@ -269,10 +272,18 @@ sub post_to_mirror {
        my $cookie_path   = make_temp_path(TMP_PATH, 'sendpost.cookie.txt');
        my $postdata_path = make_temp_path(TMP_PATH, 'sendpost.postdata.txt');
        
+       wget($post_url, $tmp_path);
+
+       
+}
+
+sub wget {
+       (my $url, my $path, my $postdata) = @_;
+       
+       my @arg = (WGET, '-q', $url, '-O', $path);
+       system_encoded(WGET, @arg);
+       
        
-       print $post_url."\n";
-       print $tmp_path."\n";
-       print $cookie_path."\n";
-       print $postdata_path."\n";
+       return 1;
        
 }

diff --git a/settings-debug.txt b/settings-debug.txt
index bc2ba565f61cb7e069367aab5fd6f8a6e5f00bf2..a18357010bc2507577ce5805f861712f3cffec2a 100644 (file)
--- a/settings-debug.txt
+++ b/settings-debug.txt
@@ -25,3 +25,4 @@ chmod: /usr/bin/chmod
 mkdir: /usr/bin/mkdir
 perl: /usr/bin/perl
 rm: /usr/bin/rm
+wget: /usr/bin/wget

diff --git a/settings-release.txt b/settings-release.txt
index aeeb7fe7fb85752f7644df3a70157dffbcefa087..e8c91c774839733797707ac0ba9f795b5f46ac88 100644 (file)
--- a/settings-release.txt
+++ b/settings-release.txt
@@ -25,3 +25,4 @@ chmod: /usr/bin/chmod
 mkdir: /usr/bin/mkdir
 perl: /usr/bin/perl
 rm: /usr/bin/rm
+wget: /usr/bin/wget

diff --git a/settings.txt b/settings.txt
index 8cd1625461f45137cec61f23f3b94a9032a4cc2f..9b845a0a5b039f4589b808e39a3e4c88115f9d46 100644 (file)
--- a/settings.txt
+++ b/settings.txt
@@ -42,6 +42,8 @@ PERL_ENCODING_FILE     = @_PERL_CONSTANT_STR( ENCODING_FILE    , $encoding_file)
 PERL_MIRROR_URL        = @_PERL_CONSTANT_STR( MIRROR_URL       , $mirror_url)
 PERL_TMP_PATH          = @_PERL_CONSTANT_STR( TMP_PATH         , $tmp_path)
 
+PERL_WGET              = @_PERL_CONSTANT_STR( WGET             , $wget)
+
 PERL_LIB = @_PERL_USE_2(lib, @_PERL_STR($lib_path))