Mi problema es que tengo varios dvr que quiero revisar por medio de sockets o ping, pero también las cámaras de esos de dvr. Hasta ahora lo único que encontré fue un open source (ZoneMinder-1.24.4) que permite visualizar las cámaras de los dvr pero está en Perl y no lo conozco, por favor, ayuda para saber lo que significa o si alguien sabe cómo podría resolver mi problema en otro lenguaje.
Por favor.
Parte del código en el que creo está la conexión con las cámaras.
Using perl Syntax Highlighting
- package ZoneMinder::Trigger::Channel::File;
- use 5.006;
- use strict;
- use warnings;
- require ZoneMinder::Base;
- require ZoneMinder::Trigger::Channel::Handle;
- our @ISA = qw(ZoneMinder::Trigger::Channel::Handle);
- our $VERSION = $ZoneMinder::Base::VERSION;
- # ==========================================================================
- #
- # Simple file based trigger channel
- #
- # ==========================================================================
- use ZoneMinder::Debug qw(:all);
- use Carp;
- use Fcntl;
- sub new
- {
- my $class = shift;
- my %params = @_;
- my $self = ZoneMinder::Trigger::Channel::Handle->new;
- $self->{path} = $params{path};
- bless( $self, $class );
- return $self;
- }
- sub open()
- {
- my $self = shift;
- local *sfh;
- #sysopen( *sfh, $conn->{path}, O_NONBLOCK|O_RDONLY ) or croak( "Can't sysopen: $!" );
- #open( *sfh, "<".$conn->{path} ) or croak( "Can't open: $!" );
- open( *sfh, "+<".$self->{path} ) or croak( "Can't open: $!" );
- $self->{state} = 'open';
- $self->{handle} = *sfh;
- }
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
