auser-poolparty 0.2.45 → 0.2.46

data/lib/erlang/cloudpanel/src/string.erl

@@ -1,387 +0,0 @@
-%% ``The contents of this file are subject to the Erlang Public License,
-%% Version 1.1, (the "License"); you may not use this file except in
-%% compliance with the License. You should have received a copy of the
-%% Erlang Public License along with this software. If not, it can be
-%% retrieved via the world wide web at http://www.erlang.org/.
-%% 
-%% Software distributed under the License is distributed on an "AS IS"
-%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
-%% the License for the specific language governing rights and limitations
-%% under the License.
-%% 
-%% The Initial Developer of the Original Code is Ericsson Utvecklings AB.
-%% Portions created by Ericsson are Copyright 1999, Ericsson Utvecklings
-%% AB. All Rights Reserved.''
-%% 
-%%     $Id$
-%%
--module(string).
-
--export([len/1,equal/2,concat/2,chr/2,rchr/2,str/2,rstr/2,
-	 span/2,cspan/2,substr/2,substr/3,tokens/2,chars/2,chars/3]).
--export([copies/2,words/1,words/2,strip/1,strip/2,strip/3,
-	 sub_word/2,sub_word/3,left/2,left/3,right/2,right/3,
-	 sub_string/2,sub_string/3,centre/2,centre/3, join/2]).
--export([to_upper/1, to_lower/1]).
-
--import(lists,[reverse/1,member/2]).
-
-%%---------------------------------------------------------------------------
-
--type(direction() :: 'left' | 'right' | 'both').
-
-%%---------------------------------------------------------------------------
-
-%% Robert's bit
-
-%% len(String)
-%%  Return the length of a string.
-
--spec(len/1 :: (string()) -> non_neg_integer()).
-
-len(S) -> length(S).
-
-%% equal(String1, String2)
-%%  Test if 2 strings are equal.
-
--spec(equal/2 :: (string(), string()) -> bool()).
-
-equal(S, S) -> true;
-equal(_, _) -> false.
-
-%% concat(String1, String2)
-%%  Concatenate 2 strings.
-
--spec(concat/2 :: (string(), string()) -> string()).
-
-concat(S1, S2) -> S1 ++ S2.
-
-%% chr(String, Char)
-%% rchr(String, Char)
-%%  Return the first/last index of the character in a string.
-
--spec(chr/2 :: (string(), char()) -> non_neg_integer()).
-
-chr(S, C) when is_integer(C) -> chr(S, C, 1).
-
-chr([C|_Cs], C, I) -> I;
-chr([_|Cs], C, I) -> chr(Cs, C, I+1);
-chr([], _C, _I) -> 0.
-
--spec(rchr/2 :: (string(), char()) -> non_neg_integer()).
-
-rchr(S, C) when is_integer(C) -> rchr(S, C, 1, 0).
-
-rchr([C|Cs], C, I, _L) ->			%Found one, now find next!
-    rchr(Cs, C, I+1, I);
-rchr([_|Cs], C, I, L) ->
-    rchr(Cs, C, I+1, L);
-rchr([], _C, _I, L) -> L.
-
-%% str(String, SubString)
-%% rstr(String, SubString)
-%% index(String, SubString)
-%%  Return the first/last index of the sub-string in a string.
-%%  index/2 is kept for backwards compatibility.
-
--spec(str/2 :: (string(), string()) -> non_neg_integer()).
-
-str(S, Sub) when is_list(Sub) -> str(S, Sub, 1).
-
-str([C|S], [C|Sub], I) ->
-    case prefix(Sub, S) of
-	true -> I;
-	false -> str(S, [C|Sub], I+1)
-    end;
-str([_|S], Sub, I) -> str(S, Sub, I+1);
-str([], _Sub, _I) -> 0.
-
--spec(rstr/2 :: (string(), string()) -> non_neg_integer()).
-
-rstr(S, Sub) when is_list(Sub) -> rstr(S, Sub, 1, 0).
-
-rstr([C|S], [C|Sub], I, L) ->
-    case prefix(Sub, S) of
-	true -> rstr(S, [C|Sub], I+1, I);
-	false -> rstr(S, [C|Sub], I+1, L)
-    end;
-rstr([_|S], Sub, I, L) -> rstr(S, Sub, I+1, L);
-rstr([], _Sub, _I, L) -> L.
-
-prefix([C|Pre], [C|String]) -> prefix(Pre, String);
-prefix([], String) when is_list(String) -> true;
-prefix(Pre, String) when is_list(Pre), is_list(String) -> false.
-
-%% span(String, Chars) -> Length.
-%% cspan(String, Chars) -> Length.
-
--spec(span/2 :: (string(), string()) -> non_neg_integer()).
-
-span(S, Cs) when is_list(Cs) -> span(S, Cs, 0).
-
-span([C|S], Cs, I) ->
-    case member(C, Cs) of
-	true -> span(S, Cs, I+1);
-	false -> I
-    end;
-span([], _Cs, I) -> I.
-
--spec(cspan/2 :: (string(), string()) -> non_neg_integer()).
-
-cspan(S, Cs) when is_list(Cs) -> cspan(S, Cs, 0).
-
-cspan([C|S], Cs, I) ->
-    case member(C, Cs) of
-	true -> I;
-	false -> cspan(S, Cs, I+1)
-    end;
-cspan([], _Cs, I) -> I.
-
-%% substr(String, Start)
-%% substr(String, Start, Length)
-%%  Extract a sub-string from String.
-
--spec(substr/2 :: (string(), pos_integer()) -> string()).
-
-substr(String, 1) when is_list(String) -> 
-    String;
-substr(String, S) when is_integer(S), S > 1 ->
-    substr2(String, S).
-
--spec(substr/3 :: (string(), pos_integer(), non_neg_integer()) -> string()).
-
-substr(String, S, L) when is_integer(S), S >= 1, is_integer(L), L >= 0 ->
-    substr1(substr2(String, S), L).
-
-substr1([C|String], L) when L > 0 -> [C|substr1(String, L-1)];
-substr1(String, _L) when is_list(String) -> [].	     %Be nice!
-
-substr2(String, 1) when is_list(String) -> String;
-substr2([_|String], S) -> substr2(String, S-1).
-
-%% tokens(String, Seperators).
-%%  Return a list of tokens seperated by characters in Seperators.
-
--spec(tokens/2 :: (string(), string()) -> [[char(),...]]).
-
-tokens(S, Seps) ->
-    tokens1(S, Seps, []).
-
-tokens1([C|S], Seps, Toks) ->
-    case member(C, Seps) of
-	true -> tokens1(S, Seps, Toks);
-	false -> tokens2(S, Seps, Toks, [C])
-    end;
-tokens1([], _Seps, Toks) ->
-    reverse(Toks).
-
-tokens2([C|S], Seps, Toks, Cs) ->
-    case member(C, Seps) of
-	true -> tokens1(S, Seps, [reverse(Cs)|Toks]);
-	false -> tokens2(S, Seps, Toks, [C|Cs])
-    end;
-tokens2([], _Seps, Toks, Cs) ->
-    reverse([reverse(Cs)|Toks]).
-
--spec(chars/2 :: (char(), non_neg_integer()) -> string()).
-
-chars(C, N) -> chars(C, N, []).
-
--spec(chars/3 :: (char(), non_neg_integer(), string()) -> string()).
-
-chars(C, N, Tail) when N > 0 ->
-    chars(C, N-1, [C|Tail]);
-chars(C, 0, Tail) when is_integer(C) ->
-    Tail.
-
-%% Torbjörn's bit.
-
-%%% COPIES %%%
-
-copies(CharList, Num) when is_list(CharList), Num >= 0 ->
-    copies(CharList, Num, []).
-
-copies(_CharList, 0, R) ->
-    R;
-copies(CharList, Num, R) ->
-    copies(CharList, Num-1, CharList++R).
-
-%%% WORDS %%%
-
--spec(words/1 :: (string()) -> pos_integer()).
-
-words(String) -> words(String, $\s).
-
--spec(words/2 :: (string(), char()) -> pos_integer()).
-
-words(String, Char) when is_integer(Char) ->
-    w_count(strip(String, both, Char), Char, 0).
-
-w_count([], _, Num) -> Num+1;
-w_count([H|T], H, Num) -> w_count(strip(T, left, H), H, Num+1);
-w_count([_H|T], Char, Num) -> w_count(T, Char, Num).
-
-%%% SUB_WORDS %%%
-
--spec(sub_word/2 :: (string(), integer()) -> string()).
-
-sub_word(String, Index) -> sub_word(String, Index, $\s).
-
--spec(sub_word/3 :: (string(), integer(), char()) -> string()).
-
-sub_word(String, Index, Char) when is_integer(Index), is_integer(Char) ->
-    case words(String, Char) of
-	Num when Num < Index ->
-	    [];
-	_Num ->
-	    s_word(strip(String, left, Char), Index, Char, 1, [])
-    end.
-
-s_word([], _, _, _,Res) -> reverse(Res);
-s_word([Char|_],Index,Char,Index,Res) -> reverse(Res);
-s_word([H|T],Index,Char,Index,Res) -> s_word(T,Index,Char,Index,[H|Res]);
-s_word([Char|T],Stop,Char,Index,Res) when Index < Stop -> 
-    s_word(strip(T,left,Char),Stop,Char,Index+1,Res);
-s_word([_|T],Stop,Char,Index,Res) when Index < Stop -> 
-    s_word(T,Stop,Char,Index,Res).
-
-%%% STRIP %%%
-
--spec(strip/1 :: (string()) -> string()).
-
-strip(String) -> strip(String, both).
-
--spec(strip/2 :: (string(), direction()) -> string()).
-
-strip(String, left) -> strip_left(String, $\s);
-strip(String, right) -> strip_right(String, $\s);
-strip(String, both) ->
-    strip_right(strip_left(String, $\s), $\s).
-
--spec(strip/3 :: (string(), direction(), char()) -> string()).
-
-strip(String, right, Char) -> strip_right(String, Char);
-strip(String, left, Char) -> strip_left(String, Char);
-strip(String, both, Char) ->
-    strip_right(strip_left(String, Char), Char).
-
-strip_left([Sc|S], Sc) ->
-    strip_left(S, Sc);
-strip_left([_|_]=S, Sc) when is_integer(Sc) -> S;
-strip_left([], Sc) when is_integer(Sc) -> [].
-
-strip_right([Sc|S], Sc) ->
-    case strip_right(S, Sc) of
-	[] -> [];
-	T  -> [Sc|T]
-    end;
-strip_right([C|S], Sc) ->
-    [C|strip_right(S, Sc)];
-strip_right([], Sc) when is_integer(Sc) ->
-    [].
-
-%%% LEFT %%%
-
--spec(left/2 :: (string(), non_neg_integer()) -> string()).
-
-left(String, Len) when is_integer(Len) -> left(String, Len, $\s).
-
--spec(left/3 :: (string(), non_neg_integer(), char()) -> string()).
-
-left(String, Len, Char) when is_integer(Char) ->
-    Slen = length(String),
-    if
-	Slen > Len -> substr(String, 1, Len);
-	Slen < Len -> l_pad(String, Len-Slen, Char);
-	Slen =:= Len -> String
-    end.
-
-l_pad(String, Num, Char) -> String ++ chars(Char, Num).
-
-%%% RIGHT %%%
-
--spec(right/2 :: (string(), non_neg_integer()) -> string()).
-
-right(String, Len) when is_integer(Len) -> right(String, Len, $\s).
-
--spec(right/3 :: (string(), non_neg_integer(), char()) -> string()).
-
-right(String, Len, Char) when is_integer(Char) ->
-    Slen = length(String),
-    if
-	Slen > Len -> substr(String, Slen-Len+1);
-	Slen < Len -> r_pad(String, Len-Slen, Char);
-	Slen =:= Len -> String
-    end.
-
-r_pad(String, Num, Char) -> chars(Char, Num, String).
-
-%%% CENTRE %%%
-
--spec(centre/2 :: (string(), non_neg_integer()) -> string()).
-
-centre(String, Len) when is_integer(Len) -> centre(String, Len, $\s).
-
--spec(centre/3 :: (string(), non_neg_integer(), char()) -> string()).
-
-centre(String, 0, Char) when is_list(String), is_integer(Char) ->
-    [];                       % Strange cases to centre string
-centre(String, Len, Char) when is_integer(Char) ->
-    Slen = length(String),
-    if
-	Slen > Len -> substr(String, (Slen-Len) div 2 + 1, Len);
-	Slen < Len ->
-	    N = (Len-Slen) div 2,
-	    r_pad(l_pad(String, Len-(Slen+N), Char), N, Char);
-	Slen =:= Len -> String
-    end.
-
-%%% SUB_STRING %%%
-
-sub_string(String, Start) -> substr(String, Start).
-
-sub_string(String, Start, Stop) -> substr(String, Start, Stop - Start + 1).
-
-%% ISO/IEC 8859-1 (latin1) letters are converted, others are ignored
-%%
-
-to_lower_char(C) when is_integer(C),  C >= $A, C =< $Z ->
-    C + 32;
-to_lower_char(C) when is_integer(C),  C >= 16#C1, C =< 16#D6 ->
-    C + 32;
-to_lower_char(C) when is_integer(C),  C >= 16#D8, C =< 16#DE ->
-    C + 32;
-to_lower_char(C) ->
-    C.
-
-to_upper_char(C) when is_integer(C),  C >= $a, C =< $z ->
-    C - 32;
-to_upper_char(C) when is_integer(C),  C >= 16#E1, C =< 16#F6 ->
-    C - 32;
-to_upper_char(C) when is_integer(C),  C >= 16#F8, C =< 16#FE ->
-    C - 32;
-to_upper_char(C) ->
-    C.
-
--spec(to_lower/1 :: (string()) -> string()
-		  ; (char()) -> char()).
-
-to_lower(S) when is_list(S) ->
-    [to_lower_char(C) || C <- S];
-to_lower(C) when is_integer(C) ->
-    to_lower_char(C).
-
--spec(to_upper/1 :: (string()) -> string()
-		  ; (char()) -> char()).
-
-to_upper(S) when is_list(S) ->
-    [to_upper_char(C) || C <- S];
-to_upper(C) when is_integer(C) ->
-    to_upper_char(C).
-
--spec(join/2 :: ([string()], string()) -> string()).
-
-join([], Sep) when is_list(Sep) ->
-    [];
-join([H|T], Sep) ->
-    H ++ lists:append([Sep ++ X || X <- T]).

data/lib/erlang/cloudpanel/src/tail_log.erl

@@ -1,66 +0,0 @@
--module (tail_log).
--compile(export_all).
--include ("cloudpanel.hrl").
-
-start(File) ->
-	start(File, fun display/1, "/var/log").
-
-start(File, Callback) ->
-  Dir = "/var/log",
-  start(File, Callback, Dir).
-
-start(File, Callback, Dir) ->
-  spawn_link(?MODULE, init, [File, Callback, Dir]).
-
-stop(Pid) ->
-	Pid ! stop.
-
-init(File, Callback, Dir) ->	
-  Cmd = "/usr/bin/tail -f "++ Dir ++ "/" ++ File,
-  Port = open_port({spawn, Cmd}, [ {cd, Dir}, stderr_to_stdout, {line, 256}, exit_status, binary]), 	
-	tail_loop(Port, Callback).
-
-snap(Pid) ->	
-	Pid ! {snap, self() },
-	receive		
-		{Port, Callback} ->
-			display(element(2, {Port, Callback}));
-		Any ->
-			io:format("Received: ~p~n", [Any]),
-			Any
-	after ?TIMEOUT ->
-		"Timeout error"
-	end.
-
-tail_loop(Port, Callback) ->
-	receive
-		{Port, {data, {eol, Bin}}} ->
-			Callback(Bin),
-			tail_loop(Port, Callback);
-		{Port, {data, Bin}} ->
-			Callback(Bin),
-			tail_loop(Port, Callback);
-		{snap, Who} ->
-			Who ! {Port, Callback},
-			tail_loop(Port, Callback);
-		stop ->
-			port_close(Port),
-			{ok, stop};
-		{From, post, Mess} ->
-			io:format("Received post message: ~p ~p~n", [From, Mess]),
-			From ! {From, post, Mess};
-		{From, subscribe} ->
-			io:format("Received subscribe message from ~p~n", [From]),
-			From ! {From, subscribe};
-		{_, {exit_status, Num}} ->
-			io:format("Received error messate: ~p~n", [Num]),
-			port_close(Port),
-			{ok, stop};
-		Any ->
-			io:format("Received unknown Message: ~p~n", [Any]),
-			tail_loop(Port, Callback)
-	end.
-
-display(Bin) ->
-  Content = iolist_to_binary(Bin),
-  utils:subst("[INFO] ~s~n", [Content]).

data/lib/erlang/cloudpanel/src/tailor.erl

@@ -1,31 +0,0 @@
--module (tailor).
--compile(export_all).
--import (mochijson2).
--include ("cloudpanel.hrl").
-
-go(Qs) ->
-	Body = case Qs of
-		"log" ->
-			latest_log(Qs);
-		_ ->
-			index(Qs)
-	end,
-	io:format("Body from go: ~p~n", [Body]),
-	Body.
-
-index(Qs) ->
-	File = proplists:get_value("log", Qs),	
-  % Tell the system that we are watching the logs
-	self() ! {self(), subscribe},
-	% Wait for messages	
-	Dir = "/var/log",
-	% Callback = fun(X) -> displayLogLine(X, Log) end,
-	Cmd = "/usr/bin/tail -n 10 "++ Dir ++ "/" ++ File,
-	Body = os:cmd(Cmd),
-	string:join(string:tokens(Body, "\n"), "\n").
-
-latest_log(Qs) ->
-	ok.
-
-start_logger(File) ->
-	ok.

data/lib/erlang/cloudpanel/src/utils.erl

@@ -1,9 +0,0 @@
--module (utils).
--compile(export_all).
-
-
-subst(Template, Values) when is_list(Values) ->
-    list_to_binary(lists:flatten(io_lib:fwrite(Template, Values))).
-
-get_option(Option, Options) ->
-    {proplists:get_value(Option, Options), proplists:delete(Option, Options)}.

data/lib/erlang/cloudpanel/src/views.erl

@@ -1,44 +0,0 @@
--module (views).
--compile(export_all).
-
-wrap_page(Name) ->
-	AssetMatch = "(.*)([css|js])+",
-	case regexp:first_match(Name, AssetMatch) of
-		{match,_,_} ->			
-			erlang:binary_to_list(read_asset(Name));
-		nomatch ->
-			wrap(read_page(Name));
-		{_, _} ->
-			io:format("Error: ~p~n", [Name]),
-			"error"
-	end.
-
-json(Content) ->
-	mochijson2:encode(Content).
-
-wrap(Content) ->
-	Header = read_partial("header"),
-	Menu = read_partial("menu"),
-	Footer = read_partial("footer"),
-	Out = erlang:list_to_binary([Header, Menu, protect(Content), Footer]),
-	erlang:binary_to_list(Out).
-
-read_page(Name) ->
-	{_, Cont} = file:read_file("priv/www/pages/"++Name++".html"),
-	protect(Cont).
-read_partial(Name) ->
-	{_, Cont} = file:read_file("priv/www/partials/"++Name++".html"),
-	protect(Cont).
-read_asset(Name) ->
-	{_, Cont} = file:read_file("priv/www/"++Name),
-	protect(Cont).
-
-protect(Content) ->
-	case Content of
-		enoent ->
-			read_partial("error");
-		[] ->
-			read_partial("error");
-		_ ->
-			Content
-	end.

data/lib/erlang/cloudpanel/start-dev.sh

@@ -1,3 +0,0 @@
-#!/bin/sh
-cd `dirname $0`
-exec erl -pa $PWD/ebin $PWD/deps/*/ebin -boot start_sasl -s reloader -s cloudpanel

data/lib/erlang/cloudpanel/start.sh

@@ -1,3 +0,0 @@
-#!/bin/sh
-cd `dirname $0`
-exec erl -pa $PWD/ebin $PWD/deps/*/ebin -boot start_sasl -s cloudpanel

data/lib/erlang/cloudpanel/support/include.mk

@@ -1,46 +0,0 @@
-## -*- makefile -*-
-
-######################################################################
-## Erlang
-
-ERL := erl
-ERLC := $(ERL)c
-
-INCLUDE_DIRS := ../include $(wildcard ../deps/*/include)
-EBIN_DIRS := $(wildcard ../deps/*/ebin)
-ERLC_FLAGS := -W $(INCLUDE_DIRS:../%=-I ../%) $(EBIN_DIRS:%=-pa %)
-
-ifndef no_debug_info
-  ERLC_FLAGS += +debug_info
-endif
-
-ifdef debug
-  ERLC_FLAGS += -Ddebug
-endif
-
-EBIN_DIR := ../ebin
-DOC_DIR  := ../doc
-EMULATOR := beam
-
-ERL_SOURCES := $(wildcard *.erl)
-ERL_HEADERS := $(wildcard *.hrl) $(wildcard ../include/*.hrl)
-ERL_OBJECTS := $(ERL_SOURCES:%.erl=$(EBIN_DIR)/%.$(EMULATOR))
-ERL_DOCUMENTS := $(ERL_SOURCES:%.erl=$(DOC_DIR)/%.html)
-ERL_OBJECTS_LOCAL := $(ERL_SOURCES:%.erl=./%.$(EMULATOR))
-APP_FILES := $(wildcard *.app)
-EBIN_FILES = $(ERL_OBJECTS) $(ERL_DOCUMENTS) $(APP_FILES:%.app=../ebin/%.app)
-EBIN_FILES_NO_DOCS = $(ERL_OBJECTS) $(APP_FILES:%.app=../ebin/%.app)
-MODULES = $(ERL_SOURCES:%.erl=%)
-
-../ebin/%.app: %.app
-	cp $< $@
-
-$(EBIN_DIR)/%.$(EMULATOR): %.erl
-	$(ERLC) $(ERLC_FLAGS) -o $(EBIN_DIR) $<
-
-./%.$(EMULATOR): %.erl
-	$(ERLC) $(ERLC_FLAGS) -o . $<
-
-$(DOC_DIR)/%.html: %.erl
-	$(ERL) -noshell -run edoc file $< -run init stop
-	mv *.html $(DOC_DIR)

data/lib/erlang/cloudpanel/yaws.conf

@@ -1,20 +0,0 @@
-# Configuration file for Yaws HTTP daemon
-
-# This config defines virtual server localhost. It is
-# enabled by default. If you want to disable it, remove
-# symlink from /etc/yaws/conf.d/.
-
-# Instead you may edit this file and after that reload
-# yaws configureation using invoke-rc.d yaws reload
-
-# (If you want to use privileged port, run yaws as root,
-# setting YAWS_USER in /etc/default/yaws, or use port
-# redirection, e.g. via iptables.)
-
-<server localhost>
-    port = 8000
-    listen = 0.0.0.0
-    docroot = /Users/auser/Sites/work/citrusbyte/internal/gems/pool-party/poolparty/lib/erlang/cloudpanel/www
-    appmods = <"tail", tailer>
-    # dir_listings = true
-</server>