-# my $setsland= {
-# 'action' => 'setisland'
-# 'filename' => $filename,
-# 'forcereload' => $forcerl,
-# my $url_setisland= "$url
+ 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);
+ die $resp->status_line unless $resp->is_success;
+
+ $resptxt= $resp->content();
+ save_upload_html('2', $resptxt);
+
+
+