From 08559bff349b8266331389c9a0c579798ce94b4c Mon Sep 17 00:00:00 2001
From: John Wiegley <johnw@newartisans.com>
Date: Mon, 23 Feb 2009 14:04:50 -0400
Subject: Moved scripts from contrib/scripts/ into contrib/

---
 contrib/scripts/getquote | 16 ----------------
 1 file changed, 16 deletions(-)
 delete mode 100755 contrib/scripts/getquote

(limited to 'contrib/scripts/getquote')

diff --git a/contrib/scripts/getquote b/contrib/scripts/getquote
deleted file mode 100755
index bed561d6..00000000
--- a/contrib/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