diff --git a/json/json_create_sta2.sh b/json/json_create_sta2.sh new file mode 100755 index 00000000..348600e6 --- /dev/null +++ b/json/json_create_sta2.sh @@ -0,0 +1,54 @@ +#!/bin/bash +unset proxy +unset http_proxy +set -x +set -e +ajson_h="Accept: application/json" +cjson_h="Content-type: application/json" + +echo 'shelf=1&resource=8&port=sta8853' > /tmp/curl_data +curl -sqv -H "$ajson_h" -X POST -d '@/tmp/curl_data' http://localhost:8080/cli-form/rm_vlan ||: +echo 'shelf=1&resource=8&port=sta3' > /tmp/curl_data +curl -sqv -H "$ajson_h" -X POST -d '@/tmp/curl_data' http://localhost:8080/cli-form/rm_vlan ||: +sleep 2 +echo 'shelf=1&resource=8&radio=wiphy8&sta_name=sta8853&flags=0x400&ssid=WiSST-Dev01-5.8&key=87654321&mac=xx:xx:xx:xx:*:xx' > /tmp/curl_data +curl -sqv -H 'Accept: application/json' -X POST -d '@/tmp/curl_data' http://localhost:8080/cli-form/add_sta ||: +sleep 3 +curl -sqv -H "$ajson_h" -X GET -o /tmp/response http://localhost:8080/port/1/8/sta8853 +if [ -s /tmp/response ]; then + json_pp < /tmp/response +fi +exit + +echo 'shelf=1&resource=3&port=sta3100' > /tmp/curl_data +curl -sqv -H "$ajson_h" -X POST -d '@/tmp/curl_data' http://localhost:8080/cli-form/rm_vlan + +sleep 1 +echo 'shelf=1&resource=3&radio=wiphy1&sta_name=sta3100&flags=1024&ssid=idtest-1100-wpa2&nickname=sta3100&key=idtest-1100-wpa2&mac=XX:XX:XX:XX:*:XX&flags_mask=1024' > /tmp/curl_data +curl -sqv -H "$ajson_h" -X POST -d '@/tmp/curl_data' http://localhost:8080/cli-form/add_sta + + +sleep 1 +rm -f /tmp/response +curl -sqv -H "$ajson_h" -X GET -o /tmp/response http://localhost:8080/port/1/3/sta3100 +if [ -s /tmp/response ]; then + json_pp < /tmp/response +fi + +sleep 2 +echo '{"shelf":1,"resource":3,"port":"sta3100"}' > /tmp/curl_data +curl -sqv -H "$ajson_h" -H "$cjson_h" -X POST -d '@/tmp/curl_data' http://localhost:8080/cli-json/rm_vlan + +sleep 2 +echo '{"shelf":1,"resource":3,"radio":"wiphy1","sta_name":"sta3100","flags":1024,"ssid":idtest-1100-wpa2","nickname":"sta3100","key":"idtest-1100-wpa2","mac":"XX:XX:XX:XX:*:XX","flags_mask":1024}' > /tmp/curl_data +curl -sqv -H "$ajson_h" -H "$cjson_h" -X POST -d '@/tmp/curl_data' http://localhost:8080/cli-json/add_sta + +sleep 1 +rm -f /tmp/response +curl -sqv -H "$ajson_h" -X GET -o /tmp/response http://localhost:8080/port/1/3/sta3100 +if [ -s /tmp/response ]; then + json_pp < /tmp/response +fi + + +# diff --git a/json/json_port_test.sh b/json/json_port_test.sh new file mode 100755 index 00000000..9771e23a --- /dev/null +++ b/json/json_port_test.sh @@ -0,0 +1,252 @@ +#!/bin/bash +set -e +unset proxy +unset http_proxy +Q='"' +q="'" +S='*' +application_json="application/json" +accept_json="Accept: $application_json" +accept_html='Accept: text/html' +accept_text='Accept: text/plain' +#accept_any="'Accept: */*'" # just dont use +content_plain='Content-Type: text/plain' +content_json="Content-Type: $application_json" +switches='-sqv' +function Kurl() { + echo ======================================================================================= + echo curl $switches $@ + echo ======================================================================================= + #set -x + curl $switches "$@" + #set +x + echo "" + echo ======================================================================================= +} +function Jurl() { + echo =J===================================================================================== + echo curl $switches -H "$accept_json" -H "$content_json" "$@" + echo =J===================================================================================== + set -x + curl $switches -H "$accept_json" -H "$content_json" "$@" + set +x + echo "" + echo =J===================================================================================== +} + +url="http://localhost:8080" + +if true; then + #echo 'shelf=1&resource=3&port=sta3000&mac=xx:xx:xx:xx:xx:*' > /tmp/curl_data + echo '{"shelf":1,"resource":1,"port":"eth3","current_flags":1, "interest":2}' > /tmp/curl_data + Jurl -X POST -d '@/tmp/curl_data' "http://localhost:8080/cli-json/set_port" +fi + + + +exit + + + + + +if false; then + Kurl $acept_json $url/resource/1/list + echo 'shelf=1&resource=3&port=sta3000&mac=xx:xx:xx:xx:xx:*' > /tmp/curl_data + curl -sqv -H 'Accept: application/json' -X POST -d '@/tmp/curl_data' http://localhost:8080/cli-form/set_port + + url="http://localhost:8080/cli" + echo 'cmd=scan_wifi+1+3+sta30000' > /tmp/curl_data + Kurl -X POST -d '@/tmp/curl_data' -H "$accept_json" "$url" + +# this is not supported +# url="http://localhost:8080/cli/scan_wifi" +# echo '1+3+sta30000' > /tmp/curl_data +# Kurl -X POST -d '@/tmp/curl_data' -H "$accept_json" "$url" + + + #Kurl -X GET "$url/help/set_wifi_radio?cli=1%203%20wiphy1%20NA%20-1%20NA%20NA%20NA%20NA%20NA%20NA%20NA%20NA%200x1%20NA" + #CMD: set_wifi_radio 1 3 wiphy1 NA -1 NA NA NA NA NA NA NA NA 0x1 NA + echo "shelf=1&resource=3&radio=wiphy1&channel=-1&antenna=3x3&flags=0x10" > /tmp/curl_data + Kurl -H "$accept_json" -X POST -d "@/tmp/curl_data" "$url/cli-form/set_wifi_radio" + + #CMD: add_sta 1 3 wiphy1 sta3000 0 idtest-1000-open NA [BLANK] AUTO NA 00:0e:8e:98:64:45 8 NA NA NA NA NA 0 + echo "shelf=1&resource=3&radio=wiphy1&sta_name=sta3000&flags=0&ssid=idtest-1000-open&key=[BLANK]&ap=AUTO&mac=00:0e:8e:98:64:45&mode=8&flags_mask=0" > /tmp/curl_data + Kurl -H "$accept_json" -X POST -d "@/tmp/curl_data" "$url/cli-form/add_sta" + + #CMD: set_port 1 3 sta3000 0.0.0.0 255.255.0.0 0.0.0.0 NA 2147483648 00:0e:8e:98:64:45 NA NA NA 8405038 1000 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NONE + echo 'shelf=&resource=1&port=3&ip_addr=sta3000&netmask=0.0.0.0&gateway=255.255.0.0&cmd_flags=0.0.0.0&mac=2147483648&mtu=00:0e:8e:98:64:45&report_timer=8405038&flags2=1000&ipv6_dflt_gw=N&bypass_wdt=A' > /tmp/curl_data + Kurl -H "$accept_json" -X POST -d "@/tmp/curl_data" "$url/cli-form/set_port" + echo -n "shelf=1&resource=3&radio=wiphy1&mode=NA&channel=-1&country=NA&frequency=NA&frag_thresh=NA" > /tmp/curl_data + echo -n "&rate=NA&rts=NA&txpower=NA&mac=NA&antenna=NA&flags=1&flags_mask=1&const_tx=NA" >> /tmp/curl_data + echo -n "&pulse_width=NA&pulse_interval=NA&vdev_count=NA&peer_count=NA&stations_count=NA" >> /tmp/curl_data + echo -n "&rate_ctrl_count=NA&fwname=NA&fwver=NA&txdesc_count=NA&tids_count=NA&skid_limit=NA" >> /tmp/curl_data + echo -n "&active_peer_count=NA&tx_pulses=NA&pulse2_interval_us=NA&max_amsdu=NA&pref_ap=NA" >> /tmp/curl_data + Kurl -X GET -d "@/tmp/curl_data" $url/help/set_wifi_radio + + echo -n "http://cholla:8080/help/set_wifi_radio?" + echo -n "shelf=1&resource=3&radio=wiphy1&mac=02:04:05:06:07:11&flags=1&flags_mask=1" + +# -1=auto or -1=ANY +#CMD: set_wifi_radio 1 3 wiphy1 NA -1 NA NA NA NA NA NA NA NA 0x1 NA + echo -n "shelf=1&resource=3&radio=NA&mode=NA&channel=NA&country=NA&frequency=NA&frag_thresh=NA" > /tmp/curl_data + echo -n "&rate=NA&rts=NA&txpower=NA&mac=NA&antenna=NA&flags=NA&flags_mask=NA&const_tx=NA" >> /tmp/curl_data + echo -n "&pulse_width=NA&pulse_interval=NA&vdev_count=NA&peer_count=NA&stations_count=NA" >> /tmp/curl_data + echo -n "&rate_ctrl_count=NA&fwname=NA&fwver=NA&txdesc_count=NA&tids_count=NA&skid_limit=NA" >> /tmp/curl_data + echo -n "&active_peer_count=NA&tx_pulses=NA&pulse2_interval_us=NA&max_amsdu=NA&pref_ap=NA" >> /tmp/curl_data + url="http://localhost:8080/cli-form/set_wifi_radio" + Kurl -X POST -d "@/tmp/curl_data" $url +#CMD: add_sta 1 3 wiphy1 sta3000 0 idtest-1000-open NA [BLANK] AUTO NA 00:0e:8e:98:64:45 8 NA NA NA NA NA 0 +#CMD: set_port 1 3 sta3000 0.0.0.0 255.255.0.0 0.0.0.0 NA 2147483648 00:0e:8e:98:64:45 NA NA NA 8405038 1000 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NONE + + # help demo + url="http://localhost:8080/cli-form/add_vsta" + Kurl -X POST -d 'help=1' -H "$accept_json" "$url" + Kurl -X POST -d 'help=?' -H "$accept_json" "$url" + Kurl -X POST -d 'help=%63' -H "$accept_json" "$url" + #$::resource, $::sta_wiphy, $sta_name, "$flags", "$::ssid", "$::passphrase", $mac_addr, "$flagsmask", $wifi_m, $::bssid); + url="http://localhost:8080/cli-form/add_vsta" + echo 'shelf=1&resource=3&sta_wiphy=&sta_name=&flags=&ssid=&passphrase=&flagsmask=&wifi_m=&bssid=' > /tmp/curl_data + Kurl -X POST -d '@/tmp/curl_data' -H "$accept_json" "$url" + + url="http://localhost:8080/cli-form/add_sta" + echo 'shelf=1&resource=3&sta_wiphy=&sta_name=&flags=&ssid=&passphrase=&flagsmask=&wifi_m=&bssid=' > /tmp/curl_data + Kurl -X POST -d '@/tmp/curl_data' -H "$accept_json" "$url" + + #fmt_port_cmd($resource, $sta_name, $ip_addr, $mac_addr); + url="http://localhost:8080/cli-form/set_port" + echo 'shelf=1&resource=3&port=&ip_addr=&mac=' > /tmp/curl_data + Kurl -X POST -d '@/tmp/curl_data' -H "$accept_json" "$url" + + #if ($::admin_down_on_add) { + # my $cur_flags = 0x1; # port down + # my $ist_flags = 0x800000; # port down + # $sta1_cmd = fmt_cmd("set_port", 1, $resource, $sta_name, "NA", + # "NA", "NA", "NA", "$cur_flags", + # "NA", "NA", "NA", "NA", "$ist_flags"); + # 3doCmd($sta1_cmd); + #} + + echo 'cmd=set_port_alias&shelf=1&resource=2&port=sta333&vport=NA&alias=bob33' > /tmp/curl_data + Kurl -X POST --data "@/tmp/curl_data" -H "$accept_json" -H "$content_plain" "$url" + sleep 5 + echo 'cmd=set_port_alias&shelf=1&resource=2&port=sta333&vport=NA&alias=bob33' > /tmp/curl_data + Kurl -X POST --data "@/tmp/curl_data" -H "$accept_json" -H "$content_json" "$url" + + echo 'shelf=1&resource=3&port=12&vport=NA&alias-64=Ym9iMzMK' > /tmp/curl_data + Kurl -X POST --data "@/tmp/curl_data" -H "$accept_json" "$url" + + echo 'shelf=1&resource=3&port=12&vport=NA&alias=bob+33' > /tmp/curl_data + Kurl -X POST --data "@/tmp/curl_data" -H "$accept_json" "$url" + + url="http://localhost:8080/cli-form/" + Kurl -X POST -d 'cmd=gossip&message=hi+there' -H "$accept_json" "$url" + + url="http://localhost:8080/cli-form/scan_wifi" + echo 'shelf=1&resource=3&port=sta30000' > /tmp/curl_data + Kurl -X POST -d '@/tmp/curl_data' -H "$accept_json" "$url" + + # the protocol command can only send back errors + # udp--2.b2000-03.sta30000 + #url="http://localhost:8080/cli-form/getMAC" + #echo 'CX=udp--2.b2000-03.sta30000&AorB=A' > /tmp/curl_data + #Kurl -X POST --data "@/tmp/curl_data" -H "$accept_json" "$url" + +fi + +echo "" +echo "END" + +exit +echo ======================================================================================= +url="http://localhost:8080/port/1/2/2" + +Kurl -X GET $url +Kurl -X HEAD $url +Kurl -X PUT $url +Kurl -X DELETE $url + + + +port_fields=( + "Crypt" + "Beacon" + "MAC" + "QLEN" + "Misc" + "Phantom" + "TX Pkts" + "Login-Fail" + "IPv6 Gateway" + "Logout-OK" + "CX Time (us)" + "Connections" + "Mask" + "No CX (us)" + "Channel" + "RX Bytes" + "bps RX" + "TX Errors" + "RX-Rate" + "ANQP Time (us)" + "RX Miss" + "Bytes TX LL" + "SSID" + "TX Fifo" + "DHCP (ms)" + "Retry" + "Port" + "Bytes RX LL" + "RX Errors" + "4Way Time (us)" + "Logout-Fail" + "Pps RX" + "MTU" + "AP" + "RX Length" + "Parent Dev" + "bps RX LL" + "RX Fifo" + "RX Drop" + "Pps TX" + "Noise" + "IP" + "TX Wind" + "RX Frame" + "Key/Phrase" + "Signal" + "SEC" + "IPv6 Address" + "TX Abort" + "Device" + "Gateway IP" + "TX-Rate" + "CX Ago" + "RX Pkts" + "Reset" + "TX Crr" + "RX Over" + "TX Bytes" + "Activity" + "Collisions" + "Alias" + "bps TX" + "bps TX LL" + "Status" + "TX HB" + "Down" + "RX CRC" + "Login-OK" + ) +for name in "${port_fields[@]}"; do + #echo "field <$name>" + name2="${name// /%20}" + url="http://localhost:8080/port/1/2/2,3,4?fields=$name2,Port" + echo -n "..." + curl -si -H 'Accept: application/json' "$url" > /tmp/response + echo "$url" + grep 'HTTP/1.1' /tmp/response + tail -1 /tmp/response + echo "" + sleep 0.05 +done diff --git a/json/json_port_test2.sh b/json/json_port_test2.sh new file mode 100755 index 00000000..88eda124 --- /dev/null +++ b/json/json_port_test2.sh @@ -0,0 +1,104 @@ +#!/bin/bash +set -e +unset proxy +unset http_proxy +Q='"' +q="'" +S='*' +application_json="application/json" +accept_json="Accept: $application_json" +accept_html='Accept: text/html' +accept_text='Accept: text/plain' +#accept_any="'Accept: */*'" # just dont use +content_plain='Content-Type: text/plain' +content_json="Content-Type: $application_json" +switches='-sq' +#switches='-sq' + +function Kurl() { + echo "=======================================================================================" + echo "curl $switches $@" + echo "=======================================================================================" + curl $switches "$@" | json_pp + echo "" + echo "=======================================================================================" +} + +function Jurl() { + echo "=J=====================================================================================" + echo "curl $switches -H $accept_json -H $content_json $@" + echo "=J=====================================================================================" + curl $switches -H "$accept_json" -H "$content_json" -X POST "$@" + echo "" + echo "=J=====================================================================================" +} + +#url="http://jed-f24m64-9119:8080" +url="http://127.0.0.1:8080" +data_file="/var/tmp/data.$$" +result_file="/var/tmp/result_file.$$" + +function PortDown() { + echo "{\"shelf\":1,\"resource\":3,\"port\":\"$1\",\"current_flags\":1, \"interest\":8388610}" > $data_file + curl $switches -H "$accept_json" -H "$content_json" -X POST -d"@$data_file" "$url/cli-json/set_port" + sleep 0.3 + for f in `seq 1 10`; do + echo "{\"shelf\":1,\"resource\":3,\"port\":\"$1\"}" > $data_file + curl $switches -H "$accept_json" -H "$content_json" -X POST -d"@$data_file" "$url/cli-json/nc_show_ports" + sleep 0.5 + curl $switches "$url/port/1/3/$1?fields=alias,ip,down" | json_reformat > $result_file + egrep '"down" *: "?true"?' $result_file && break || : + done +} + +function PortUp() { + #set_port 1 3 sta3101 NA NA NA NA 0 NA NA NA NA 8388610 + echo "{\"shelf\":1,\"resource\":3,\"port\":\"$1\",\"current_flags\":0, \"interest\":8388610}" > $data_file + curl $switches -H "$accept_json" -H "$content_json" -X POST -d"@$data_file" "$url/cli-json/set_port" + sleep 1 + for f in `seq 1 100`; do + echo "{\"shelf\":1,\"resource\":3,\"port\":\"$1\"}" > $data_file + #Jurl -d"@$data_file" "$url/cli-json/nc_show_ports" + curl $switches -H "$accept_json" -H "$content_json" -X POST -d"@$data_file" "$url/cli-json/nc_show_ports" + sleep 0.5 + curl $switches "$url/port/1/3/$1?fields=alias,ip,down" | json_reformat > $result_file + #cat $result_file + egrep '"down" : "?false"?' $result_file && break || : + done +} + +function CxToggle() { + echo "{\"test_mgr\":\"all\",\"cx_name\":\"$1\",\"cx_state\":\"$2\"}" > $data_file + curl $switches -H "$accept_json" -H "$content_json" -X POST -d"@$data_file" "$url/cli-json/set_cx_state" +} + +while true; do + for e in `seq 3000 3020` ; do + ea="udp:r3r2:$e" + eu="udp%3Ar3r2%3A${e}-A" + CxToggle "$ea" "STOPPED" + sleep 0.1 + curl $switches -H "$accept_json" "$url/endp/$eu?fields=name,run" | json_reformat > $result_file + sleep 0.1 + done + for sta in `seq 100 121`; do + stb=$(( $sta + 3000)) + PortDown "sta$stb" + done + for sta in `seq 100 121`; do + stb=$(( $sta + 3000)) + PortUp "sta$stb" + done + sleep 4 + for e in `seq 3000 3020` ; do + ea="udp:r3r2:$e" + eu="udp%3Ar3r2%3A${e}-A" + CxToggle "$ea" "RUNNING" + sleep 0.1 + curl $switches -H "$accept_json" "$url/endp/$eu?fields=name,run" | json_reformat > $result_file + sleep 0.1 + done + sleep 14 +done + +# diff --git a/json/json_port_test3.sh b/json/json_port_test3.sh new file mode 100755 index 00000000..ee893ce7 --- /dev/null +++ b/json/json_port_test3.sh @@ -0,0 +1,95 @@ +#!/bin/bash +set -e +unset proxy +unset http_proxy +Q='"' +q="'" +S='*' +application_json="application/json" +accept_json="Accept: $application_json" +accept_html='Accept: text/html' +accept_text='Accept: text/plain' +#accept_any="'Accept: */*'" # just dont use +content_plain='Content-Type: text/plain' +content_json="Content-Type: $application_json" +switches='-sqv' +#switches='-sq' +data_file=/var/tmp/data.$$ + +function Kurl() { + echo "=======================================================================================" + echo "curl $switches $@" + echo "=======================================================================================" + curl $switches "$@" | json_pp + echo "" + echo "=======================================================================================" +} + +function Jurl() { + echo "=J=====================================================================================" + echo "curl $switches -H $accept_json -H $content_json $@" + echo "=J=====================================================================================" + curl $switches -H "$accept_json" -H "$content_json" -X POST "$@" + echo "" + echo "=J=====================================================================================" +} + +#url="http://jed-f24m64-9119:8080" +url="http://127.0.0.1:8080" + +function PortDown() { + echo "{\"shelf\":1,\"resource\":3,\"port\":\"$1\",\"current_flags\":1, \"interest\":8388610}" > $data_file + curl $switches -H "$accept_json" -H "$content_json" -X POST -d"@$data_file" "$url/cli-json/set_port" || : + sleep 0.3 + for f in `seq 1 10`; do + echo "{\"shelf\":1,\"resource\":3,\"port\":\"$1\"}" > $data_file + curl $switches -H "$accept_json" -H "$content_json" -X POST -d"@$data_file" "$url/cli-json/nc_show_ports" || : + sleep 0.5 + curl $switches "$url/port/1/3/$1?fields=alias,ip,down" | json_pp > /var/tmp/result + grep '"down" : true' /var/tmp/result && break || : + done +} + +function PortUp() { + #set_port 1 3 sta3101 NA NA NA NA 0 NA NA NA NA 8388610 + echo "{\"shelf\":1,\"resource\":3,\"port\":\"$1\",\"current_flags\":0, \"interest\":8388610}" > $data_file + curl $switches -H "$accept_json" -H "$content_json" -X POST -d"@$data_file" "$url/cli-json/set_port" + sleep 1 + for f in `seq 1 100`; do + echo "{\"shelf\":1,\"resource\":3,\"port\":\"$1\"}" > $data_file + #Jurl -d"@$data_file" "$url/cli-json/nc_show_ports" + curl $switches -H "$accept_json" -H "$content_json" -X POST -d"@$data_file" "$url/cli-json/nc_show_ports" + sleep 0.5 + curl $switches "$url/port/1/3/$1?fields=alias,ip,down" | json_pp > /var/tmp/result || : + #cat /tmp/result + grep '"down" : false' /var/tmp/result && break || : + done +} + +function CxToggle() { + echo "{\"test_mgr\":\"all\",\"cx_name\":\"$1\",\"cx_state\":\"$2\"}" > $data_file + curl $switches -H "$accept_json" -H "$content_json" -X POST -d"@$data_file" "$url/cli-json/set_cx_state" || : +} + +while true; do + for eidcx in `seq 40 61` ; do + CxToggle "$eidcx" "STOPPED" + curl $switches -H "$accept_json" "$url/endp/$eidcx?fields=name,run" + done + for sta in `seq 100 121`; do + stb=$(( $sta + 3000)) + PortDown "sta$stb" + done + for sta in `seq 100 121`; do + stb=$(( $sta + 3000)) + PortUp "sta$stb" + done + sleep 4 + for eidcx in 34 35 36 37 38 39 ; do + CxToggle "$eidcx" "RUNNING" + curl $switches -H "$accept_json" "$url/endp/$eidcx?fields=name,run" || : + done + sleep 14 +done + +# diff --git a/json/json_test4.sh b/json/json_test4.sh new file mode 100755 index 00000000..5e101797 --- /dev/null +++ b/json/json_test4.sh @@ -0,0 +1,65 @@ +#!/bin/bash +set -e +unset proxy +unset http_proxy +Q='"' +q="'" +S='*' +application_json="application/json" +accept_json="Accept: $application_json" +accept_html='Accept: text/html' +accept_text='Accept: text/plain' +#accept_any="'Accept: */*'" # just dont use +content_plain='Content-Type: text/plain' +content_json="Content-Type: $application_json" +switches='-sqv' +#switches='-sq' +data_file=/var/tmp/data.$$ + +function Kurl() { + echo "=======================================================================================" + echo "curl $switches $@" + echo "=======================================================================================" + curl $switches "$@" | json_pp + echo "" + echo "=======================================================================================" +} + +function Jurl() { + echo "=J=====================================================================================" + echo "curl $switches -H $accept_json -H $content_json $@" + echo "=J=====================================================================================" + curl $switches -H "$accept_json" -H "$content_json" -X POST "$@" + echo "" + echo "=J=====================================================================================" +} + +#url="http://jed-f24m64-9119:8080" +url="http://127.0.0.1:8080" +while true; do + curl -sq -H "$accept_html" $url/help/ > /var/tmp/help.html + perl -ne "m{href='(/help/[^']+)'} && print \"\$1\n\";" /var/tmp/help.html > /var/tmp/help_cmds.txt + for f in `cat /var/tmp/help_cmds.txt`; do + curl --retry 10 -sq -H "$accept_html" "${url}$f" >/dev/null + done + + curl -sq -H "$accept_json" ${url}/resource/list | json_reformat > $data_file +#less $data_file + perl -ne 'm{"_links"\s*:\s*"([^ ]+)"} && print "$1\n";' $data_file > /var/tmp/resources.txt + + for f in `cat /var/tmp/resources.txt`; do + echo "$f" + (curl --retry 10 -sq -H "$accept_json" "${url}$f" |json_reformat) || exit 1 + done + + curl -sq -H "$accept_json" ${url}/port/list | json_reformat > $data_file +#less $data_file + perl -ne 'm{"_links"\s*:\s*"([^ ]+)"} && print "$1\n";' $data_file > /var/tmp/ports.txt + + for f in `cat /var/tmp/ports.txt`; do + echo "$f" + (curl --retry 10 -sq -H "$accept_json" "${url}$f" |json_reformat) || exit 1 + done +done + +#