From a16d3db1d044e2eb62e4d6f4d1db9f2c6fc0713e Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 3 Jul 2009 18:58:00 +0100
Subject: [PATCH] Leave PCTB server text in #upload-1#.html

---
 pctb/README                   |  6 ++++++
 pctb/commod-results-processor | 21 +++++++++++++--------
 2 files changed, 19 insertions(+), 8 deletions(-)

diff --git a/pctb/README b/pctb/README
index 231159c..e9f4f09 100644
--- a/pctb/README
+++ b/pctb/README
@@ -100,6 +100,12 @@ The program reads and writes the following files:
    server.  This is fetched and updated automatically as necessary.
    It can safely be deleted as it will then be refetched.
 
+ * #upload-1#.html #upload-2#.html
+
+   We screenscrape the pages from the PCTB upload server.  The actual
+   HTML returned from the upload server is left in these dropping
+   files for debugging etc.
+
  * <file>.new
 
    When any of these tools overwrite one of the persistent dictionary
diff --git a/pctb/commod-results-processor b/pctb/commod-results-processor
index 3647318..c54a235 100755
--- a/pctb/commod-results-processor
+++ b/pctb/commod-results-processor
@@ -387,6 +387,8 @@ sub main__genmarketdata () {
 }
 
 sub main__upload () {
+    my $ocean= $ENV{'YPPSC_OCEAN'};  die unless $ocean;
+    my $island= $ENV{'YPPSC_ISLAND'};  die unless $island;
     die unless $pctb;
     my $o= genmarketdata();
     my $url= "$pctb/upload.php";
@@ -402,19 +404,22 @@ sub main__upload () {
 
     my $resptxt= $resp->content();
 
+    open R, ">./#upload-1#.html" or die $!;
+    print R $resptxt or die $!;
+    close R or die $!;
+
     my @filenames= $resptxt =~
- m/input\s+type="hidden"\s+name="filename"\s+value=\"([_.0-9a-z]+)\"/i;
-    @filenames or die "$resptxt ?";
+ m/input\s+type="hidden"\s+name="filename"\s+value=\"([_.0-9a-z]+)\"/ig;
+    @filenames or die;
 
     my @forcerls= $resptxt =~
- m/input\s+type="hidden"\s+name="forcereload"\s+value=\"([1-9]\d+)\"/i;
-    @forcerls or die "$resptxt ?";
+ m/input\s+type="hidden"\s+name="forcereload"\s+value=\"([1-9]\d+)\"/ig;
+    @forcerls or die;
 
     my $filename= $filenames[0];
     my $forcerl= $forcerls[0];
 
-    die "$resptxt | @filenames ?" if grep { $_ ne $filename } @filenames;
-    die "$resptxt | @forcerls ?" if grep { $_ ne $forcerl } @forcerls;
+#print "[[[ $resptxt ]]]\n";
 
 #    my $setsland= {
 #	'action' => 'setisland'
@@ -422,9 +427,9 @@ sub main__upload () {
 #	'forcereload' => $forcerl,
 #    my $url_setisland= "$url
 #
-#http://pctb.ilk.org/upload.php?topisland=560&ocean=2&island=48&action=setisland&forcereload=1244748679&filename=PFayDW' >v.html 
+#http://pctb.ilk.org/upload.php?&ocean=2&island=48&action=setisland&forcereload=1244748679&filename=PFayDW' >v.html 
 #    
-    print ">$filename|$forcerl<\n";
+    print ">$filename|$forcerl|@oceanids|$islandid<\n";
 
     system 'printenv|grep YPP|sort';
 }
-- 
2.30.2