From f6f4a46cf5b14f9a2170cd6475958efbf320caec Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Tue, 5 Aug 2008 13:17:04 -0400 Subject: Moved around most of the files so that source code is in src/, documentation is in doc/, etc. --- scripts/getquote | 16 ---------------- 1 file changed, 16 deletions(-) delete mode 100755 scripts/getquote (limited to 'scripts/getquote') 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; -} -- cgit v1.2.3