← Back to branch summary

~ubuntu-branches/ubuntu/trusty/erlang/trusty

« back to all changes in this revision

Viewing changes to lib/dialyzer/test/small_tests_SUITE_data/src/pubsub/pubsub_publish.erl

  • Committer: Bazaar Package Importer
  • Author(s): Clint Byrum
  • Date: 2011-05-05 15:48:43 UTC
  • mfrom: (3.5.13 sid)
  • Revision ID: james.westby@ubuntu.com-20110505154843-0om6ekzg6m7ugj27
Tags: 1:14.b.2-dfsg-3ubuntu1
* Merge from debian unstable.  Remaining changes:
  - Drop libwxgtk2.8-dev build dependency. Wx isn't in main, and not
    supposed to.
  - Drop erlang-wx binary.
  - Drop erlang-wx dependency from -megaco, -common-test, and -reltool, they
    do not really need wx. Also drop it from -debugger; the GUI needs wx,
    but it apparently has CLI bits as well, and is also needed by -megaco,
    so let's keep the package for now.
  - debian/patches/series: Do what I meant, and enable build-options.patch
    instead.
* Additional changes:
  - Drop erlang-wx from -et
* Dropped Changes:
  - patches/pcre-crash.patch: CVE-2008-2371: outer level option with
    alternatives caused crash. (Applied Upstream)
  - fix for ssl certificate verification in newSSL: 
    ssl_cacertfile_fix.patch (Applied Upstream)
  - debian/patches/series: Enable native.patch again, to get stripped beam
    files and reduce the package size again. (build-options is what
    actually accomplished this)
  - Remove build-options.patch on advice from upstream and because it caused
    odd build failures.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/dialyzer/test/small_tests_SUITE_data/src/pubsub/pubsub_publish.erl
 
1
%  Copyright 2008 Konrad-Zuse-Zentrum für Informationstechnik Berlin
 
2
%
 
3
%   Licensed under the Apache License, Version 2.0 (the "License");
 
4
%   you may not use this file except in compliance with the License.
 
5
%   You may obtain a copy of the License at
 
6
%
 
7
%       http://www.apache.org/licenses/LICENSE-2.0
 
8
%
 
9
%   Unless required by applicable law or agreed to in writing, software
 
10
%   distributed under the License is distributed on an "AS IS" BASIS,
 
11
%   WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 
12
%   See the License for the specific language governing permissions and
 
13
%   limitations under the License.
 
14
%%%-------------------------------------------------------------------
 
15
%%% File    : pubsub_publish.erl
 
16
%%% Author  : Thorsten Schuett <schuett@zib.de>
 
17
%%% Description : Publish function
 
18
%%%
 
19
%%% Created : 26 Mar 2008 by Thorsten Schuett <schuett@zib.de>
 
20
%%%-------------------------------------------------------------------
 
21
%% @author Thorsten Schuett <schuett@zib.de>
 
22
%% @copyright 2008 Konrad-Zuse-Zentrum für Informationstechnik Berlin
 
23
%% @version $Id $
 
24
-module(pubsub_dir.pubsub_publish).
 
25
 
 
26
-author('schuett@zib.de').
 
27
-vsn('$Id: pubsub_publish.erl,v 1.1 2009/11/06 12:39:55 maria Exp $ ').
 
28
 
 
29
-export([publish/3, publish_internal/3]).
 
30
 
 
31
-import(json).
 
32
-import(io).
 
33
-import(http).
 
34
-import(jsonrpc).
 
35
 
 
36
%%====================================================================
 
37
%% public functions
 
38
%%====================================================================
 
39
 
 
40
%% @doc publishs an event to a given url.
 
41
%% @spec publish(string(), string(), string()) -> ok
 
42
%% @todo use pool:pspawn
 
43
publish(URL, Topic, Content) ->
 
44
    spawn(fun () -> pubsub_publish:publish_internal(URL, Topic, Content) end),
 
45
    ok.
 
46
 
 
47
publish_internal(URL, Topic, Content) ->
 
48
    Res = jsonrpc:call(URL, [], {call, notify, [Topic, Content]}),
 
49
    io:format("~p ~p~n", [Res, URL]).
 
50