chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.web-live.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
170bf99
)
Seems to do correct POST ...
author
Ian Jackson
<ian@liberator.(none)>
Wed, 10 Jun 2009 17:39:06 +0000
(18:39 +0100)
committer
Ian Jackson
<ian@liberator.(none)>
Wed, 10 Jun 2009 17:39:06 +0000
(18:39 +0100)
pctb/yppsc-commod-processor
patch
|
blob
|
history
diff --git
a/pctb/yppsc-commod-processor
b/pctb/yppsc-commod-processor
index 0f2545201d9de876f9ee5c1d88ff1458724f15a3..01db528889af367558bb6add9f82f08e7ade862e 100755
(executable)
--- a/
pctb/yppsc-commod-processor
+++ b/
pctb/yppsc-commod-processor
@@
-219,7
+219,7
@@
sub main__tsv () {
our (%commodmap);
our ($pctb) = 'http://pctb.ilk.org/';
our (%commodmap);
our ($pctb) = 'http://pctb.ilk.org/';
-our ($ua);
+our ($ua)
= LWP::UserAgent->new
;
sub load_commodmap() {
undef %commodmap;
sub load_commodmap() {
undef %commodmap;
@@
-234,7
+234,6
@@
sub load_commodmap() {
}
sub refresh_commodmap() {
}
sub refresh_commodmap() {
- my $ua= LWP::UserAgent->new;
my $resp= $ua->get("$pctb/commodmap.php?version=2");
die $resp->status_line unless $resp->is_success;
my $resp= $ua->get("$pctb/commodmap.php?version=2");
die $resp->status_line unless $resp->is_success;
@@
-331,7
+330,7
@@
sub bs_gen_md ($$) {
sub writeint { return pack 'v*', @_; }
sub writeint { return pack 'v*', @_; }
-sub
main__
genmarketdata () {
+sub genmarketdata () {
our $version= '005b';
load_commodmap();
our $version= '005b';
load_commodmap();
@@
-348,22
+347,37
@@
sub main__genmarketdata () {
if $missing;
}
if $missing;
}
- my $o='';
- $o .= bs_gen_md(Buy, -1);
- $o .= bs_gen_md(Sell,+1);
-
- printf("$version\n".
- "%d\n",
- scalar(@stallmap))
- or die $!;
- foreach $stall (@stallmap) { print "$stall\n" or die $!; }
+ my $ob='';
+ $ob .= bs_gen_md(Buy, -1);
+ $ob .= bs_gen_md(Sell,+1);
- print $o or die$!;
+ my $ot= sprintf("$version\n".
+ "%d\n",
+ scalar(@stallmap));
+ foreach $stall (@stallmap) { $ot .= "$stall\n"; }
+ return $ot.$ob;
}
}
+sub main__genmarketdata () {
+ my $o= genmarketdata();
+ print $o or die $!;
+}
sub main__upload () {
sub main__upload () {
- die "\nUploading not yet implemented, sorry.\n";
+ my $o= genmarketdata();
+ my $url= "$pctb/upload.php";
+ $url= "http://www.chiark.greenend.org.uk/ucgi/~ijackson/check/upload.php";
+ my $content= {
+ 'marketdata' => [ undef, "marketdata.gz",
+ Content_Type => 'application/gzip',
+ Content => $o
+ ]
+ };
+ my $resp= $ua->post("$url", Content => $content,
+ Content_Type => 'form-data');
+ die $resp->status_line unless $resp->is_success;
+
+ print "[[ ",$resp->content," ]]\n";
}
}