tx · 5bMmoE5vpNH2SqebiNvzDAg8dfcW3GzRvhVH4mHoYPur

3MvP7BWqZinx23VpQeJBrhL4nED8MWdtcRh:  -0.01000000 Waves

2022.10.15 11:22 [2273211] smart account 3MvP7BWqZinx23VpQeJBrhL4nED8MWdtcRh > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "5bMmoE5vpNH2SqebiNvzDAg8dfcW3GzRvhVH4mHoYPur",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1665822161381,
    "version": 2,
    "chainId": 84,
    "sender": "3MvP7BWqZinx23VpQeJBrhL4nED8MWdtcRh",
    "senderPublicKey": "7BvYKnVkbABXoQwqVQAsEXRQN9bt7H7QxxhXqMhW44oa",
    "proofs": [
        "3n8pvsMbP3HSePJS2mMaBoEFEJiLcH2WZdqt3eAYunZfkZZqHRg9EHHR49WntNw5LJHHUv62aK2j8aEoEBTd93GV"
    ],
    "script": "base64:AAIFAAAAAAAAACkIAhIECgIICBIDCgEIEgQKAggIEgMKAQgSAwoBCBIFCgMICAgSAwoBCAAAABYBAAAAEGdldFN0cmluZ09yVGhyb3cAAAACAAAAB2FkZHJlc3MAAAADa2V5CQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQdAAAAAgUAAAAHYWRkcmVzcwUAAAADa2V5CQABLAAAAAIJAAEsAAAAAgkAASwAAAACAgAAAAxDYW4ndCByZWFkICcFAAAAA2tleQIAAAANJyBhdCBhZGRyZXNzIAkABCUAAAABBQAAAAdhZGRyZXNzAQAAABFnZXRJbnRlZ2VyT3JUaHJvdwAAAAIAAAAHYWRkcmVzcwAAAANrZXkJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABBoAAAACBQAAAAdhZGRyZXNzBQAAAANrZXkJAAEsAAAAAgkAASwAAAACCQABLAAAAAICAAAADENhbid0IHJlYWQgJwUAAAADa2V5AgAAAA0nIGF0IGFkZHJlc3MgCQAEJQAAAAEFAAAAB2FkZHJlc3MBAAAAE3BhcnNlQWRkcmVzc09yVGhyb3cAAAABAAAADG1heWJlQWRkcmVzcwkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAEJgAAAAEFAAAADG1heWJlQWRkcmVzcwkAASwAAAACCQABLAAAAAICAAAAGkNhbid0IHBhcnNlIGFkZHJlc3MgZnJvbSAnBQAAAAxtYXliZUFkZHJlc3MCAAAAAScBAAAACmtleV9lbnRpdHkAAAADAAAABG5hbWUAAAACcGsAAAAIcHJvcGVydHkJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgUAAAAEbmFtZQIAAAABXwUAAAACcGsCAAAAAV8FAAAACHByb3BlcnR5AQAAAA5rZXlfTmFtZV9vd25lcgAAAAEAAAAEbm9kZQkBAAAACmtleV9lbnRpdHkAAAADAgAAAAROYW1lBQAAAARub2RlAgAAAAVvd25lcgEAAAARa2V5X05hbWVfcmVzb2x2ZXIAAAABAAAABG5vZGUJAQAAAAprZXlfZW50aXR5AAAAAwIAAAAETmFtZQUAAAAEbm9kZQIAAAAIcmVzb2x2ZXIBAAAAEmtleV9OYW1lX2NyZWF0ZWRBdAAAAAEAAAAEbm9kZQkBAAAACmtleV9lbnRpdHkAAAADAgAAAAROYW1lBQAAAARub2RlAgAAAAljcmVhdGVkQXQBAAAACV9nZXRPd25lcgAAAAEAAAAEbm9kZQkABB0AAAACBQAAAAR0aGlzCQEAAAAOa2V5X05hbWVfb3duZXIAAAABBQAAAARub2RlAQAAAAlfc2V0T3duZXIAAAACAAAABG5vZGUAAAAFb3duZXIJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkBAAAADmtleV9OYW1lX293bmVyAAAAAQUAAAAEbm9kZQUAAAAFb3duZXIFAAAAA25pbAEAAAAMX2dldFJlc29sdmVyAAAAAQAAAARub2RlCQAEHQAAAAIFAAAABHRoaXMJAQAAABFrZXlfTmFtZV9yZXNvbHZlcgAAAAEFAAAABG5vZGUBAAAADF9zZXRSZXNvbHZlcgAAAAIAAAAEbm9kZQAAAAhyZXNvbHZlcgkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQEAAAARa2V5X05hbWVfcmVzb2x2ZXIAAAABBQAAAARub2RlBQAAAAhyZXNvbHZlcgUAAAADbmlsAQAAAA1fZ2V0Q3JlYXRlZEF0AAAAAQAAAARub2RlCQAEGgAAAAIFAAAABHRoaXMJAQAAABJrZXlfTmFtZV9jcmVhdGVkQXQAAAABBQAAAARub2RlAQAAAA1fc2V0Q3JlYXRlZEF0AAAAAgAAAARub2RlAAAACWNyZWF0ZWRBdAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkBAAAAEmtleV9OYW1lX2NyZWF0ZWRBdAAAAAEFAAAABG5vZGUFAAAACWNyZWF0ZWRBdAUAAAADbmlsAQAAAAdpc0FkbWluAAAAAQAAAANpbnYJAAAAAAAAAggFAAAAA2ludgAAAAZjYWxsZXIFAAAABHRoaXMBAAAAB2lzT3duZXIAAAACAAAAA2ludgAAAARub2RlCQAAAAAAAAIJAAQlAAAAAQgFAAAAA2ludgAAAAZjYWxsZXIJAQAAAAt2YWx1ZU9yRWxzZQAAAAIJAQAAAAlfZ2V0T3duZXIAAAABBQAAAARub2RlAgAAAAABAAAAD19zcGxpdExhc3RMYWJlbAAAAAEAAAAEbmFtZQQAAAAGbGFiZWxzCQAEtQAAAAIFAAAABG5hbWUCAAAAAS4EAAAACWxhc3RJbmRleAkAAGUAAAACCQABkAAAAAEFAAAABmxhYmVscwAAAAAAAAAAAQQAAAAJbGFzdExhYmVsCQABkQAAAAIFAAAABmxhYmVscwUAAAAJbGFzdEluZGV4BAAAAApyZXN0TGFiZWxzCQAEuQAAAAIJAARRAAAAAgUAAAAGbGFiZWxzBQAAAAlsYXN0SW5kZXgCAAAAAS4JAAUUAAAAAgUAAAAJbGFzdExhYmVsBQAAAApyZXN0TGFiZWxzAQAAABtfc3VwcG9ydGVkSW50ZXJmYWNlQXNTdHJpbmcAAAADAAAACnJlZ2lzdHJhbnQAAAALaW50ZXJmYWNlSWQAAAAKcmVzdExhYmVscwQAAAAHJG1hdGNoMAkAA/wAAAAEBQAAAApyZWdpc3RyYW50AgAAABFzdXBwb3J0c0ludGVyZmFjZQkABEwAAAACBQAAAAtpbnRlcmZhY2VJZAUAAAADbmlsBQAAAANuaWwDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAB0Jvb2xlYW4EAAAAEXN1cHBvcnRzSW50ZXJmYWNlBQAAAAckbWF0Y2gwAwkBAAAAASEAAAABBQAAABFzdXBwb3J0c0ludGVyZmFjZQUAAAAEdW5pdAQAAAAHJG1hdGNoMQkAA/wAAAAECQEAAAAFdmFsdWUAAAABBQAAAApyZWdpc3RyYW50BQAAAAtpbnRlcmZhY2VJZAkABEwAAAACBQAAAApyZXN0TGFiZWxzBQAAAANuaWwFAAAAA25pbAMJAAABAAAAAgUAAAAHJG1hdGNoMQIAAAAGU3RyaW5nBAAAAAttYXlCZVN0cmluZwUAAAAHJG1hdGNoMQUAAAALbWF5QmVTdHJpbmcFAAAABHVuaXQFAAAABHVuaXQBAAAAGF9zdXBwb3J0ZWRJbnRlcmZhY2VBc0ludAAAAAMAAAAKcmVnaXN0cmFudAAAAAtpbnRlcmZhY2VJZAAAAApyZXN0TGFiZWxzBAAAAAckbWF0Y2gwCQAD/AAAAAQFAAAACnJlZ2lzdHJhbnQCAAAAEXN1cHBvcnRzSW50ZXJmYWNlCQAETAAAAAIFAAAAC2ludGVyZmFjZUlkBQAAAANuaWwFAAAAA25pbAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAHQm9vbGVhbgQAAAARc3VwcG9ydHNJbnRlcmZhY2UFAAAAByRtYXRjaDADCQEAAAABIQAAAAEFAAAAEXN1cHBvcnRzSW50ZXJmYWNlBQAAAAR1bml0BAAAAAckbWF0Y2gxCQAD/AAAAAQJAQAAAAV2YWx1ZQAAAAEFAAAACnJlZ2lzdHJhbnQFAAAAC2ludGVyZmFjZUlkCQAETAAAAAIFAAAACnJlc3RMYWJlbHMFAAAAA25pbAUAAAADbmlsAwkAAAEAAAACBQAAAAckbWF0Y2gxAgAAAANJbnQEAAAACG1heUJlSW50BQAAAAckbWF0Y2gxBQAAAAhtYXlCZUludAUAAAAEdW5pdAUAAAAEdW5pdAEAAAAJbW9kaWZpZXJzAAAAAQAAAAt2YWxpZGF0aW9ucwUAAAAEdW5pdAEAAAAJb25seUFkbWluAAAAAQAAAANpbnYDCQEAAAAHaXNBZG1pbgAAAAEFAAAAA2ludgUAAAAEdW5pdAkAAAIAAAABAgAAABFQZXJtaXNzaW9uIGRlbmllZAEAAAAJb25seU93bmVyAAAAAgAAAANpbnYAAAAEbm9kZQMDCQEAAAAHaXNBZG1pbgAAAAEFAAAAA2ludgYJAQAAAAdpc093bmVyAAAAAgUAAAADaW52BQAAAARub2RlBQAAAAR1bml0CQAAAgAAAAECAAAAEVBlcm1pc3Npb24gZGVuaWVkAQAAAAx2YWxpZEFkZHJlc3MAAAABAAAAB2FkZHJlc3MDCQEAAAAJaXNEZWZpbmVkAAAAAQkABCYAAAABBQAAAAdhZGRyZXNzBQAAAAR1bml0CQAAAgAAAAECAAAAGVRoZSBhZGRyZXNzIG11c3QgYmUgdmFsaWQAAAAHAAAAA2ludgEAAAAIc2V0T3duZXIAAAACAAAABG5vZGUAAAAFb3duZXIJAQAAAAt2YWx1ZU9yRWxzZQAAAAIJAQAAAAltb2RpZmllcnMAAAABCQAETAAAAAIJAQAAAAlvbmx5T3duZXIAAAACBQAAAANpbnYFAAAABG5vZGUJAARMAAAAAgkBAAAADHZhbGlkQWRkcmVzcwAAAAEFAAAABW93bmVyBQAAAANuaWwJAQAAAAlfc2V0T3duZXIAAAACBQAAAARub2RlBQAAAAVvd25lcgAAAANpbnYBAAAABW93bmVyAAAAAQAAAARub2RlCQAFFAAAAAIFAAAAA25pbAkBAAAACV9nZXRPd25lcgAAAAEFAAAABG5vZGUAAAADaW52AQAAAAtzZXRSZXNvbHZlcgAAAAIAAAAEbm9kZQAAAAhyZXNvbHZlcgkBAAAAC3ZhbHVlT3JFbHNlAAAAAgkBAAAACW1vZGlmaWVycwAAAAEJAARMAAAAAgkBAAAACW9ubHlPd25lcgAAAAIFAAAAA2ludgUAAAAEbm9kZQkABEwAAAACCQEAAAAMdmFsaWRBZGRyZXNzAAAAAQUAAAAIcmVzb2x2ZXIFAAAAA25pbAkBAAAADF9zZXRSZXNvbHZlcgAAAAIFAAAABG5vZGUFAAAACHJlc29sdmVyAAAAA2ludgEAAAAIcmVzb2x2ZXIAAAABAAAABG5vZGUJAAUUAAAAAgUAAAADbmlsCQEAAAAMX2dldFJlc29sdmVyAAAAAQUAAAAEbm9kZQAAAANpbnYBAAAAC25hbWVDcmVhdGVkAAAAAQAAAARub2RlCQAFFAAAAAIFAAAAA25pbAkBAAAADV9nZXRDcmVhdGVkQXQAAAABBQAAAARub2RlAAAAA2ludgEAAAAJc2V0UmVjb3JkAAAAAwAAAARub2RlAAAABW93bmVyAAAACHJlc29sdmVyCQEAAAALdmFsdWVPckVsc2UAAAACCQEAAAAJbW9kaWZpZXJzAAAAAQkABEwAAAACCQEAAAAJb25seUFkbWluAAAAAQUAAAADaW52BQAAAANuaWwJAAROAAAAAgkABE4AAAACCQEAAAAJX3NldE93bmVyAAAAAgUAAAAEbm9kZQUAAAAFb3duZXIJAQAAAAxfc2V0UmVzb2x2ZXIAAAACBQAAAARub2RlBQAAAAhyZXNvbHZlcgkBAAAADV9zZXRDcmVhdGVkQXQAAAACBQAAAARub2RlCAUAAAAJbGFzdEJsb2NrAAAACXRpbWVzdGFtcAAAAANpbnYBAAAABXdob0lzAAAAAQAAAARuYW1lCQEAAAALdmFsdWVPckVsc2UAAAACCQEAAAAJbW9kaWZpZXJzAAAAAQkABEwAAAACAwkAAGYAAAACCQABMQAAAAEFAAAABG5hbWUAAAAAAAAAAAAFAAAABHVuaXQJAAACAAAAAQIAAAAUTmFtZSBjYW5ub3QgYmUgZW1wdHkFAAAAA25pbAQAAAALJHQwNDYzMDQ2ODEJAQAAAA9fc3BsaXRMYXN0TGFiZWwAAAABBQAAAARuYW1lBAAAAAlsYXN0TGFiZWwIBQAAAAskdDA0NjMwNDY4MQAAAAJfMQQAAAAKcmVzdExhYmVscwgFAAAACyR0MDQ2MzA0NjgxAAAAAl8yBAAAABFyZWdpc3RyYW50QWRkcmVzcwkBAAAACV9nZXRPd25lcgAAAAEFAAAACWxhc3RMYWJlbAQAAAAKcmVnaXN0cmFudAQAAAAHJG1hdGNoMAUAAAARcmVnaXN0cmFudEFkZHJlc3MDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAAFb3duZXIFAAAAByRtYXRjaDAJAAQmAAAAAQUAAAAFb3duZXIFAAAABHVuaXQEAAAADnBhcmVudFJlc29sdmVyCQEAAAAMX2dldFJlc29sdmVyAAAAAQUAAAAJbGFzdExhYmVsBAAAAA1wYXJlbnRDcmVhdGVkCQEAAAANX2dldENyZWF0ZWRBdAAAAAEFAAAACWxhc3RMYWJlbAQAAAAFb3duZXIJAQAAABtfc3VwcG9ydGVkSW50ZXJmYWNlQXNTdHJpbmcAAAADCQEAAAAFdmFsdWUAAAABBQAAAApyZWdpc3RyYW50AgAAAAVvd25lcgUAAAAKcmVzdExhYmVscwQAAAAIcmVzb2x2ZXIJAQAAABtfc3VwcG9ydGVkSW50ZXJmYWNlQXNTdHJpbmcAAAADCQEAAAAFdmFsdWUAAAABBQAAAApyZWdpc3RyYW50AgAAAAhyZXNvbHZlcgUAAAAKcmVzdExhYmVscwQAAAALbmFtZUNyZWF0ZWQJAQAAABhfc3VwcG9ydGVkSW50ZXJmYWNlQXNJbnQAAAADCQEAAAAFdmFsdWUAAAABBQAAAApyZWdpc3RyYW50AgAAAAtuYW1lQ3JlYXRlZAUAAAAKcmVzdExhYmVscwQAAAALbmFtZUV4cGlyZXMJAQAAABhfc3VwcG9ydGVkSW50ZXJmYWNlQXNJbnQAAAADCQEAAAAFdmFsdWUAAAABBQAAAApyZWdpc3RyYW50AgAAAAtuYW1lRXhwaXJlcwUAAAAKcmVzdExhYmVscwQAAAAKaXNSb290TmFtZQMJAABmAAAAAgkAATEAAAABBQAAAAlsYXN0TGFiZWwAAAAAAAAAAAAJAAAAAAAAAgkAATEAAAABBQAAAApyZXN0TGFiZWxzAAAAAAAAAAAABwMDBQAAAAppc1Jvb3ROYW1lBgkBAAAAASEAAAABCQEAAAAJaXNEZWZpbmVkAAAAAQUAAAAKcmVnaXN0cmFudAkABRQAAAACBQAAAANuaWwJAAUWAAAABAUAAAARcmVnaXN0cmFudEFkZHJlc3MFAAAADnBhcmVudFJlc29sdmVyBQAAAA1wYXJlbnRDcmVhdGVkBQAAAAR1bml0CQAFFAAAAAIFAAAAA25pbAkABRYAAAAEBAAAAAckbWF0Y2gwBQAAAAVvd25lcgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAVvd25lcgUAAAAHJG1hdGNoMAUAAAAFb3duZXIFAAAAEXJlZ2lzdHJhbnRBZGRyZXNzBQAAAAhyZXNvbHZlcgQAAAAHJG1hdGNoMAUAAAALbmFtZUNyZWF0ZWQDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAALbmFtZUNyZWF0ZWQFAAAAByRtYXRjaDAFAAAAC25hbWVDcmVhdGVkBQAAAA1wYXJlbnRDcmVhdGVkBQAAAAtuYW1lRXhwaXJlcwAAAACYazCa",
    "height": 2273211,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 3bXXarVuUSHbqrTTkZYSMzuc2eEz3i8cqT8bdTSNwQt2
Next: C7dbVgEFPuRXVkvwwKsXg3onKyisN33eWkMS8TSuwL5k

Diff: 

OldNewDifferences
44 func getStringOrThrow (address,key) = valueOrErrorMessage(getString(address, key), ((("Can't read '" + key) + "' at address ") + toString(address)))
55 
66 
7+func getIntegerOrThrow (address,key) = valueOrErrorMessage(getInteger(address, key), ((("Can't read '" + key) + "' at address ") + toString(address)))
8+
9+
710 func parseAddressOrThrow (maybeAddress) = valueOrErrorMessage(addressFromString(maybeAddress), (("Can't parse address from '" + maybeAddress) + "'"))
811 
912 
10-let key_registry = "registry"
13+func key_entity (name,pk,property) = ((((name + "_") + pk) + "_") + property)
1114 
12-let registry = parseAddressOrThrow(getStringOrThrow(this, key_registry))
15+
16+func key_Name_owner (node) = key_entity("Name", node, "owner")
17+
18+
19+func key_Name_resolver (node) = key_entity("Name", node, "resolver")
20+
21+
22+func key_Name_createdAt (node) = key_entity("Name", node, "createdAt")
23+
24+
25+func _getOwner (node) = getString(this, key_Name_owner(node))
26+
27+
28+func _setOwner (node,owner) = [StringEntry(key_Name_owner(node), owner)]
29+
30+
31+func _getResolver (node) = getString(this, key_Name_resolver(node))
32+
33+
34+func _setResolver (node,resolver) = [StringEntry(key_Name_resolver(node), resolver)]
35+
36+
37+func _getCreatedAt (node) = getInteger(this, key_Name_createdAt(node))
38+
39+
40+func _setCreatedAt (node,createdAt) = [IntegerEntry(key_Name_createdAt(node), createdAt)]
41+
1342 
1443 func isAdmin (inv) = (inv.caller == this)
1544 
1645 
17-func modifiers (validations) = unit
18-
19-
20-func onlyAdmin (inv) = if (isAdmin(inv))
21-    then unit
22-    else throw("Permission denied")
46+func isOwner (inv,node) = (toString(inv.caller) == valueOrElse(_getOwner(node), ""))
2347 
2448 
2549 func _splitLastLabel (name) = {
3155     }
3256 
3357 
34-func _findResolver (name) = {
35-    let $t012401291 = _splitLastLabel(name)
36-    let lastLabel = $t012401291._1
37-    let restLabels = $t012401291._2
38-    if ((size(restLabels) == 0))
39-        then $Tuple2(unit, name)
40-        else         match invoke(registry, "resolver", [lastLabel], nil) {
41-            case resolverAddress: String => 
42-                $Tuple2(addressFromString(resolverAddress), restLabels)
43-            case _ => 
44-                $Tuple2(unit, name)
45-        }
46-    }
58+func _supportedInterfaceAsString (registrant,interfaceId,restLabels) = match invoke(registrant, "supportsInterface", [interfaceId], nil) {
59+    case supportsInterface: Boolean => 
60+        if (!(supportsInterface))
61+            then unit
62+            else             match invoke(value(registrant), interfaceId, [restLabels], nil) {
63+                case mayBeString: String => 
64+                    mayBeString
65+                case _ => 
66+                    unit
67+            }
68+    case _ => 
69+        unit
70+}
71+
72+
73+func _supportedInterfaceAsInt (registrant,interfaceId,restLabels) = match invoke(registrant, "supportsInterface", [interfaceId], nil) {
74+    case supportsInterface: Boolean => 
75+        if (!(supportsInterface))
76+            then unit
77+            else             match invoke(value(registrant), interfaceId, [restLabels], nil) {
78+                case mayBeInt: Int => 
79+                    mayBeInt
80+                case _ => 
81+                    unit
82+            }
83+    case _ => 
84+        unit
85+}
86+
87+
88+func modifiers (validations) = unit
89+
90+
91+func onlyAdmin (inv) = if (isAdmin(inv))
92+    then unit
93+    else throw("Permission denied")
94+
95+
96+func onlyOwner (inv,node) = if (if (isAdmin(inv))
97+    then true
98+    else isOwner(inv, node))
99+    then unit
100+    else throw("Permission denied")
101+
102+
103+func validAddress (address) = if (isDefined(addressFromString(address)))
104+    then unit
105+    else throw("The address must be valid")
47106 
48107 
49108 @Callable(inv)
50-func init (registryAddress) = valueOrElse(modifiers([onlyAdmin(inv)]), [StringEntry(key_registry, registryAddress)])
109+func setOwner (node,owner) = valueOrElse(modifiers([onlyOwner(inv, node), validAddress(owner)]), _setOwner(node, owner))
51110 
52111 
53112 
54113 @Callable(inv)
55-func resolve (name,callData) = valueOrElse(modifiers([if ((size(name) > 0))
114+func owner (node) = $Tuple2(nil, _getOwner(node))
115+
116+
117+
118+@Callable(inv)
119+func setResolver (node,resolver) = valueOrElse(modifiers([onlyOwner(inv, node), validAddress(resolver)]), _setResolver(node, resolver))
120+
121+
122+
123+@Callable(inv)
124+func resolver (node) = $Tuple2(nil, _getResolver(node))
125+
126+
127+
128+@Callable(inv)
129+func nameCreated (node) = $Tuple2(nil, _getCreatedAt(node))
130+
131+
132+
133+@Callable(inv)
134+func setRecord (node,owner,resolver) = valueOrElse(modifiers([onlyAdmin(inv)]), ((_setOwner(node, owner) ++ _setResolver(node, resolver)) ++ _setCreatedAt(node, lastBlock.timestamp)))
135+
136+
137+
138+@Callable(inv)
139+func whoIs (name) = valueOrElse(modifiers([if ((size(name) > 0))
56140     then unit
57-    else throw("Name cannot be empty"), if ((size(callData) > 0))
58-    then unit
59-    else throw("Call data cannot be empty")]), {
60-    let $t020132061 = _findResolver(name)
61-    let resolver = $t020132061._1
62-    let restLabels = $t020132061._2
63-    let $t020672205 =     match callData {
141+    else throw("Name cannot be empty")]), {
142+    let $t046304681 = _splitLastLabel(name)
143+    let lastLabel = $t046304681._1
144+    let restLabels = $t046304681._2
145+    let registrantAddress = _getOwner(lastLabel)
146+    let registrant =     match registrantAddress {
147+        case owner: String => 
148+            addressFromString(owner)
64149         case _ => 
65-            if (("addr" == $match0))
66-                then $Tuple2("addr", [value(restLabels)])
67-                else $Tuple2(unit, unit)
150+            unit
68151     }
69-    let callFunction = $t020672205._1
70-    let callArgs = $t020672205._2
71-    let supportsInterface = if (!(isDefined(resolver)))
72-        then false
73-        else         match invoke(value(resolver), "supportsInterface", [callData], nil) {
74-            case supportsInterface: Boolean => 
75-                supportsInterface
152+    let parentResolver = _getResolver(lastLabel)
153+    let parentCreated = _getCreatedAt(lastLabel)
154+    let owner = _supportedInterfaceAsString(value(registrant), "owner", restLabels)
155+    let resolver = _supportedInterfaceAsString(value(registrant), "resolver", restLabels)
156+    let nameCreated = _supportedInterfaceAsInt(value(registrant), "nameCreated", restLabels)
157+    let nameExpires = _supportedInterfaceAsInt(value(registrant), "nameExpires", restLabels)
158+    let isRootName = if ((size(lastLabel) > 0))
159+        then (size(restLabels) == 0)
160+        else false
161+    if (if (isRootName)
162+        then true
163+        else !(isDefined(registrant)))
164+        then $Tuple2(nil, $Tuple4(registrantAddress, parentResolver, parentCreated, unit))
165+        else $Tuple2(nil, $Tuple4(        match owner {
166+            case owner: String => 
167+                owner
76168             case _ => 
77-                false
78-        }
79-    $Tuple2(nil, if (!(supportsInterface))
80-        then unit
81-        else         match invoke(value(resolver), value(callFunction), value(callArgs), nil) {
82-            case callbackData: String => 
83-                callbackData
169+                registrantAddress
170+        }, resolver,         match nameCreated {
171+            case nameCreated: Int => 
172+                nameCreated
84173             case _ => 
85-                unit
86-        })
174+                parentCreated
175+        }, nameExpires))
87176     })
88177 
89178 

Full: 

OldNewDifferences
11 {-# STDLIB_VERSION 5 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
44 func getStringOrThrow (address,key) = valueOrErrorMessage(getString(address, key), ((("Can't read '" + key) + "' at address ") + toString(address)))
55 
66 
7+func getIntegerOrThrow (address,key) = valueOrErrorMessage(getInteger(address, key), ((("Can't read '" + key) + "' at address ") + toString(address)))
8+
9+
710 func parseAddressOrThrow (maybeAddress) = valueOrErrorMessage(addressFromString(maybeAddress), (("Can't parse address from '" + maybeAddress) + "'"))
811 
912 
10-let key_registry = "registry"
13+func key_entity (name,pk,property) = ((((name + "_") + pk) + "_") + property)
1114 
12-let registry = parseAddressOrThrow(getStringOrThrow(this, key_registry))
15+
16+func key_Name_owner (node) = key_entity("Name", node, "owner")
17+
18+
19+func key_Name_resolver (node) = key_entity("Name", node, "resolver")
20+
21+
22+func key_Name_createdAt (node) = key_entity("Name", node, "createdAt")
23+
24+
25+func _getOwner (node) = getString(this, key_Name_owner(node))
26+
27+
28+func _setOwner (node,owner) = [StringEntry(key_Name_owner(node), owner)]
29+
30+
31+func _getResolver (node) = getString(this, key_Name_resolver(node))
32+
33+
34+func _setResolver (node,resolver) = [StringEntry(key_Name_resolver(node), resolver)]
35+
36+
37+func _getCreatedAt (node) = getInteger(this, key_Name_createdAt(node))
38+
39+
40+func _setCreatedAt (node,createdAt) = [IntegerEntry(key_Name_createdAt(node), createdAt)]
41+
1342 
1443 func isAdmin (inv) = (inv.caller == this)
1544 
1645 
17-func modifiers (validations) = unit
18-
19-
20-func onlyAdmin (inv) = if (isAdmin(inv))
21-    then unit
22-    else throw("Permission denied")
46+func isOwner (inv,node) = (toString(inv.caller) == valueOrElse(_getOwner(node), ""))
2347 
2448 
2549 func _splitLastLabel (name) = {
2650     let labels = split(name, ".")
2751     let lastIndex = (size(labels) - 1)
2852     let lastLabel = labels[lastIndex]
2953     let restLabels = makeString(removeByIndex(labels, lastIndex), ".")
3054     $Tuple2(lastLabel, restLabels)
3155     }
3256 
3357 
34-func _findResolver (name) = {
35-    let $t012401291 = _splitLastLabel(name)
36-    let lastLabel = $t012401291._1
37-    let restLabels = $t012401291._2
38-    if ((size(restLabels) == 0))
39-        then $Tuple2(unit, name)
40-        else         match invoke(registry, "resolver", [lastLabel], nil) {
41-            case resolverAddress: String => 
42-                $Tuple2(addressFromString(resolverAddress), restLabels)
43-            case _ => 
44-                $Tuple2(unit, name)
45-        }
46-    }
58+func _supportedInterfaceAsString (registrant,interfaceId,restLabels) = match invoke(registrant, "supportsInterface", [interfaceId], nil) {
59+    case supportsInterface: Boolean => 
60+        if (!(supportsInterface))
61+            then unit
62+            else             match invoke(value(registrant), interfaceId, [restLabels], nil) {
63+                case mayBeString: String => 
64+                    mayBeString
65+                case _ => 
66+                    unit
67+            }
68+    case _ => 
69+        unit
70+}
71+
72+
73+func _supportedInterfaceAsInt (registrant,interfaceId,restLabels) = match invoke(registrant, "supportsInterface", [interfaceId], nil) {
74+    case supportsInterface: Boolean => 
75+        if (!(supportsInterface))
76+            then unit
77+            else             match invoke(value(registrant), interfaceId, [restLabels], nil) {
78+                case mayBeInt: Int => 
79+                    mayBeInt
80+                case _ => 
81+                    unit
82+            }
83+    case _ => 
84+        unit
85+}
86+
87+
88+func modifiers (validations) = unit
89+
90+
91+func onlyAdmin (inv) = if (isAdmin(inv))
92+    then unit
93+    else throw("Permission denied")
94+
95+
96+func onlyOwner (inv,node) = if (if (isAdmin(inv))
97+    then true
98+    else isOwner(inv, node))
99+    then unit
100+    else throw("Permission denied")
101+
102+
103+func validAddress (address) = if (isDefined(addressFromString(address)))
104+    then unit
105+    else throw("The address must be valid")
47106 
48107 
49108 @Callable(inv)
50-func init (registryAddress) = valueOrElse(modifiers([onlyAdmin(inv)]), [StringEntry(key_registry, registryAddress)])
109+func setOwner (node,owner) = valueOrElse(modifiers([onlyOwner(inv, node), validAddress(owner)]), _setOwner(node, owner))
51110 
52111 
53112 
54113 @Callable(inv)
55-func resolve (name,callData) = valueOrElse(modifiers([if ((size(name) > 0))
114+func owner (node) = $Tuple2(nil, _getOwner(node))
115+
116+
117+
118+@Callable(inv)
119+func setResolver (node,resolver) = valueOrElse(modifiers([onlyOwner(inv, node), validAddress(resolver)]), _setResolver(node, resolver))
120+
121+
122+
123+@Callable(inv)
124+func resolver (node) = $Tuple2(nil, _getResolver(node))
125+
126+
127+
128+@Callable(inv)
129+func nameCreated (node) = $Tuple2(nil, _getCreatedAt(node))
130+
131+
132+
133+@Callable(inv)
134+func setRecord (node,owner,resolver) = valueOrElse(modifiers([onlyAdmin(inv)]), ((_setOwner(node, owner) ++ _setResolver(node, resolver)) ++ _setCreatedAt(node, lastBlock.timestamp)))
135+
136+
137+
138+@Callable(inv)
139+func whoIs (name) = valueOrElse(modifiers([if ((size(name) > 0))
56140     then unit
57-    else throw("Name cannot be empty"), if ((size(callData) > 0))
58-    then unit
59-    else throw("Call data cannot be empty")]), {
60-    let $t020132061 = _findResolver(name)
61-    let resolver = $t020132061._1
62-    let restLabels = $t020132061._2
63-    let $t020672205 =     match callData {
141+    else throw("Name cannot be empty")]), {
142+    let $t046304681 = _splitLastLabel(name)
143+    let lastLabel = $t046304681._1
144+    let restLabels = $t046304681._2
145+    let registrantAddress = _getOwner(lastLabel)
146+    let registrant =     match registrantAddress {
147+        case owner: String => 
148+            addressFromString(owner)
64149         case _ => 
65-            if (("addr" == $match0))
66-                then $Tuple2("addr", [value(restLabels)])
67-                else $Tuple2(unit, unit)
150+            unit
68151     }
69-    let callFunction = $t020672205._1
70-    let callArgs = $t020672205._2
71-    let supportsInterface = if (!(isDefined(resolver)))
72-        then false
73-        else         match invoke(value(resolver), "supportsInterface", [callData], nil) {
74-            case supportsInterface: Boolean => 
75-                supportsInterface
152+    let parentResolver = _getResolver(lastLabel)
153+    let parentCreated = _getCreatedAt(lastLabel)
154+    let owner = _supportedInterfaceAsString(value(registrant), "owner", restLabels)
155+    let resolver = _supportedInterfaceAsString(value(registrant), "resolver", restLabels)
156+    let nameCreated = _supportedInterfaceAsInt(value(registrant), "nameCreated", restLabels)
157+    let nameExpires = _supportedInterfaceAsInt(value(registrant), "nameExpires", restLabels)
158+    let isRootName = if ((size(lastLabel) > 0))
159+        then (size(restLabels) == 0)
160+        else false
161+    if (if (isRootName)
162+        then true
163+        else !(isDefined(registrant)))
164+        then $Tuple2(nil, $Tuple4(registrantAddress, parentResolver, parentCreated, unit))
165+        else $Tuple2(nil, $Tuple4(        match owner {
166+            case owner: String => 
167+                owner
76168             case _ => 
77-                false
78-        }
79-    $Tuple2(nil, if (!(supportsInterface))
80-        then unit
81-        else         match invoke(value(resolver), value(callFunction), value(callArgs), nil) {
82-            case callbackData: String => 
83-                callbackData
169+                registrantAddress
170+        }, resolver,         match nameCreated {
171+            case nameCreated: Int => 
172+                nameCreated
84173             case _ => 
85-                unit
86-        })
174+                parentCreated
175+        }, nameExpires))
87176     })
88177 
89178 
github/deemru/w8io/169f3d6 
46.68 ms ◑