2004-04-21 14:54:05 +00:00
|
|
|
#! @shell@ -e
|
2003-08-15 10:13:41 +00:00
|
|
|
|
2004-04-21 14:54:05 +00:00
|
|
|
url=$1
|
2004-12-13 13:35:36 +00:00
|
|
|
hash=$2
|
2003-08-15 10:13:41 +00:00
|
|
|
|
2004-04-21 14:54:05 +00:00
|
|
|
if test -z "$url"; then
|
|
|
|
echo "syntax: nix-prefetch-url URL" >&2
|
|
|
|
exit 1
|
|
|
|
fi
|
2003-08-15 10:13:41 +00:00
|
|
|
|
2004-12-13 13:35:36 +00:00
|
|
|
# Determine the hash, unless it was given.
|
|
|
|
if test -z "$hash"; then
|
2003-08-15 10:13:41 +00:00
|
|
|
|
2004-12-13 13:35:36 +00:00
|
|
|
# !!! race
|
|
|
|
tmpPath1=@storedir@/nix-prefetch-url-$$
|
|
|
|
|
|
|
|
# Test whether we have write permission in the store. If not,
|
|
|
|
# fetch to /tmp and don't copy to the store. This is a hack to
|
|
|
|
# make this script at least work somewhat in setuid installations.
|
|
|
|
if ! touch $tmpPath1 2> /dev/null; then
|
|
|
|
echo "(cannot write to the store, result won't be cached)" >&2
|
|
|
|
dummyMode=1
|
|
|
|
tmpPath1=/tmp/nix-prefetch-url-$$ # !!! security?
|
|
|
|
fi
|
|
|
|
|
|
|
|
# Perform the checkout.
|
|
|
|
@curl@ --fail --location --max-redirs 20 "$url" > $tmpPath1
|
2004-10-20 14:40:54 +00:00
|
|
|
|
2004-12-13 13:35:36 +00:00
|
|
|
# Compute the hash.
|
|
|
|
hash=$(@bindir@/nix-hash --flat $tmpPath1)
|
|
|
|
if ! test -n "$QUIET"; then echo "hash is $hash" >&2; fi
|
2003-08-15 10:13:41 +00:00
|
|
|
|
2004-12-13 13:35:36 +00:00
|
|
|
# Rename it so that the fetchurl builder can find it.
|
|
|
|
if test "$dummyMode" != 1; then
|
|
|
|
tmpPath2=@storedir@/nix-prefetch-url-$hash
|
|
|
|
test -e $tmpPath2 || mv $tmpPath1 $tmpPath2 # !!! race
|
|
|
|
fi
|
2003-08-15 10:13:41 +00:00
|
|
|
|
2004-10-20 14:40:54 +00:00
|
|
|
fi
|
2003-08-15 10:13:41 +00:00
|
|
|
|
2004-10-20 14:40:54 +00:00
|
|
|
# Create a Nix expression that does a fetchurl.
|
2004-04-21 14:54:05 +00:00
|
|
|
storeExpr=$( \
|
2004-10-20 14:40:54 +00:00
|
|
|
echo "(import @datadir@/nix/corepkgs/fetchurl) \
|
2004-04-21 14:54:05 +00:00
|
|
|
{url = $url; md5 = \"$hash\"; system = \"@system@\";}" \
|
2004-10-20 14:40:54 +00:00
|
|
|
| @bindir@/nix-instantiate -)
|
2003-08-15 10:13:41 +00:00
|
|
|
|
2004-04-21 14:54:05 +00:00
|
|
|
# Realise it.
|
2004-06-21 09:51:23 +00:00
|
|
|
finalPath=$(@bindir@/nix-store -qnB --force-realise $storeExpr)
|
2004-10-20 14:40:54 +00:00
|
|
|
|
2004-12-13 13:35:36 +00:00
|
|
|
if ! test -n "$QUIET"; then echo "path is $finalPath" >&2; fi
|
2003-11-22 18:45:56 +00:00
|
|
|
|
2004-12-20 14:57:03 +00:00
|
|
|
if test -n "$tmpPath1" -o -n "$tmpPath2"; then
|
|
|
|
rm -rf $tmpPath1 $tmpPath2 || true
|
|
|
|
fi
|
2003-08-15 10:13:41 +00:00
|
|
|
|
2004-04-21 14:54:05 +00:00
|
|
|
echo $hash
|
2004-06-21 09:51:23 +00:00
|
|
|
|
|
|
|
if test -n "$PRINT_PATH"; then
|
|
|
|
echo $finalPath
|
|
|
|
fi
|