Home Hacking Projects for Geeks

280

Playback Control

Part III: Home Security

<%

whatCamera = Request("camera")

If ( (whatCamera > 0) AND (whatcamera < 9) ) Then

Response.Write ("Camera selected: " & whatCamera)

Set WShShell = Server.CreateObject("WScript.Shell")

WShShell.Run("c:\homehacking\switchCamera.pl " & whatCamera)

End If

%>

</body>

</html>

You may also need to change the If statement. Ideally, you should verify

that the input is a valid choice, keeping in mind that valid choices may be

A–G if your cameras are numbered 10–16. For example, if your cameras

are numbered 9, 10, and 11, you could replace the

If statement with the

following:

If ( (whatCamera = "9") OR (whatCamera = "A") OR (whatCamera = "B")

Then

If your cameras aren’t numbered 1, 2, and 3, you’ll need to change the

HTML to pass the correct arguments back to the recursive ASP script.

Basically, this page passes the

camera parameter back to itself when the user

clicks the link. Issuing a GET request for

cam.asp?camera=2 therefore calls

the

cam.asp file you created, and passes the parameter camera with the value

of

2. The value passed in the camera parameter is passed straight through to

the

switchCamera.pl script in this line:

WShShell.Run("c:\homehacking\switchCamera.pl " &

whatCamera)

I chose ASP 3.0 and VBScript for this page because they’re included with

Windows 2000 and Windows XP.