# 
# $Id$
#
specification "vpc" {
	timeout 	5.0

	plug name { "0" "1" "2" "3" "4" "5" "6" "7" "8" 
		    "9" "10" "11" "12" "13" "14" "15" }

	script login {
		send "login\n"
		expect "[0-9]* OK\n"
		expect "[0-9]* vpc> "
	}
	script logout {
		send "logoff\n"
		expect "[0-9]* OK\n"
	}
	script status_all {
		send "stat *\n"
		foreachplug {
			expect "plug ([0-9]+): (ON|OFF)\n"
			setplugstate $1 $2 on="ON" off="OFF"
		}
		expect "[0-9]* OK\n"
		expect "[0-9]* vpc> "
	}
	script on {
		send "on %s\n"
		expect "[0-9]* OK\n"
		expect "[0-9]* vpc> "
	}
	script on_all {
		send "on *\n"
		expect "[0-9]* OK\n"
		expect "[0-9]* vpc> "
	}
	script off {
		send "off %s\n"
		expect "[0-9]* OK\n"
		expect "[0-9]* vpc> "
	}
	script off_all {
		send "off *\n"
		expect "[0-9]* OK\n"
		expect "[0-9]* vpc> "
	}
	script cycle {
		send "off %s\n"
		expect "[0-9]* OK\n"
		expect "[0-9]* vpc> "
		delay 1.0
		send "on %s\n"
		expect "[0-9]* OK\n"
		expect "[0-9]* vpc> "
	}
	script cycle_all {
		send "off *\n"
		expect "[0-9]* OK\n"
		expect "[0-9]* vpc> "
		delay 1.0
		send "on *\n"
		expect "[0-9]* OK\n"
		expect "[0-9]* vpc> "
	}
        script beacon_on {
                send "flash %s\n"
                expect "[0-9]* OK\n"
                expect "[0-9]* vpc> "
        }
        script beacon_off {
                send "unflash %s\n"
                expect "[0-9]* OK\n"
                expect "[0-9]* vpc> "
        }
        script status_beacon_all {
                send "beacon *\n"
                foreachplug {
                        expect "plug ([0-9]+): (ON|OFF)\n"
                        setplugstate $1 $2 on="ON" off="OFF"
                }
                expect "[0-9]* OK\n"
                expect "[0-9]* vpc> "
        }
        script status_temp_all {
                send "temp *\n"
                foreachplug {
                        expect "plug ([0-9]+): ([0-9]+)\n"
                        setplugstate $1 $2
                }
                expect "[0-9]* OK\n"
                expect "[0-9]* vpc> "
        }
	script reset_all {
		send "reset *\n"
		expect "[0-9]* OK\n"
		expect "[0-9]* vpc> "
	}
	script reset {
		send "reset %s\n"
		expect "[0-9]* OK\n"
		expect "[0-9]* vpc> "
	}
}