capricorn 2.0.8 → 2.0.9

data/erlang/lib/misultin/examples/misultin_get_variable.erl

@@ -0,0 +1,55 @@
+% ==========================================================================================================
+% MISULTIN - Example: Gets the GET variable 'value' and prints it out as XML if found.
+%
+% >-|-|-(°>
+% 
+% Copyright (C) 2009, Roberto Ostinelli <roberto@ostinelli.net>
+% All rights reserved.
+%
+% BSD License
+% 
+% Redistribution and use in source and binary forms, with or without modification, are permitted provided
+% that the following conditions are met:
+%
+%  * Redistributions of source code must retain the above copyright notice, this list of conditions and the
+%    following disclaimer.
+%  * Redistributions in binary form must reproduce the above copyright notice, this list of conditions and
+%    the following disclaimer in the documentation and/or other materials provided with the distribution.
+%  * Neither the name of the authors nor the names of its contributors may be used to endorse or promote
+%    products derived from this software without specific prior written permission.
+%
+% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED
+% WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
+% PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR
+% ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
+% TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+% HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+% NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+% POSSIBILITY OF SUCH DAMAGE.
+% ==========================================================================================================
+-module(misultin_get_variable).
+-export([start/1, stop/0]).
+
+% start misultin http server
+start(Port) ->
+	misultin:start_link([{port, Port}, {loop, fun(Req) -> handle_http(Req) end}]).
+
+% stop misultin
+stop() ->
+	misultin:stop().
+
+% callback on request received
+handle_http(Req) ->
+	% get params
+	Args = Req:parse_qs(),
+	case misultin_utility:get_key_value("value", Args) of
+		undefined ->
+			Req:ok([{"Content-Type", "text/xml"}], "<misultin_test><error>no value specified</error></misultin_test>");
+		Value ->
+			Req:ok([{"Content-Type", "text/xml"}], "<misultin_test><value>~s</value></misultin_test>", [Value])
+	end.
+
+
+
+
+

data/erlang/lib/misultin/examples/misultin_hello_world.erl

@@ -0,0 +1,43 @@
+% ==========================================================================================================
+% MISULTIN - Example: Hello World.
+%
+% >-|-|-(°>
+% 
+% Copyright (C) 2009, Roberto Ostinelli <roberto@ostinelli.net>
+% All rights reserved.
+%
+% BSD License
+% 
+% Redistribution and use in source and binary forms, with or without modification, are permitted provided
+% that the following conditions are met:
+%
+%  * Redistributions of source code must retain the above copyright notice, this list of conditions and the
+%    following disclaimer.
+%  * Redistributions in binary form must reproduce the above copyright notice, this list of conditions and
+%    the following disclaimer in the documentation and/or other materials provided with the distribution.
+%  * Neither the name of the authors nor the names of its contributors may be used to endorse or promote
+%    products derived from this software without specific prior written permission.
+%
+% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED
+% WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
+% PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR
+% ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
+% TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+% HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+% NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+% POSSIBILITY OF SUCH DAMAGE.
+% ==========================================================================================================
+-module(misultin_hello_world).
+-export([start/1, stop/0]).
+
+% start misultin http server
+start(Port) ->
+	misultin:start_link([{port, Port}, {loop, fun(Req) -> handle_http(Req) end}]).
+
+% stop misultin
+stop() ->
+	misultin:stop().
+
+% callback on request received
+handle_http(Req) ->	
+	Req:ok("Hello World.").

data/erlang/lib/misultin/examples/misultin_rest.erl

@@ -0,0 +1,68 @@
+% ==========================================================================================================
+% MISULTIN - Example: RESTful support.
+%
+% >-|-|-(°>
+% 
+% Copyright (C) 2009, Roberto Ostinelli <roberto@ostinelli.net>
+% All rights reserved.
+%
+% BSD License
+% 
+% Redistribution and use in source and binary forms, with or without modification, are permitted provided
+% that the following conditions are met:
+%
+%  * Redistributions of source code must retain the above copyright notice, this list of conditions and the
+%    following disclaimer.
+%  * Redistributions in binary form must reproduce the above copyright notice, this list of conditions and
+%    the following disclaimer in the documentation and/or other materials provided with the distribution.
+%  * Neither the name of the authors nor the names of its contributors may be used to endorse or promote
+%    products derived from this software without specific prior written permission.
+%
+% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED
+% WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
+% PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR
+% ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
+% TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+% HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+% NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+% POSSIBILITY OF SUCH DAMAGE.
+% ==========================================================================================================
+-module(misultin_rest).
+-export([start/1, stop/0]).
+
+% start misultin http server
+start(Port) ->
+	misultin:start_link([{port, Port}, {loop, fun(Req) -> handle_http(Req) end}]).
+
+% stop misultin
+stop() ->
+	misultin:stop().
+
+% callback function called on incoming http request
+handle_http(Req) ->
+	% dispatch to rest
+	handle(Req:get(method), Req:resource([lowercase, urldecode]), Req).
+
+% ---------------------------- \/ handle rest --------------------------------------------------------------
+
+% handle a GET on /
+handle('GET', [], Req) ->
+	Req:ok([{"Content-Type", "text/plain"}], "Main home page.");
+
+% handle a GET on /users
+handle('GET', ["users"], Req) ->
+	Req:ok([{"Content-Type", "text/plain"}], "Main users root.");
+
+% handle a GET on /users/{username}
+handle('GET', ["users", UserName], Req) ->
+	Req:ok([{"Content-Type", "text/plain"}], "This is ~s's page.", [UserName]);
+
+% handle a GET on /users/{username}/messages
+handle('GET', ["users", UserName, "messages"], Req) ->
+	Req:ok([{"Content-Type", "text/plain"}], "This is ~s's messages page.", [UserName]);
+
+% handle the 404 page not found
+handle(_, _, Req) ->
+	Req:ok([{"Content-Type", "text/plain"}], "Page not found.").
+	
+% ---------------------------- /\ handle rest --------------------------------------------------------------

data/erlang/lib/misultin/examples/misultin_ssl.erl

@@ -0,0 +1,51 @@
+% ==========================================================================================================
+% MISULTIN - Example: Hello World SSL.
+%
+% >-|-|-(°>
+% 
+% Copyright (C) 2009, Roberto Ostinelli <roberto@ostinelli.net>
+% All rights reserved.
+%
+% BSD License
+% 
+% Redistribution and use in source and binary forms, with or without modification, are permitted provided
+% that the following conditions are met:
+%
+%  * Redistributions of source code must retain the above copyright notice, this list of conditions and the
+%    following disclaimer.
+%  * Redistributions in binary form must reproduce the above copyright notice, this list of conditions and
+%    the following disclaimer in the documentation and/or other materials provided with the distribution.
+%  * Neither the name of the authors nor the names of its contributors may be used to endorse or promote
+%    products derived from this software without specific prior written permission.
+%
+% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED
+% WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
+% PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR
+% ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
+% TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+% HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+% NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+% POSSIBILITY OF SUCH DAMAGE.
+% ==========================================================================================================
+-module(misultin_ssl).
+-export([start/1, stop/0]).
+
+% start misultin http server
+start(Port) ->
+	misultin:start_link([{port, Port}, {loop, fun(Req) -> handle_http(Req) end},
+		{ssl, [
+			{certfile, "../priv/test_certificate.pem"},
+			{keyfile, "../priv/test_privkey.pem"},
+			{password, "misultin"}
+		]}
+	]).
+
+% stop misultin
+stop() ->
+	misultin:stop().
+
+% callback on request received
+handle_http(Req) ->	
+	% output
+	Req:ok("Hello World SSL.").
+

data/erlang/lib/misultin/examples/misultin_stream.erl

@@ -0,0 +1,55 @@
+% ==========================================================================================================
+% MISULTIN - Example: Stream data gradually.
+%
+% >-|-|-(°>
+% 
+% Copyright (C) 2009, Roberto Ostinelli <roberto@ostinelli.net>
+% All rights reserved.
+%
+% BSD License
+% 
+% Redistribution and use in source and binary forms, with or without modification, are permitted provided
+% that the following conditions are met:
+%
+%  * Redistributions of source code must retain the above copyright notice, this list of conditions and the
+%	 following disclaimer.
+%  * Redistributions in binary form must reproduce the above copyright notice, this list of conditions and
+%	 the following disclaimer in the documentation and/or other materials provided with the distribution.
+%  * Neither the name of the authors nor the names of its contributors may be used to endorse or promote
+%	 products derived from this software without specific prior written permission.
+%
+% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED
+% WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
+% PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR
+% ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
+% TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+% HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+% NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+% POSSIBILITY OF SUCH DAMAGE.
+% ==========================================================================================================
+-module(misultin_stream).
+-export([start/1, stop/0]).
+
+% start misultin http server
+start(Port) ->
+	misultin:start_link([{port, Port}, {loop, fun(Req) -> handle_http(Req) end}]).
+
+% stop misultin
+stop() ->
+	misultin:stop().
+
+% callback on request received
+handle_http(Req) ->
+	% send headers
+	Req:stream(head, [{"Content-Type", "text/plain"}]),
+	% send stream
+	Req:stream("1"),
+	timer:sleep(2000),
+	% send stream
+	Req:stream("2"),
+	timer:sleep(2000),
+	% send stream
+	Req:stream("3"),
+	% close socket
+	Req:stream(close).
+

data/erlang/lib/misultin/examples/misultin_websocket_event_example.erl

@@ -0,0 +1,103 @@
+% ==========================================================================================================
+% MISULTIN - Example: Shows misultin Websocket With an event support.
+%
+% >-|-|-(°>
+% 
+% Copyright (C) 2010, Roberto Ostinelli <roberto@ostinelli.net>
+% All rights reserved.
+%
+% BSD License
+% 
+% Redistribution and use in source and binary forms, with or without modification, are permitted provided
+% that the following conditions are met:
+%
+%  * Redistributions of source code must retain the above copyright notice, this list of conditions and the
+%    following disclaimer.
+%  * Redistributions in binary form must reproduce the above copyright notice, this list of conditions and
+%    the following disclaimer in the documentation and/or other materials provided with the distribution.
+%  * Neither the name of the authors nor the names of its contributors may be used to endorse or promote
+%    products derived from this software without specific prior written permission.
+%
+% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED
+% WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
+% PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR
+% ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
+% TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+% HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+% NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+% POSSIBILITY OF SUCH DAMAGE.
+% ==========================================================================================================
+-module(misultin_websocket_event_example).
+-export([start/1, stop/0]).
+
+% start misultin http server
+start(Port) ->
+	misultin:start_link([
+		{port, Port}, {loop, fun(Req) -> handle_http(Req, Port) end},
+		{ws_loop, fun(Ws) -> handle_websocket(Ws) end}, {ws_autoexit, false}
+	]).
+
+% stop misultin
+stop() ->
+	misultin:stop().
+
+% callback on request received
+handle_http(Req, Port) ->	
+	% output
+	Req:ok([{"Content-Type", "text/html"}],
+	["	
+	<html>
+		<head>
+			<script type=\"text/javascript\">
+				function addStatus(text){
+					var date = new Date();
+					document.getElementById('status').innerHTML = document.getElementById('status').innerHTML + date + \": \" + text + \"<br>\";				
+				}
+				function ready(){
+					if (\"WebSocket\" in window) {
+						// browser supports websockets
+						var ws = new WebSocket(\"ws://localhost:", integer_to_list(Port) ,"/service\");
+						ws.onopen = function() {
+							// websocket is connected
+							addStatus(\"websocket connected!\");
+							// send hello data to server.
+							ws.send(\"hello server!\");
+							addStatus(\"sent message to server: 'hello server'!\");
+						};
+						ws.onmessage = function (evt) {
+							var receivedMsg = evt.data;
+							addStatus(\"server sent the following: '\" + receivedMsg + \"'\");
+						};
+						ws.onclose = function() {
+							// websocket was closed
+							addStatus(\"websocket was closed\");
+						};
+					} else {
+						// browser does not support websockets
+						addStatus(\"sorry, your browser does not support websockets.\");
+					}
+				}
+			</script>
+		</head>
+		<body onload=\"ready();\">
+			<div id=\"status\"></div>
+		</body>
+	</html>"]).
+
+% callback on received websockets data
+handle_websocket(Ws) ->
+	receive
+		{browser, Data} ->
+			Ws:send(["received '", Data, "'"]),
+			handle_websocket(Ws);
+		closed ->
+			% IMPORTANT: since we specified the {ws_autoexit, false} option, we need to manually ensure that this process exists
+			% [otherwise it will become a zombie]
+			io:format("The WebSocket was CLOSED!~n"),
+			closed;
+		_Ignore ->
+			handle_websocket(Ws)
+	after 5000 ->
+		Ws:send("pushing!"),
+		handle_websocket(Ws)
+	end.

data/erlang/lib/misultin/examples/misultin_websocket_example.erl

@@ -0,0 +1,95 @@
+% ==========================================================================================================
+% MISULTIN - Example: Shows misultin Websocket support.
+%
+% >-|-|-(°>
+% 
+% Copyright (C) 2010, Roberto Ostinelli <roberto@ostinelli.net>
+% All rights reserved.
+%
+% BSD License
+% 
+% Redistribution and use in source and binary forms, with or without modification, are permitted provided
+% that the following conditions are met:
+%
+%  * Redistributions of source code must retain the above copyright notice, this list of conditions and the
+%    following disclaimer.
+%  * Redistributions in binary form must reproduce the above copyright notice, this list of conditions and
+%    the following disclaimer in the documentation and/or other materials provided with the distribution.
+%  * Neither the name of the authors nor the names of its contributors may be used to endorse or promote
+%    products derived from this software without specific prior written permission.
+%
+% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED
+% WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
+% PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR
+% ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
+% TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+% HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+% NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+% POSSIBILITY OF SUCH DAMAGE.
+% ==========================================================================================================
+-module(misultin_websocket_example).
+-export([start/1, stop/0]).
+
+% start misultin http server
+start(Port) ->
+	misultin:start_link([{port, Port}, {loop, fun(Req) -> handle_http(Req, Port) end}, {ws_loop, fun(Ws) -> handle_websocket(Ws) end}]).
+
+% stop misultin
+stop() ->
+	misultin:stop().
+
+% callback on request received
+handle_http(Req, Port) ->	
+	% output
+	Req:ok([{"Content-Type", "text/html"}],
+	["	
+	<html>
+		<head>
+			<script type=\"text/javascript\">
+				function addStatus(text){
+					var date = new Date();
+					document.getElementById('status').innerHTML = document.getElementById('status').innerHTML + date + \": \" + text + \"<br>\";				
+				}
+				function ready(){
+					if (\"WebSocket\" in window) {
+						// browser supports websockets
+						var ws = new WebSocket(\"ws://localhost:", integer_to_list(Port) ,"/service\");
+						ws.onopen = function() {
+							// websocket is connected
+							addStatus(\"websocket connected!\");
+							// send hello data to server.
+							ws.send(\"hello server!\");
+							addStatus(\"sent message to server: 'hello server'!\");
+						};
+						ws.onmessage = function (evt) {
+							var receivedMsg = evt.data;
+							addStatus(\"server sent the following: '\" + receivedMsg + \"'\");
+						};
+						ws.onclose = function() {
+							// websocket was closed
+							addStatus(\"websocket was closed\");
+						};
+					} else {
+						// browser does not support websockets
+						addStatus(\"sorry, your browser does not support websockets.\");
+					}
+				}
+			</script>
+		</head>
+		<body onload=\"ready();\">
+			<div id=\"status\"></div>
+		</body>
+	</html>"]).
+
+% callback on received websockets data
+handle_websocket(Ws) ->
+	receive
+		{browser, Data} ->
+			Ws:send(["received '", Data, "'"]),
+			handle_websocket(Ws);
+		_Ignore ->
+			handle_websocket(Ws)
+	after 5000 ->
+		Ws:send("pushing!"),
+		handle_websocket(Ws)
+	end.