Output processing.

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

diff --git a/pctb/yppsc-commod-processor b/pctb/yppsc-commod-processor
index 981ae92d986a6426d92d250440cef1186b64a8ac..9bb0d71fb1229972fdacfa2c172d2056784e95ac 100755 (executable)
--- 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 $!;