auser-poolparty 0.2.39 → 0.2.40

data/lib/erlang/cloudpanel/priv/www/partials/menu.html

@@ -0,0 +1,13 @@
+<div id='nav'>
+  <h3>Actions</h3>
+  <div id='navmenu'>
+    <ul>
+      <li>
+        <a href='/tail'>Tail the syslog</a>
+      </li>
+      <li>
+        <a href='#soon'>More stuff</a>
+      </li>
+    </ul>
+  </div>
+</div>

data/lib/erlang/cloudpanel/src/cloudpanel.hrl

@@ -1 +1,2 @@
 
+-define (TIMEOUT, 1000).

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

@@ -6,14 +6,14 @@
 -module (cloudpanel_web).
 -author('Ari Lerner <ari.lerner@citrusbyte.com>').
 
+-import(random).
 -export([start/1, stop/0, loop/2]).
-
--define(TIMEOUT, 20000).
+-include ("cloudpanel.hrl").
 
 %% External API
 
 start(Options) ->
-    {DocRoot, Options1} = get_option(docroot, Options),
+    {DocRoot, Options1} = utils:get_option(docroot, Options),
     Loop = fun (Req) ->
                    ?MODULE:loop(Req, DocRoot)
            end,
@@ -22,24 +22,18 @@ start(Options) ->
 stop() ->
     mochiweb_http:stop(?MODULE).
 
-loop(Req, DocRoot) ->
-    "/" ++ Path = Req:get(path),
-    case Req:get(method) of
-        Method when Method =:= 'GET'; Method =:= 'HEAD' ->
-            case Path of
-                _ ->
-                    Req:serve_file(Path, DocRoot)
-            end;
-        'POST' ->
-            case Path of
-                _ ->
-                    Req:not_found()
-            end;
-        _ ->
-            Req:respond({501, [], []})
-    end.
-
-%% Internal API
-
-get_option(Option, Options) ->
-    {proplists:get_value(Option, Options), proplists:delete(Option, Options)}.
+loop(Req, _DocRoot) ->
+		Path = Req:get(path),
+		case {Path, Req:get(method)} of
+			{"/tail", 'GET'} ->
+				Body = tailor:go(Req:parse_qs()),				
+				Req:ok({"text/html", [], Body});
+			{"/", 'GET'} ->
+				Body = views:wrap_page("index"),
+				Req:ok({"text/html", [], Body});
+			{_, 'GET'} ->
+				Body = views:wrap_page(Path),
+				Req:ok({"text/html", [], Body});
+       _ ->
+        Req:respond({501, [], []})
+    end.

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

@@ -0,0 +1,387 @@
+%% ``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

@@ -0,0 +1,66 @@
+-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

@@ -0,0 +1,31 @@
+-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

@@ -0,0 +1,9 @@
+-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

@@ -0,0 +1,44 @@
+-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/yaws.conf

@@ -0,0 +1,20 @@
+# 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>

data/lib/erlang/messenger/useful_snippets

@@ -9,6 +9,6 @@
 % erl -pa /var/lib/gems/1.8/gems/poolparty-0.2.37/lib/erlang/messenger/ebin -kernel inet_dist_listen_min 7000 inet_dist_listen_max 7050 -sname client -setcookie poolparty -run pm_client start
 
 % Get the load
-% erl -pa /var/lib/gems/1.8/gems/poolparty-0.2.38/lib/erlang/messenger/ebin -kernel inet_dist_listen_min 7000 inet_dist_listen_max 7050 -sname client -setcookie poolparty -run pm_client start -run pm_client get_load cpu -run erlang init stop
+% erl -pa /var/lib/gems/1.8/gems/poolparty-0.2.40/lib/erlang/messenger/ebin -kernel inet_dist_listen_min 7000 inet_dist_listen_max 7050 -sname client -setcookie poolparty -run pm_client start -run pm_client get_load cpu -run erlang init stop
 
 % cd /var/poolparty && gem uninstall poolparty && wget http://github.com/auser/poolparty/tree/master%2Fpkg%2Fpoolparty-latest.gem?raw=true -O poolparty-latest.gem 2>&1 && gem install --no-ri --no-rdoc poolparty-latest.gem

data/lib/poolparty/aska/aska.rb

@@ -8,10 +8,12 @@ module Aska
       returning look_up_rules(name) do |rs|
         arr.each do |line|
           next unless line
-          k = line[/(.+)[=\\\<\>](.*)/, 1].gsub(/\s+/, '')
-          v = line[/(.+)[=\\<>](.*)/, 2].gsub(/\s+/, '')
-          m = line[/[=\\<>]/, 0].gsub(/\s+/, '')
-          
+          rule = Rule.new(line)
+          raise LoadRulesException.new(line) unless rule.valid?
+          k = rule.key
+          v = rule.var
+          m = rule.comparison
+
           create_instance_variable(k, create_vars)
           rs << {k => [m, v]}
           rs << {k => [">", "0"]} unless rs.reject {|a| a.to_s == "#{k}>0" }
@@ -118,6 +120,29 @@ module Aska
     receiver.send :include, InstanceMethods
   end
   
+  class Rule < String
+    attr_accessor :value
+    
+    def initialize(v)
+      @value = v
+    end
+    def valid?
+      value =~ /(.+)[=\\\<\>](.*)/
+    end
+    def key
+      value[/(.+)[=\\\<\>](.*)/, 1].gsub(/\s+/, '')
+    end
+    def comparison
+      value[/[=\\<>]/, 0].gsub(/\s+/, '')
+    end
+    def var
+      value[/(.+)[=\\<>](.*)/, 2].gsub(/\s+/, '')
+    end
+    def value
+      @value ||= ""
+    end
+  end
+  
   class Rules < Array
     def to_s
       self.map {|r| v=r.keys.first;"'#{v} #{r[v][0]} #{r[v][1]}'"}.join(", ")