diff options
| author | John Wiegley <johnw@newartisans.com> | 2004-07-26 23:33:51 -0400 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2004-07-26 23:33:51 -0400 |
| commit | 161d6f79bd6f4ab45afa1cbae77548c8e508809a (patch) | |
| tree | 55391f4997e20de173579d90b43316a968b27c9e /scripts/getquote | |
| parent | fde56d0f1214b8fb9de5ba4d42d683ed494c45b0 (diff) | |
| download | fork-ledger-161d6f79bd6f4ab45afa1cbae77548c8e508809a.tar.gz fork-ledger-161d6f79bd6f4ab45afa1cbae77548c8e508809a.tar.bz2 fork-ledger-161d6f79bd6f4ab45afa1cbae77548c8e508809a.zip | |
initial rev of 2.0
Diffstat (limited to 'scripts/getquote')
| -rwxr-xr-x | scripts/getquote | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/scripts/getquote b/scripts/getquote deleted file mode 100755 index cf8c8abd..00000000 --- a/scripts/getquote +++ /dev/null @@ -1,16 +0,0 @@ -#!/usr/bin/perl - -exit 0 if $ARGV[0] eq "\$"; - -use Finance::Quote; - -$q = Finance::Quote->new; - -$q->timeout(60); -$q->require_labels(qw/price/); - -%quotes = $q->fetch("nasdaq", $ARGV[0]); - -if ($quotes{$ARGV[0], "price"}) { - print "\$", $quotes{$ARGV[0], "price"}, "\n"; -} |