BCD

Tezos Contract Explorer
Search Networks Deploy
  • Home
  • /
  • Mainnet
  • /
  • Tezos Domains TLDRegistrar Bid
operations (71.5K)Storage Code Interact Tokens Metadata Fork Statistics Details
Latest
​x
43
 
1
parameter (or (pair %bid (bytes %label) (mutez %bid))
2
              (lambda %proxy_admin_update
3
                (pair (pair (address %contract) (big_map %metadata string bytes))
4
                      (address %owner))
5
                (pair (list operation)
6
                      (pair (pair (address %contract) (big_map %metadata string bytes))
7
                            (address %owner)))));
8
storage (pair (pair (address %contract) (big_map %metadata string bytes))
9
              (address %owner));
10
code { UNPAIR ;
11
       IF_LEFT
12
         { SWAP ;
13
           DUP ;
14
           CAR ;
15
           CAR ;
16
           DIG 2 ;
17
           PACK ;
18
           PUSH string "Bid" ;
19
           DIG 2 ;
20
           CONTRACT %execute (pair (string %action_name)
21
                                   (pair (bytes %payload) (address %original_sender))) ;
22
           IF_NONE
23
             { DROP 2 ; PUSH string "INVALID_CONTRACT" ; FAILWITH }
24
             { SENDER ;
25
               DIG 3 ;
26
               PAIR ;
27
               DIG 2 ;
28
               PAIR ;
29
               NIL operation ;
30
               DIG 2 ;
31
               AMOUNT ;
32
               DIG 3 ;
33
               TRANSFER_TOKENS ;
34
               CONS } ;
35
           PAIR }
36
         { SWAP ;
37
           DUP ;
38
           DUG 2 ;
39
           CDR ;
40
           SENDER ;
41
           COMPARE ;
42
           EQ ;
43
           IF { SWAP ; EXEC } { DROP 2 ; PUSH string "NOT_AUTHORIZED" ; FAILWITH } } }