chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.web-live.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Output processing.
[ypp-sc-tools.web-live.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();
}
main__bestprice();
}
-sub main__bestprice () {
+sub main__bestprice
s
() {
foreach $commod (sort keys %commod) {
$current= $commod{$commod};
my $buys= bs_p($commod,Buy, -1);
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 () {
}
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 $!;
&{"main__$mode"};
close(STDOUT) or die $!;