Sorry for the absence of late. I have been working on a computer project here at home. My mind has been mushy trying to learn new things like coding, scripts and various other elements of complicated operation. I switched from Windows to Linux over a year ago. While Linux is much easier to install and use than years past, high quality programs at times can be more complex to install. I love a challenge though. Solving problems, or managing to install something that is difficult, is like a video game is to the younger crowd. The sense of solving a difficulty gives me satisfaction.

I finally managed to figure out how to install the camera software to monitor all my cameras for security. It has taken about 3 days of research, trial and error.

After 3 days of staring at lines of code and typing commands, I am ready for a break. Here is a small “snippet” of code I had to dig through at times.

sub moveConUpRight
{
my $self = shift;
my $params = shift;
Debug( “Move Diagonally Up Right” );
my $cmd = “decoder_control.cgi?command=90&”;
$self->sendCmd( $cmd );
my $autostop = $self->getParam( $params, ‘autostop’, 0 );
if ( $autostop && $self->{Monitor}->{AutoStopTimeout} )
{
usleep( $self->{Monitor}->{AutoStopTimeout} );
$self->moveStop( $params );
}
}

sub moveConDownRight
{
my $self = shift;
my $params = shift;
Debug( “Move Diagonally Down Right” );
my $cmd = “decoder_control.cgi?command=92&”;
$self->sendCmd( $cmd );
my $autostop = $self->getParam( $params, ‘autostop’, 0 );
if ( $autostop && $self->{Monitor}->{AutoStopTimeout} )
{
usleep( $self->{Monitor}->{AutoStopTimeout} );
$self->moveStop( $params );
}

My finished project with 5 of the 8 cameras up and running. 🙂

 

 

 

 

 

 

 

 

 

 

 

Hopefully I can get back in my routine of posting again now. There’s not much going on in the park, maybe I should go stir something up.

Comments welcome,