]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/interface/mywget
mywget renamed in helm_wget; autoconf used for helm_wget
[helm.git] / helm / interface / mywget
diff --git a/helm/interface/mywget b/helm/interface/mywget
deleted file mode 100755 (executable)
index c6f3205..0000000
+++ /dev/null
@@ -1,19 +0,0 @@
-#!/usr/bin/perl
-
-if ($#ARGV != 1) {
- print STDERR "Usage: mywget prefix URL\n";
- exit -1;
-}
-
-my ($prefix,$URL) = @ARGV;
-if ($URL =~ /^file:\//) {
- $URL =~ s/^file:\///;
- my $command = "mkdir -p $prefix ; cp $URL $prefix";
- print "$command\n";
- system($command) == 0
-  or die "\"$command\" error";
-} else {
- my $command = "wget -c -P $prefix $URL";
- system($command) == 0
-  or die "\"$command\" error";
-}