29 lines
852 B
Plaintext
29 lines
852 B
Plaintext
--- getquote Sun May 14 13:28:49 2000
|
|
+++ getquote.new Sat May 20 01:37:30 2000
|
|
@@ -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 @@
|
|
#
|
|
|
|
$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 @@
|
|
$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;
|
|
|