appasa-approval-prog.teal

#pragma version 5
txn GroupIndex
int 0
==
txn OnCompletion
int DeleteApplication
==
bnz finerr
txn OnCompletion
int UpdateApplication
==
bnz finerr
txn OnCompletion
int CloseOut
==
bnz finerr
txn OnCompletion
int OptIn
==
bnz finerr
txn ApplicationID
bz end
txna ApplicationArgs 0
byte "escrow_set"
==
bnz bescset
txna ApplicationArgs 0
byte "asa_cfg"
==
bnz bacfg
txna ApplicationArgs 0
byte "asa-xfer"
==
bnz bxfer
b finerr


bescset:
txn Sender
global CreatorAddress
==
assert
byte "acc"
txna ApplicationArgs 1
app_global_put
int 1
&&
b end

bacfgcheck:
global GroupSize
int 2
==
assert
gtxn 1 Sender
byte "acc"
app_global_get
==
assert
gtxn 1 TypeEnum
int acfg
==
assert
retsub


bacfg:
callsub bacfgcheck
byte "iter"
app_global_get
store 0
gtxn 1 ConfigAssetName
log
byte "an"
byte "AppASA-"
load 0
int 1
+
itob
concat

app_global_put
byte "iter"
dup
app_global_get
int 1
+
app_global_put
int 1
b end


bxfer:
global GroupSize
int 2
==
assert
gtxn 1 Sender
byte "acc"
app_global_get
==
assert
int 1
&&
b end


finerr:
err
end:
return