blob: 1fd17392c77e60e887884df5d44bb44008c58856 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
--- getquote.orig 2000-05-14 17:28:49 UTC
+++ getquote
@@ -1,6 +1,6 @@
#!/usr/bin/perl
- $wget_loc = "wget";
+ $wget_loc = "fetch";
# used to have some "which" here, replaced it..
@@ -77,7 +77,7 @@ sub get_quote_data
#
$tempfile = "stock.tmp.$$";
- $wget_args = " --cache=off --tries 0 -q -O $home/.wmstock/$tempfile \"$URL\"";
+ $wget_args = " -p -o $home/.wmstock/$tempfile \"$URL\"";
$command = $wget_loc.$wget_args;
$result = system ("$wget_loc$wget_args");
if ($result != 0) {
@@ -118,7 +118,7 @@ sub look_for_new_version
$version = $_[0];
$vtempfile = "newest";
$vers_url="http://www.mattfischer.com/wmstock/src/$vtempfile";
- $wget_args = " --cache=off --tries 0 -q -O $home/.wmstock/$vtempfile \"$vers_url\"";
+ $wget_args = " -p -o $home/.wmstock/$vtempfile \"$vers_url\"";
$command = $wget_loc.$wget_args;
|