swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

add timestamps; use Ptime

Browse source
This commit is contained in:
swrup 2025-10-17 15:09:47 +02:00
parent 112ece6d9a
commit a27af0ecf1
8 changed files with 163 additions and 77 deletions
Download patch file Download diff file Expand all files Collapse all files

32
src/config.ml
View file

@ -1,6 +1,8 @@
(* hardcoded config for now *)
let amount s = Amount.of_string s |> Result.get_ok
let zero_eur = amount "EUR:0.01"
let dummy_duration = Ptime.Span.of_int_s 99999999
module Exchange = struct
let currency = "EUR"
@ -9,10 +11,10 @@ module Exchange = struct
let attribute_encryption_key = "uhuhg" (* high-entropy nonce. *)
let port = 3696
let master_public_key = "uhuhg"
let stefan_abs = amount "EUR:0.00"
let stefan_log = amount "EUR:0.00"
let stefan_abs = zero_eur
let stefan_log = zero_eur
let stefan_lin = 0.0
let signkey_legal_duration = 99999999
let signkey_legal_duration = dummy_duration
let max_keys_caching = 9999999
let max_requests = 99999999
let terms_dir = Fpath.(v "terms")
@ -35,15 +37,15 @@ let currency_eur =
}
module Secmod_rsa = struct
let lookahead_sign = 9999999
let overlap_duration = 9999999
let lookahead_sign = dummy_duration
let overlap_duration = dummy_duration
let sm_priv_key = Fpath.(v "rsa_key.priv")
let key_dir = Fpath.(v "rsa")
end
module Secmod_eddsa = struct
let lookahead_sign = 9999999
let overlap_duration = 9999999
let lookahead_sign = dummy_duration
let overlap_duration = dummy_duration
let sm_priv_key = Fpath.(v "eddsa_key.priv")
let key_dir = Fpath.(v "eddsa")
end
@ -53,15 +55,15 @@ let coin_kudo_1 =
{
section_name= "kudo_1";
value= amount "EUR:0.01";
duration_withdraw= 999999;
duration_spend= 999999;
duration_legal= 999999;
fee_withdraw= amount "EUR:0.00";
fee_deposit= amount "EUR:0.00";
fee_refresh= amount "EUR:0.00";
fee_refund= amount "EUR:0.00";
duration_withdraw= dummy_duration;
duration_spend= dummy_duration;
duration_legal= dummy_duration;
fee_withdraw= zero_eur;
fee_deposit= zero_eur;
fee_refresh= zero_eur;
fee_refund= zero_eur;
cipher= `RSA;
rsa_keysize= Some 2048;
rsa_keysize= 2048;
age_restricted= `NO;
}