daniello

dfdsfsf

daniello

require 'rexml/document'
require 'net/https'
require 'rexchange/dav_search_request'
require 'rexchange/message'
require 'rexchange/contact'
require 'rexchange/appointment'
require 'rexchange/note'
require 'rexchange/task'
require 'uri'

daniello

bs_by_a_id(A_id) ->
  find(qlc:q([ B || B=#b{f_id=F_id} <- mnesia:table(b), F_id == A_id])).

as_with_bs() ->
  find(
    qlc:q([ {A,bs_by_a_id(A#a.id)} || A <- mnesia:table(a)])
  ).

top_as_with_some_bs(Limit) ->
  top(

daniello

%% @author author <daniel.kwiecinski@lambder.com>
%% @copyright Daniel Kwiecinski.
%% @doc Static webmachine resource.

-module(static_resource).
-export([init/1, allowed_methods/2,
         content_types_provided/2, resource_exists/2, last_modified/2, provide_content/2]).

-include_lib("webmachine/include/webmachine.hrl").
-include_lib("kernel/include/file.hrl").

daniello

class BasicGraph

  include_package 'clojure.lang'

  attr_reader :nodes, :edges

  def self.empty
    BasicGraph.new(PersistentHashMap::EMPTY, PersistentHashMap::EMPTY)
  end

daniello

module Java::ClojureLang::IPersistentMap
  def keys
    keySet()
  end
  def has_key?(key)
    containsKey(key)
  end
  def include?(key)
    containsKey(key)
  end

daniello

# that's SpiderMonkey
sudo apt-get install libmozjs-dev
sudo apt-get install libcurl4-openssl-dev

wget ftp://mirror.public-internet.co.uk/pub/apache/couchdb/0.9.0/apache-couchdb-0.9.0.tar.gz
tar -xzvf apache-couchdb-0.9.0.tar.gz 
cd apache-couchdb-0.9.0/

./configure
make

daniello

-module(google_scrapper).

-compile(export_all).

-define(GOOGLE_URL, "http://www.google.co.uk/search?hl=en&btnG=Search&meta=&q=").

start() -> inets:start().

fetch_google_results(Q) ->
  % In case of redirect lets erlang take care of this for us

daniello

% copied from Mochiweb's mochiweb_uitl.erl
-module(url_encoder).
-export([encode/1]).

-define(PERCENT, 37).  % $\%
-define(FULLSTOP, 46). % $\.
-define(IS_HEX(C), ((C >= $0 andalso C =< $9) orelse
                    (C >= $a andalso C =< $f) orelse
                    (C >= $A andalso C =< $F))).
-define(QS_SAFE(C), ((C >= $a andalso C =< $z) orelse

daniello

-module(scroogle_scrapper).

-compile(export_all).

-define(SCROOGLE_URL, "https://ssl.scroogle.org/cgi-bin/nbbw.cgi").
-define(SCROOGLE_PEM, "[PATH_TO_SSL_SCROOGLE_ORG_PEM_CERTIFICATE]").

start() ->
  inets:start(),
  ssl:start().