demo.lua

Sat, 02 Jan 2010 06:04:12 +0000

author
Matthew Wild <mwild1@gmail.com>
date
Sat, 02 Jan 2010 06:04:12 +0000
changeset 2
38f221e53215
parent 1
7ef4b95f77b5
permissions
-rw-r--r--

demo.lua: Fix and improve progress callback example

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"

mercurial