diff options
| author | John Wiegley <johnw@newartisans.com> | 2008-08-05 13:17:04 -0400 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2008-08-05 18:05:49 -0400 |
| commit | f6f4a46cf5b14f9a2170cd6475958efbf320caec (patch) | |
| tree | 05bc1defcdebc201de3dd10477483d906a842821 /scripts/getquote | |
| parent | b7970b29855563e4c67f85af8b31233eda80c22a (diff) | |
| download | fork-ledger-f6f4a46cf5b14f9a2170cd6475958efbf320caec.tar.gz fork-ledger-f6f4a46cf5b14f9a2170cd6475958efbf320caec.tar.bz2 fork-ledger-f6f4a46cf5b14f9a2170cd6475958efbf320caec.zip | |
Moved around most of the files so that source code is in src/, documentation
is in doc/, etc.
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 bed561d6..00000000 --- a/scripts/getquote +++ /dev/null @@ -1,16 +0,0 @@ -#!/usr/bin/perl - -$timeout = 60; - -use Finance::Quote; - -$q = Finance::Quote->new; -$q->timeout($timeout); -$q->require_labels(qw/price/); - -%quotes = $q->fetch("nasdaq", $ARGV[0]); -if ($quotes{$ARGV[0], "price"}) { - print "\$", $quotes{$ARGV[0], "price"}, "\n"; -} else { - exit 1; -} |