Fail if any plutus spending script witnesses are present

Author: Jimbo4350

cardano-cli/src/Cardano/CLI/EraBased/Transaction/Run.hs

@@ -1071,6 +1071,8 @@ runTxBuild
             proposals
             mCurrentTreasuryValueAndDonation
 
+      failIfPlutusPresent txBodyContent
+
       firstExceptT TxCmdTxInsDoNotExist
         . hoistEither
         $ txInsExistInUTxO allTxInputs txEraUtxo
@@ -1115,6 +1117,13 @@ runTxBuild
 
       return r
 
+failIfPlutusPresent :: Monad m => Exp.TxBodyContent era -> m ()
+failIfPlutusPresent txbodycontent =
+  let ins = [w | (_, w) <- Exp.txIns txbodycontent]
+   in if null $ mapMaybe Exp.getAnyWitnessPlutusLanguage ins
+        then return ()
+        else error $ "TxBodyContent:" <> show ins
+
 -- ----------------------------------------------------------------------------
 -- Transaction body validation and conversion
 --