Oops

ebin/gajumine.app

@@ -3,6 +3,6 @@
               {registered,[]},
               {included_applications,[]},
               {applications,[stdlib,kernel]},
-              {vsn,"0.2.4"},
+              {vsn,"0.2.5"},
               {modules,[gajumine,gmc_con,gmc_conf,gmc_gui,gmc_sup]},
               {mod,{gajumine,[]}}]}.

src/gajumine.erl

@@ -3,7 +3,7 @@
 %%% @end
 
 -module(gajumine).
--vsn("0.2.4").
+-vsn("0.2.5").
 -behavior(application).
 -author("Craig Everett <craigeverett@qpq.swiss>").
 -copyright("QPQ AG <craigeverett@qpq.swiss>").

src/gmc_con.erl

@@ -3,7 +3,7 @@
 %%% @end
 
 -module(gmc_con).
--vsn("0.2.4").
+-vsn("0.2.5").
 -author("Craig Everett <craigeverett@qpq.swiss>").
 -copyright("QPQ AG <craigeverett@qpq.swiss>").
 -license("GPL-3.0-or-later").
@@ -12,6 +12,7 @@
 -export([start_stop/0, gajudesk/0]).
 -export([conf/0, conf/1]).
 -export([network/0]).
+-export([s_to_i/2, is_0_9/1, win_mem/0]).
 -export([start_link/0, stop/0]).
 -export([init/1, terminate/2, code_change/3,
          handle_call/3, handle_cast/2, handle_info/2]).
@@ -305,7 +306,7 @@ s_to_i(Type, String) ->
 
 is_0_9("") ->
     true;
-is_0_9([H | T]) when $0 >= H, H >= $9 ->
+is_0_9([H | T]) when $0 =< H, H =< $9 ->
     is_0_9(T);
 is_0_9(_) ->
     false.
@@ -315,7 +316,7 @@ default_spec(mem) -> 3550722201.
 
 win_mem() ->
     Out = os:cmd("powershell -Command \"(Get-CimInstance Win32_ComputerSystem).TotalPhysicalMemory\""),
-    s_to_i(mem, lists:last(string:split(Out, "\r\n", all))).
+    s_to_i(mem, lists:last(string:split(string:trim(Out), "\r\n", all))).
 
 
 do_gajudesk() ->

src/gmc_conf.erl

@@ -3,7 +3,7 @@
 %%% @end
 
 -module(gmc_conf).
--vsn("0.2.4").
+-vsn("0.2.5").
 -author("Craig Everett <craigeverett@qpq.swiss>").
 -copyright("QPQ AG <craigeverett@qpq.swiss>").
 -license("GPL-3.0-or-later").

src/gmc_gui.erl

@@ -3,7 +3,7 @@
 %%% @end
 
 -module(gmc_gui).
--vsn("0.2.4").
+-vsn("0.2.5").
 -author("Craig Everett <craigeverett@qpq.swiss>").
 -copyright("QPQ AG <craigeverett@qpq.swiss>").
 -license("GPL-3.0-or-later").

src/gmc_sup.erl

@@ -12,7 +12,7 @@
 %%% @end
 
 -module(gmc_sup).
--vsn("0.2.4").
+-vsn("0.2.5").
 -behaviour(supervisor).
 -author("Craig Everett <craigeverett@qpq.swiss>").
 -copyright("QPQ AG <craigeverett@qpq.swiss>").

zomp.meta

@@ -4,7 +4,7 @@
 {prefix,"gmc"}.
 {author,"Craig Everett"}.
 {desc,"Mining client for the Gajumaru Root"}.
-{package_id,{"qpq","gajumine",{0,2,4}}}.
+{package_id,{"qpq","gajumine",{0,2,5}}}.
 {deps,[{"uwiger","gmhive_client",{0,4,4}},
        {"uwiger","gmcuckoo",{1,2,3}},
        {"qpq","cuckoo_cpu",{0,3,0}},