From acdca6c311ca29cdb09c75a828458bb96f9ae2e7 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Fri, 3 Jul 2009 21:09:09 +0100 Subject: [PATCH] actually uploads --- pctb/commod-results-processor | 29 ++++++++++++++++------------- 1 file changed, 16 insertions(+), 13 deletions(-) diff --git a/pctb/commod-results-processor b/pctb/commod-results-processor index e3f45d1..cea64e5 100755 --- a/pctb/commod-results-processor +++ b/pctb/commod-results-processor @@ -491,29 +491,32 @@ sub main__upload () { die "@forcerls ?" if grep { $_ ne $forcerl } @forcerls; my $setisland= { - 'action' => 'setisland', - 'filename' => $filename, - 'forcereload' => $forcerl, - 'ocean' => $oceanids[0], - 'island' => $islandid, }; print STDERR "Setting ocean and island...\n"; - $resp= $ua->post("${url}IWJTEST", $setisland); + my $siurl= ($url . "?action=setisland". + "&filename=$filename". + "&forcereload=$forcerl". + "&ocean=$oceanids[0]". + "&island=$islandid"); + $resp= $ua->get($siurl); + die $resp->status_line unless $resp->is_success; $resptxt= $resp->content(); save_upload_html('2', $resptxt); - - -# -#http://pctb.ilk.org/upload.php?&ocean=2&island=48&action=setisland&forcereload=1244748679&filename=PFayDW' >v.html -# -# print ">$filename|$forcerl|@oceanids|$islandid<\n"; + die unless $resptxt =~ m/your uploaded data has been processed/i; + die unless $resptxt =~ m/your data has been integrated into the database/i; + + $resptxt =~ s/\[^<>]+\<\/a\>//g; + save_upload_html('3', $resptxt); - system 'printenv|grep YPP|sort'; + print "\n" or die $!; + system('w3m -T text/html -dump < \#upload-3#.html'); + + print "\n" or die $!; } -- 2.30.2