Moved around most of the files so that source code is in src/, documentation

is in doc/, etc.

1 files changed, 16 insertions, 0 deletions

diff --git a/contrib/scripts/getquote b/contrib/scripts/getquote
new file mode 100755
index 00000000..bed561d6
--- /dev/null
+++ b/contrib/scripts/getquote
@@ -0,0 +1,16 @@
+#!/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;
+}