dont' wait for mirror edit page (temporary hack)

diff --git a/sendpost.1.pl b/sendpost.1.pl
index be46d4c24f7efa853109cf69bb21710fdfeacda0..c5f4d52f2bedcf024839dd1761af89edce32fa38 100644 (file)
--- a/sendpost.1.pl
+++ b/sendpost.1.pl
@@ -392,7 +392,7 @@ sub post_to_mirror {
                $post_data{'forceID'} = $cmd_options->{'edit'};
        }
        if ($previous_post{'st'} ne '') {
                $post_data{'forceID'} = $cmd_options->{'edit'};
        }
        if ($previous_post{'st'} ne '') {

-               $post_data{'st'} = $previous_post{'st'};
+               $post_data{'st'} = int($previous_post{'st'}) - 5; # time hack

        }
        
        $post_data{'post'} = 'Submit';
        }
        
        $post_data{'post'} = 'Submit';


@@ -405,9 +405,9 @@ sub post_to_mirror {
                                0, 0, 0,
                                '>>', 1
                        );
                                0, 0, 0,
                                '>>', 1
                        );

-                       print "WAIT 5s\n";
+                       # print "WAIT 5s\n";

                }
                }

-               sleep(5); # TODO: selectable wait time
+               # sleep(5); # TODO: selectable wait time

                print "SUBMIT post";
                if ($cmd_options->{'verbose'} ne '') {
                        print ": $post_url SAVE $tmp_path\n";
                print "SUBMIT post";
                if ($cmd_options->{'verbose'} ne '') {
                        print ": $post_url SAVE $tmp_path\n";

diff --git a/settings.txt b/settings.txt
index c4587b8d95aae2774262e752faa171effe0864ac..239a09294332850958a0522999d23ba5a9d8e64f 100644 (file)
--- a/settings.txt
+++ b/settings.txt
@@ -15,7 +15,7 @@
 # You should have received a copy of the GNU Affero General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 # You should have received a copy of the GNU Affero General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 

-_version: 1.0.6
+_version: 1.0.7

 
 _PERL_STR: '@_ESCAPE($0,')'
 _SHEBANG: #!$0
 
 _PERL_STR: '@_ESCAPE($0,')'
 _SHEBANG: #!$0