This script is designed to rotate the Cameras displayed in Video Display windows named a1 every 60 seconds. Pushbuttons set Toggle (VideoOff) to turn off the display of video and VideoHold to pause the rotation between cameras. Use Dynamic ->Video and name it a1.
proc
switchvideo {arg1} {
switch
$arg1 \
"1" {SENDVDO
a1=axiscam#ip=sprout.warwick.ac.uk&cgi=cgi-bin/mjpg/video.cgi} \
"2" {
SENDVDO a1=mplayer#ip=67.94.27.130&port=8080} \
"3" {
SENDVDO a1=atoplc#ip=67.94.27.161&port=0} \
"4" {SENDVDO
a1=atoplc#ip=202.178.230.25&port=0} \
"default"
{SENDVDO "a1=videooff#msg=Press Rotate Cameras button to rotate thru
cameras."}
}
if
{[GETVAL toggle] > 0} then {
SETVAL
"toggle=0"
if
{[GETVAL videooff] == 0} then {
SETVAL
"videooff=1"
SETVAL
"countold=@count"
SETVAL
"pageold=@page"
SENDVDO
"a1=videooff#msg=Press 'Video On' button to show video."
}
else {
SETVAL
"videooff=0"
SETVAL
"count=@countold"
SETVAL
"page=@pageold"
switchvideo
[GETVAL page]
}
}
if
{[GETVAL videooff] == 0 && [GETVAL videohold] == 0} then {
SETVAL
"count=%PLUS 1"
if
{[GETVAL count] > 60} then {
SETVAL
"page=%LOOPPLUS 1"
switchvideo
[GETVAL page]
SETVAL
count=0
}
}