added the get mpesa symbols

.env.example

@@ -29,3 +29,6 @@ DEFAULT_POOL_CONTRACT_ADDRESS=0x48a953cA5cf5298bc6f6Af3C608351f537AAcb9e
 DEFAULT_LIMITER_ADDRESS=
 DEFAULT_VOUCHER_REGISTRY=
 INCLUDE_STABLES_PARAM=false
+
+#Mpesa address
+DEFAULT_MPESA_ADDRESS=0x48a953cA5cf5298bc6f6Af3C608351f537AAcb9e

config/config.go

@@ -87,3 +87,7 @@ func DefaultPoolName() string {
 func DefaultPoolSymbol() string {
 	return env.GetEnv("DEFAULT_POOL_SYMBOL", "")
 }
+
+func DefaultMpesaAddress() string {
+	return env.GetEnv("DEFAULT_MPESA_ADDRESS", "")
+}

handlers/application/mpesa.go

@@ -0,0 +1,329 @@
+package application
+
+import (
+	"context"
+	"fmt"
+	"strconv"
+
+	"git.defalsify.org/vise.git/resource"
+	"git.grassecon.net/grassrootseconomics/common/hex"
+	"git.grassecon.net/grassrootseconomics/sarafu-vise/config"
+	"git.grassecon.net/grassrootseconomics/sarafu-vise/store"
+	storedb "git.grassecon.net/grassrootseconomics/sarafu-vise/store/db"
+	dataserviceapi "github.com/grassrootseconomics/ussd-data-service/pkg/api"
+	"gopkg.in/leonelquinteros/gotext.v1"
+)
+
+// GetMpesaMaxLimit returns the max FROM token
+// check if max/tokenDecimals > 0.1 for UX purposes and to prevent swapping of dust values
+func (h *MenuHandlers) GetMpesaMaxLimit(ctx context.Context, sym string, input []byte) (resource.Result, error) {
+	var res resource.Result
+	sessionId, ok := ctx.Value("SessionId").(string)
+	if !ok {
+		return res, fmt.Errorf("missing session")
+	}
+
+	flag_api_call_error, _ := h.flagManager.GetFlag("flag_api_call_error")
+	flag_low_swap_amount, _ := h.flagManager.GetFlag("flag_low_swap_amount")
+	flag_incorrect_pool, _ := h.flagManager.GetFlag("flag_incorrect_pool")
+
+	code := codeFromCtx(ctx)
+	l := gotext.NewLocale(translationDir, code)
+	l.AddDomain("default")
+
+	inputStr := string(input)
+	if inputStr == "9" {
+		return res, nil
+	}
+
+	userStore := h.userdataStore
+
+	// Fetch session data
+	_, _, _, activeAddress, publicKey, activeDecimal, err := h.getSessionData(ctx, sessionId)
+	if err != nil {
+		return res, err
+	}
+
+	mpesaAddress := config.DefaultMpesaAddress()
+
+	// Normalize the alias address to fetch mpesa's phone number
+	publicKeyNormalized, err := hex.NormalizeHex(mpesaAddress)
+	if err != nil {
+		logg.ErrorCtxf(ctx, "Failed to normalize alias address", "address", mpesaAddress, "error", err)
+		return res, err
+	}
+
+	// get the recipient's phone number from the address
+	recipientPhoneNumber, err := userStore.ReadEntry(ctx, publicKeyNormalized, storedb.DATA_PUBLIC_KEY_REVERSE)
+	if err != nil || len(recipientPhoneNumber) == 0 {
+		logg.WarnCtxf(ctx, "Alias address not registered, switching to normal transaction", "address", mpesaAddress)
+		recipientPhoneNumber = nil
+	}
+	// store it for future reference (TODO)
+	if err := userStore.WriteEntry(ctx, sessionId, storedb.DATA_RECIPIENT_PHONE_NUMBER, recipientPhoneNumber); err != nil {
+		logg.ErrorCtxf(ctx, "Failed to write recipient phone number", "value", string(recipientPhoneNumber), "error", err)
+		return res, err
+	}
+
+	// fetch data for verification
+	recipientActiveSym, recipientActiveAddress, recipientActiveDecimal, err := h.getRecipientData(ctx, string(recipientPhoneNumber))
+	if err != nil {
+		return res, err
+	}
+
+	// Resolve active pool address
+	activePoolAddress, err := h.resolveActivePoolAddress(ctx, sessionId)
+	if err != nil {
+		return res, err
+	}
+
+	// Check if sender token is swappable
+	canSwap, err := h.accountService.CheckTokenInPool(ctx, string(activePoolAddress), string(activeAddress))
+	if err != nil {
+		res.FlagSet = append(res.FlagSet, flag_api_call_error)
+		logg.ErrorCtxf(ctx, "failed on CheckTokenInPool", "error", err)
+		return res, nil
+	}
+
+	if !canSwap.CanSwapFrom { // pool issue (TODO on vis)
+		res.FlagSet = append(res.FlagSet, flag_incorrect_pool)
+		return res, nil
+	}
+
+	// retrieve the max credit send amounts (I have KILIFI SAT, I want USD RAT)
+	_, maxRAT, err := h.calculateSendCreditLimits(ctx, activePoolAddress, activeAddress, recipientActiveAddress, publicKey, activeDecimal, recipientActiveDecimal)
+	if err != nil {
+		res.FlagSet = append(res.FlagSet, flag_api_call_error)
+		logg.ErrorCtxf(ctx, "failed on calculateSendCreditLimits", "error", err)
+		return res, nil
+	}
+
+	// Format to 2 decimal places
+	formattedAmount, _ := store.TruncateDecimalString(maxRAT, 2)
+	// Fallback if below minimum
+	maxFloat, _ := strconv.ParseFloat(maxRAT, 64)
+	if maxFloat < 0.1 {
+		// return with low amount flag
+		res.Content = formattedAmount
+		res.FlagSet = append(res.FlagSet, flag_low_swap_amount)
+		return res, nil
+	}
+
+	// Save max RAT amount to be used in validating the user's input
+	err = userStore.WriteEntry(ctx, sessionId, storedb.DATA_ACTIVE_SWAP_MAX_AMOUNT, []byte(maxRAT))
+	if err != nil {
+		logg.ErrorCtxf(ctx, "failed to write swap max amount (maxRAT)", "value", maxRAT, "error", err)
+		return res, err
+	}
+
+	// save swap related data for the swap preview
+	metadata := &dataserviceapi.TokenHoldings{
+		TokenAddress:  string(recipientActiveAddress),
+		TokenSymbol:   string(recipientActiveSym),
+		TokenDecimals: string(recipientActiveDecimal),
+	}
+
+	// Store the active swap_to data
+	if err := store.UpdateSwapToVoucherData(ctx, userStore, sessionId, metadata); err != nil {
+		logg.ErrorCtxf(ctx, "failed on UpdateSwapToVoucherData", "error", err)
+		return res, err
+	}
+
+	rate := 129.5
+	amountFloat, _ := strconv.ParseFloat(maxRAT, 64)
+	amountKsh := amountFloat * rate
+
+	kshStr := fmt.Sprintf("%f", amountKsh)
+
+	// truncate to 0 decimal places
+	kshFormatted, _ := store.TruncateDecimalString(kshStr, 0)
+
+	res.Content = l.Get(
+		"Enter the amount of Mpesa to get: (Max %s Ksh)\n",
+		kshFormatted,
+	)
+
+	return res, nil
+}
+
+// GetMpesaPreview displays the get mpesa preview and estimates
+func (h *MenuHandlers) GetMpesaPreview(ctx context.Context, sym string, input []byte) (resource.Result, error) {
+	var res resource.Result
+	sessionId, ok := ctx.Value("SessionId").(string)
+	if !ok {
+		return res, fmt.Errorf("missing session")
+	}
+
+	// INPUT IN RAT Ksh
+	inputStr := string(input)
+	if inputStr == "9" {
+		return res, nil
+	}
+
+	flag_invalid_amount, _ := h.flagManager.GetFlag("flag_invalid_amount")
+
+	code := codeFromCtx(ctx)
+	l := gotext.NewLocale(translationDir, code)
+	l.AddDomain("default")
+
+	userStore := h.userdataStore
+
+	swapData, err := store.ReadSwapPreviewData(ctx, userStore, sessionId)
+	if err != nil {
+		return res, err
+	}
+
+	// use the stored max RAT
+	maxRATValue, err := strconv.ParseFloat(swapData.ActiveSwapMaxAmount, 64)
+	if err != nil {
+		logg.ErrorCtxf(ctx, "Failed to convert the swapMaxAmount to a float", "error", err)
+		return res, err
+	}
+
+	// Input in Ksh
+	kshAmount, err := strconv.ParseFloat(inputStr, 64)
+
+	// divide by the rate
+	rate := 129.5
+	inputAmount := kshAmount / rate
+
+	if err != nil || inputAmount > maxRATValue {
+		res.FlagSet = append(res.FlagSet, flag_invalid_amount)
+		res.Content = inputStr
+		return res, nil
+	}
+
+	formattedAmount := fmt.Sprintf("%f", inputAmount)
+
+	finalAmountStr, err := store.ParseAndScaleAmount(formattedAmount, swapData.ActiveSwapToDecimal)
+	if err != nil {
+		return res, err
+	}
+
+	// call the credit send API to get the reverse quote
+	r, err := h.accountService.GetCreditSendReverseQuote(ctx, swapData.ActivePoolAddress, swapData.ActiveSwapFromAddress, swapData.ActiveSwapToAddress, finalAmountStr)
+	if err != nil {
+		flag_api_call_error, _ := h.flagManager.GetFlag("flag_api_call_error")
+		res.FlagSet = append(res.FlagSet, flag_api_call_error)
+		res.Content = l.Get("Your request failed. Please try again later.")
+		logg.ErrorCtxf(ctx, "failed GetCreditSendReverseQuote poolSwap", "error", err)
+		return res, nil
+	}
+
+	sendInputAmount := r.InputAmount   // amount of SAT that should be swapped (current KILIFI)
+	sendOutputAmount := r.OutputAmount // amount of RAT that will be received (intended USDT)
+
+	// store the sendOutputAmount as the final amount (that will be sent)
+	err = userStore.WriteEntry(ctx, sessionId, storedb.DATA_AMOUNT, []byte(sendOutputAmount))
+	if err != nil {
+		logg.ErrorCtxf(ctx, "failed to write output amount value entry with", "key", storedb.DATA_AMOUNT, "value", sendOutputAmount, "error", err)
+		return res, err
+	}
+
+	// store the sendInputAmount as the swap amount
+	err = userStore.WriteEntry(ctx, sessionId, storedb.DATA_ACTIVE_SWAP_AMOUNT, []byte(sendInputAmount))
+	if err != nil {
+		logg.ErrorCtxf(ctx, "failed to write swap amount entry with", "key", storedb.DATA_ACTIVE_SWAP_AMOUNT, "value", sendInputAmount, "error", err)
+		return res, err
+	}
+
+	// covert for display
+	quoteInputStr := store.ScaleDownBalance(sendInputAmount, swapData.ActiveSwapFromDecimal)
+	// Format the quoteInputStr amount to 2 decimal places
+	qouteInputAmount, _ := store.TruncateDecimalString(quoteInputStr, 2)
+
+	// store the user's input amount in the temporary value
+	err = userStore.WriteEntry(ctx, sessionId, storedb.DATA_TEMPORARY_VALUE, []byte(inputStr))
+	if err != nil {
+		logg.ErrorCtxf(ctx, "failed to write temporary inputStr entry with", "key", storedb.DATA_TEMPORARY_VALUE, "value", inputStr, "error", err)
+		return res, err
+	}
+
+	res.Content = l.Get(
+		"You are sending %s %s in order to receive %s ksh",
+		qouteInputAmount, swapData.ActiveSwapFromSym, inputStr,
+	)
+
+	return res, nil
+}
+
+// InitiateGetMpesa calls the poolSwap and returns a confirmation based on the result.
+func (h *MenuHandlers) InitiateGetMpesa(ctx context.Context, sym string, input []byte) (resource.Result, error) {
+	var res resource.Result
+	var err error
+	sessionId, ok := ctx.Value("SessionId").(string)
+	if !ok {
+		return res, fmt.Errorf("missing session")
+	}
+
+	flag_account_authorized, _ := h.flagManager.GetFlag("flag_account_authorized")
+
+	code := codeFromCtx(ctx)
+	l := gotext.NewLocale(translationDir, code)
+	l.AddDomain("default")
+
+	userStore := h.userdataStore
+
+	swapData, err := store.ReadSwapPreviewData(ctx, userStore, sessionId)
+	if err != nil {
+		return res, err
+	}
+
+	swapAmount, err := userStore.ReadEntry(ctx, sessionId, storedb.DATA_ACTIVE_SWAP_AMOUNT)
+	if err != nil {
+		logg.ErrorCtxf(ctx, "failed to read swapAmount entry with", "key", storedb.DATA_ACTIVE_SWAP_AMOUNT, "error", err)
+		return res, err
+	}
+
+	swapAmountStr := string(swapAmount)
+
+	// Call the poolSwap API
+	poolSwap, err := h.accountService.PoolSwap(ctx, swapAmountStr, swapData.PublicKey, swapData.ActiveSwapFromAddress, swapData.ActivePoolAddress, swapData.ActiveSwapToAddress)
+	if err != nil {
+		flag_api_call_error, _ := h.flagManager.GetFlag("flag_api_call_error")
+		res.FlagSet = append(res.FlagSet, flag_api_call_error)
+		res.Content = l.Get("Your request failed. Please try again later.")
+		logg.ErrorCtxf(ctx, "failed on poolSwap", "error", err)
+		return res, nil
+	}
+
+	swapTrackingId := poolSwap.TrackingId
+	logg.InfoCtxf(ctx, "poolSwap", "swapTrackingId", swapTrackingId)
+
+	// Initiate a send to mpesa
+	mpesaAddress := config.DefaultMpesaAddress()
+
+	finalKshStr, err := userStore.ReadEntry(ctx, sessionId, storedb.DATA_TEMPORARY_VALUE)
+	if err != nil {
+		// invalid state
+		return res, err
+	}
+
+	// read the amount that should be sent
+	amount, err := userStore.ReadEntry(ctx, sessionId, storedb.DATA_AMOUNT)
+	if err != nil {
+		// invalid state
+		return res, err
+	}
+
+	// Call TokenTransfer with the expected swap amount
+	tokenTransfer, err := h.accountService.TokenTransfer(ctx, string(amount), swapData.PublicKey, mpesaAddress, swapData.ActiveSwapToAddress)
+	if err != nil {
+		flag_api_call_error, _ := h.flagManager.GetFlag("flag_api_call_error")
+		res.FlagSet = append(res.FlagSet, flag_api_call_error)
+		res.Content = l.Get("Your request failed. Please try again later.")
+		logg.ErrorCtxf(ctx, "failed on TokenTransfer", "error", err)
+		return res, nil
+	}
+
+	trackingId := tokenTransfer.TrackingId
+	logg.InfoCtxf(ctx, "TokenTransfer", "trackingId", trackingId)
+
+	res.Content = l.Get(
+		"Your request has been sent. You will receive %s ksh.",
+		finalKshStr,
+	)
+
+	res.FlagReset = append(res.FlagReset, flag_account_authorized)
+	return res, nil
+}

handlers/local.go

@@ -140,6 +140,9 @@ func (ls *LocalHandlerService) GetHandler(accountService remote.AccountService)
 	ls.DbRs.AddLocalFunc("transaction_swap_preview", appHandlers.TransactionSwapPreview)
 	ls.DbRs.AddLocalFunc("transaction_initiate_swap", appHandlers.TransactionInitiateSwap)
 	ls.DbRs.AddLocalFunc("clear_trans_type_flag", appHandlers.ClearTransactionTypeFlag)
+	ls.DbRs.AddLocalFunc("get_mpesa_max_limit", appHandlers.GetMpesaMaxLimit)
+	ls.DbRs.AddLocalFunc("get_mpesa_preview", appHandlers.GetMpesaPreview)
+	ls.DbRs.AddLocalFunc("initiate_get_mpesa", appHandlers.InitiateGetMpesa)
 
 	ls.first = appHandlers.Init
 

services/registration/get_mpesa

@@ -0,0 +1 @@
+{{.get_mpesa_max_limit}}

services/registration/get_mpesa.vis

@@ -0,0 +1,7 @@
+LOAD get_mpesa_max_limit 0
+RELOAD get_mpesa_max_limit
+MAP get_mpesa_max_limit
+MOUT quit 9
+HALT
+INCMP get_mpesa_confirmation *
+INCMP quit 9

services/registration/get_mpesa_confirmation

@@ -0,0 +1,3 @@
+{{.get_mpesa_preview}}
+
+Please enter your PIN to confirm. You will get an SMS shortly:

services/registration/get_mpesa_confirmation.vis

@@ -0,0 +1,13 @@
+LOAD get_mpesa_preview 0
+MAP get_mpesa_preview
+CATCH api_failure flag_api_call_error 1
+CATCH invalid_credit_send_amount flag_invalid_amount 1
+MOUT back 0
+MOUT quit 9
+HALT
+LOAD authorize_account 6
+RELOAD authorize_account
+CATCH incorrect_pin flag_incorrect_pin 1
+INCMP _ 0
+INCMP quit 9
+INCMP initiate_get_mpesa *

services/registration/get_mpesa_confirmation_swa

@@ -0,0 +1,3 @@
+{{.get_mpesa_preview}}
+
+Tafadhali weka PIN yako kudhibitisha. Utapokea ujumbe wa SMS:

services/registration/get_mpesa_menu

@@ -0,0 +1 @@
+Get Mpesa

services/registration/get_mpesa_menu_swa

@@ -0,0 +1 @@
+Pokea Mpesa

services/registration/initiate_get_mpesa.vis

@@ -0,0 +1,4 @@
+LOAD reset_incorrect_pin 6
+CATCH _ flag_account_authorized 0
+LOAD initiate_get_mpesa 0
+HALT

services/registration/locale/swa/default.po

@@ -53,4 +53,10 @@ msgid "Credit Available: %s %s\n(You can swap up to %s %s -> %s %s).\nEnter %s a
 msgstr "Kiwango kinachopatikana: %s %s\n(Unaweza kubadilisha hadi %s %s -> %s %s)\nWeka kiwango cha %s:"
 
 msgid "%s will receive %s %s"
-msgstr "%s atapokea %s %s"
+msgstr "%s atapokea %s %s"
+
+msgid "Enter the amount of Mpesa to get: (Max %s Ksh)\n"
+msgstr "Weka kiasi cha Moesa cha kupata: (Kikomo %s Ksh)\n"
+
+msgid "You are sending %s %s in order to receive %s ksh"
+msgstr "Unatuma %s %s ili upoke %s ksh"

services/registration/main.vis

@@ -11,8 +11,9 @@ MOUT credit_send 2
 MOUT swap 3
 MOUT vouchers 4
 MOUT select_pool 5
-MOUT account 6
+MOUT mpesa 6
-MOUT help 7
+MOUT account 7
+MOUT help 8
 MOUT quit 9
 HALT
 INCMP send 1
@@ -20,7 +21,8 @@ INCMP credit_send 2
 INCMP swap_to_list 3
 INCMP my_vouchers 4
 INCMP select_pool 5
-INCMP my_account 6
+INCMP mpesa 6
-INCMP help 7
+INCMP my_account 7
+INCMP help 8
 INCMP quit 9
 INCMP . *

services/registration/mpesa

@@ -0,0 +1 @@
+{{.check_balance}}

services/registration/mpesa.vis

@@ -0,0 +1,9 @@
+MAP check_balance
+MOUT get_mpesa 1
+MOUT send_mpesa 2
+MOUT quit 9
+HALT
+INCMP get_mpesa 1
+INCMP send_mpesa 2
+INCMP quit 9
+INCMP . *

services/registration/mpesa_menu

@@ -0,0 +1 @@
+MPesa

services/registration/pp.csv

@@ -31,7 +31,7 @@ flag,flag_back_set,37,this is set when it is a back navigation
 flag,flag_account_blocked,38,this is set when an account has been blocked after the allowed incorrect PIN attempts have been exceeded
 flag,flag_invalid_pin,39,this is set when the given PIN is invalid(is  less than or more than 4 digits)
 flag,flag_alias_set,40,this is set when an account alias has been assigned to a user
-flag,flag_account_pin_reset,41,this is set on an account when an admin triggers a PIN reset for themflag,flag_incorrect_pool,39,this is set when the user selects an invalid pool
+flag,flag_account_pin_reset,41,this is set on an account when an admin triggers a PIN reset for them
 flag,flag_incorrect_pool,42,this is set when the user selects an invalid pool
 flag,flag_low_swap_amount,43,this is set when the swap max limit is less than 0.1
 flag,flag_alias_unavailable,44,this is set when the preferred alias is not available