blob: faf869cc57c2cfa081e2bdbf3c09a2f560e03608 (
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
29
30
31
32
33
34
|
--- testqt.pl.orig Sun Aug 1 19:46:56 1999
+++ testqt.pl Sun Aug 1 19:48:47 1999
@@ -1,11 +1,11 @@
#!/usr/bin/perl
- $wget_loc = `which wget`;
+ $wget_loc = `which fetch`;
chop $wget_loc;
if (!$wget_loc)
{
- die "testqt.pl:: Could not find wget. If it is not in your path please add it to your path. If it is not installed please install it.\n";
+ die "testqt.pl:: Could not find fetch. If it is not in your path please add it to your path. If it is not installed please install it.\n";
}
$home = (getpwuid($<))[7];
@@ -78,7 +78,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;
system "$wget_loc$wget_args";
sleep(3);
@@ -115,7 +115,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;
print "Please wait while I check for a new version.\n";
|