diff options
| author | Anonymized <anonymous@example.com> | 2018-01-07 20:26:50 +0100 |
|---|---|---|
| committer | Anonymized <anonymous@example.com> | 2018-01-07 20:26:50 +0100 |
| commit | 224137229ccb7a3c6727e2d7085c0edb89311049 (patch) | |
| tree | 0189d8107ecf8c3ebe45853fb6dbf6a5c5813976 | |
| parent | b4eed6560a090e9b1b492b66a6d17f80025e0704 (diff) | |
| download | gnunet-guile2-224137229ccb7a3c6727e2d7085c0edb89311049.tar.gz gnunet-guile2-224137229ccb7a3c6727e2d7085c0edb89311049.zip | |
download: take gnunet uri as first argument
| -rw-r--r-- | download.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/download.scm b/download.scm index 6870463..6e136ea 100644 --- a/download.scm +++ b/download.scm | |||
| @@ -4,7 +4,7 @@ | |||
| 4 | 4 | ||
| 5 | 5 | ||
| 6 | (define %configuration (configuration-create)) | 6 | (define %configuration (configuration-create)) |
| 7 | (configuration-load! %configuration "~/src/c/gnunet/p2/p2.conf") | 7 | (configuration-load! %configuration "etc/p2.conf") |
| 8 | 8 | ||
| 9 | (define %fs-handle #f) | 9 | (define %fs-handle #f) |
| 10 | (define %fs-download #f) | 10 | (define %fs-download #f) |
| @@ -16,6 +16,6 @@ | |||
| 16 | (lambda () | 16 | (lambda () |
| 17 | (set! %fs-handle (fs-start %configuration "guile-gnunet" progress)) | 17 | (set! %fs-handle (fs-start %configuration "guile-gnunet" progress)) |
| 18 | (set! %fs-download (fs-download-start %fs-handle | 18 | (set! %fs-download (fs-download-start %fs-handle |
| 19 | (string->uri "gnunet://fs/chk/VEY0C80H6F1PSCNYBS0WSBVN95RXBV85SV2TNJP6V4A660YRNEGCCVZWCJV575R62M9P3W8DBNNZ5HST1DWNA1SSF01BB4JGK064438.A4X3ME6MQ10Q5YVX248GM9SXQYT36B0M241R0CBCR2SW44ZHX3BJ4NPXMN297R3H00VEEQZ04JVBAB236RXJB7JA1FZFNJ89A9GJQRG.42957") | 19 | (string->uri (cadr (program-arguments))) |
| 20 | 0 | 20 | 0 |
| 21 | #:filename "/tmp/out.jpg")))) | 21 | #:filename "gnunet.out")))) |