X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-test.git;a=blobdiff_plain;f=pctb%2Fyppsc-commod-processor;h=9bb0d71fb1229972fdacfa2c172d2056784e95ac;hp=981ae92d986a6426d92d250440cef1186b64a8ac;hb=a5c969e80989ea2c678a99b46e7db08ae553e59d;hpb=18c4ed62b79ac9aa7e3f0ec4104068483e03086f diff --git a/pctb/yppsc-commod-processor b/pctb/yppsc-commod-processor index 981ae92..9bb0d71 100755 --- a/pctb/yppsc-commod-processor +++ b/pctb/yppsc-commod-processor @@ -95,7 +95,7 @@ sub main__arbitrage () { main__bestprice(); } -sub main__bestprice () { +sub main__bestprices () { foreach $commod (sort keys %commod) { $current= $commod{$commod}; my $buys= bs_p($commod,Buy, -1); @@ -137,8 +137,9 @@ sub main__tsv () { } sub main__upload () { - die "Uploading not yet implemented, sorry\n."; + die "\nUploading not yet implemented, sorry.\n"; } +$mode =~ s/\-//; &{"main__$mode"}; close(STDOUT) or die $!;