demo.lua

Sat, 02 Jan 2010 05:57:36 +0000

author
Matthew Wild <mwild1@gmail.com>
date
Sat, 02 Jan 2010 05:57:36 +0000
changeset 1
7ef4b95f77b5
child 2
38f221e53215
permissions
-rw-r--r--

Add demo.lua to demonstrate usage

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)
7ef4b95f77b5 Add demo.lua to demonstrate usage
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
16 for url,progress in pairs(batch:progress()) do
7ef4b95f77b5 Add demo.lua to demonstrate usage
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
17 print(url..":");
7ef4b95f77b5 Add demo.lua to demonstrate usage
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
18 for statistic, value in pairs(progress) do
7ef4b95f77b5 Add demo.lua to demonstrate usage
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
19 print("", k..": "..v);
7ef4b95f77b5 Add demo.lua to demonstrate usage
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
20 end
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 print("");
7ef4b95f77b5 Add demo.lua to demonstrate usage
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
23 end
7ef4b95f77b5 Add demo.lua to demonstrate usage
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
24
7ef4b95f77b5 Add demo.lua to demonstrate usage
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
25 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
26
7ef4b95f77b5 Add demo.lua to demonstrate usage
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
27 batch_download:set_progress_callback(progresscallback);
7ef4b95f77b5 Add demo.lua to demonstrate usage
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
28
7ef4b95f77b5 Add demo.lua to demonstrate usage
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
29 batch_download:download(true); -- true means "don't return until all downloads are finished"

mercurial