From 161d6f79bd6f4ab45afa1cbae77548c8e508809a Mon Sep 17 00:00:00 2001
From: John Wiegley <johnw@newartisans.com>
Date: Mon, 26 Jul 2004 23:33:51 -0400
Subject: initial rev of 2.0

---
 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 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";
-}
-- 
cgit v1.2.3