#!/usr/bin/perl
#
# Naridesh/WWW add-ons
#  07 November 1999
#   Scott "Jerry" Lawrence   naridesh@absynth.com
#

################################################################################
#
# X10 add-on: 
# snare add-on:

################################################################################
# internal commands

sub process_command
{
    # process the command
    # return 1 if we made our own body2, otherwise return 0 for the default
    local $cmdline = shift;
    local @args = split ":", $cmdline;

    local $params = join " ", @args;
    $params = substr $params, (length $args[0])+1, length $params;


    # obviously, this won't work if you don't have the firecracker tools,
    # but it's a good example to show how this is done...

    if ($args[0] eq "X10")
    {
	#okay the x10 format is:  the same as BR's 
	system "/usr/local/bin/br $params > /dev/null"; 

	$body2=<<EOB;
<br><br><center>
<font size=+1>X10 command sent</font>
</center><br><br>
EOB
	return 1;
    }

    
    return 0;
}

1;