fix: use dao auth instead of deployer

contracts/dao/extensions/aibtcdev-bank-account.clar

@@ -27,33 +27,43 @@
 ;; public functions
 ;;
 
+(define-public (is-dao-or-extension)
+  (ok (asserts! (or (is-eq tx-sender .aibtcdev-dao)
+    (contract-call? .aibtcdev-dao is-extension contract-caller)) ERR_UNAUTHORIZED
+  ))
+)
+
+(define-public (callback (sender principal) (memo (buff 34)))
+  (ok true)
+)
+
 (define-public (set-account-holder (new principal))
   (begin
-    (try! (is-deployer))
+    (try! (is-dao-or-extension))
     (asserts! (not (is-eq (var-get accountHolder) new)) ERR_INVALID)
     (ok (var-set accountHolder new))
   )
 )
 
 (define-public (set-withdrawal-period (period uint))
   (begin
-    (try! (is-deployer))
+    (try! (is-dao-or-extension))
     (asserts! (> period u0) ERR_INVALID)
     (ok (var-set withdrawalPeriod period))
   )
 )
 
 (define-public (set-withdrawal-amount (amount uint))
   (begin
-    (try! (is-deployer))
+    (try! (is-dao-or-extension))
     (asserts! (> amount u0) ERR_INVALID)
     (ok (var-set withdrawalAmount amount))
   )
 )
 
 (define-public (override-last-withdrawal-block (block uint))
   (begin
-    (try! (is-deployer))
+    (try! (is-dao-or-extension))
     (asserts! (> block u0) ERR_INVALID)
     (ok (var-set lastWithdrawalBlock block))
   )
@@ -95,16 +105,16 @@
   )
 )
 
-(define-public (callback (sender principal) (memo (buff 34)))
-  (ok true)
-)
-
 ;; read only functions
 ;;
 (define-read-only (get-account-balance)
   (stx-get-balance SELF)
 )
 
+(define-read-only (get-account-holder)
+  (var-get accountHolder)
+)
+
 (define-read-only (get-withdrawal-period)
   (var-get withdrawalPeriod)
 )
@@ -119,9 +129,10 @@
 
 (define-read-only (get-all-vars)
   {
-    withdrawalPeriod: (var-get withdrawalPeriod),
+    accountHolder: (var-get accountHolder),
+    lastWithdrawalBlock: (var-get lastWithdrawalBlock),
     withdrawalAmount: (var-get withdrawalAmount),
-    lastWithdrawalBlock: (var-get lastWithdrawalBlock)
+    withdrawalPeriod: (var-get withdrawalPeriod),
   }
 )