actually work with arbitrage again

[ypp-sc-tools.db-test.git] / pctb / yppsc-commod-processor

diff --git a/pctb/yppsc-commod-processor b/pctb/yppsc-commod-processor
index 981ae92d986a6426d92d250440cef1186b64a8ac..92dbb0c4f118332801a4b5fb3abbef50c15cb876 100755 (executable)
--- a/pctb/yppsc-commod-processor
+++ b/pctb/yppsc-commod-processor
@@ -92,10 +92,10 @@ our $arbitrage_only= 0;
 
 sub main__arbitrage () {
     $arbitrage_only= 1;
-    main__bestprice();
+    main__bestprices();
 }
 
-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 $!;