Sun, 28 Nov 2010 14:23:44 +0000
COPYING: Add MIT/X11 licence
1
7ef4b95f77b5
Add demo.lua to demonstrate usage
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
1 | require "lahttp" |
7ef4b95f77b5
Add demo.lua to demonstrate usage
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
2 | require "multihttp" |
7ef4b95f77b5
Add demo.lua to demonstrate usage
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
3 | |
7ef4b95f77b5
Add demo.lua to demonstrate usage
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
4 | local function mycallback(url, status, data) |
7ef4b95f77b5
Add demo.lua to demonstrate usage
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
5 | print("---------------"); |
7ef4b95f77b5
Add demo.lua to demonstrate usage
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
6 | if status == 200 then -- HTTP OK |
7ef4b95f77b5
Add demo.lua to demonstrate usage
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
7 | print("Received the data from "..url..":"); |
7ef4b95f77b5
Add demo.lua to demonstrate usage
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
8 | print(data) |
7ef4b95f77b5
Add demo.lua to demonstrate usage
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
9 | else |
7ef4b95f77b5
Add demo.lua to demonstrate usage
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
10 | print("Received HTTP error "..status.." while downloading from "..url); |
7ef4b95f77b5
Add demo.lua to demonstrate usage
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
11 | end |
7ef4b95f77b5
Add demo.lua to demonstrate usage
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
12 | print("---------------"); |
7ef4b95f77b5
Add demo.lua to demonstrate usage
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
13 | end |
7ef4b95f77b5
Add demo.lua to demonstrate usage
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
14 | |
7ef4b95f77b5
Add demo.lua to demonstrate usage
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
15 | local function progresscallback(batch) |
2
38f221e53215
demo.lua: Fix and improve progress callback example
Matthew Wild <mwild1@gmail.com>
parents:
1
diff
changeset
|
16 | print("Progress:"); |
38f221e53215
demo.lua: Fix and improve progress callback example
Matthew Wild <mwild1@gmail.com>
parents:
1
diff
changeset
|
17 | for url, progress in pairs(batch:progress()) do |
1
7ef4b95f77b5
Add demo.lua to demonstrate usage
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
18 | print(url..":"); |
7ef4b95f77b5
Add demo.lua to demonstrate usage
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
19 | for statistic, value in pairs(progress) do |
2
38f221e53215
demo.lua: Fix and improve progress callback example
Matthew Wild <mwild1@gmail.com>
parents:
1
diff
changeset
|
20 | print("", statistic..": "..value); |
1
7ef4b95f77b5
Add demo.lua to demonstrate usage
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
21 | end |
7ef4b95f77b5
Add demo.lua to demonstrate usage
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
22 | end |
7ef4b95f77b5
Add demo.lua to demonstrate usage
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
23 | print(""); |
7ef4b95f77b5
Add demo.lua to demonstrate usage
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
24 | end |
7ef4b95f77b5
Add demo.lua to demonstrate usage
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
25 | |
7ef4b95f77b5
Add demo.lua to demonstrate usage
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
26 | batch_download = multihttp.new(mycallback, { "http://www.google.com/", "http://example.com/" }); |
7ef4b95f77b5
Add demo.lua to demonstrate usage
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
27 | |
2
38f221e53215
demo.lua: Fix and improve progress callback example
Matthew Wild <mwild1@gmail.com>
parents:
1
diff
changeset
|
28 | batch_download:set_progress_callback(progresscallback, 1); -- Call progresscallback every second |
1
7ef4b95f77b5
Add demo.lua to demonstrate usage
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
29 | |
7ef4b95f77b5
Add demo.lua to demonstrate usage
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
30 | batch_download:download(true); -- true means "don't return until all downloads are finished" |