Dave Barach | d7a37a7 | 2018-08-10 16:22:48 -0400 | [diff] [blame] | 1 | ;;; plugin-setup-skel.el - debug CLI + pg setup |
| 2 | ;;; |
| 3 | ;;; Copyright (c) 2018 Cisco and/or its affiliates. |
| 4 | ;;; Licensed under the Apache License, Version 2.0 (the "License"); |
| 5 | ;;; you may not use this file except in compliance with the License. |
| 6 | ;;; You may obtain a copy of the License at: |
| 7 | ;;; |
| 8 | ;;; http://www.apache.org/licenses/LICENSE-2.0 |
| 9 | ;;; |
| 10 | ;;; Unless required by applicable law or agreed to in writing, software |
| 11 | ;;; distributed under the License is distributed on an "AS IS" BASIS, |
| 12 | ;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. |
| 13 | ;;; See the License for the specific language governing permissions and |
| 14 | ;;; limitations under the License. |
| 15 | |
| 16 | (require 'skeleton) |
| 17 | |
| 18 | (define-skeleton skel-plugin-setup |
| 19 | "Insert a debug cli / pg skeleton " |
| 20 | nil |
| 21 | '(if (not (boundp 'plugin-name)) |
| 22 | (setq plugin-name (read-string "Plugin name: "))) |
| 23 | '(setq PLUGIN-NAME (upcase plugin-name)) |
| 24 | '(setq capital-oh-en "ON") |
| 25 | " |
| 26 | comment { simple debug CLI setup script w/ packet generator test vector } |
| 27 | set term page off |
| 28 | loop create |
| 29 | set int ip address loop0 192.168.1.1/24 |
| 30 | set int state loop0 up |
| 31 | |
| 32 | comment { Packet generator script. Src MAC 00:de:ad:be:ef:01 } |
| 33 | comment { Dst mac 01:ba:db:ab:be:01 ethtype 0800 } |
| 34 | packet-generator new { |
| 35 | name simple |
| 36 | limit 1 |
| 37 | size 128-128 |
| 38 | interface loop0 |
| 39 | node " plugin-name " |
| 40 | data { |
| 41 | hex 0x00deadbeef0001badbabbe010800 |
| 42 | incrementing 30 |
| 43 | } |
| 44 | } |
| 45 | ") |