Added basic ONVIF support

Makefile.am

@@ -12,7 +12,8 @@ SUBDIRS = \
 	web \
 	scripts \
 	db \
-	misc
+	misc \
+ 	onvif
 
 EXTRA_DIST = \
 	zm.conf.in \

configure.ac

@@ -1,5 +1,5 @@
 AC_PREREQ(2.59)
-AC_INIT(zm,1.27.1,[http://www.zoneminder.com/forums/ - Please check FAQ first],zoneminder,http://www.zoneminder.com/downloads.html)
+AC_INIT(zm,1.27,[http://www.zoneminder.com/forums/ - Please check FAQ first],zoneminder,http://www.zoneminder.com/downloads.html)
 AM_INIT_AUTOMAKE
 AC_CONFIG_SRCDIR(src/zm.h)
 AC_CONFIG_HEADERS(config.h)
@@ -8,7 +8,6 @@ AC_SUBST([AM_CXXFLAGS], [-D__STDC_CONSTANT_MACROS])
 
 AC_SUBST(VERSION)
 
-AC_ARG_VAR(ZM_DB_TYPE,[Type of the ZoneMinder database, default mysql])
 AC_ARG_VAR(ZM_DB_HOST,[Hostname where ZoneMinder database located, default localhost])
 AC_ARG_VAR(ZM_DB_NAME,[Name of ZoneMinder database, default zm])
 AC_ARG_VAR(ZM_DB_USER,[Name of ZoneMinder database user, default zmuser])
@@ -386,39 +385,13 @@ fi
 AC_SUBST(PERL_MM_PARMS)
 AC_SUBST(EXTRA_PERL_LIB)
 
-#
+AC_CONFIG_FILES([Makefile zm.conf zmconfgen.pl db/Makefile db/zm_create.sql onvif/Makefile onvif/scripts/Makefile misc/Makefile misc/apache.conf misc/logrotate.conf misc/syslog.conf scripts/Makefile scripts/zm scripts/zmaudit.pl scripts/zmcontrol.pl scripts/zmdc.pl scripts/zmfilter.pl scripts/zmpkg.pl scripts/zmtrack.pl scripts/zmtrigger.pl scripts/zmupdate.pl scripts/zmvideo.pl scripts/zmwatch.pl scripts/zmx10.pl scripts/zmdbbackup scripts/zmdbrestore scripts/zmeventdump scripts/zmlogrotate.conf scripts/ZoneMinder/lib/ZoneMinder/Base.pm scripts/ZoneMinder/lib/ZoneMinder/Config.pm scripts/ZoneMinder/lib/ZoneMinder/Memory.pm scripts/ZoneMinder/lib/ZoneMinder/ConfigData.pm src/Makefile src/zm_config.h web/Makefile web/ajax/Makefile web/css/Makefile web/graphics/Makefile web/includes/Makefile web/includes/config.php web/js/Makefile web/lang/Makefile web/skins/Makefile web/skins/classic/Makefile web/skins/classic/ajax/Makefile web/skins/classic/css/Makefile web/skins/classic/graphics/Makefile web/skins/classic/includes/Makefile web/skins/classic/js/Makefile web/skins/classic/lang/Makefile web/skins/classic/views/Makefile web/skins/classic/views/css/Makefile web/skins/classic/views/js/Makefile web/skins/mobile/Makefile web/skins/mobile/ajax/Makefile web/skins/mobile/css/Makefile web/skins/mobile/graphics/Makefile web/skins/mobile/includes/Makefile web/skins/mobile/lang/Makefile web/skins/mobile/views/Makefile web/skins/mobile/views/css/Makefile web/tools/Makefile web/tools/mootools/Makefile web/views/Makefile web/skins/xml/Makefile web/skins/xml/views/Makefile web/skins/xml/includes/Makefile web/skins/flat/Makefile web/skins/flat/ajax/Makefile web/skins/flat/css/Makefile web/skins/flat/graphics/Makefile web/skins/flat/includes/Makefile web/skins/flat/js/Makefile web/skins/flat/lang/Makefile web/skins/flat/views/Makefile web/skins/flat/views/css/Makefile web/skins/flat/views/js/Makefile])
-# Platform specific setup
-#
-#############################
-AC_CANONICAL_HOST
-# Check for which host we are on and setup a few things
-# specifically based on the host
-case $host_os in
-  darwin* )
-        # Do something specific for mac
-		HOST_OS='darwin'
-        ;;
-  linux*)
-        # Do something specific for linux
-		HOST_OS='linux'
-        ;;
-   *BSD*)
-        # Do something specific for BSD
-		HOST_OS='BSD'
-        ;;
-    *)
-        #Default Case
-        AC_MSG_ERROR([Your platform is not currently supported])
-        ;;
-esac
-
-AC_SUBST(HOST_OS)
-
-AC_CONFIG_FILES([Makefile zm.conf zmconfgen.pl db/Makefile db/zm_create.sql misc/Makefile misc/apache.conf misc/logrotate.conf misc/syslog.conf scripts/Makefile scripts/zm scripts/zmaudit.pl scripts/zmcontrol.pl scripts/zmdc.pl scripts/zmfilter.pl scripts/zmpkg.pl scripts/zmtrack.pl scripts/zmcamtool.pl scripts/zmtrigger.pl scripts/zmupdate.pl scripts/zmvideo.pl scripts/zmwatch.pl scripts/zmx10.pl scripts/zmdbbackup scripts/zmdbrestore scripts/zmeventdump scripts/zmlogrotate.conf scripts/ZoneMinder/lib/ZoneMinder/Base.pm scripts/ZoneMinder/lib/ZoneMinder/Config.pm scripts/ZoneMinder/lib/ZoneMinder/Memory.pm scripts/ZoneMinder/lib/ZoneMinder/ConfigData.pm src/Makefile src/zm_config.h web/Makefile web/ajax/Makefile web/css/Makefile web/graphics/Makefile web/includes/Makefile web/includes/config.php web/js/Makefile web/lang/Makefile web/skins/Makefile web/skins/classic/Makefile web/skins/classic/ajax/Makefile web/skins/classic/css/Makefile web/skins/classic/graphics/Makefile web/skins/classic/includes/Makefile web/skins/classic/js/Makefile web/skins/classic/lang/Makefile web/skins/classic/views/Makefile web/skins/classic/views/css/Makefile web/skins/classic/views/js/Makefile web/skins/mobile/Makefile web/skins/mobile/ajax/Makefile web/skins/mobile/css/Makefile web/skins/mobile/graphics/Makefile web/skins/mobile/includes/Makefile web/skins/mobile/lang/Makefile web/skins/mobile/views/Makefile web/skins/mobile/views/css/Makefile web/tools/Makefile web/tools/mootools/Makefile web/views/Makefile web/skins/xml/Makefile web/skins/xml/views/Makefile web/skins/xml/includes/Makefile web/skins/flat/Makefile web/skins/flat/ajax/Makefile web/skins/flat/css/Makefile web/skins/flat/graphics/Makefile web/skins/flat/includes/Makefile web/skins/flat/js/Makefile web/skins/flat/lang/Makefile web/skins/flat/views/Makefile web/skins/flat/views/css/Makefile web/skins/flat/views/js/Makefile])
 
 # Create the definitions for compilation and defaults for the database
 AC_CONFIG_COMMANDS([src/zm_config_defines.h],[perl ./zmconfgen.pl])
 # Manually generate the perl Makefile maker
 AC_CONFIG_COMMANDS([scripts/ZoneMinder/Makefile],[(cd scripts/ZoneMinder; echo "perl Makefile.PL $PERL_MM_PARMS"; perl Makefile.PL $PERL_MM_PARMS)],[PERL_MM_PARMS=$PERL_MM_PARMS])
+AC_CONFIG_COMMANDS([onvif/modules/Makefile],[(cd onvif/modules; echo "perl Makefile.PL $PERL_MM_PARMS"; perl Makefile.PL $PERL_MM_PARMS)],[PERL_MM_PARMS=$PERL_MM_PARMS])
+AC_CONFIG_COMMANDS([onvif/proxy/Makefile],[(cd onvif/proxy; echo "perl Makefile.PL $PERL_MM_PARMS"; perl Makefile.PL $PERL_MM_PARMS)],[PERL_MM_PARMS=$PERL_MM_PARMS])
 
 AC_OUTPUT

onvif/.gitignore

@@ -0,0 +1,3 @@
+Makefile.in
+proxy/blib
+modules/blib

onvif/Makefile

@@ -0,0 +1,643 @@
+# Makefile.in generated by automake 1.13.4 from Makefile.am.
+# onvif/Makefile.  Generated from Makefile.in by configure.
+
+# Copyright (C) 1994-2013 Free Software Foundation, Inc.
+
+# This Makefile.in is free software; the Free Software Foundation
+# gives unlimited permission to copy and/or distribute it,
+# with or without modifications, as long as this notice is preserved.
+
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
+# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
+# PARTICULAR PURPOSE.
+
+
+
+am__is_gnu_make = test -n '$(MAKEFILE_LIST)' && test -n '$(MAKELEVEL)'
+am__make_running_with_option = \
+  case $${target_option-} in \
+      ?) ;; \
+      *) echo "am__make_running_with_option: internal error: invalid" \
+              "target option '$${target_option-}' specified" >&2; \
+         exit 1;; \
+  esac; \
+  has_opt=no; \
+  sane_makeflags=$$MAKEFLAGS; \
+  if $(am__is_gnu_make); then \
+    sane_makeflags=$$MFLAGS; \
+  else \
+    case $$MAKEFLAGS in \
+      *\\[\ \	]*) \
+        bs=\\; \
+        sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \
+          | sed "s/$$bs$$bs[$$bs $$bs	]*//g"`;; \
+    esac; \
+  fi; \
+  skip_next=no; \
+  strip_trailopt () \
+  { \
+    flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \
+  }; \
+  for flg in $$sane_makeflags; do \
+    test $$skip_next = yes && { skip_next=no; continue; }; \
+    case $$flg in \
+      *=*|--*) continue;; \
+        -*I) strip_trailopt 'I'; skip_next=yes;; \
+      -*I?*) strip_trailopt 'I';; \
+        -*O) strip_trailopt 'O'; skip_next=yes;; \
+      -*O?*) strip_trailopt 'O';; \
+        -*l) strip_trailopt 'l'; skip_next=yes;; \
+      -*l?*) strip_trailopt 'l';; \
+      -[dEDm]) skip_next=yes;; \
+      -[JT]) skip_next=yes;; \
+    esac; \
+    case $$flg in \
+      *$$target_option*) has_opt=yes; break;; \
+    esac; \
+  done; \
+  test $$has_opt = yes
+am__make_dryrun = (target_option=n; $(am__make_running_with_option))
+am__make_keepgoing = (target_option=k; $(am__make_running_with_option))
+pkgdatadir = $(datadir)/zoneminder
+pkgincludedir = $(includedir)/zoneminder
+pkglibdir = $(libdir)/zoneminder
+pkglibexecdir = $(libexecdir)/zoneminder
+am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
+install_sh_DATA = $(install_sh) -c -m 644
+install_sh_PROGRAM = $(install_sh) -c
+install_sh_SCRIPT = $(install_sh) -c
+INSTALL_HEADER = $(INSTALL_DATA)
+transform = $(program_transform_name)
+NORMAL_INSTALL = :
+PRE_INSTALL = :
+POST_INSTALL = :
+NORMAL_UNINSTALL = :
+PRE_UNINSTALL = :
+POST_UNINSTALL = :
+subdir = onvif
+DIST_COMMON = $(srcdir)/Makefile.in $(srcdir)/Makefile.am
+ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
+am__aclocal_m4_deps = $(top_srcdir)/acinclude.m4 \
+	$(top_srcdir)/configure.ac
+am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
+	$(ACLOCAL_M4)
+mkinstalldirs = $(install_sh) -d
+CONFIG_HEADER = $(top_builddir)/config.h
+CONFIG_CLEAN_FILES =
+CONFIG_CLEAN_VPATH_FILES =
+AM_V_P = $(am__v_P_$(V))
+am__v_P_ = $(am__v_P_$(AM_DEFAULT_VERBOSITY))
+am__v_P_0 = false
+am__v_P_1 = :
+AM_V_GEN = $(am__v_GEN_$(V))
+am__v_GEN_ = $(am__v_GEN_$(AM_DEFAULT_VERBOSITY))
+am__v_GEN_0 = @echo "  GEN     " $@;
+am__v_GEN_1 = 
+AM_V_at = $(am__v_at_$(V))
+am__v_at_ = $(am__v_at_$(AM_DEFAULT_VERBOSITY))
+am__v_at_0 = @
+am__v_at_1 = 
+SOURCES =
+DIST_SOURCES =
+RECURSIVE_TARGETS = all-recursive check-recursive cscopelist-recursive \
+	ctags-recursive dvi-recursive html-recursive info-recursive \
+	install-data-recursive install-dvi-recursive \
+	install-exec-recursive install-html-recursive \
+	install-info-recursive install-pdf-recursive \
+	install-ps-recursive install-recursive installcheck-recursive \
+	installdirs-recursive pdf-recursive ps-recursive \
+	tags-recursive uninstall-recursive
+am__can_run_installinfo = \
+  case $$AM_UPDATE_INFO_DIR in \
+    n|no|NO) false;; \
+    *) (install-info --version) >/dev/null 2>&1;; \
+  esac
+RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive	\
+  distclean-recursive maintainer-clean-recursive
+am__recursive_targets = \
+  $(RECURSIVE_TARGETS) \
+  $(RECURSIVE_CLEAN_TARGETS) \
+  $(am__extra_recursive_targets)
+AM_RECURSIVE_TARGETS = $(am__recursive_targets:-recursive=) TAGS CTAGS \
+	distdir
+am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP)
+# Read a list of newline-separated strings from the standard input,
+# and print each of them once, without duplicates.  Input order is
+# *not* preserved.
+am__uniquify_input = $(AWK) '\
+  BEGIN { nonempty = 0; } \
+  { items[$$0] = 1; nonempty = 1; } \
+  END { if (nonempty) { for (i in items) print i; }; } \
+'
+# Make sure the list of sources is unique.  This is necessary because,
+# e.g., the same source file might be shared among _SOURCES variables
+# for different programs/libraries.
+am__define_uniq_tagged_files = \
+  list='$(am__tagged_files)'; \
+  unique=`for i in $$list; do \
+    if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
+  done | $(am__uniquify_input)`
+ETAGS = etags
+CTAGS = ctags
+DIST_SUBDIRS = $(SUBDIRS)
+DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
+am__relativize = \
+  dir0=`pwd`; \
+  sed_first='s,^\([^/]*\)/.*$$,\1,'; \
+  sed_rest='s,^[^/]*/*,,'; \
+  sed_last='s,^.*/\([^/]*\)$$,\1,'; \
+  sed_butlast='s,/*[^/]*$$,,'; \
+  while test -n "$$dir1"; do \
+    first=`echo "$$dir1" | sed -e "$$sed_first"`; \
+    if test "$$first" != "."; then \
+      if test "$$first" = ".."; then \
+        dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \
+        dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \
+      else \
+        first2=`echo "$$dir2" | sed -e "$$sed_first"`; \
+        if test "$$first2" = "$$first"; then \
+          dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \
+        else \
+          dir2="../$$dir2"; \
+        fi; \
+        dir0="$$dir0"/"$$first"; \
+      fi; \
+    fi; \
+    dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \
+  done; \
+  reldir="$$dir2"
+ACLOCAL = ${SHELL} /opt/src/ZoneMinder/zoneminder/missing aclocal-1.13
+ALLOCA = 
+AMTAR = $${TAR-tar}
+AM_CXXFLAGS = -D__STDC_CONSTANT_MACROS
+AM_DEFAULT_VERBOSITY = 1
+AUTOCONF = ${SHELL} /opt/src/ZoneMinder/zoneminder/missing autoconf
+AUTOHEADER = ${SHELL} /opt/src/ZoneMinder/zoneminder/missing autoheader
+AUTOMAKE = ${SHELL} /opt/src/ZoneMinder/zoneminder/missing automake-1.13
+AWK = gawk
+BINDIR = /usr/local/bin
+CC = gcc
+CCDEPMODE = depmode=gcc3
+CFLAGS = -I/usr/include -D__STDC_CONSTANT_MACROS 
+CGI_PREFIX = /srv/www/html/zm/cgi-bin
+CPP = gcc -E
+CPPFLAGS = -I/usr/include -D__STDC_CONSTANT_MACROS 
+CXX = g++
+CXXCPP = g++ -E
+CXXDEPMODE = depmode=gcc3
+CXXFLAGS = -g -O2
+CYGPATH_W = echo
+DATADIR = /usr/local/share
+DEFS = -DHAVE_CONFIG_H
+DEPDIR = .deps
+ECHO_C = 
+ECHO_N = -n
+ECHO_T = 
+EGREP = /usr/bin/grep -E
+ENABLE_MMAP = yes
+EXEEXT = 
+EXTRA_LIBS = -L/usr/lib64 -L/usr/lib64/mysql
+EXTRA_PERL_LIB = use lib '/usr/local/share/perl5'; # Include custom perl install path
+FFMPEG_CFLAGS = -I/usr/include -D__STDC_CONSTANT_MACROS
+FFMPEG_LIBS = -L/usr/lib
+FFMPEG_PREFIX = /usr
+GREP = /usr/bin/grep
+INSTALL = /usr/bin/install -c
+INSTALL_DATA = ${INSTALL} -m 644
+INSTALL_PROGRAM = ${INSTALL}
+INSTALL_SCRIPT = ${INSTALL}
+INSTALL_STRIP_PROGRAM = $(install_sh) -c -s
+LDFLAGS = -L/usr/lib -L/usr/lib/mysql  -L/usr/lib64 -L/usr/lib64/mysql
+LIBDIR = /usr/local/lib
+LIBOBJS = 
+LIBS = -lz -lbz2 -lvlc -lswscale -lavdevice -lavformat -lavcodec -lavutil -lx264 -lz -lpcre -lcrypto -ldl -lpthread -ljpeg -lmysqlclient 
+LIB_ARCH = lib
+LN_S = ln -s
+LTLIBOBJS = 
+MAKEINFO = ${SHELL} /opt/src/ZoneMinder/zoneminder/missing makeinfo
+MKDIR_P = /usr/bin/mkdir -p
+MYSQL_CFLAGS = -I/usr/include
+MYSQL_LIBS = -L/usr/lib/mysql
+MYSQL_PREFIX = /usr
+OBJEXT = o
+OPT_FFMPEG = yes
+OPT_NETPBM = yes
+PACKAGE = zoneminder
+PACKAGE_BUGREPORT = http://www.zoneminder.com/forums/ - Please check FAQ first
+PACKAGE_NAME = zm
+PACKAGE_STRING = zm 1.27
+PACKAGE_TARNAME = zoneminder
+PACKAGE_URL = http://www.zoneminder.com/downloads.html
+PACKAGE_VERSION = 1.27
+PATH_FFMPEG = /usr/bin/ffmpeg
+PATH_NETPBM = /usr/bin
+PATH_SEPARATOR = :
+PERL = perl
+PERL_MM_PARMS = PREFIX=/usr/local
+PKGDATADIR = /usr/local/share/zoneminder
+POW_LIB = 
+RANLIB = ranlib
+SET_MAKE = 
+SHELL = /bin/sh
+STRIP = 
+SYSCONFDIR = /usr/local/etc
+VERSION = 1.27
+WEB_GROUP = apache
+WEB_HOST = zm.local
+WEB_PREFIX = /srv/www/html/zm
+WEB_USER = apache
+ZM_CONFIG = /usr/local/etc/zm.conf
+ZM_DB_HOST = localhost
+ZM_DB_NAME = zm
+ZM_DB_PASS = zmpass
+ZM_DB_TYPE = mysql
+ZM_DB_USER = zmuser
+ZM_HAS_GNUTLS = 
+ZM_HAS_GNUTLS_OPENSSL = 
+ZM_HAS_V4L = 1
+ZM_HAS_V4L1 = 0
+ZM_HAS_V4L2 = 1
+ZM_LOGDIR = /var/log/zm
+ZM_MYSQL_ENGINE = InnoDB
+ZM_PCRE = 1
+ZM_PID = /var/run/zm/zm.pid
+ZM_RUNDIR = /var/run/zm
+ZM_SSL_LIB = openssl
+ZM_TMPDIR = /tmp/zm
+abs_builddir = /opt/src/ZoneMinder/zoneminder/onvif
+abs_srcdir = /opt/src/ZoneMinder/zoneminder/onvif
+abs_top_builddir = /opt/src/ZoneMinder/zoneminder
+abs_top_srcdir = /opt/src/ZoneMinder/zoneminder
+ac_ct_CC = gcc
+ac_ct_CXX = g++
+am__include = include
+am__leading_dot = .
+am__quote = 
+am__tar = $${TAR-tar} chof - "$$tardir"
+am__untar = $${TAR-tar} xf -
+bindir = ${exec_prefix}/bin
+build_alias = 
+builddir = .
+datadir = ${datarootdir}
+datarootdir = ${prefix}/share
+docdir = ${datarootdir}/doc/${PACKAGE_TARNAME}
+dvidir = ${docdir}
+exec_prefix = ${prefix}
+host_alias = 
+htmldir = ${docdir}
+includedir = ${prefix}/include
+infodir = ${datarootdir}/info
+install_sh = ${SHELL} /opt/src/ZoneMinder/zoneminder/install-sh
+libdir = ${exec_prefix}/lib
+libexecdir = ${exec_prefix}/libexec
+localedir = ${datarootdir}/locale
+localstatedir = ${prefix}/var
+mandir = ${datarootdir}/man
+mkdir_p = $(MKDIR_P)
+oldincludedir = /usr/include
+pdfdir = ${docdir}
+prefix = /usr/local
+program_transform_name = s,x,x,
+psdir = ${docdir}
+sbindir = ${exec_prefix}/sbin
+sharedstatedir = ${prefix}/com
+srcdir = .
+sysconfdir = ${prefix}/etc
+target_alias = 
+top_build_prefix = ../
+top_builddir = ..
+top_srcdir = ..
+AUTOMAKE_OPTIONS = gnu
+SUBDIRS = \
+ 	. \
+  proxy \
+  modules \
+  scripts 
+
+EXTRA_DIST = \
+  proxy/Makefile.PL \
+  proxy/lib \
+  modules/Makefile.PL \
+  modules/lib \
+  wsdl \
+  doc \
+  patches
+
+all: all-recursive
+
+.SUFFIXES:
+$(srcdir)/Makefile.in:  $(srcdir)/Makefile.am  $(am__configure_deps)
+	@for dep in $?; do \
+	  case '$(am__configure_deps)' in \
+	    *$$dep*) \
+	      ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \
+	        && { if test -f $@; then exit 0; else break; fi; }; \
+	      exit 1;; \
+	  esac; \
+	done; \
+	echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu onvif/Makefile'; \
+	$(am__cd) $(top_srcdir) && \
+	  $(AUTOMAKE) --gnu onvif/Makefile
+.PRECIOUS: Makefile
+Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
+	@case '$?' in \
+	  *config.status*) \
+	    cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \
+	  *) \
+	    echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \
+	    cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \
+	esac;
+
+$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
+	cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
+
+$(top_srcdir)/configure:  $(am__configure_deps)
+	cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
+$(ACLOCAL_M4):  $(am__aclocal_m4_deps)
+	cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
+$(am__aclocal_m4_deps):
+
+# This directory's subdirectories are mostly independent; you can cd
+# into them and run 'make' without going through this Makefile.
+# To change the values of 'make' variables: instead of editing Makefiles,
+# (1) if the variable is set in 'config.status', edit 'config.status'
+#     (which will cause the Makefiles to be regenerated when you run 'make');
+# (2) otherwise, pass the desired values on the 'make' command line.
+$(am__recursive_targets):
+	@fail=; \
+	if $(am__make_keepgoing); then \
+	  failcom='fail=yes'; \
+	else \
+	  failcom='exit 1'; \
+	fi; \
+	dot_seen=no; \
+	target=`echo $@ | sed s/-recursive//`; \
+	case "$@" in \
+	  distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \
+	  *) list='$(SUBDIRS)' ;; \
+	esac; \
+	for subdir in $$list; do \
+	  echo "Making $$target in $$subdir"; \
+	  if test "$$subdir" = "."; then \
+	    dot_seen=yes; \
+	    local_target="$$target-am"; \
+	  else \
+	    local_target="$$target"; \
+	  fi; \
+	  ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \
+	  || eval $$failcom; \
+	done; \
+	if test "$$dot_seen" = "no"; then \
+	  $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \
+	fi; test -z "$$fail"
+
+ID: $(am__tagged_files)
+	$(am__define_uniq_tagged_files); mkid -fID $$unique
+tags: tags-recursive
+TAGS: tags
+
+tags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files)
+	set x; \
+	here=`pwd`; \
+	if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \
+	  include_option=--etags-include; \
+	  empty_fix=.; \
+	else \
+	  include_option=--include; \
+	  empty_fix=; \
+	fi; \
+	list='$(SUBDIRS)'; for subdir in $$list; do \
+	  if test "$$subdir" = .; then :; else \
+	    test ! -f $$subdir/TAGS || \
+	      set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \
+	  fi; \
+	done; \
+	$(am__define_uniq_tagged_files); \
+	shift; \
+	if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \
+	  test -n "$$unique" || unique=$$empty_fix; \
+	  if test $$# -gt 0; then \
+	    $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
+	      "$$@" $$unique; \
+	  else \
+	    $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
+	      $$unique; \
+	  fi; \
+	fi
+ctags: ctags-recursive
+
+CTAGS: ctags
+ctags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files)
+	$(am__define_uniq_tagged_files); \
+	test -z "$(CTAGS_ARGS)$$unique" \
+	  || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \
+	     $$unique
+
+GTAGS:
+	here=`$(am__cd) $(top_builddir) && pwd` \
+	  && $(am__cd) $(top_srcdir) \
+	  && gtags -i $(GTAGS_ARGS) "$$here"
+cscopelist: cscopelist-recursive
+
+cscopelist-am: $(am__tagged_files)
+	list='$(am__tagged_files)'; \
+	case "$(srcdir)" in \
+	  [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \
+	  *) sdir=$(subdir)/$(srcdir) ;; \
+	esac; \
+	for i in $$list; do \
+	  if test -f "$$i"; then \
+	    echo "$(subdir)/$$i"; \
+	  else \
+	    echo "$$sdir/$$i"; \
+	  fi; \
+	done >> $(top_builddir)/cscope.files
+
+distclean-tags:
+	-rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags
+
+distdir: $(DISTFILES)
+	@srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
+	topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
+	list='$(DISTFILES)'; \
+	  dist_files=`for file in $$list; do echo $$file; done | \
+	  sed -e "s|^$$srcdirstrip/||;t" \
+	      -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \
+	case $$dist_files in \
+	  */*) $(MKDIR_P) `echo "$$dist_files" | \
+			   sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \
+			   sort -u` ;; \
+	esac; \
+	for file in $$dist_files; do \
+	  if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \
+	  if test -d $$d/$$file; then \
+	    dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \
+	    if test -d "$(distdir)/$$file"; then \
+	      find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
+	    fi; \
+	    if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \
+	      cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \
+	      find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
+	    fi; \
+	    cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \
+	  else \
+	    test -f "$(distdir)/$$file" \
+	    || cp -p $$d/$$file "$(distdir)/$$file" \
+	    || exit 1; \
+	  fi; \
+	done
+	@list='$(DIST_SUBDIRS)'; for subdir in $$list; do \
+	  if test "$$subdir" = .; then :; else \
+	    $(am__make_dryrun) \
+	      || test -d "$(distdir)/$$subdir" \
+	      || $(MKDIR_P) "$(distdir)/$$subdir" \
+	      || exit 1; \
+	    dir1=$$subdir; dir2="$(distdir)/$$subdir"; \
+	    $(am__relativize); \
+	    new_distdir=$$reldir; \
+	    dir1=$$subdir; dir2="$(top_distdir)"; \
+	    $(am__relativize); \
+	    new_top_distdir=$$reldir; \
+	    echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \
+	    echo "     am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \
+	    ($(am__cd) $$subdir && \
+	      $(MAKE) $(AM_MAKEFLAGS) \
+	        top_distdir="$$new_top_distdir" \
+	        distdir="$$new_distdir" \
+		am__remove_distdir=: \
+		am__skip_length_check=: \
+		am__skip_mode_fix=: \
+	        distdir) \
+	      || exit 1; \
+	  fi; \
+	done
+check-am: all-am
+check: check-recursive
+all-am: Makefile all-local
+installdirs: installdirs-recursive
+installdirs-am:
+install: install-recursive
+install-exec: install-exec-recursive
+install-data: install-data-recursive
+uninstall: uninstall-recursive
+
+install-am: all-am
+	@$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
+
+installcheck: installcheck-recursive
+install-strip:
+	if test -z '$(STRIP)'; then \
+	  $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+	    install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
+	      install; \
+	else \
+	  $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+	    install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
+	    "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \
+	fi
+mostlyclean-generic:
+
+clean-generic:
+
+distclean-generic:
+	-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
+	-test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES)
+
+maintainer-clean-generic:
+	@echo "This command is intended for maintainers to use"
+	@echo "it deletes files that may require special tools to rebuild."
+clean: clean-recursive
+
+clean-am: clean-generic mostlyclean-am
+
+distclean: distclean-recursive
+	-rm -f Makefile
+distclean-am: clean-am distclean-generic distclean-tags
+
+dvi: dvi-recursive
+
+dvi-am:
+
+html: html-recursive
+
+html-am:
+
+info: info-recursive
+
+info-am:
+
+install-data-am:
+
+install-dvi: install-dvi-recursive
+
+install-dvi-am:
+
+install-exec-am:
+
+install-html: install-html-recursive
+
+install-html-am:
+
+install-info: install-info-recursive
+
+install-info-am:
+
+install-man:
+
+install-pdf: install-pdf-recursive
+
+install-pdf-am:
+
+install-ps: install-ps-recursive
+
+install-ps-am:
+
+installcheck-am:
+
+maintainer-clean: maintainer-clean-recursive
+	-rm -f Makefile
+maintainer-clean-am: distclean-am maintainer-clean-generic
+
+mostlyclean: mostlyclean-recursive
+
+mostlyclean-am: mostlyclean-generic
+
+pdf: pdf-recursive
+
+pdf-am:
+
+ps: ps-recursive
+
+ps-am:
+
+uninstall-am:
+
+.MAKE: $(am__recursive_targets) install-am install-strip
+
+.PHONY: $(am__recursive_targets) CTAGS GTAGS TAGS all all-am all-local \
+	check check-am clean clean-generic cscopelist-am ctags \
+	ctags-am distclean distclean-generic distclean-tags distdir \
+	dvi dvi-am html html-am info info-am install install-am \
+	install-data install-data-am install-dvi install-dvi-am \
+	install-exec install-exec-am install-html install-html-am \
+	install-info install-info-am install-man install-pdf \
+	install-pdf-am install-ps install-ps-am install-strip \
+	installcheck installcheck-am installdirs installdirs-am \
+	maintainer-clean maintainer-clean-generic mostlyclean \
+	mostlyclean-generic pdf pdf-am ps ps-am tags tags-am uninstall \
+	uninstall-am
+
+
+# Ack! Nasty hack to get modules Makefile regenerated if wiped with make clean
+all-local: proxy/Makefile modules/Makefile
+
+proxy/Makefile: proxy/Makefile.PL
+	( cd proxy; perl Makefile.PL )
+
+modules/Makefile: modules/Makefile.PL
+	( cd modules; perl Makefile.PL )
+
+# Tell versions [3.59,3.63) of GNU make to not export all variables.
+# Otherwise a system limit (for SysV at least) may be exceeded.
+.NOEXPORT:

onvif/Makefile.am

@@ -0,0 +1,26 @@
+AUTOMAKE_OPTIONS = gnu
+
+# Ack! Nasty hack to get modules Makefile regenerated if wiped with make clean
+all-local: proxy/Makefile modules/Makefile
+
+proxy/Makefile: proxy/Makefile.PL
+	( cd proxy; perl Makefile.PL )
+
+modules/Makefile: modules/Makefile.PL
+	( cd modules; perl Makefile.PL )
+
+SUBDIRS = \
+ 	. \
+  proxy \
+  modules \
+  scripts 
+   
+   
+EXTRA_DIST = \
+  proxy/Makefile.PL \
+  proxy/lib \
+  modules/Makefile.PL \
+  modules/lib \
+  wsdl \
+  doc \
+  patches

onvif/Makefile.old

@@ -0,0 +1,37 @@
+# ==========================================================================
+#
+# ZoneMinder ONVIF Control Protocol Module
+# Copyright (C) Jan M. Hochstein
+#
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of the GNU General Public License
+# as published by the Free Software Foundation; either version 2
+# of the License, or (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+#
+# ==========================================================================
+
+proxy:
+	wsdl2perl.pl -p ONVIF::Device:: -b proxy file:wsdl/devicemgmt.wsdl
+	wsdl2perl.pl -p ONVIF::Media:: -b proxy file:wsdl/media.wsdl
+	wsdl2perl.pl -p ONVIF::PTZ:: -b proxy file:wsdl/ptz.wsdl
+	wsdl2perl.pl -p ONVIF::Event:: -b proxy file:wsdl/event.wsdl
+#	wsdl2perl.pl -p WSDiscovery:: -b proxy file:wsdl/wsdiscovery-udp.wsdl
+
+clean:
+	rm -rf proxy/*
+
+backup:
+	tar -czf ../zm-onvif.tar.gz *
+
+install:
+	/usr/bin/install -c src/onvif-probe.pl '/usr/local/bin'
+

onvif/modules/MYMETA.json

@@ -0,0 +1,39 @@
+{
+   "abstract" : "unknown",
+   "author" : [
+      "Jan Hochstein"
+   ],
+   "dynamic_config" : 0,
+   "generated_by" : "ExtUtils::MakeMaker version 6.72, CPAN::Meta::Converter version 2.141520",
+   "license" : [
+      "unknown"
+   ],
+   "meta-spec" : {
+      "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
+      "version" : "2"
+   },
+   "name" : "ONVIF",
+   "no_index" : {
+      "directory" : [
+         "t",
+         "inc"
+      ]
+   },
+   "prereqs" : {
+      "build" : {
+         "requires" : {
+            "ExtUtils::MakeMaker" : "0"
+         }
+      },
+      "configure" : {
+         "requires" : {
+            "ExtUtils::MakeMaker" : "0"
+         }
+      },
+      "runtime" : {
+         "requires" : {}
+      }
+   },
+   "release_status" : "stable",
+   "version" : ""
+}

onvif/modules/MYMETA.yml

@@ -0,0 +1,21 @@
+---
+abstract: unknown
+author:
+  - 'Jan Hochstein'
+build_requires:
+  ExtUtils::MakeMaker: '0'
+configure_requires:
+  ExtUtils::MakeMaker: '0'
+dynamic_config: 0
+generated_by: 'ExtUtils::MakeMaker version 6.72, CPAN::Meta::Converter version 2.141520'
+license: unknown
+meta-spec:
+  url: http://module-build.sourceforge.net/META-spec-v1.4.html
+  version: '1.4'
+name: ONVIF
+no_index:
+  directory:
+    - t
+    - inc
+requires: {}
+version: ''

onvif/modules/Makefile

@@ -0,0 +1,868 @@
+# This Makefile is for the ONVIF extension to perl.
+#
+# It was generated automatically by MakeMaker version
+# 6.72 (Revision: 67200) from the contents of
+# Makefile.PL. Don't edit this file, edit Makefile.PL instead.
+#
+#       ANY CHANGES MADE HERE WILL BE LOST!
+#
+#   MakeMaker ARGV: (q[PREFIX=/usr/local])
+#
+
+#   MakeMaker Parameters:
+
+#     AUTHOR => [q[Jan Hochstein]]
+#     BUILD_REQUIRES => {  }
+#     CONFIGURE_REQUIRES => {  }
+#     NAME => q[ONVIF]
+#     PREREQ_PM => {  }
+#     TEST_REQUIRES => {  }
+
+# --- MakeMaker post_initialize section:
+
+
+# --- MakeMaker const_config section:
+
+# These definitions are from config.sh (via /usr/lib64/perl5/Config.pm).
+# They may have been overridden via Makefile.PL or on the command line.
+AR = ar
+CC = gcc
+CCCDLFLAGS = -fPIC
+CCDLFLAGS = -Wl,--enable-new-dtags
+DLEXT = so
+DLSRC = dl_dlopen.xs
+EXE_EXT = 
+FULL_AR = /usr/bin/ar
+LD = gcc
+LDDLFLAGS = -shared -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector-strong --param=ssp-buffer-size=4 -grecord-gcc-switches -m64 -mtune=generic -Wl,-z,relro 
+LDFLAGS =  -fstack-protector
+LIBC = 
+LIB_EXT = .a
+OBJ_EXT = .o
+OSNAME = linux
+OSVERS = 3.11.9-200.fc19.x86_64
+RANLIB = :
+SITELIBEXP = /usr/local/share/perl5
+SITEARCHEXP = /usr/local/lib64/perl5
+SO = so
+VENDORARCHEXP = /usr/lib64/perl5/vendor_perl
+VENDORLIBEXP = /usr/share/perl5/vendor_perl
+
+
+# --- MakeMaker constants section:
+AR_STATIC_ARGS = cr
+DIRFILESEP = /
+DFSEP = $(DIRFILESEP)
+NAME = ONVIF
+NAME_SYM = ONVIF
+VERSION = 
+VERSION_MACRO = VERSION
+VERSION_SYM = 
+DEFINE_VERSION = -D$(VERSION_MACRO)=\"$(VERSION)\"
+XS_VERSION = 
+XS_VERSION_MACRO = XS_VERSION
+XS_DEFINE_VERSION = -D$(XS_VERSION_MACRO)=\"$(XS_VERSION)\"
+INST_ARCHLIB = blib/arch
+INST_SCRIPT = blib/script
+INST_BIN = blib/bin
+INST_LIB = blib/lib
+INST_MAN1DIR = blib/man1
+INST_MAN3DIR = blib/man3
+MAN1EXT = 1
+MAN3EXT = 3pm
+INSTALLDIRS = site
+DESTDIR = 
+PREFIX = /usr/local
+PERLPREFIX = $(PREFIX)
+SITEPREFIX = $(PREFIX)
+VENDORPREFIX = $(PREFIX)
+INSTALLPRIVLIB = $(PERLPREFIX)/share/perl5
+DESTINSTALLPRIVLIB = $(DESTDIR)$(INSTALLPRIVLIB)
+INSTALLSITELIB = $(SITEPREFIX)/share/perl5
+DESTINSTALLSITELIB = $(DESTDIR)$(INSTALLSITELIB)
+INSTALLVENDORLIB = $(VENDORPREFIX)/share/perl5/vendor_perl
+DESTINSTALLVENDORLIB = $(DESTDIR)$(INSTALLVENDORLIB)
+INSTALLARCHLIB = $(PERLPREFIX)/lib64/perl5
+DESTINSTALLARCHLIB = $(DESTDIR)$(INSTALLARCHLIB)
+INSTALLSITEARCH = $(SITEPREFIX)/lib64/perl5
+DESTINSTALLSITEARCH = $(DESTDIR)$(INSTALLSITEARCH)
+INSTALLVENDORARCH = $(VENDORPREFIX)/lib64/perl5/vendor_perl
+DESTINSTALLVENDORARCH = $(DESTDIR)$(INSTALLVENDORARCH)
+INSTALLBIN = $(PERLPREFIX)/bin
+DESTINSTALLBIN = $(DESTDIR)$(INSTALLBIN)
+INSTALLSITEBIN = $(SITEPREFIX)/bin
+DESTINSTALLSITEBIN = $(DESTDIR)$(INSTALLSITEBIN)
+INSTALLVENDORBIN = $(VENDORPREFIX)/bin
+DESTINSTALLVENDORBIN = $(DESTDIR)$(INSTALLVENDORBIN)
+INSTALLSCRIPT = $(PERLPREFIX)/bin
+DESTINSTALLSCRIPT = $(DESTDIR)$(INSTALLSCRIPT)
+INSTALLSITESCRIPT = $(SITEPREFIX)/bin
+DESTINSTALLSITESCRIPT = $(DESTDIR)$(INSTALLSITESCRIPT)
+INSTALLVENDORSCRIPT = $(VENDORPREFIX)/bin
+DESTINSTALLVENDORSCRIPT = $(DESTDIR)$(INSTALLVENDORSCRIPT)
+INSTALLMAN1DIR = $(PERLPREFIX)/share/man/man1
+DESTINSTALLMAN1DIR = $(DESTDIR)$(INSTALLMAN1DIR)
+INSTALLSITEMAN1DIR = $(SITEPREFIX)/share/man/man1
+DESTINSTALLSITEMAN1DIR = $(DESTDIR)$(INSTALLSITEMAN1DIR)
+INSTALLVENDORMAN1DIR = $(VENDORPREFIX)/share/man/man1
+DESTINSTALLVENDORMAN1DIR = $(DESTDIR)$(INSTALLVENDORMAN1DIR)
+INSTALLMAN3DIR = $(PERLPREFIX)/share/man/man3
+DESTINSTALLMAN3DIR = $(DESTDIR)$(INSTALLMAN3DIR)
+INSTALLSITEMAN3DIR = $(SITEPREFIX)/share/man/man3
+DESTINSTALLSITEMAN3DIR = $(DESTDIR)$(INSTALLSITEMAN3DIR)
+INSTALLVENDORMAN3DIR = $(VENDORPREFIX)/share/man/man3
+DESTINSTALLVENDORMAN3DIR = $(DESTDIR)$(INSTALLVENDORMAN3DIR)
+PERL_LIB = /usr/share/perl5
+PERL_ARCHLIB = /usr/lib64/perl5
+LIBPERL_A = libperl.a
+FIRST_MAKEFILE = Makefile
+MAKEFILE_OLD = Makefile.old
+MAKE_APERL_FILE = Makefile.aperl
+PERLMAINCC = $(CC)
+PERL_INC = /usr/lib64/perl5/CORE
+PERL = /usr/bin/perl
+FULLPERL = /usr/bin/perl
+ABSPERL = $(PERL)
+PERLRUN = $(PERL)
+FULLPERLRUN = $(FULLPERL)
+ABSPERLRUN = $(ABSPERL)
+PERLRUNINST = $(PERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)"
+FULLPERLRUNINST = $(FULLPERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)"
+ABSPERLRUNINST = $(ABSPERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)"
+PERL_CORE = 0
+PERM_DIR = 755
+PERM_RW = 644
+PERM_RWX = 755
+
+MAKEMAKER   = /usr/share/perl5/vendor_perl/ExtUtils/MakeMaker.pm
+MM_VERSION  = 6.72
+MM_REVISION = 67200
+
+# FULLEXT = Pathname for extension directory (eg Foo/Bar/Oracle).
+# BASEEXT = Basename part of FULLEXT. May be just equal FULLEXT. (eg Oracle)
+# PARENT_NAME = NAME without BASEEXT and no trailing :: (eg Foo::Bar)
+# DLBASE  = Basename part of dynamic library. May be just equal BASEEXT.
+MAKE = make
+FULLEXT = ONVIF
+BASEEXT = ONVIF
+PARENT_NAME = 
+DLBASE = $(BASEEXT)
+VERSION_FROM = 
+OBJECT = 
+LDFROM = $(OBJECT)
+LINKTYPE = dynamic
+BOOTDEP = 
+
+# Handy lists of source code files:
+XS_FILES = 
+C_FILES  = 
+O_FILES  = 
+H_FILES  = 
+MAN1PODS = 
+MAN3PODS = 
+
+# Where is the Config information that we are using/depend on
+CONFIGDEP = $(PERL_ARCHLIB)$(DFSEP)Config.pm $(PERL_INC)$(DFSEP)config.h
+
+# Where to build things
+INST_LIBDIR      = $(INST_LIB)
+INST_ARCHLIBDIR  = $(INST_ARCHLIB)
+
+INST_AUTODIR     = $(INST_LIB)/auto/$(FULLEXT)
+INST_ARCHAUTODIR = $(INST_ARCHLIB)/auto/$(FULLEXT)
+
+INST_STATIC      = 
+INST_DYNAMIC     = 
+INST_BOOT        = 
+
+# Extra linker info
+EXPORT_LIST        = 
+PERL_ARCHIVE       = 
+PERL_ARCHIVE_AFTER = 
+
+
+TO_INST_PM = lib/WSDiscovery/TransportUDP.pm \
+	lib/WSSecurity/SecuritySerializer.pm \
+	lib/ZoneMinder/Control/onvif-control.pm
+
+PM_TO_BLIB = lib/WSDiscovery/TransportUDP.pm \
+	blib/lib/WSDiscovery/TransportUDP.pm \
+	lib/WSSecurity/SecuritySerializer.pm \
+	blib/lib/WSSecurity/SecuritySerializer.pm \
+	lib/ZoneMinder/Control/onvif-control.pm \
+	blib/lib/ZoneMinder/Control/onvif-control.pm
+
+
+# --- MakeMaker platform_constants section:
+MM_Unix_VERSION = 6.72
+PERL_MALLOC_DEF = -DPERL_EXTMALLOC_DEF -Dmalloc=Perl_malloc -Dfree=Perl_mfree -Drealloc=Perl_realloc -Dcalloc=Perl_calloc
+
+
+# --- MakeMaker tool_autosplit section:
+# Usage: $(AUTOSPLITFILE) FileToSplit AutoDirToSplitInto
+AUTOSPLITFILE = $(ABSPERLRUN)  -e 'use AutoSplit;  autosplit($$$$ARGV[0], $$$$ARGV[1], 0, 1, 1)' --
+
+
+
+# --- MakeMaker tool_xsubpp section:
+
+
+# --- MakeMaker tools_other section:
+SHELL = /bin/sh
+CHMOD = chmod
+CP = cp
+MV = mv
+NOOP = $(TRUE)
+NOECHO = @
+RM_F = rm -f
+RM_RF = rm -rf
+TEST_F = test -f
+TOUCH = touch
+UMASK_NULL = umask 0
+DEV_NULL = > /dev/null 2>&1
+MKPATH = $(ABSPERLRUN) -MExtUtils::Command -e 'mkpath' --
+EQUALIZE_TIMESTAMP = $(ABSPERLRUN) -MExtUtils::Command -e 'eqtime' --
+FALSE = false
+TRUE = true
+ECHO = echo
+ECHO_N = echo -n
+UNINST = 0
+VERBINST = 0
+MOD_INSTALL = $(ABSPERLRUN) -MExtUtils::Install -e 'install([ from_to => {@ARGV}, verbose => '\''$(VERBINST)'\'', uninstall_shadows => '\''$(UNINST)'\'', dir_mode => '\''$(PERM_DIR)'\'' ]);' --
+DOC_INSTALL = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'perllocal_install' --
+UNINSTALL = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'uninstall' --
+WARN_IF_OLD_PACKLIST = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'warn_if_old_packlist' --
+MACROSTART = 
+MACROEND = 
+USEMAKEFILE = -f
+FIXIN = $(ABSPERLRUN) -MExtUtils::MY -e 'MY->fixin(shift)' --
+
+
+# --- MakeMaker makemakerdflt section:
+makemakerdflt : all
+	$(NOECHO) $(NOOP)
+
+
+# --- MakeMaker dist section:
+TAR = tar
+TARFLAGS = cvf
+ZIP = zip
+ZIPFLAGS = -r
+COMPRESS = gzip --best
+SUFFIX = .gz
+SHAR = shar
+PREOP = $(NOECHO) $(NOOP)
+POSTOP = $(NOECHO) $(NOOP)
+TO_UNIX = $(NOECHO) $(NOOP)
+CI = ci -u
+RCS_LABEL = rcs -Nv$(VERSION_SYM): -q
+DIST_CP = best
+DIST_DEFAULT = tardist
+DISTNAME = ONVIF
+DISTVNAME = ONVIF-
+
+
+# --- MakeMaker macro section:
+
+
+# --- MakeMaker depend section:
+
+
+# --- MakeMaker cflags section:
+
+
+# --- MakeMaker const_loadlibs section:
+
+
+# --- MakeMaker const_cccmd section:
+
+
+# --- MakeMaker post_constants section:
+
+
+# --- MakeMaker pasthru section:
+
+PASTHRU = LIBPERL_A="$(LIBPERL_A)"\
+	LINKTYPE="$(LINKTYPE)"\
+	PREFIX="$(PREFIX)"
+
+
+# --- MakeMaker special_targets section:
+.SUFFIXES : .xs .c .C .cpp .i .s .cxx .cc $(OBJ_EXT)
+
+.PHONY: all config static dynamic test linkext manifest blibdirs clean realclean disttest distdir
+
+
+
+# --- MakeMaker c_o section:
+
+
+# --- MakeMaker xs_c section:
+
+
+# --- MakeMaker xs_o section:
+
+
+# --- MakeMaker top_targets section:
+all :: pure_all manifypods
+	$(NOECHO) $(NOOP)
+
+
+pure_all :: config pm_to_blib subdirs linkext
+	$(NOECHO) $(NOOP)
+
+subdirs :: $(MYEXTLIB)
+	$(NOECHO) $(NOOP)
+
+config :: $(FIRST_MAKEFILE) blibdirs
+	$(NOECHO) $(NOOP)
+
+help :
+	perldoc ExtUtils::MakeMaker
+
+
+# --- MakeMaker blibdirs section:
+blibdirs : $(INST_LIBDIR)$(DFSEP).exists $(INST_ARCHLIB)$(DFSEP).exists $(INST_AUTODIR)$(DFSEP).exists $(INST_ARCHAUTODIR)$(DFSEP).exists $(INST_BIN)$(DFSEP).exists $(INST_SCRIPT)$(DFSEP).exists $(INST_MAN1DIR)$(DFSEP).exists $(INST_MAN3DIR)$(DFSEP).exists
+	$(NOECHO) $(NOOP)
+
+# Backwards compat with 6.18 through 6.25
+blibdirs.ts : blibdirs
+	$(NOECHO) $(NOOP)
+
+$(INST_LIBDIR)$(DFSEP).exists :: Makefile.PL
+	$(NOECHO) $(MKPATH) $(INST_LIBDIR)
+	$(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_LIBDIR)
+	$(NOECHO) $(TOUCH) $(INST_LIBDIR)$(DFSEP).exists
+
+$(INST_ARCHLIB)$(DFSEP).exists :: Makefile.PL
+	$(NOECHO) $(MKPATH) $(INST_ARCHLIB)
+	$(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_ARCHLIB)
+	$(NOECHO) $(TOUCH) $(INST_ARCHLIB)$(DFSEP).exists
+
+$(INST_AUTODIR)$(DFSEP).exists :: Makefile.PL
+	$(NOECHO) $(MKPATH) $(INST_AUTODIR)
+	$(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_AUTODIR)
+	$(NOECHO) $(TOUCH) $(INST_AUTODIR)$(DFSEP).exists
+
+$(INST_ARCHAUTODIR)$(DFSEP).exists :: Makefile.PL
+	$(NOECHO) $(MKPATH) $(INST_ARCHAUTODIR)
+	$(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_ARCHAUTODIR)
+	$(NOECHO) $(TOUCH) $(INST_ARCHAUTODIR)$(DFSEP).exists
+
+$(INST_BIN)$(DFSEP).exists :: Makefile.PL
+	$(NOECHO) $(MKPATH) $(INST_BIN)
+	$(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_BIN)
+	$(NOECHO) $(TOUCH) $(INST_BIN)$(DFSEP).exists
+
+$(INST_SCRIPT)$(DFSEP).exists :: Makefile.PL
+	$(NOECHO) $(MKPATH) $(INST_SCRIPT)
+	$(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_SCRIPT)
+	$(NOECHO) $(TOUCH) $(INST_SCRIPT)$(DFSEP).exists
+
+$(INST_MAN1DIR)$(DFSEP).exists :: Makefile.PL
+	$(NOECHO) $(MKPATH) $(INST_MAN1DIR)
+	$(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_MAN1DIR)
+	$(NOECHO) $(TOUCH) $(INST_MAN1DIR)$(DFSEP).exists
+
+$(INST_MAN3DIR)$(DFSEP).exists :: Makefile.PL
+	$(NOECHO) $(MKPATH) $(INST_MAN3DIR)
+	$(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_MAN3DIR)
+	$(NOECHO) $(TOUCH) $(INST_MAN3DIR)$(DFSEP).exists
+
+
+
+# --- MakeMaker linkext section:
+
+linkext :: $(LINKTYPE)
+	$(NOECHO) $(NOOP)
+
+
+# --- MakeMaker dlsyms section:
+
+
+# --- MakeMaker dynamic section:
+
+dynamic :: $(FIRST_MAKEFILE) $(INST_DYNAMIC) $(INST_BOOT)
+	$(NOECHO) $(NOOP)
+
+
+# --- MakeMaker dynamic_bs section:
+
+BOOTSTRAP =
+
+
+# --- MakeMaker dynamic_lib section:
+
+
+# --- MakeMaker static section:
+
+## $(INST_PM) has been moved to the all: target.
+## It remains here for awhile to allow for old usage: "make static"
+static :: $(FIRST_MAKEFILE) $(INST_STATIC)
+	$(NOECHO) $(NOOP)
+
+
+# --- MakeMaker static_lib section:
+
+
+# --- MakeMaker manifypods section:
+
+POD2MAN_EXE = $(PERLRUN) "-MExtUtils::Command::MM" -e pod2man "--"
+POD2MAN = $(POD2MAN_EXE)
+
+
+manifypods : pure_all 
+	$(NOECHO) $(NOOP)
+
+
+
+
+# --- MakeMaker processPL section:
+
+
+# --- MakeMaker installbin section:
+
+
+# --- MakeMaker subdirs section:
+
+# none
+
+# --- MakeMaker clean_subdirs section:
+clean_subdirs :
+	$(NOECHO) $(NOOP)
+
+
+# --- MakeMaker clean section:
+
+# Delete temporary files but do not touch installed files. We don't delete
+# the Makefile here so a later make realclean still has a makefile to use.
+
+clean :: clean_subdirs
+	- $(RM_F) \
+	  *$(LIB_EXT) core.[0-9][0-9][0-9] \
+	  mon.out $(BASEEXT).bso \
+	  tmon.out *perl.core \
+	  $(BASEEXT).x perl \
+	  pm_to_blib.ts lib$(BASEEXT).def \
+	  core.[0-9][0-9][0-9][0-9] so_locations \
+	  $(MAKE_APERL_FILE) $(BASEEXT).exp \
+	  pm_to_blib $(INST_ARCHAUTODIR)/extralibs.ld \
+	  perl$(EXE_EXT) core.[0-9][0-9] \
+	  MYMETA.json core.[0-9][0-9][0-9][0-9][0-9] \
+	  $(BOOTSTRAP) perl.exe \
+	  *$(OBJ_EXT) perlmain.c \
+	  $(BASEEXT).def MYMETA.yml \
+	  core blibdirs.ts \
+	  core.*perl.*.? core.[0-9] \
+	  $(INST_ARCHAUTODIR)/extralibs.all 
+	- $(RM_RF) \
+	  blib 
+	- $(NOECHO) $(RM_F) $(MAKEFILE_OLD)
+	- $(MV) $(FIRST_MAKEFILE) $(MAKEFILE_OLD) $(DEV_NULL)
+
+
+# --- MakeMaker realclean_subdirs section:
+realclean_subdirs :
+	$(NOECHO) $(NOOP)
+
+
+# --- MakeMaker realclean section:
+# Delete temporary files (via clean) and also delete dist files
+realclean purge ::  clean realclean_subdirs
+	- $(RM_F) \
+	  $(MAKEFILE_OLD) $(FIRST_MAKEFILE) 
+	- $(RM_RF) \
+	  $(DISTVNAME) 
+
+
+# --- MakeMaker metafile section:
+metafile : create_distdir
+	$(NOECHO) $(ECHO) Generating META.yml
+	$(NOECHO) $(ECHO) '---' > META_new.yml
+	$(NOECHO) $(ECHO) 'abstract: unknown' >> META_new.yml
+	$(NOECHO) $(ECHO) 'author:' >> META_new.yml
+	$(NOECHO) $(ECHO) '  - '\''Jan Hochstein'\''' >> META_new.yml
+	$(NOECHO) $(ECHO) 'build_requires:' >> META_new.yml
+	$(NOECHO) $(ECHO) '  ExtUtils::MakeMaker: '\''0'\''' >> META_new.yml
+	$(NOECHO) $(ECHO) 'configure_requires:' >> META_new.yml
+	$(NOECHO) $(ECHO) '  ExtUtils::MakeMaker: '\''0'\''' >> META_new.yml
+	$(NOECHO) $(ECHO) 'dynamic_config: 1' >> META_new.yml
+	$(NOECHO) $(ECHO) 'generated_by: '\''ExtUtils::MakeMaker version 6.72, CPAN::Meta::Converter version 2.141520'\''' >> META_new.yml
+	$(NOECHO) $(ECHO) 'license: unknown' >> META_new.yml
+	$(NOECHO) $(ECHO) 'meta-spec:' >> META_new.yml
+	$(NOECHO) $(ECHO) '  url: http://module-build.sourceforge.net/META-spec-v1.4.html' >> META_new.yml
+	$(NOECHO) $(ECHO) '  version: '\''1.4'\''' >> META_new.yml
+	$(NOECHO) $(ECHO) 'name: ONVIF' >> META_new.yml
+	$(NOECHO) $(ECHO) 'no_index:' >> META_new.yml
+	$(NOECHO) $(ECHO) '  directory:' >> META_new.yml
+	$(NOECHO) $(ECHO) '    - t' >> META_new.yml
+	$(NOECHO) $(ECHO) '    - inc' >> META_new.yml
+	$(NOECHO) $(ECHO) 'requires: {}' >> META_new.yml
+	$(NOECHO) $(ECHO) 'version: '\'''\''' >> META_new.yml
+	-$(NOECHO) $(MV) META_new.yml $(DISTVNAME)/META.yml
+	$(NOECHO) $(ECHO) Generating META.json
+	$(NOECHO) $(ECHO) '{' > META_new.json
+	$(NOECHO) $(ECHO) '   "abstract" : "unknown",' >> META_new.json
+	$(NOECHO) $(ECHO) '   "author" : [' >> META_new.json
+	$(NOECHO) $(ECHO) '      "Jan Hochstein"' >> META_new.json
+	$(NOECHO) $(ECHO) '   ],' >> META_new.json
+	$(NOECHO) $(ECHO) '   "dynamic_config" : 1,' >> META_new.json
+	$(NOECHO) $(ECHO) '   "generated_by" : "ExtUtils::MakeMaker version 6.72, CPAN::Meta::Converter version 2.141520",' >> META_new.json
+	$(NOECHO) $(ECHO) '   "license" : [' >> META_new.json
+	$(NOECHO) $(ECHO) '      "unknown"' >> META_new.json
+	$(NOECHO) $(ECHO) '   ],' >> META_new.json
+	$(NOECHO) $(ECHO) '   "meta-spec" : {' >> META_new.json
+	$(NOECHO) $(ECHO) '      "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",' >> META_new.json
+	$(NOECHO) $(ECHO) '      "version" : "2"' >> META_new.json
+	$(NOECHO) $(ECHO) '   },' >> META_new.json
+	$(NOECHO) $(ECHO) '   "name" : "ONVIF",' >> META_new.json
+	$(NOECHO) $(ECHO) '   "no_index" : {' >> META_new.json
+	$(NOECHO) $(ECHO) '      "directory" : [' >> META_new.json
+	$(NOECHO) $(ECHO) '         "t",' >> META_new.json
+	$(NOECHO) $(ECHO) '         "inc"' >> META_new.json
+	$(NOECHO) $(ECHO) '      ]' >> META_new.json
+	$(NOECHO) $(ECHO) '   },' >> META_new.json
+	$(NOECHO) $(ECHO) '   "prereqs" : {' >> META_new.json
+	$(NOECHO) $(ECHO) '      "build" : {' >> META_new.json
+	$(NOECHO) $(ECHO) '         "requires" : {' >> META_new.json
+	$(NOECHO) $(ECHO) '            "ExtUtils::MakeMaker" : "0"' >> META_new.json
+	$(NOECHO) $(ECHO) '         }' >> META_new.json
+	$(NOECHO) $(ECHO) '      },' >> META_new.json
+	$(NOECHO) $(ECHO) '      "configure" : {' >> META_new.json
+	$(NOECHO) $(ECHO) '         "requires" : {' >> META_new.json
+	$(NOECHO) $(ECHO) '            "ExtUtils::MakeMaker" : "0"' >> META_new.json
+	$(NOECHO) $(ECHO) '         }' >> META_new.json
+	$(NOECHO) $(ECHO) '      },' >> META_new.json
+	$(NOECHO) $(ECHO) '      "runtime" : {' >> META_new.json
+	$(NOECHO) $(ECHO) '         "requires" : {}' >> META_new.json
+	$(NOECHO) $(ECHO) '      }' >> META_new.json
+	$(NOECHO) $(ECHO) '   },' >> META_new.json
+	$(NOECHO) $(ECHO) '   "release_status" : "stable",' >> META_new.json
+	$(NOECHO) $(ECHO) '   "version" : ""' >> META_new.json
+	$(NOECHO) $(ECHO) '}' >> META_new.json
+	-$(NOECHO) $(MV) META_new.json $(DISTVNAME)/META.json
+
+
+# --- MakeMaker signature section:
+signature :
+	cpansign -s
+
+
+# --- MakeMaker dist_basics section:
+distclean :: realclean distcheck
+	$(NOECHO) $(NOOP)
+
+distcheck :
+	$(PERLRUN) "-MExtUtils::Manifest=fullcheck" -e fullcheck
+
+skipcheck :
+	$(PERLRUN) "-MExtUtils::Manifest=skipcheck" -e skipcheck
+
+manifest :
+	$(PERLRUN) "-MExtUtils::Manifest=mkmanifest" -e mkmanifest
+
+veryclean : realclean
+	$(RM_F) *~ */*~ *.orig */*.orig *.bak */*.bak *.old */*.old
+
+
+
+# --- MakeMaker dist_core section:
+
+dist : $(DIST_DEFAULT) $(FIRST_MAKEFILE)
+	$(NOECHO) $(ABSPERLRUN) -l -e 'print '\''Warning: Makefile possibly out of date with $(VERSION_FROM)'\''' \
+	  -e '    if -e '\''$(VERSION_FROM)'\'' and -M '\''$(VERSION_FROM)'\'' < -M '\''$(FIRST_MAKEFILE)'\'';' --
+
+tardist : $(DISTVNAME).tar$(SUFFIX)
+	$(NOECHO) $(NOOP)
+
+uutardist : $(DISTVNAME).tar$(SUFFIX)
+	uuencode $(DISTVNAME).tar$(SUFFIX) $(DISTVNAME).tar$(SUFFIX) > $(DISTVNAME).tar$(SUFFIX)_uu
+	$(NOECHO) $(ECHO) 'Created $(DISTVNAME).tar$(SUFFIX)_uu'
+
+$(DISTVNAME).tar$(SUFFIX) : distdir
+	$(PREOP)
+	$(TO_UNIX)
+	$(TAR) $(TARFLAGS) $(DISTVNAME).tar $(DISTVNAME)
+	$(RM_RF) $(DISTVNAME)
+	$(COMPRESS) $(DISTVNAME).tar
+	$(NOECHO) $(ECHO) 'Created $(DISTVNAME).tar$(SUFFIX)'
+	$(POSTOP)
+
+zipdist : $(DISTVNAME).zip
+	$(NOECHO) $(NOOP)
+
+$(DISTVNAME).zip : distdir
+	$(PREOP)
+	$(ZIP) $(ZIPFLAGS) $(DISTVNAME).zip $(DISTVNAME)
+	$(RM_RF) $(DISTVNAME)
+	$(NOECHO) $(ECHO) 'Created $(DISTVNAME).zip'
+	$(POSTOP)
+
+shdist : distdir
+	$(PREOP)
+	$(SHAR) $(DISTVNAME) > $(DISTVNAME).shar
+	$(RM_RF) $(DISTVNAME)
+	$(NOECHO) $(ECHO) 'Created $(DISTVNAME).shar'
+	$(POSTOP)
+
+
+# --- MakeMaker distdir section:
+create_distdir :
+	$(RM_RF) $(DISTVNAME)
+	$(PERLRUN) "-MExtUtils::Manifest=manicopy,maniread" \
+		-e "manicopy(maniread(),'$(DISTVNAME)', '$(DIST_CP)');"
+
+distdir : create_distdir distmeta 
+	$(NOECHO) $(NOOP)
+
+
+
+# --- MakeMaker dist_test section:
+disttest : distdir
+	cd $(DISTVNAME) && $(ABSPERLRUN) Makefile.PL "PREFIX=/usr/local"
+	cd $(DISTVNAME) && $(MAKE) $(PASTHRU)
+	cd $(DISTVNAME) && $(MAKE) test $(PASTHRU)
+
+
+
+# --- MakeMaker dist_ci section:
+
+ci :
+	$(PERLRUN) "-MExtUtils::Manifest=maniread" \
+	  -e "@all = keys %{ maniread() };" \
+	  -e "print(qq{Executing $(CI) @all\n}); system(qq{$(CI) @all});" \
+	  -e "print(qq{Executing $(RCS_LABEL) ...\n}); system(qq{$(RCS_LABEL) @all});"
+
+
+# --- MakeMaker distmeta section:
+distmeta : create_distdir metafile
+	$(NOECHO) cd $(DISTVNAME) && $(ABSPERLRUN) -MExtUtils::Manifest=maniadd -e 'exit unless -e q{META.yml};' \
+	  -e 'eval { maniadd({q{META.yml} => q{Module YAML meta-data (added by MakeMaker)}}) }' \
+	  -e '    or print "Could not add META.yml to MANIFEST: $$$${'\''@'\''}\n"' --
+	$(NOECHO) cd $(DISTVNAME) && $(ABSPERLRUN) -MExtUtils::Manifest=maniadd -e 'exit unless -f q{META.json};' \
+	  -e 'eval { maniadd({q{META.json} => q{Module JSON meta-data (added by MakeMaker)}}) }' \
+	  -e '    or print "Could not add META.json to MANIFEST: $$$${'\''@'\''}\n"' --
+
+
+
+# --- MakeMaker distsignature section:
+distsignature : create_distdir
+	$(NOECHO) cd $(DISTVNAME) && $(ABSPERLRUN) -MExtUtils::Manifest=maniadd -e 'eval { maniadd({q{SIGNATURE} => q{Public-key signature (added by MakeMaker)}}) }' \
+	  -e '    or print "Could not add SIGNATURE to MANIFEST: $$$${'\''@'\''}\n"' --
+	$(NOECHO) cd $(DISTVNAME) && $(TOUCH) SIGNATURE
+	cd $(DISTVNAME) && cpansign -s
+
+
+
+# --- MakeMaker install section:
+
+install :: pure_install doc_install
+	$(NOECHO) $(NOOP)
+
+install_perl :: pure_perl_install doc_perl_install
+	$(NOECHO) $(NOOP)
+
+install_site :: pure_site_install doc_site_install
+	$(NOECHO) $(NOOP)
+
+install_vendor :: pure_vendor_install doc_vendor_install
+	$(NOECHO) $(NOOP)
+
+pure_install :: pure_$(INSTALLDIRS)_install
+	$(NOECHO) $(NOOP)
+
+doc_install :: doc_$(INSTALLDIRS)_install
+	$(NOECHO) $(NOOP)
+
+pure__install : pure_site_install
+	$(NOECHO) $(ECHO) INSTALLDIRS not defined, defaulting to INSTALLDIRS=site
+
+doc__install : doc_site_install
+	$(NOECHO) $(ECHO) INSTALLDIRS not defined, defaulting to INSTALLDIRS=site
+
+pure_perl_install :: all
+	$(NOECHO) $(MOD_INSTALL) \
+		read $(PERL_ARCHLIB)/auto/$(FULLEXT)/.packlist \
+		write $(DESTINSTALLARCHLIB)/auto/$(FULLEXT)/.packlist \
+		$(INST_LIB) $(DESTINSTALLPRIVLIB) \
+		$(INST_ARCHLIB) $(DESTINSTALLARCHLIB) \
+		$(INST_BIN) $(DESTINSTALLBIN) \
+		$(INST_SCRIPT) $(DESTINSTALLSCRIPT) \
+		$(INST_MAN1DIR) $(DESTINSTALLMAN1DIR) \
+		$(INST_MAN3DIR) $(DESTINSTALLMAN3DIR)
+	$(NOECHO) $(WARN_IF_OLD_PACKLIST) \
+		$(SITEARCHEXP)/auto/$(FULLEXT)
+
+
+pure_site_install :: all
+	$(NOECHO) $(MOD_INSTALL) \
+		read $(SITEARCHEXP)/auto/$(FULLEXT)/.packlist \
+		write $(DESTINSTALLSITEARCH)/auto/$(FULLEXT)/.packlist \
+		$(INST_LIB) $(DESTINSTALLSITELIB) \
+		$(INST_ARCHLIB) $(DESTINSTALLSITEARCH) \
+		$(INST_BIN) $(DESTINSTALLSITEBIN) \
+		$(INST_SCRIPT) $(DESTINSTALLSITESCRIPT) \
+		$(INST_MAN1DIR) $(DESTINSTALLSITEMAN1DIR) \
+		$(INST_MAN3DIR) $(DESTINSTALLSITEMAN3DIR)
+	$(NOECHO) $(WARN_IF_OLD_PACKLIST) \
+		$(PERL_ARCHLIB)/auto/$(FULLEXT)
+
+pure_vendor_install :: all
+	$(NOECHO) $(MOD_INSTALL) \
+		read $(VENDORARCHEXP)/auto/$(FULLEXT)/.packlist \
+		write $(DESTINSTALLVENDORARCH)/auto/$(FULLEXT)/.packlist \
+		$(INST_LIB) $(DESTINSTALLVENDORLIB) \
+		$(INST_ARCHLIB) $(DESTINSTALLVENDORARCH) \
+		$(INST_BIN) $(DESTINSTALLVENDORBIN) \
+		$(INST_SCRIPT) $(DESTINSTALLVENDORSCRIPT) \
+		$(INST_MAN1DIR) $(DESTINSTALLVENDORMAN1DIR) \
+		$(INST_MAN3DIR) $(DESTINSTALLVENDORMAN3DIR)
+
+doc_perl_install :: all
+	$(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLARCHLIB)/perllocal.pod
+	-$(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB)
+	-$(NOECHO) $(DOC_INSTALL) \
+		"Module" "$(NAME)" \
+		"installed into" "$(INSTALLPRIVLIB)" \
+		LINKTYPE "$(LINKTYPE)" \
+		VERSION "$(VERSION)" \
+		EXE_FILES "$(EXE_FILES)" \
+		>> $(DESTINSTALLARCHLIB)/perllocal.pod
+
+doc_site_install :: all
+	$(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLARCHLIB)/perllocal.pod
+	-$(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB)
+	-$(NOECHO) $(DOC_INSTALL) \
+		"Module" "$(NAME)" \
+		"installed into" "$(INSTALLSITELIB)" \
+		LINKTYPE "$(LINKTYPE)" \
+		VERSION "$(VERSION)" \
+		EXE_FILES "$(EXE_FILES)" \
+		>> $(DESTINSTALLARCHLIB)/perllocal.pod
+
+doc_vendor_install :: all
+	$(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLARCHLIB)/perllocal.pod
+	-$(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB)
+	-$(NOECHO) $(DOC_INSTALL) \
+		"Module" "$(NAME)" \
+		"installed into" "$(INSTALLVENDORLIB)" \
+		LINKTYPE "$(LINKTYPE)" \
+		VERSION "$(VERSION)" \
+		EXE_FILES "$(EXE_FILES)" \
+		>> $(DESTINSTALLARCHLIB)/perllocal.pod
+
+
+uninstall :: uninstall_from_$(INSTALLDIRS)dirs
+	$(NOECHO) $(NOOP)
+
+uninstall_from_perldirs ::
+	$(NOECHO) $(UNINSTALL) $(PERL_ARCHLIB)/auto/$(FULLEXT)/.packlist
+
+uninstall_from_sitedirs ::
+	$(NOECHO) $(UNINSTALL) $(SITEARCHEXP)/auto/$(FULLEXT)/.packlist
+
+uninstall_from_vendordirs ::
+	$(NOECHO) $(UNINSTALL) $(VENDORARCHEXP)/auto/$(FULLEXT)/.packlist
+
+
+# --- MakeMaker force section:
+# Phony target to force checking subdirectories.
+FORCE :
+	$(NOECHO) $(NOOP)
+
+
+# --- MakeMaker perldepend section:
+
+
+# --- MakeMaker makefile section:
+# We take a very conservative approach here, but it's worth it.
+# We move Makefile to Makefile.old here to avoid gnu make looping.
+$(FIRST_MAKEFILE) : Makefile.PL $(CONFIGDEP)
+	$(NOECHO) $(ECHO) "Makefile out-of-date with respect to $?"
+	$(NOECHO) $(ECHO) "Cleaning current config before rebuilding Makefile..."
+	-$(NOECHO) $(RM_F) $(MAKEFILE_OLD)
+	-$(NOECHO) $(MV)   $(FIRST_MAKEFILE) $(MAKEFILE_OLD)
+	- $(MAKE) $(USEMAKEFILE) $(MAKEFILE_OLD) clean $(DEV_NULL)
+	$(PERLRUN) Makefile.PL "PREFIX=/usr/local"
+	$(NOECHO) $(ECHO) "==> Your Makefile has been rebuilt. <=="
+	$(NOECHO) $(ECHO) "==> Please rerun the $(MAKE) command.  <=="
+	$(FALSE)
+
+
+
+# --- MakeMaker staticmake section:
+
+# --- MakeMaker makeaperl section ---
+MAP_TARGET    = perl
+FULLPERL      = /usr/bin/perl
+
+$(MAP_TARGET) :: static $(MAKE_APERL_FILE)
+	$(MAKE) $(USEMAKEFILE) $(MAKE_APERL_FILE) $@
+
+$(MAKE_APERL_FILE) : $(FIRST_MAKEFILE) pm_to_blib
+	$(NOECHO) $(ECHO) Writing \"$(MAKE_APERL_FILE)\" for this $(MAP_TARGET)
+	$(NOECHO) $(PERLRUNINST) \
+		Makefile.PL DIR= \
+		MAKEFILE=$(MAKE_APERL_FILE) LINKTYPE=static \
+		MAKEAPERL=1 NORECURS=1 CCCDLFLAGS= \
+		PREFIX=/usr/local
+
+
+# --- MakeMaker test section:
+
+TEST_VERBOSE=0
+TEST_TYPE=test_$(LINKTYPE)
+TEST_FILE = test.pl
+TEST_FILES = 
+TESTDB_SW = -d
+
+testdb :: testdb_$(LINKTYPE)
+
+test :: $(TEST_TYPE) subdirs-test
+
+subdirs-test ::
+	$(NOECHO) $(NOOP)
+
+	$(NOECHO) $(ECHO) 'No tests defined for $(NAME) extension.'
+
+test_dynamic :: pure_all
+
+testdb_dynamic :: pure_all
+	PERL_DL_NONLAZY=1 $(FULLPERLRUN) $(TESTDB_SW) "-I$(INST_LIB)" "-I$(INST_ARCHLIB)" $(TEST_FILE)
+
+test_ : test_dynamic
+
+test_static :: test_dynamic
+testdb_static :: testdb_dynamic
+
+
+# --- MakeMaker ppd section:
+# Creates a PPD (Perl Package Description) for a binary distribution.
+ppd :
+	$(NOECHO) $(ECHO) '<SOFTPKG NAME="$(DISTNAME)" VERSION="$(VERSION)">' > $(DISTNAME).ppd
+	$(NOECHO) $(ECHO) '    <ABSTRACT></ABSTRACT>' >> $(DISTNAME).ppd
+	$(NOECHO) $(ECHO) '    <AUTHOR>Jan Hochstein</AUTHOR>' >> $(DISTNAME).ppd
+	$(NOECHO) $(ECHO) '    <IMPLEMENTATION>' >> $(DISTNAME).ppd
+	$(NOECHO) $(ECHO) '        <ARCHITECTURE NAME="x86_64-linux-thread-multi-5.18" />' >> $(DISTNAME).ppd
+	$(NOECHO) $(ECHO) '        <CODEBASE HREF="" />' >> $(DISTNAME).ppd
+	$(NOECHO) $(ECHO) '    </IMPLEMENTATION>' >> $(DISTNAME).ppd
+	$(NOECHO) $(ECHO) '</SOFTPKG>' >> $(DISTNAME).ppd
+
+
+# --- MakeMaker pm_to_blib section:
+
+pm_to_blib : $(FIRST_MAKEFILE) $(TO_INST_PM)
+	$(NOECHO) $(ABSPERLRUN) -MExtUtils::Install -e 'pm_to_blib({@ARGV}, '\''$(INST_LIB)/auto'\'', q[$(PM_FILTER)], '\''$(PERM_DIR)'\'')' -- \
+	  lib/WSDiscovery/TransportUDP.pm blib/lib/WSDiscovery/TransportUDP.pm \
+	  lib/WSSecurity/SecuritySerializer.pm blib/lib/WSSecurity/SecuritySerializer.pm \
+	  lib/ZoneMinder/Control/onvif-control.pm blib/lib/ZoneMinder/Control/onvif-control.pm 
+	$(NOECHO) $(TOUCH) pm_to_blib
+
+
+# --- MakeMaker selfdocument section:
+
+
+# --- MakeMaker postamble section:
+
+
+# End.

onvif/modules/Makefile.PL

@@ -0,0 +1,13 @@
+use 5.006;
+use ExtUtils::MakeMaker;
+# See lib/ExtUtils/MakeMaker.pm for details of how to influence
+# the contents of the Makefile that is written.
+WriteMakefile(
+    NAME              => 'ONVIF',
+#    VERSION_FROM      => 'lib/ZoneMinder/Base.pm', # finds $VERSION
+    PREREQ_PM         => {}, # e.g., Module::Name => 1.1
+# No need to specify perl modules.  MakeMaker will find them automatically
+    ($] >= 5.005 ?     ## Add these new keywords supported since 5.005
+      (#ABSTRACT_FROM  => 'lib/ZoneMinder.pm', # retrieve abstract from module
+       AUTHOR         => 'Jan Hochstein') : ()),
+);

onvif/modules/lib/WSDiscovery/TransportUDP.pm

@@ -0,0 +1,140 @@
+# ==========================================================================
+#
+# Perl WS-Discovery implementation
+# Copyright (C) Jan M. Hochstein
+#
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of the GNU General Public License
+# as published by the Free Software Foundation; either version 2
+# of the License, or (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+#
+# ==========================================================================
+#
+# UDP Transport for SOAP WS-Discovery to be used with SOAP::WSDL::Client
+#
+package WSDiscovery::TransportUDP;
+use strict; 
+use warnings;
+use Class::Std::Fast::Storable;
+use IO::Socket::Multicast;
+use SOAP::WSDL::Factory::Transport;
+use Time::HiRes qw( usleep );
+
+use version; our $VERSION = qv('1.00.00');
+
+# 50 times 100 msec = 5sec timeout
+use constant WAIT_TIME => 100;
+use constant WAIT_COUNT => 50;
+
+SOAP::WSDL::Factory::Transport->register( 'soap.udp' => __PACKAGE__ );
+
+my %code_of :ATTR(:name<code>           :default<()>);
+my %status_of :ATTR(:name<status>       :default<()>);
+my %message_of :ATTR(:name<message>     :default<()>);
+my %is_success_of :ATTR(:name<is_success> :default<()>);
+
+my %local_addr_of :ATTR(:name<local_addr> :init_arg<local_addr> :default<()>);
+
+
+# create methods normally inherited from SOAP::Client
+SUBFACTORY: {
+    no strict qw(refs);
+    foreach my $method ( qw(code message status is_success) ) {
+        *{ $method } = *{ "get_$method" };
+    }
+}
+
+sub send_multi() {
+  my ($self, $address, $port, $data) = @_;
+
+  my $destination = $address . ':' . $port;
+  my $socket = IO::Socket::Multicast->new(PROTO => 'udp', 
+      LocalPort=>$port, PeerAddr=>$destination, ReuseAddr=>1)
+      
+      or die 'Cannot open multicast socket to ' . ${address} . ':' . ${port};
+      
+  $socket->mcast_ttl(1);
+  $socket->send($data);
+}
+
+sub receive_multi() {
+  my ($self, $address, $port) = @_;
+  my $data = undef;
+  
+  my $socket = IO::Socket::Multicast->new(PROTO => 'udp', 
+      LocalPort=>$port, ReuseAddr=>1);
+	$socket->mcast_add($address);
+  
+  $socket->recv($data, 9999);
+  
+  return $data;
+}
+
+sub receive_uni() {
+  my ($self, $address, $port, $localaddr) = @_;
+  my $data = undef;
+  
+  my $socket = IO::Socket::Multicast->new(PROTO => 'udp', 
+      LocalAddr => $localaddr, LocalPort=>$port, ReuseAddr=>1);
+      
+	$socket->mcast_add($address);
+  
+  $socket->recv($data, 9999);
+  
+  return $data;
+}
+ 
+sub send_receive {
+    my ($self, %parameters) = @_;
+    my ($envelope, $soap_action, $endpoint, $encoding, $content_type) =
+        @parameters{qw(envelope action endpoint encoding content_type)};
+
+    my ($address,$port) = ($endpoint =~ /([^:\/]+):([0-9]+)/);
+
+#    warn "address = ${address}";
+#    warn "port = ${port}";
+
+    $self->send_multi($address, $port, $envelope);
+
+    my $localaddr = $self->get_local_addr();
+
+    my $response;
+    my $wait = WAIT_COUNT;
+    while ($wait) {
+      if($localaddr) {
+        if($response = $self->receive_uni($address, $port, $localaddr)) {
+          last;
+        }
+      }
+      if($response = $self->receive_multi($address, $port)) {
+        last;
+      }
+      msleep(WAIT_TIME);
+      $wait --;
+    }
+    
+    if($response) {
+      $self->code();
+      $self->message();
+      $self->is_success(1);
+      $self->status('OK');
+    }
+    else{
+      $self->code();
+      $self->message();
+      $self->is_success(0);
+      $self->status('TIMEOUT');
+    }
+    return $response;
+}
+
+1;

onvif/modules/lib/WSSecurity/SecuritySerializer.pm

@@ -0,0 +1,135 @@
+# ==========================================================================
+#
+# Perl WS-Security header for SOAP::WSDL
+# Copyright (C) Jan M. Hochstein
+#
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of the GNU General Public License
+# as published by the Free Software Foundation; either version 2
+# of the License, or (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+#
+# ==========================================================================
+#
+# Serializer with WS-Security header for SOAP::WSDL
+#
+package WSSecurity::SecuritySerializer;
+use strict; 
+use warnings;
+use SOAP::WSDL::Factory::Serializer;
+use Time::Local;
+use Digest::SHA1;
+use MIME::Base64;
+
+
+use base qw( SOAP::WSDL::Serializer::XSD );
+
+use version; our $VERSION = qv('1.00.00');
+
+my $SOAP_NS = 'http://schemas.xmlsoap.org/soap/envelope/';
+my $XML_INSTANCE_NS = 'http://www.w3.org/2001/XMLSchema-instance';
+
+
+#SOAP::WSDL::Factory::Serializer->register( '1.1' , __PACKAGE__ );
+
+my %username_of :ATTR(:name<username>       :default<()>);
+my %password_of :ATTR(:name<password>       :default<()>);
+
+SUBFACTORY: {
+    for (qw(username password)) {
+        my $setter = "set_$_";
+        my $getter = "get_$_";
+        no strict qw(refs);     ## no critic ProhibitNoStrict
+        *{ $_ } = sub { my $self = shift;
+            if (@_) {
+                $self->$setter(@_);
+                return $self;
+            }
+            return $self->$getter()
+        };
+    }
+}
+
+#
+# #############################################################################
+#
+# the following methods have been adapted from an example implementation at
+# http://www.wlp-systems.de/soap-lite-and-ws-security
+#
+
+sub timestamp {
+    my ($sec,$min,$hour,$mday,$mon,$year,undef,undef,undef) = gmtime(time);
+    $mon++;
+    $year = $year + 1900;
+    return sprintf("%04d-%02d-%02dT%02d:%02d:%02dZ",$year,$mon,$mday,$hour,$min,$sec);
+}
+
+sub create_generator {
+    my ($name,$start_with) = @_;
+    my $i = $start_with;
+    return sub {  $name . ++$i; };
+}
+
+*default_nonce_generator = create_generator( "a value of ", int(1000*rand()) );
+
+sub ws_authen {
+    my($username,$password,$nonce_generator) = @_;
+    if(!defined($nonce_generator)) {
+        $nonce_generator = \&default_nonce_generator;
+    }
+    my $nonce = $nonce_generator->();
+    my $timestamp = timestamp();
+
+    my $pwDigest =  Digest::SHA1::sha1( $nonce . $timestamp . $password );
+    my $passwordHash = MIME::Base64::encode_base64($pwDigest,"");
+    my $nonceHash = MIME::Base64::encode_base64($nonce,"");
+
+    my $auth = <<END;
+<wsse:Security xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd"
+               xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd">
+  <wsse:UsernameToken>
+    <wsse:Username>$username</wsse:Username>
+    <wsse:Password Type="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-username-token-profile-1.0#PasswordDigest">$passwordHash</wsse:Password>
+    <wsse:Nonce>$nonceHash</wsse:Nonce>
+    <wsu:Created>$timestamp</wsu:Created>
+  </wsse:UsernameToken>
+</wsse:Security>
+END
+
+#    warn "Auth Header is: " . $auth;
+    
+    $auth;
+}
+
+#
+# #############################################################################
+#
+
+sub security_header {
+  my ($self) = @_;
+  
+  return ws_authen($self->username, $self->password, );
+}
+
+sub serialize_header() {
+    my ($self, $method, $data, $opt) = @_;
+
+    # header is optional. Leave out if there's no header data
+    return join ( q{},
+        "<$opt->{ namespace }->{ $SOAP_NS }\:Header>",
+        $self->security_header(),
+        ( $data && blessed $data ) ? $data->serialize_qualified : (),
+        "</$opt->{ namespace }->{ $SOAP_NS }\:Header>",
+    );
+}
+
+
+1;

onvif/modules/lib/ZoneMinder/Control/onvif-control.pm

@@ -0,0 +1,414 @@
+# ==========================================================================
+#
+# ZoneMinder ONVIF Control Protocol Module
+# Copyright (C) Jan M. Hochstein
+#
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of the GNU General Public License
+# as published by the Free Software Foundation; either version 2
+# of the License, or (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+#
+# ==========================================================================
+#
+# This module contains the implementation of the ONVIF device control protocol
+#
+package ZoneMinder::Control::ONVIF;
+
+use 5.006;
+use strict;
+use warnings;
+
+require ZoneMinder::Control;
+require ONVIF::Device;
+require ONVIF::Media;
+require ONVIF::PTZ;
+
+our @ISA = qw(ZoneMinder::Control);
+
+our %CamParams = ();
+
+# ==========================================================================
+#
+# ONVIF Control Protocol
+# 
+# On ControlAddress use the format :
+#   USERNAME:PASSWORD@ADDRESS:PORT
+#   eg : admin:@10.1.2.1:80
+#        zoneminder:zonepass@10.0.100.1:40000
+#
+# ==========================================================================
+
+use ZoneMinder::Logger qw(:all);
+use ZoneMinder::Config qw(:all);
+
+use Time::HiRes qw( usleep );
+
+sub new
+{ 
+
+    my $class = shift;
+    my $id = shift;
+    my $self = ZoneMinder::Control->new( $id );
+    my $logindetails = "";
+    bless( $self, $class );
+    srand( time() );
+    return $self;
+}
+
+our $AUTOLOAD;
+
+sub AUTOLOAD
+{
+    my $self = shift;
+    my $class = ref( ) || croak( "$self not object" );
+    my $name = $AUTOLOAD;
+    $name =~ s/.*://;
+    if ( exists($self->{$name}) )
+    {
+        return( $self->{$name} );
+    }
+    Fatal( "Can't access $name member of object of class $class" );
+}
+
+sub open
+{
+    my $self = shift;
+
+    $self->loadMonitor();
+
+    use LWP::UserAgent;
+    $self->{ua} = LWP::UserAgent->new;
+    $self->{ua}->agent( "ZoneMinder Control Agent/".ZoneMinder::Base::ZM_VERSION );
+
+    $self->{state} = 'open';
+}
+
+sub close
+{ 
+    my $self = shift;
+    $self->{state} = 'closed';
+}
+
+sub printMsg
+{
+    my $self = shift;
+    my $msg = shift;
+    my $msg_len = length($msg);
+
+    Debug( $msg."[".$msg_len."]" );
+}
+
+sub sendCmd
+{
+    my $self = shift;
+    my $cmd = shift;
+    my $result = undef;
+    printMsg( $cmd, "Tx" );
+
+    my $req = HTTP::Request->new( GET=>"http://".$self->{Monitor}->{ControlAddress}."/$cmd" );
+    my $res = $self->{ua}->request($req);
+
+    if ( $res->is_success )
+    {
+        $result = !undef;
+    }
+    else
+    {
+        Error( "Error check failed:'".$res->status_line()."'" );
+    }
+
+    return( $result );
+}
+
+sub getCamParams
+{
+    my $self = shift;
+
+    my $req = HTTP::Request->new( GET=>"http://".$self->{Monitor}->{ControlAddress}."/get_camera_params.cgi" );
+    my $res = $self->{ua}->request($req);
+
+    if ( $res->is_success ) 
+    {
+        # Parse results setting values in %FCParams
+        my $content = $res->decoded_content;
+
+        while ($content =~ s/var\s+([^=]+)=([^;]+);//ms) {
+            $CamParams{$1} = $2;
+        }
+    } 
+    else
+    {
+        Error( "Error check failed:'".$res->status_line()."'" );
+    }
+}
+
+#autoStop
+#This makes use of the ZoneMinder Auto Stop Timeout on the Control Tab
+sub autoStop
+{
+    my $self = shift;
+    my $stop_command = shift;
+    my $autostop = shift;
+    if( $stop_command && $autostop)
+    {
+        Debug( "Auto Stop" );
+        usleep( $autostop );
+        my $cmd = "decoder_control.cgi?command=".$stop_command;
+        $self->sendCmd( $cmd );
+    }
+
+}
+
+# Reset the Camera
+sub reset
+{
+    my $self = shift;
+    Debug( "Camera Reset" );
+    my $cmd = "reboot.cgi?";
+    $self->sendCmd( $cmd );
+}
+
+#Up Arrow
+sub moveConUp
+{
+    my $self = shift;
+    my $stop_command = "1";
+    Debug( "Move Up" );
+    my $cmd = "decoder_control.cgi?command=0";
+    $self->sendCmd( $cmd );
+    $self->autoStop( $stop_command, $self->{Monitor}->{AutoStopTimeout} );
+}
+
+#Down Arrow
+sub moveConDown
+{
+    my $self = shift;
+    my $stop_command = "3";
+    Debug( "Move Down" );
+    my $cmd = "decoder_control.cgi?command=2";
+    $self->sendCmd( $cmd );
+    $self->autoStop( $stop_command, $self->{Monitor}->{AutoStopTimeout} );
+}
+
+#Left Arrow
+sub moveConLeft
+{
+    my $self = shift;
+    my $stop_command = "5";
+    Debug( "Move Left" );
+    my $cmd = "decoder_control.cgi?command=4";
+    $self->sendCmd( $cmd );
+    $self->autoStop( $stop_command, $self->{Monitor}->{AutoStopTimeout} );
+}
+
+#Right Arrow
+sub moveConRight
+{
+    my $self = shift;
+    my $stop_command = "7";
+    Debug( "Move Right" );
+    my $cmd = "decoder_control.cgi?command=6";
+    $self->sendCmd( $cmd );
+    $self->autoStop( $stop_command, $self->{Monitor}->{AutoStopTimeout} );
+}
+
+#Zoom In
+sub zoomConTele
+{
+    my $self = shift;
+    my $stop_command = "17";
+    Debug( "Zoom Tele" );
+    my $cmd = "decoder_control.cgi?command=18";
+    $self->sendCmd( $cmd );
+    $self->autoStop( $stop_command, $self->{Monitor}->{AutoStopTimeout} );
+}
+
+#Zoom Out
+sub zoomConWide
+{
+    my $self = shift;
+    my $stop_command = "19";
+    Debug( "Zoom Wide" );
+    my $cmd = "decoder_control.cgi?command=16";
+    $self->sendCmd( $cmd );
+    $self->autoStop( $stop_command, $self->{Monitor}->{AutoStopTimeout} );
+}
+
+#Diagonally Up Right Arrow
+#This camera does not have builtin diagonal commands so we emulate them
+sub moveConUpRight
+{
+    my $self = shift;
+    Debug( "Move Diagonally Up Right" );
+    $self->moveConUp( );
+    $self->moveConRight( );
+}
+
+#Diagonally Down Right Arrow
+#This camera does not have builtin diagonal commands so we emulate them
+sub moveConDownRight
+{
+    my $self = shift;
+    Debug( "Move Diagonally Down Right" );
+    $self->moveConDown( );
+    $self->moveConRight( );
+}
+
+#Diagonally Up Left Arrow
+#This camera does not have builtin diagonal commands so we emulate them
+sub moveConUpLeft
+{
+    my $self = shift;
+    Debug( "Move Diagonally Up Left" );
+    $self->moveConUp( );
+    $self->moveConLeft( );
+}
+
+#Diagonally Down Left Arrow
+#This camera does not have builtin diagonal commands so we emulate them
+sub moveConDownLeft
+{
+    my $self = shift;
+    Debug( "Move Diagonally Down Left" );
+    $self->moveConDown( );
+    $self->moveConLeft( );
+}
+
+#Stop
+sub moveStop
+{
+    my $self = shift;
+    Debug( "Move Stop" );
+    my $cmd = "decoder_control.cgi?command=1";
+    $self->sendCmd( $cmd );
+}
+
+#Set Camera Preset
+#Presets must be translated into values internal to the camera
+#Those values are: 30,32,34,36,38,40,42,44 for presets 1-8 respectively
+sub presetSet
+{
+    my $self = shift;
+    my $params = shift;
+    my $preset = $self->getParam( $params, 'preset' );
+    Debug( "Set Preset $preset" );
+
+    if (( $preset >= 1 ) && ( $preset <= 8 )) {
+        my $cmd = "decoder_control.cgi?command=".(($preset*2) + 28);
+        $self->sendCmd( $cmd );
+    }
+}
+
+#Recall Camera Preset
+#Presets must be translated into values internal to the camera
+#Those values are: 31,33,35,37,39,41,43,45 for presets 1-8 respectively
+sub presetGoto
+{
+    my $self = shift;
+    my $params = shift;
+    my $preset = $self->getParam( $params, 'preset' );
+    Debug( "Goto Preset $preset" );
+
+    if (( $preset >= 1 ) && ( $preset <= 8 )) {
+        my $cmd = "decoder_control.cgi?command=".(($preset*2) + 29);
+        $self->sendCmd( $cmd );
+    }
+
+    if ( $preset == 9 ) {
+        $self->horizontalPatrol();
+    }
+
+    if ( $preset == 10 ) {
+        $self->horizontalPatrolStop();
+    }
+}
+
+#Horizontal Patrol - Vertical Patrols are not supported
+sub horizontalPatrol
+{
+    my $self = shift;
+    Debug( "Horizontal Patrol" );
+    my $cmd = "decoder_control.cgi?command=20";
+    $self->sendCmd( $cmd );
+}
+
+#Horizontal Patrol Stop
+sub horizontalPatrolStop
+{
+    my $self = shift;
+    Debug( "Horizontal Patrol Stop" );
+    my $cmd = "decoder_control.cgi?command=21";
+    $self->sendCmd( $cmd );
+}
+
+# Increase Brightness
+sub irisAbsOpen
+{
+    my $self = shift;
+    my $params = shift;
+    $self->getCamParams() unless($CamParams{'brightness'});
+    my $step = $self->getParam( $params, 'step' );
+
+    $CamParams{'brightness'} += $step;
+    $CamParams{'brightness'} = 255 if ($CamParams{'brightness'} > 255);
+    Debug( "Iris $CamParams{'brightness'}" );
+    my $cmd = "camera_control.cgi?param=1&value=".$CamParams{'brightness'};
+    $self->sendCmd( $cmd );
+}
+
+# Decrease Brightness
+sub irisAbsClose
+{
+    my $self = shift;
+    my $params = shift;
+    $self->getCamParams() unless($CamParams{'brightness'});
+    my $step = $self->getParam( $params, 'step' );
+
+    $CamParams{'brightness'} -= $step;
+    $CamParams{'brightness'} = 0 if ($CamParams{'brightness'} < 0);
+    Debug( "Iris $CamParams{'brightness'}" );
+    my $cmd = "camera_control.cgi?param=1&value=".$CamParams{'brightness'};
+    $self->sendCmd( $cmd );
+}
+
+# Increase Contrast
+sub whiteAbsIn
+{
+    my $self = shift;
+    my $params = shift;
+    $self->getCamParams() unless($CamParams{'contrast'});
+    my $step = $self->getParam( $params, 'step' );
+
+    $CamParams{'contrast'} += $step;
+    $CamParams{'contrast'} = 6 if ($CamParams{'contrast'} > 6);
+    Debug( "Iris $CamParams{'contrast'}" );
+    my $cmd = "camera_control.cgi?param=2&value=".$CamParams{'contrast'};
+    $self->sendCmd( $cmd );
+}
+
+# Decrease Contrast
+sub whiteAbsOut
+{
+    my $self = shift;
+    my $params = shift;
+    $self->getCamParams() unless($CamParams{'contrast'});
+    my $step = $self->getParam( $params, 'step' );
+
+    $CamParams{'contrast'} -= $step;
+    $CamParams{'contrast'} = 0 if ($CamParams{'contrast'} < 0);
+    Debug( "Iris $CamParams{'contrast'}" );
+    my $cmd = "camera_control.cgi?param=2&value=".$CamParams{'contrast'};
+    $self->sendCmd( $cmd );
+}
+
+1;
+

onvif/proxy/MYMETA.json

@@ -0,0 +1,39 @@
+{
+   "abstract" : "unknown",
+   "author" : [
+      "Jan Hochstein"
+   ],
+   "dynamic_config" : 0,
+   "generated_by" : "ExtUtils::MakeMaker version 6.72, CPAN::Meta::Converter version 2.141520",
+   "license" : [
+      "unknown"
+   ],
+   "meta-spec" : {
+      "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
+      "version" : "2"
+   },
+   "name" : "ONVIF",
+   "no_index" : {
+      "directory" : [
+         "t",
+         "inc"
+      ]
+   },
+   "prereqs" : {
+      "build" : {
+         "requires" : {
+            "ExtUtils::MakeMaker" : "0"
+         }
+      },
+      "configure" : {
+         "requires" : {
+            "ExtUtils::MakeMaker" : "0"
+         }
+      },
+      "runtime" : {
+         "requires" : {}
+      }
+   },
+   "release_status" : "stable",
+   "version" : ""
+}

onvif/proxy/MYMETA.yml

@@ -0,0 +1,21 @@
+---
+abstract: unknown
+author:
+  - 'Jan Hochstein'
+build_requires:
+  ExtUtils::MakeMaker: '0'
+configure_requires:
+  ExtUtils::MakeMaker: '0'
+dynamic_config: 0
+generated_by: 'ExtUtils::MakeMaker version 6.72, CPAN::Meta::Converter version 2.141520'
+license: unknown
+meta-spec:
+  url: http://module-build.sourceforge.net/META-spec-v1.4.html
+  version: '1.4'
+name: ONVIF
+no_index:
+  directory:
+    - t
+    - inc
+requires: {}
+version: ''

onvif/proxy/Makefile.PL

@@ -0,0 +1,13 @@
+use 5.006;
+use ExtUtils::MakeMaker;
+# See lib/ExtUtils/MakeMaker.pm for details of how to influence
+# the contents of the Makefile that is written.
+WriteMakefile(
+    NAME              => 'ONVIF',
+#    VERSION_FROM      => 'lib/ZoneMinder/Base.pm', # finds $VERSION
+    PREREQ_PM         => {}, # e.g., Module::Name => 1.1
+# No need to specify perl modules.  MakeMaker will find them automatically
+    ($] >= 5.005 ?     ## Add these new keywords supported since 5.005
+      (#ABSTRACT_FROM  => 'lib/ZoneMinder.pm', # retrieve abstract from module
+       AUTHOR         => 'Jan Hochstein') : ()),
+);

onvif/proxy/lib/ONVIF/Device/Attributes/actor.pm

@@ -0,0 +1,54 @@
+
+package ONVIF::Device::Attributes::actor;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://schemas.xmlsoap.org/soap/envelope/' }
+
+__PACKAGE__->__set_name('actor');
+__PACKAGE__->__set_ref();
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Attribute
+    SOAP::WSDL::XSD::Typelib::Builtin::anyURI
+);
+
+}
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Attributes::actor
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined attribute
+actor from the namespace http://schemas.xmlsoap.org/soap/envelope/.
+
+
+
+
+
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Attributes::actor->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ { value => $value }
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Attributes/contentType.pm

@@ -0,0 +1,64 @@
+
+package ONVIF::Device::Attributes::contentType;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.w3.org/2005/05/xmlmime' }
+
+__PACKAGE__->__set_name('contentType');
+__PACKAGE__->__set_ref();
+
+# atomic simpleType: <attribute><simpleType
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Attribute
+);
+# derivation by restriction
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Builtin::string);
+
+
+}
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Attributes::contentType
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined attribute
+contentType from the namespace http://www.w3.org/2005/05/xmlmime.
+
+
+
+
+
+
+This XML element type class has a atomic simpleType as it's base:
+
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Attributes::contentType->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ { value => $value }
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Attributes/encodingStyle.pm

@@ -0,0 +1,54 @@
+
+package ONVIF::Device::Attributes::encodingStyle;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://schemas.xmlsoap.org/soap/envelope/' }
+
+__PACKAGE__->__set_name('encodingStyle');
+__PACKAGE__->__set_ref();
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Attribute
+    ONVIF::Device::Types::encodingStyle
+);
+
+}
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Attributes::encodingStyle
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined attribute
+encodingStyle from the namespace http://schemas.xmlsoap.org/soap/envelope/.
+
+
+
+
+
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Attributes::encodingStyle->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ { value => $value }
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Attributes/expectedContentTypes.pm

@@ -0,0 +1,54 @@
+
+package ONVIF::Device::Attributes::expectedContentTypes;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.w3.org/2005/05/xmlmime' }
+
+__PACKAGE__->__set_name('expectedContentTypes');
+__PACKAGE__->__set_ref();
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Attribute
+    SOAP::WSDL::XSD::Typelib::Builtin::string
+);
+
+}
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Attributes::expectedContentTypes
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined attribute
+expectedContentTypes from the namespace http://www.w3.org/2005/05/xmlmime.
+
+
+
+
+
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Attributes::expectedContentTypes->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ { value => $value }
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Attributes/mustUnderstand.pm

@@ -0,0 +1,64 @@
+
+package ONVIF::Device::Attributes::mustUnderstand;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://schemas.xmlsoap.org/soap/envelope/' }
+
+__PACKAGE__->__set_name('mustUnderstand');
+__PACKAGE__->__set_ref();
+
+# atomic simpleType: <attribute><simpleType
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Attribute
+);
+# derivation by restriction
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Builtin::boolean);
+
+
+}
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Attributes::mustUnderstand
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined attribute
+mustUnderstand from the namespace http://schemas.xmlsoap.org/soap/envelope/.
+
+
+
+
+
+
+This XML element type class has a atomic simpleType as it's base:
+
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Attributes::mustUnderstand->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ { value => $value }
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/AddIPAddressFilter.pm

@@ -0,0 +1,133 @@
+
+package ONVIF::Device::Elements::AddIPAddressFilter;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('AddIPAddressFilter');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %IPAddressFilter_of :ATTR(:get<IPAddressFilter>);
+
+__PACKAGE__->_factory(
+    [ qw(        IPAddressFilter
+
+    ) ],
+    {
+        'IPAddressFilter' => \%IPAddressFilter_of,
+    },
+    {
+        'IPAddressFilter' => 'ONVIF::Device::Types::IPAddressFilter',
+    },
+    {
+
+        'IPAddressFilter' => 'IPAddressFilter',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::AddIPAddressFilter
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+AddIPAddressFilter from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * IPAddressFilter
+
+ $element->set_IPAddressFilter($data);
+ $element->get_IPAddressFilter();
+
+
+
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::AddIPAddressFilter->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   IPAddressFilter =>  { # ONVIF::Device::Types::IPAddressFilter
+     Type => $some_value, # IPAddressFilterType
+     IPv4Address =>  { # ONVIF::Device::Types::PrefixedIPv4Address
+       Address => $some_value, # IPv4Address
+       PrefixLength =>  $some_value, # int
+     },
+     IPv6Address =>  { # ONVIF::Device::Types::PrefixedIPv6Address
+       Address => $some_value, # IPv6Address
+       PrefixLength =>  $some_value, # int
+     },
+     Extension =>  { # ONVIF::Device::Types::IPAddressFilterExtension
+     },
+   },
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/AddIPAddressFilterResponse.pm

@@ -0,0 +1,107 @@
+
+package ONVIF::Device::Elements::AddIPAddressFilterResponse;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('AddIPAddressFilterResponse');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+
+__PACKAGE__->_factory(
+    [ qw(
+    ) ],
+    {
+    },
+    {
+    },
+    {
+
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::AddIPAddressFilterResponse
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+AddIPAddressFilterResponse from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::AddIPAddressFilterResponse->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/AddScopes.pm

@@ -0,0 +1,121 @@
+
+package ONVIF::Device::Elements::AddScopes;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('AddScopes');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %ScopeItem_of :ATTR(:get<ScopeItem>);
+
+__PACKAGE__->_factory(
+    [ qw(        ScopeItem
+
+    ) ],
+    {
+        'ScopeItem' => \%ScopeItem_of,
+    },
+    {
+        'ScopeItem' => 'SOAP::WSDL::XSD::Typelib::Builtin::anyURI',
+    },
+    {
+
+        'ScopeItem' => 'ScopeItem',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::AddScopes
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+AddScopes from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * ScopeItem
+
+ $element->set_ScopeItem($data);
+ $element->get_ScopeItem();
+
+
+
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::AddScopes->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   ScopeItem =>  $some_value, # anyURI
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/AddScopesResponse.pm

@@ -0,0 +1,107 @@
+
+package ONVIF::Device::Elements::AddScopesResponse;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('AddScopesResponse');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+
+__PACKAGE__->_factory(
+    [ qw(
+    ) ],
+    {
+    },
+    {
+    },
+    {
+
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::AddScopesResponse
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+AddScopesResponse from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::AddScopesResponse->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/AudioDecoderConfiguration.pm

@@ -0,0 +1,58 @@
+
+package ONVIF::Device::Elements::AudioDecoderConfiguration;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/schema' }
+
+__PACKAGE__->__set_name('AudioDecoderConfiguration');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    ONVIF::Device::Types::AudioDecoderConfiguration
+);
+
+}
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::AudioDecoderConfiguration
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+AudioDecoderConfiguration from the namespace http://www.onvif.org/ver10/schema.
+
+
+
+
+
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::AudioDecoderConfiguration->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ { # ONVIF::Device::Types::AudioDecoderConfiguration
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/AudioEncoderConfiguration.pm

@@ -0,0 +1,72 @@
+
+package ONVIF::Device::Elements::AudioEncoderConfiguration;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/schema' }
+
+__PACKAGE__->__set_name('AudioEncoderConfiguration');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    ONVIF::Device::Types::AudioEncoderConfiguration
+);
+
+}
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::AudioEncoderConfiguration
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+AudioEncoderConfiguration from the namespace http://www.onvif.org/ver10/schema.
+
+
+
+
+
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::AudioEncoderConfiguration->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ { # ONVIF::Device::Types::AudioEncoderConfiguration
+   Encoding => $some_value, # AudioEncoding
+   Bitrate =>  $some_value, # int
+   SampleRate =>  $some_value, # int
+   Multicast =>  { # ONVIF::Device::Types::MulticastConfiguration
+     Address =>  { # ONVIF::Device::Types::IPAddress
+       Type => $some_value, # IPType
+       IPv4Address => $some_value, # IPv4Address
+       IPv6Address => $some_value, # IPv6Address
+     },
+     Port =>  $some_value, # int
+     TTL =>  $some_value, # int
+     AutoStart =>  $some_value, # boolean
+   },
+   SessionTimeout =>  $some_value, # duration
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/AudioOutputConfiguration.pm

@@ -0,0 +1,61 @@
+
+package ONVIF::Device::Elements::AudioOutputConfiguration;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/schema' }
+
+__PACKAGE__->__set_name('AudioOutputConfiguration');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    ONVIF::Device::Types::AudioOutputConfiguration
+);
+
+}
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::AudioOutputConfiguration
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+AudioOutputConfiguration from the namespace http://www.onvif.org/ver10/schema.
+
+
+
+
+
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::AudioOutputConfiguration->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ { # ONVIF::Device::Types::AudioOutputConfiguration
+   OutputToken => $some_value, # ReferenceToken
+   SendPrimacy =>  $some_value, # anyURI
+   OutputLevel =>  $some_value, # int
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/AudioSourceConfiguration.pm

@@ -0,0 +1,59 @@
+
+package ONVIF::Device::Elements::AudioSourceConfiguration;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/schema' }
+
+__PACKAGE__->__set_name('AudioSourceConfiguration');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    ONVIF::Device::Types::AudioSourceConfiguration
+);
+
+}
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::AudioSourceConfiguration
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+AudioSourceConfiguration from the namespace http://www.onvif.org/ver10/schema.
+
+
+
+
+
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::AudioSourceConfiguration->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ { # ONVIF::Device::Types::AudioSourceConfiguration
+   SourceToken => $some_value, # ReferenceToken
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/Body.pm

@@ -0,0 +1,58 @@
+
+package ONVIF::Device::Elements::Body;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://schemas.xmlsoap.org/soap/envelope/' }
+
+__PACKAGE__->__set_name('Body');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    ONVIF::Device::Types::Body
+);
+
+}
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::Body
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+Body from the namespace http://schemas.xmlsoap.org/soap/envelope/.
+
+
+
+
+
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::Body->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ { # ONVIF::Device::Types::Body
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/Capabilities.pm

@@ -0,0 +1,62 @@
+
+package ONVIF::Device::Elements::Capabilities;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('Capabilities');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    ONVIF::Device::Types::DeviceServiceCapabilities
+);
+
+}
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::Capabilities
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+Capabilities from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::Capabilities->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ { # ONVIF::Device::Types::DeviceServiceCapabilities
+   Network => ,
+   Security => ,
+   System => ,
+   Misc => ,
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/CreateCertificate.pm

@@ -0,0 +1,163 @@
+
+package ONVIF::Device::Elements::CreateCertificate;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('CreateCertificate');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %CertificateID_of :ATTR(:get<CertificateID>);
+my %Subject_of :ATTR(:get<Subject>);
+my %ValidNotBefore_of :ATTR(:get<ValidNotBefore>);
+my %ValidNotAfter_of :ATTR(:get<ValidNotAfter>);
+
+__PACKAGE__->_factory(
+    [ qw(        CertificateID
+        Subject
+        ValidNotBefore
+        ValidNotAfter
+
+    ) ],
+    {
+        'CertificateID' => \%CertificateID_of,
+        'Subject' => \%Subject_of,
+        'ValidNotBefore' => \%ValidNotBefore_of,
+        'ValidNotAfter' => \%ValidNotAfter_of,
+    },
+    {
+        'CertificateID' => 'SOAP::WSDL::XSD::Typelib::Builtin::token',
+        'Subject' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+        'ValidNotBefore' => 'SOAP::WSDL::XSD::Typelib::Builtin::dateTime',
+        'ValidNotAfter' => 'SOAP::WSDL::XSD::Typelib::Builtin::dateTime',
+    },
+    {
+
+        'CertificateID' => 'CertificateID',
+        'Subject' => 'Subject',
+        'ValidNotBefore' => 'ValidNotBefore',
+        'ValidNotAfter' => 'ValidNotAfter',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::CreateCertificate
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+CreateCertificate from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * CertificateID
+
+ $element->set_CertificateID($data);
+ $element->get_CertificateID();
+
+
+
+
+=item * Subject
+
+ $element->set_Subject($data);
+ $element->get_Subject();
+
+
+
+
+=item * ValidNotBefore
+
+ $element->set_ValidNotBefore($data);
+ $element->get_ValidNotBefore();
+
+
+
+
+=item * ValidNotAfter
+
+ $element->set_ValidNotAfter($data);
+ $element->get_ValidNotAfter();
+
+
+
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::CreateCertificate->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   CertificateID =>  $some_value, # token
+   Subject =>  $some_value, # string
+   ValidNotBefore =>  $some_value, # dateTime
+   ValidNotAfter =>  $some_value, # dateTime
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/CreateCertificateResponse.pm

@@ -0,0 +1,126 @@
+
+package ONVIF::Device::Elements::CreateCertificateResponse;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('CreateCertificateResponse');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %NvtCertificate_of :ATTR(:get<NvtCertificate>);
+
+__PACKAGE__->_factory(
+    [ qw(        NvtCertificate
+
+    ) ],
+    {
+        'NvtCertificate' => \%NvtCertificate_of,
+    },
+    {
+        'NvtCertificate' => 'ONVIF::Device::Types::Certificate',
+    },
+    {
+
+        'NvtCertificate' => 'NvtCertificate',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::CreateCertificateResponse
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+CreateCertificateResponse from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * NvtCertificate
+
+ $element->set_NvtCertificate($data);
+ $element->get_NvtCertificate();
+
+
+
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::CreateCertificateResponse->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   NvtCertificate =>  { # ONVIF::Device::Types::Certificate
+     CertificateID =>  $some_value, # token
+     Certificate =>  { # ONVIF::Device::Types::BinaryData
+       Data =>  $some_value, # base64Binary
+     },
+   },
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/CreateDot1XConfiguration.pm

@@ -0,0 +1,137 @@
+
+package ONVIF::Device::Elements::CreateDot1XConfiguration;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('CreateDot1XConfiguration');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %Dot1XConfiguration_of :ATTR(:get<Dot1XConfiguration>);
+
+__PACKAGE__->_factory(
+    [ qw(        Dot1XConfiguration
+
+    ) ],
+    {
+        'Dot1XConfiguration' => \%Dot1XConfiguration_of,
+    },
+    {
+        'Dot1XConfiguration' => 'ONVIF::Device::Types::Dot1XConfiguration',
+    },
+    {
+
+        'Dot1XConfiguration' => 'Dot1XConfiguration',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::CreateDot1XConfiguration
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+CreateDot1XConfiguration from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * Dot1XConfiguration
+
+ $element->set_Dot1XConfiguration($data);
+ $element->get_Dot1XConfiguration();
+
+
+
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::CreateDot1XConfiguration->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   Dot1XConfiguration =>  { # ONVIF::Device::Types::Dot1XConfiguration
+     Dot1XConfigurationToken => $some_value, # ReferenceToken
+     Identity =>  $some_value, # string
+     AnonymousID =>  $some_value, # string
+     EAPMethod =>  $some_value, # int
+     CACertificateID =>  $some_value, # token
+     EAPMethodConfiguration =>  { # ONVIF::Device::Types::EAPMethodConfiguration
+       TLSConfiguration =>  { # ONVIF::Device::Types::TLSConfiguration
+         CertificateID =>  $some_value, # token
+       },
+       Password =>  $some_value, # string
+       Extension =>  { # ONVIF::Device::Types::EapMethodExtension
+       },
+     },
+     Extension =>  { # ONVIF::Device::Types::Dot1XConfigurationExtension
+     },
+   },
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/CreateDot1XConfigurationResponse.pm

@@ -0,0 +1,107 @@
+
+package ONVIF::Device::Elements::CreateDot1XConfigurationResponse;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('CreateDot1XConfigurationResponse');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+
+__PACKAGE__->_factory(
+    [ qw(
+    ) ],
+    {
+    },
+    {
+    },
+    {
+
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::CreateDot1XConfigurationResponse
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+CreateDot1XConfigurationResponse from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::CreateDot1XConfigurationResponse->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/CreateUsers.pm

@@ -0,0 +1,127 @@
+
+package ONVIF::Device::Elements::CreateUsers;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('CreateUsers');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %User_of :ATTR(:get<User>);
+
+__PACKAGE__->_factory(
+    [ qw(        User
+
+    ) ],
+    {
+        'User' => \%User_of,
+    },
+    {
+        'User' => 'ONVIF::Device::Types::User',
+    },
+    {
+
+        'User' => 'User',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::CreateUsers
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+CreateUsers from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * User
+
+ $element->set_User($data);
+ $element->get_User();
+
+
+
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::CreateUsers->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   User =>  { # ONVIF::Device::Types::User
+     Username =>  $some_value, # string
+     Password =>  $some_value, # string
+     UserLevel => $some_value, # UserLevel
+     Extension =>  { # ONVIF::Device::Types::UserExtension
+     },
+   },
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/CreateUsersResponse.pm

@@ -0,0 +1,107 @@
+
+package ONVIF::Device::Elements::CreateUsersResponse;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('CreateUsersResponse');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+
+__PACKAGE__->_factory(
+    [ qw(
+    ) ],
+    {
+    },
+    {
+    },
+    {
+
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::CreateUsersResponse
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+CreateUsersResponse from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::CreateUsersResponse->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/DeleteCertificates.pm

@@ -0,0 +1,121 @@
+
+package ONVIF::Device::Elements::DeleteCertificates;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('DeleteCertificates');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %CertificateID_of :ATTR(:get<CertificateID>);
+
+__PACKAGE__->_factory(
+    [ qw(        CertificateID
+
+    ) ],
+    {
+        'CertificateID' => \%CertificateID_of,
+    },
+    {
+        'CertificateID' => 'SOAP::WSDL::XSD::Typelib::Builtin::token',
+    },
+    {
+
+        'CertificateID' => 'CertificateID',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::DeleteCertificates
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+DeleteCertificates from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * CertificateID
+
+ $element->set_CertificateID($data);
+ $element->get_CertificateID();
+
+
+
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::DeleteCertificates->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   CertificateID =>  $some_value, # token
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/DeleteCertificatesResponse.pm

@@ -0,0 +1,107 @@
+
+package ONVIF::Device::Elements::DeleteCertificatesResponse;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('DeleteCertificatesResponse');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+
+__PACKAGE__->_factory(
+    [ qw(
+    ) ],
+    {
+    },
+    {
+    },
+    {
+
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::DeleteCertificatesResponse
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+DeleteCertificatesResponse from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::DeleteCertificatesResponse->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/DeleteDot1XConfiguration.pm

@@ -0,0 +1,121 @@
+
+package ONVIF::Device::Elements::DeleteDot1XConfiguration;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('DeleteDot1XConfiguration');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %Dot1XConfigurationToken_of :ATTR(:get<Dot1XConfigurationToken>);
+
+__PACKAGE__->_factory(
+    [ qw(        Dot1XConfigurationToken
+
+    ) ],
+    {
+        'Dot1XConfigurationToken' => \%Dot1XConfigurationToken_of,
+    },
+    {
+        'Dot1XConfigurationToken' => 'ONVIF::Device::Types::ReferenceToken',
+    },
+    {
+
+        'Dot1XConfigurationToken' => 'Dot1XConfigurationToken',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::DeleteDot1XConfiguration
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+DeleteDot1XConfiguration from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * Dot1XConfigurationToken
+
+ $element->set_Dot1XConfigurationToken($data);
+ $element->get_Dot1XConfigurationToken();
+
+
+
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::DeleteDot1XConfiguration->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   Dot1XConfigurationToken => $some_value, # ReferenceToken
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/DeleteDot1XConfigurationResponse.pm

@@ -0,0 +1,107 @@
+
+package ONVIF::Device::Elements::DeleteDot1XConfigurationResponse;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('DeleteDot1XConfigurationResponse');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+
+__PACKAGE__->_factory(
+    [ qw(
+    ) ],
+    {
+    },
+    {
+    },
+    {
+
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::DeleteDot1XConfigurationResponse
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+DeleteDot1XConfigurationResponse from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::DeleteDot1XConfigurationResponse->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/DeleteUsers.pm

@@ -0,0 +1,121 @@
+
+package ONVIF::Device::Elements::DeleteUsers;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('DeleteUsers');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %Username_of :ATTR(:get<Username>);
+
+__PACKAGE__->_factory(
+    [ qw(        Username
+
+    ) ],
+    {
+        'Username' => \%Username_of,
+    },
+    {
+        'Username' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+    },
+    {
+
+        'Username' => 'Username',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::DeleteUsers
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+DeleteUsers from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * Username
+
+ $element->set_Username($data);
+ $element->get_Username();
+
+
+
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::DeleteUsers->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   Username =>  $some_value, # string
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/DeleteUsersResponse.pm

@@ -0,0 +1,107 @@
+
+package ONVIF::Device::Elements::DeleteUsersResponse;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('DeleteUsersResponse');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+
+__PACKAGE__->_factory(
+    [ qw(
+    ) ],
+    {
+    },
+    {
+    },
+    {
+
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::DeleteUsersResponse
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+DeleteUsersResponse from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::DeleteUsersResponse->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/Envelope.pm

@@ -0,0 +1,62 @@
+
+package ONVIF::Device::Elements::Envelope;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://schemas.xmlsoap.org/soap/envelope/' }
+
+__PACKAGE__->__set_name('Envelope');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    ONVIF::Device::Types::Envelope
+);
+
+}
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::Envelope
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+Envelope from the namespace http://schemas.xmlsoap.org/soap/envelope/.
+
+
+
+
+
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::Envelope->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ { # ONVIF::Device::Types::Envelope
+   Header =>  { # ONVIF::Device::Types::Header
+   },
+   Body =>  { # ONVIF::Device::Types::Body
+   },
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/Fault.pm

@@ -0,0 +1,63 @@
+
+package ONVIF::Device::Elements::Fault;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://schemas.xmlsoap.org/soap/envelope/' }
+
+__PACKAGE__->__set_name('Fault');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    ONVIF::Device::Types::Fault
+);
+
+}
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::Fault
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+Fault from the namespace http://schemas.xmlsoap.org/soap/envelope/.
+
+
+
+
+
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::Fault->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ { # ONVIF::Device::Types::Fault
+   faultcode =>  $some_value, # QName
+   faultstring =>  $some_value, # string
+   faultactor =>  $some_value, # anyURI
+   detail =>  { # ONVIF::Device::Types::detail
+   },
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetAccessPolicy.pm

@@ -0,0 +1,107 @@
+
+package ONVIF::Device::Elements::GetAccessPolicy;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetAccessPolicy');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+
+__PACKAGE__->_factory(
+    [ qw(
+    ) ],
+    {
+    },
+    {
+    },
+    {
+
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetAccessPolicy
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetAccessPolicy from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetAccessPolicy->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetAccessPolicyResponse.pm

@@ -0,0 +1,123 @@
+
+package ONVIF::Device::Elements::GetAccessPolicyResponse;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetAccessPolicyResponse');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %PolicyFile_of :ATTR(:get<PolicyFile>);
+
+__PACKAGE__->_factory(
+    [ qw(        PolicyFile
+
+    ) ],
+    {
+        'PolicyFile' => \%PolicyFile_of,
+    },
+    {
+        'PolicyFile' => 'ONVIF::Device::Types::BinaryData',
+    },
+    {
+
+        'PolicyFile' => 'PolicyFile',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetAccessPolicyResponse
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetAccessPolicyResponse from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * PolicyFile
+
+ $element->set_PolicyFile($data);
+ $element->get_PolicyFile();
+
+
+
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetAccessPolicyResponse->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   PolicyFile =>  { # ONVIF::Device::Types::BinaryData
+     Data =>  $some_value, # base64Binary
+   },
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetCACertificates.pm

@@ -0,0 +1,107 @@
+
+package ONVIF::Device::Elements::GetCACertificates;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetCACertificates');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+
+__PACKAGE__->_factory(
+    [ qw(
+    ) ],
+    {
+    },
+    {
+    },
+    {
+
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetCACertificates
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetCACertificates from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetCACertificates->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetCACertificatesResponse.pm

@@ -0,0 +1,126 @@
+
+package ONVIF::Device::Elements::GetCACertificatesResponse;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetCACertificatesResponse');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %CACertificate_of :ATTR(:get<CACertificate>);
+
+__PACKAGE__->_factory(
+    [ qw(        CACertificate
+
+    ) ],
+    {
+        'CACertificate' => \%CACertificate_of,
+    },
+    {
+        'CACertificate' => 'ONVIF::Device::Types::Certificate',
+    },
+    {
+
+        'CACertificate' => 'CACertificate',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetCACertificatesResponse
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetCACertificatesResponse from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * CACertificate
+
+ $element->set_CACertificate($data);
+ $element->get_CACertificate();
+
+
+
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetCACertificatesResponse->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   CACertificate =>  { # ONVIF::Device::Types::Certificate
+     CertificateID =>  $some_value, # token
+     Certificate =>  { # ONVIF::Device::Types::BinaryData
+       Data =>  $some_value, # base64Binary
+     },
+   },
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetCapabilities.pm

@@ -0,0 +1,121 @@
+
+package ONVIF::Device::Elements::GetCapabilities;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetCapabilities');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %Category_of :ATTR(:get<Category>);
+
+__PACKAGE__->_factory(
+    [ qw(        Category
+
+    ) ],
+    {
+        'Category' => \%Category_of,
+    },
+    {
+        'Category' => 'ONVIF::Device::Types::CapabilityCategory',
+    },
+    {
+
+        'Category' => 'Category',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetCapabilities
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetCapabilities from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * Category
+
+ $element->set_Category($data);
+ $element->get_Category();
+
+
+
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetCapabilities->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   Category => $some_value, # CapabilityCategory
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetCapabilitiesResponse.pm

@@ -0,0 +1,263 @@
+
+package ONVIF::Device::Elements::GetCapabilitiesResponse;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetCapabilitiesResponse');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %Capabilities_of :ATTR(:get<Capabilities>);
+
+__PACKAGE__->_factory(
+    [ qw(        Capabilities
+
+    ) ],
+    {
+        'Capabilities' => \%Capabilities_of,
+    },
+    {
+        'Capabilities' => 'ONVIF::Device::Types::Capabilities',
+    },
+    {
+
+        'Capabilities' => 'Capabilities',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetCapabilitiesResponse
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetCapabilitiesResponse from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * Capabilities
+
+ $element->set_Capabilities($data);
+ $element->get_Capabilities();
+
+
+
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetCapabilitiesResponse->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   Capabilities =>  { # ONVIF::Device::Types::Capabilities
+     Analytics =>  { # ONVIF::Device::Types::AnalyticsCapabilities
+       XAddr =>  $some_value, # anyURI
+       RuleSupport =>  $some_value, # boolean
+       AnalyticsModuleSupport =>  $some_value, # boolean
+     },
+     Device =>  { # ONVIF::Device::Types::DeviceCapabilities
+       XAddr =>  $some_value, # anyURI
+       Network =>  { # ONVIF::Device::Types::NetworkCapabilities
+         IPFilter =>  $some_value, # boolean
+         ZeroConfiguration =>  $some_value, # boolean
+         IPVersion6 =>  $some_value, # boolean
+         DynDNS =>  $some_value, # boolean
+         Extension =>  { # ONVIF::Device::Types::NetworkCapabilitiesExtension
+           Dot11Configuration =>  $some_value, # boolean
+           Extension =>  { # ONVIF::Device::Types::NetworkCapabilitiesExtension2
+           },
+         },
+       },
+       System =>  { # ONVIF::Device::Types::SystemCapabilities
+         DiscoveryResolve =>  $some_value, # boolean
+         DiscoveryBye =>  $some_value, # boolean
+         RemoteDiscovery =>  $some_value, # boolean
+         SystemBackup =>  $some_value, # boolean
+         SystemLogging =>  $some_value, # boolean
+         FirmwareUpgrade =>  $some_value, # boolean
+         SupportedVersions =>  { # ONVIF::Device::Types::OnvifVersion
+           Major =>  $some_value, # int
+           Minor =>  $some_value, # int
+         },
+         Extension =>  { # ONVIF::Device::Types::SystemCapabilitiesExtension
+           HttpFirmwareUpgrade =>  $some_value, # boolean
+           HttpSystemBackup =>  $some_value, # boolean
+           HttpSystemLogging =>  $some_value, # boolean
+           HttpSupportInformation =>  $some_value, # boolean
+           Extension =>  { # ONVIF::Device::Types::SystemCapabilitiesExtension2
+           },
+         },
+       },
+       IO =>  { # ONVIF::Device::Types::IOCapabilities
+         InputConnectors =>  $some_value, # int
+         RelayOutputs =>  $some_value, # int
+         Extension =>  { # ONVIF::Device::Types::IOCapabilitiesExtension
+           Auxiliary =>  $some_value, # boolean
+           AuxiliaryCommands => $some_value, # AuxiliaryData
+           Extension =>  { # ONVIF::Device::Types::IOCapabilitiesExtension2
+           },
+         },
+       },
+       Security =>  { # ONVIF::Device::Types::SecurityCapabilities
+         TLS1__1 =>  $some_value, # boolean
+         TLS1__2 =>  $some_value, # boolean
+         OnboardKeyGeneration =>  $some_value, # boolean
+         AccessPolicyConfig =>  $some_value, # boolean
+         X__509Token =>  $some_value, # boolean
+         SAMLToken =>  $some_value, # boolean
+         KerberosToken =>  $some_value, # boolean
+         RELToken =>  $some_value, # boolean
+         Extension =>  { # ONVIF::Device::Types::SecurityCapabilitiesExtension
+           TLS1__0 =>  $some_value, # boolean
+           Extension =>  { # ONVIF::Device::Types::SecurityCapabilitiesExtension2
+             Dot1X =>  $some_value, # boolean
+             SupportedEAPMethod =>  $some_value, # int
+             RemoteUserHandling =>  $some_value, # boolean
+           },
+         },
+       },
+       Extension =>  { # ONVIF::Device::Types::DeviceCapabilitiesExtension
+       },
+     },
+     Events =>  { # ONVIF::Device::Types::EventCapabilities
+       XAddr =>  $some_value, # anyURI
+       WSSubscriptionPolicySupport =>  $some_value, # boolean
+       WSPullPointSupport =>  $some_value, # boolean
+       WSPausableSubscriptionManagerInterfaceSupport =>  $some_value, # boolean
+     },
+     Imaging =>  { # ONVIF::Device::Types::ImagingCapabilities
+       XAddr =>  $some_value, # anyURI
+     },
+     Media =>  { # ONVIF::Device::Types::MediaCapabilities
+       XAddr =>  $some_value, # anyURI
+       StreamingCapabilities =>  { # ONVIF::Device::Types::RealTimeStreamingCapabilities
+         RTPMulticast =>  $some_value, # boolean
+         RTP_TCP =>  $some_value, # boolean
+         RTP_RTSP_TCP =>  $some_value, # boolean
+         Extension =>  { # ONVIF::Device::Types::RealTimeStreamingCapabilitiesExtension
+         },
+       },
+       Extension =>  { # ONVIF::Device::Types::MediaCapabilitiesExtension
+         ProfileCapabilities =>  { # ONVIF::Device::Types::ProfileCapabilities
+           MaximumNumberOfProfiles =>  $some_value, # int
+         },
+       },
+     },
+     PTZ =>  { # ONVIF::Device::Types::PTZCapabilities
+       XAddr =>  $some_value, # anyURI
+     },
+     Extension =>  { # ONVIF::Device::Types::CapabilitiesExtension
+       DeviceIO =>  { # ONVIF::Device::Types::DeviceIOCapabilities
+         XAddr =>  $some_value, # anyURI
+         VideoSources =>  $some_value, # int
+         VideoOutputs =>  $some_value, # int
+         AudioSources =>  $some_value, # int
+         AudioOutputs =>  $some_value, # int
+         RelayOutputs =>  $some_value, # int
+       },
+       Display =>  { # ONVIF::Device::Types::DisplayCapabilities
+         XAddr =>  $some_value, # anyURI
+         FixedLayout =>  $some_value, # boolean
+       },
+       Recording =>  { # ONVIF::Device::Types::RecordingCapabilities
+         XAddr =>  $some_value, # anyURI
+         ReceiverSource =>  $some_value, # boolean
+         MediaProfileSource =>  $some_value, # boolean
+         DynamicRecordings =>  $some_value, # boolean
+         DynamicTracks =>  $some_value, # boolean
+         MaxStringLength =>  $some_value, # int
+       },
+       Search =>  { # ONVIF::Device::Types::SearchCapabilities
+         XAddr =>  $some_value, # anyURI
+         MetadataSearch =>  $some_value, # boolean
+       },
+       Replay =>  { # ONVIF::Device::Types::ReplayCapabilities
+         XAddr =>  $some_value, # anyURI
+       },
+       Receiver =>  { # ONVIF::Device::Types::ReceiverCapabilities
+         XAddr =>  $some_value, # anyURI
+         RTP_Multicast =>  $some_value, # boolean
+         RTP_TCP =>  $some_value, # boolean
+         RTP_RTSP_TCP =>  $some_value, # boolean
+         SupportedReceivers =>  $some_value, # int
+         MaximumRTSPURILength =>  $some_value, # int
+       },
+       AnalyticsDevice =>  { # ONVIF::Device::Types::AnalyticsDeviceCapabilities
+         XAddr =>  $some_value, # anyURI
+         RuleSupport =>  $some_value, # boolean
+         Extension =>  { # ONVIF::Device::Types::AnalyticsDeviceExtension
+         },
+       },
+       Extensions =>  { # ONVIF::Device::Types::CapabilitiesExtension2
+       },
+     },
+   },
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetCertificateInformation.pm

@@ -0,0 +1,121 @@
+
+package ONVIF::Device::Elements::GetCertificateInformation;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetCertificateInformation');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %CertificateID_of :ATTR(:get<CertificateID>);
+
+__PACKAGE__->_factory(
+    [ qw(        CertificateID
+
+    ) ],
+    {
+        'CertificateID' => \%CertificateID_of,
+    },
+    {
+        'CertificateID' => 'SOAP::WSDL::XSD::Typelib::Builtin::token',
+    },
+    {
+
+        'CertificateID' => 'CertificateID',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetCertificateInformation
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetCertificateInformation from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * CertificateID
+
+ $element->set_CertificateID($data);
+ $element->get_CertificateID();
+
+
+
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetCertificateInformation->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   CertificateID =>  $some_value, # token
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetCertificateInformationResponse.pm

@@ -0,0 +1,137 @@
+
+package ONVIF::Device::Elements::GetCertificateInformationResponse;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetCertificateInformationResponse');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %CertificateInformation_of :ATTR(:get<CertificateInformation>);
+
+__PACKAGE__->_factory(
+    [ qw(        CertificateInformation
+
+    ) ],
+    {
+        'CertificateInformation' => \%CertificateInformation_of,
+    },
+    {
+        'CertificateInformation' => 'ONVIF::Device::Types::CertificateInformation',
+    },
+    {
+
+        'CertificateInformation' => 'CertificateInformation',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetCertificateInformationResponse
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetCertificateInformationResponse from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * CertificateInformation
+
+ $element->set_CertificateInformation($data);
+ $element->get_CertificateInformation();
+
+
+
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetCertificateInformationResponse->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   CertificateInformation =>  { # ONVIF::Device::Types::CertificateInformation
+     CertificateID =>  $some_value, # token
+     IssuerDN =>  $some_value, # string
+     SubjectDN =>  $some_value, # string
+     KeyUsage =>  { value => $some_value },
+     ExtendedKeyUsage =>  { value => $some_value },
+     KeyLength =>  $some_value, # int
+     Version =>  $some_value, # string
+     SerialNum =>  $some_value, # string
+     SignatureAlgorithm =>  $some_value, # string
+     Validity =>  { # ONVIF::Device::Types::DateTimeRange
+       From =>  $some_value, # dateTime
+       Until =>  $some_value, # dateTime
+     },
+     Extension =>  { # ONVIF::Device::Types::CertificateInformationExtension
+     },
+   },
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetCertificates.pm

@@ -0,0 +1,107 @@
+
+package ONVIF::Device::Elements::GetCertificates;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetCertificates');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+
+__PACKAGE__->_factory(
+    [ qw(
+    ) ],
+    {
+    },
+    {
+    },
+    {
+
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetCertificates
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetCertificates from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetCertificates->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetCertificatesResponse.pm

@@ -0,0 +1,126 @@
+
+package ONVIF::Device::Elements::GetCertificatesResponse;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetCertificatesResponse');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %NvtCertificate_of :ATTR(:get<NvtCertificate>);
+
+__PACKAGE__->_factory(
+    [ qw(        NvtCertificate
+
+    ) ],
+    {
+        'NvtCertificate' => \%NvtCertificate_of,
+    },
+    {
+        'NvtCertificate' => 'ONVIF::Device::Types::Certificate',
+    },
+    {
+
+        'NvtCertificate' => 'NvtCertificate',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetCertificatesResponse
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetCertificatesResponse from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * NvtCertificate
+
+ $element->set_NvtCertificate($data);
+ $element->get_NvtCertificate();
+
+
+
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetCertificatesResponse->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   NvtCertificate =>  { # ONVIF::Device::Types::Certificate
+     CertificateID =>  $some_value, # token
+     Certificate =>  { # ONVIF::Device::Types::BinaryData
+       Data =>  $some_value, # base64Binary
+     },
+   },
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetCertificatesStatus.pm

@@ -0,0 +1,107 @@
+
+package ONVIF::Device::Elements::GetCertificatesStatus;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetCertificatesStatus');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+
+__PACKAGE__->_factory(
+    [ qw(
+    ) ],
+    {
+    },
+    {
+    },
+    {
+
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetCertificatesStatus
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetCertificatesStatus from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetCertificatesStatus->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetCertificatesStatusResponse.pm

@@ -0,0 +1,124 @@
+
+package ONVIF::Device::Elements::GetCertificatesStatusResponse;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetCertificatesStatusResponse');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %CertificateStatus_of :ATTR(:get<CertificateStatus>);
+
+__PACKAGE__->_factory(
+    [ qw(        CertificateStatus
+
+    ) ],
+    {
+        'CertificateStatus' => \%CertificateStatus_of,
+    },
+    {
+        'CertificateStatus' => 'ONVIF::Device::Types::CertificateStatus',
+    },
+    {
+
+        'CertificateStatus' => 'CertificateStatus',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetCertificatesStatusResponse
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetCertificatesStatusResponse from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * CertificateStatus
+
+ $element->set_CertificateStatus($data);
+ $element->get_CertificateStatus();
+
+
+
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetCertificatesStatusResponse->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   CertificateStatus =>  { # ONVIF::Device::Types::CertificateStatus
+     CertificateID =>  $some_value, # token
+     Status =>  $some_value, # boolean
+   },
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetClientCertificateMode.pm

@@ -0,0 +1,107 @@
+
+package ONVIF::Device::Elements::GetClientCertificateMode;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetClientCertificateMode');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+
+__PACKAGE__->_factory(
+    [ qw(
+    ) ],
+    {
+    },
+    {
+    },
+    {
+
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetClientCertificateMode
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetClientCertificateMode from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetClientCertificateMode->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetClientCertificateModeResponse.pm

@@ -0,0 +1,121 @@
+
+package ONVIF::Device::Elements::GetClientCertificateModeResponse;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetClientCertificateModeResponse');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %Enabled_of :ATTR(:get<Enabled>);
+
+__PACKAGE__->_factory(
+    [ qw(        Enabled
+
+    ) ],
+    {
+        'Enabled' => \%Enabled_of,
+    },
+    {
+        'Enabled' => 'SOAP::WSDL::XSD::Typelib::Builtin::boolean',
+    },
+    {
+
+        'Enabled' => 'Enabled',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetClientCertificateModeResponse
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetClientCertificateModeResponse from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * Enabled
+
+ $element->set_Enabled($data);
+ $element->get_Enabled();
+
+
+
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetClientCertificateModeResponse->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   Enabled =>  $some_value, # boolean
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetDNS.pm

@@ -0,0 +1,107 @@
+
+package ONVIF::Device::Elements::GetDNS;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetDNS');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+
+__PACKAGE__->_factory(
+    [ qw(
+    ) ],
+    {
+    },
+    {
+    },
+    {
+
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetDNS
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetDNS from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetDNS->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetDNSResponse.pm

@@ -0,0 +1,136 @@
+
+package ONVIF::Device::Elements::GetDNSResponse;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetDNSResponse');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %DNSInformation_of :ATTR(:get<DNSInformation>);
+
+__PACKAGE__->_factory(
+    [ qw(        DNSInformation
+
+    ) ],
+    {
+        'DNSInformation' => \%DNSInformation_of,
+    },
+    {
+        'DNSInformation' => 'ONVIF::Device::Types::DNSInformation',
+    },
+    {
+
+        'DNSInformation' => 'DNSInformation',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetDNSResponse
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetDNSResponse from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * DNSInformation
+
+ $element->set_DNSInformation($data);
+ $element->get_DNSInformation();
+
+
+
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetDNSResponse->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   DNSInformation =>  { # ONVIF::Device::Types::DNSInformation
+     FromDHCP =>  $some_value, # boolean
+     SearchDomain =>  $some_value, # token
+     DNSFromDHCP =>  { # ONVIF::Device::Types::IPAddress
+       Type => $some_value, # IPType
+       IPv4Address => $some_value, # IPv4Address
+       IPv6Address => $some_value, # IPv6Address
+     },
+     DNSManual =>  { # ONVIF::Device::Types::IPAddress
+       Type => $some_value, # IPType
+       IPv4Address => $some_value, # IPv4Address
+       IPv6Address => $some_value, # IPv6Address
+     },
+     Extension =>  { # ONVIF::Device::Types::DNSInformationExtension
+     },
+   },
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetDPAddresses.pm

@@ -0,0 +1,107 @@
+
+package ONVIF::Device::Elements::GetDPAddresses;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetDPAddresses');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+
+__PACKAGE__->_factory(
+    [ qw(
+    ) ],
+    {
+    },
+    {
+    },
+    {
+
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetDPAddresses
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetDPAddresses from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetDPAddresses->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetDPAddressesResponse.pm

@@ -0,0 +1,128 @@
+
+package ONVIF::Device::Elements::GetDPAddressesResponse;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetDPAddressesResponse');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %DPAddress_of :ATTR(:get<DPAddress>);
+
+__PACKAGE__->_factory(
+    [ qw(        DPAddress
+
+    ) ],
+    {
+        'DPAddress' => \%DPAddress_of,
+    },
+    {
+        'DPAddress' => 'ONVIF::Device::Types::NetworkHost',
+    },
+    {
+
+        'DPAddress' => 'DPAddress',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetDPAddressesResponse
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetDPAddressesResponse from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * DPAddress
+
+ $element->set_DPAddress($data);
+ $element->get_DPAddress();
+
+
+
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetDPAddressesResponse->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   DPAddress =>  { # ONVIF::Device::Types::NetworkHost
+     Type => $some_value, # NetworkHostType
+     IPv4Address => $some_value, # IPv4Address
+     IPv6Address => $some_value, # IPv6Address
+     DNSname => $some_value, # DNSName
+     Extension =>  { # ONVIF::Device::Types::NetworkHostExtension
+     },
+   },
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetDeviceInformation.pm

@@ -0,0 +1,107 @@
+
+package ONVIF::Device::Elements::GetDeviceInformation;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetDeviceInformation');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+
+__PACKAGE__->_factory(
+    [ qw(
+    ) ],
+    {
+    },
+    {
+    },
+    {
+
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetDeviceInformation
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetDeviceInformation from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetDeviceInformation->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetDeviceInformationResponse.pm

@@ -0,0 +1,177 @@
+
+package ONVIF::Device::Elements::GetDeviceInformationResponse;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetDeviceInformationResponse');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %Manufacturer_of :ATTR(:get<Manufacturer>);
+my %Model_of :ATTR(:get<Model>);
+my %FirmwareVersion_of :ATTR(:get<FirmwareVersion>);
+my %SerialNumber_of :ATTR(:get<SerialNumber>);
+my %HardwareId_of :ATTR(:get<HardwareId>);
+
+__PACKAGE__->_factory(
+    [ qw(        Manufacturer
+        Model
+        FirmwareVersion
+        SerialNumber
+        HardwareId
+
+    ) ],
+    {
+        'Manufacturer' => \%Manufacturer_of,
+        'Model' => \%Model_of,
+        'FirmwareVersion' => \%FirmwareVersion_of,
+        'SerialNumber' => \%SerialNumber_of,
+        'HardwareId' => \%HardwareId_of,
+    },
+    {
+        'Manufacturer' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+        'Model' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+        'FirmwareVersion' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+        'SerialNumber' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+        'HardwareId' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+    },
+    {
+
+        'Manufacturer' => 'Manufacturer',
+        'Model' => 'Model',
+        'FirmwareVersion' => 'FirmwareVersion',
+        'SerialNumber' => 'SerialNumber',
+        'HardwareId' => 'HardwareId',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetDeviceInformationResponse
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetDeviceInformationResponse from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * Manufacturer
+
+ $element->set_Manufacturer($data);
+ $element->get_Manufacturer();
+
+
+
+
+=item * Model
+
+ $element->set_Model($data);
+ $element->get_Model();
+
+
+
+
+=item * FirmwareVersion
+
+ $element->set_FirmwareVersion($data);
+ $element->get_FirmwareVersion();
+
+
+
+
+=item * SerialNumber
+
+ $element->set_SerialNumber($data);
+ $element->get_SerialNumber();
+
+
+
+
+=item * HardwareId
+
+ $element->set_HardwareId($data);
+ $element->get_HardwareId();
+
+
+
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetDeviceInformationResponse->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   Manufacturer =>  $some_value, # string
+   Model =>  $some_value, # string
+   FirmwareVersion =>  $some_value, # string
+   SerialNumber =>  $some_value, # string
+   HardwareId =>  $some_value, # string
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetDiscoveryMode.pm

@@ -0,0 +1,107 @@
+
+package ONVIF::Device::Elements::GetDiscoveryMode;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetDiscoveryMode');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+
+__PACKAGE__->_factory(
+    [ qw(
+    ) ],
+    {
+    },
+    {
+    },
+    {
+
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetDiscoveryMode
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetDiscoveryMode from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetDiscoveryMode->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetDiscoveryModeResponse.pm

@@ -0,0 +1,121 @@
+
+package ONVIF::Device::Elements::GetDiscoveryModeResponse;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetDiscoveryModeResponse');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %DiscoveryMode_of :ATTR(:get<DiscoveryMode>);
+
+__PACKAGE__->_factory(
+    [ qw(        DiscoveryMode
+
+    ) ],
+    {
+        'DiscoveryMode' => \%DiscoveryMode_of,
+    },
+    {
+        'DiscoveryMode' => 'ONVIF::Device::Types::DiscoveryMode',
+    },
+    {
+
+        'DiscoveryMode' => 'DiscoveryMode',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetDiscoveryModeResponse
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetDiscoveryModeResponse from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * DiscoveryMode
+
+ $element->set_DiscoveryMode($data);
+ $element->get_DiscoveryMode();
+
+
+
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetDiscoveryModeResponse->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   DiscoveryMode => $some_value, # DiscoveryMode
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetDot11Capabilities.pm

@@ -0,0 +1,107 @@
+
+package ONVIF::Device::Elements::GetDot11Capabilities;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetDot11Capabilities');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+
+__PACKAGE__->_factory(
+    [ qw(
+    ) ],
+    {
+    },
+    {
+    },
+    {
+
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetDot11Capabilities
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetDot11Capabilities from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetDot11Capabilities->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetDot11CapabilitiesResponse.pm

@@ -0,0 +1,127 @@
+
+package ONVIF::Device::Elements::GetDot11CapabilitiesResponse;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetDot11CapabilitiesResponse');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %Capabilities_of :ATTR(:get<Capabilities>);
+
+__PACKAGE__->_factory(
+    [ qw(        Capabilities
+
+    ) ],
+    {
+        'Capabilities' => \%Capabilities_of,
+    },
+    {
+        'Capabilities' => 'ONVIF::Device::Types::Dot11Capabilities',
+    },
+    {
+
+        'Capabilities' => 'Capabilities',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetDot11CapabilitiesResponse
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetDot11CapabilitiesResponse from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * Capabilities
+
+ $element->set_Capabilities($data);
+ $element->get_Capabilities();
+
+
+
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetDot11CapabilitiesResponse->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   Capabilities =>  { # ONVIF::Device::Types::Dot11Capabilities
+     TKIP =>  $some_value, # boolean
+     ScanAvailableNetworks =>  $some_value, # boolean
+     MultipleConfiguration =>  $some_value, # boolean
+     AdHocStationMode =>  $some_value, # boolean
+     WEP =>  $some_value, # boolean
+   },
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetDot11Status.pm

@@ -0,0 +1,121 @@
+
+package ONVIF::Device::Elements::GetDot11Status;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetDot11Status');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %InterfaceToken_of :ATTR(:get<InterfaceToken>);
+
+__PACKAGE__->_factory(
+    [ qw(        InterfaceToken
+
+    ) ],
+    {
+        'InterfaceToken' => \%InterfaceToken_of,
+    },
+    {
+        'InterfaceToken' => 'ONVIF::Device::Types::ReferenceToken',
+    },
+    {
+
+        'InterfaceToken' => 'InterfaceToken',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetDot11Status
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetDot11Status from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * InterfaceToken
+
+ $element->set_InterfaceToken($data);
+ $element->get_InterfaceToken();
+
+
+
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetDot11Status->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   InterfaceToken => $some_value, # ReferenceToken
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetDot11StatusResponse.pm

@@ -0,0 +1,128 @@
+
+package ONVIF::Device::Elements::GetDot11StatusResponse;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetDot11StatusResponse');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %Status_of :ATTR(:get<Status>);
+
+__PACKAGE__->_factory(
+    [ qw(        Status
+
+    ) ],
+    {
+        'Status' => \%Status_of,
+    },
+    {
+        'Status' => 'ONVIF::Device::Types::Dot11Status',
+    },
+    {
+
+        'Status' => 'Status',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetDot11StatusResponse
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetDot11StatusResponse from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * Status
+
+ $element->set_Status($data);
+ $element->get_Status();
+
+
+
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetDot11StatusResponse->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   Status =>  { # ONVIF::Device::Types::Dot11Status
+     SSID => $some_value, # Dot11SSIDType
+     BSSID =>  $some_value, # string
+     PairCipher => $some_value, # Dot11Cipher
+     GroupCipher => $some_value, # Dot11Cipher
+     SignalStrength => $some_value, # Dot11SignalStrength
+     ActiveConfigAlias => $some_value, # ReferenceToken
+   },
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetDot1XConfiguration.pm

@@ -0,0 +1,121 @@
+
+package ONVIF::Device::Elements::GetDot1XConfiguration;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetDot1XConfiguration');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %Dot1XConfigurationToken_of :ATTR(:get<Dot1XConfigurationToken>);
+
+__PACKAGE__->_factory(
+    [ qw(        Dot1XConfigurationToken
+
+    ) ],
+    {
+        'Dot1XConfigurationToken' => \%Dot1XConfigurationToken_of,
+    },
+    {
+        'Dot1XConfigurationToken' => 'ONVIF::Device::Types::ReferenceToken',
+    },
+    {
+
+        'Dot1XConfigurationToken' => 'Dot1XConfigurationToken',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetDot1XConfiguration
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetDot1XConfiguration from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * Dot1XConfigurationToken
+
+ $element->set_Dot1XConfigurationToken($data);
+ $element->get_Dot1XConfigurationToken();
+
+
+
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetDot1XConfiguration->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   Dot1XConfigurationToken => $some_value, # ReferenceToken
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetDot1XConfigurationResponse.pm

@@ -0,0 +1,137 @@
+
+package ONVIF::Device::Elements::GetDot1XConfigurationResponse;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetDot1XConfigurationResponse');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %Dot1XConfiguration_of :ATTR(:get<Dot1XConfiguration>);
+
+__PACKAGE__->_factory(
+    [ qw(        Dot1XConfiguration
+
+    ) ],
+    {
+        'Dot1XConfiguration' => \%Dot1XConfiguration_of,
+    },
+    {
+        'Dot1XConfiguration' => 'ONVIF::Device::Types::Dot1XConfiguration',
+    },
+    {
+
+        'Dot1XConfiguration' => 'Dot1XConfiguration',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetDot1XConfigurationResponse
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetDot1XConfigurationResponse from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * Dot1XConfiguration
+
+ $element->set_Dot1XConfiguration($data);
+ $element->get_Dot1XConfiguration();
+
+
+
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetDot1XConfigurationResponse->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   Dot1XConfiguration =>  { # ONVIF::Device::Types::Dot1XConfiguration
+     Dot1XConfigurationToken => $some_value, # ReferenceToken
+     Identity =>  $some_value, # string
+     AnonymousID =>  $some_value, # string
+     EAPMethod =>  $some_value, # int
+     CACertificateID =>  $some_value, # token
+     EAPMethodConfiguration =>  { # ONVIF::Device::Types::EAPMethodConfiguration
+       TLSConfiguration =>  { # ONVIF::Device::Types::TLSConfiguration
+         CertificateID =>  $some_value, # token
+       },
+       Password =>  $some_value, # string
+       Extension =>  { # ONVIF::Device::Types::EapMethodExtension
+       },
+     },
+     Extension =>  { # ONVIF::Device::Types::Dot1XConfigurationExtension
+     },
+   },
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetDot1XConfigurations.pm

@@ -0,0 +1,107 @@
+
+package ONVIF::Device::Elements::GetDot1XConfigurations;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetDot1XConfigurations');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+
+__PACKAGE__->_factory(
+    [ qw(
+    ) ],
+    {
+    },
+    {
+    },
+    {
+
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetDot1XConfigurations
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetDot1XConfigurations from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetDot1XConfigurations->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetDot1XConfigurationsResponse.pm

@@ -0,0 +1,137 @@
+
+package ONVIF::Device::Elements::GetDot1XConfigurationsResponse;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetDot1XConfigurationsResponse');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %Dot1XConfiguration_of :ATTR(:get<Dot1XConfiguration>);
+
+__PACKAGE__->_factory(
+    [ qw(        Dot1XConfiguration
+
+    ) ],
+    {
+        'Dot1XConfiguration' => \%Dot1XConfiguration_of,
+    },
+    {
+        'Dot1XConfiguration' => 'ONVIF::Device::Types::Dot1XConfiguration',
+    },
+    {
+
+        'Dot1XConfiguration' => 'Dot1XConfiguration',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetDot1XConfigurationsResponse
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetDot1XConfigurationsResponse from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * Dot1XConfiguration
+
+ $element->set_Dot1XConfiguration($data);
+ $element->get_Dot1XConfiguration();
+
+
+
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetDot1XConfigurationsResponse->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   Dot1XConfiguration =>  { # ONVIF::Device::Types::Dot1XConfiguration
+     Dot1XConfigurationToken => $some_value, # ReferenceToken
+     Identity =>  $some_value, # string
+     AnonymousID =>  $some_value, # string
+     EAPMethod =>  $some_value, # int
+     CACertificateID =>  $some_value, # token
+     EAPMethodConfiguration =>  { # ONVIF::Device::Types::EAPMethodConfiguration
+       TLSConfiguration =>  { # ONVIF::Device::Types::TLSConfiguration
+         CertificateID =>  $some_value, # token
+       },
+       Password =>  $some_value, # string
+       Extension =>  { # ONVIF::Device::Types::EapMethodExtension
+       },
+     },
+     Extension =>  { # ONVIF::Device::Types::Dot1XConfigurationExtension
+     },
+   },
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetDynamicDNS.pm

@@ -0,0 +1,107 @@
+
+package ONVIF::Device::Elements::GetDynamicDNS;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetDynamicDNS');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+
+__PACKAGE__->_factory(
+    [ qw(
+    ) ],
+    {
+    },
+    {
+    },
+    {
+
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetDynamicDNS
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetDynamicDNS from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetDynamicDNS->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetDynamicDNSResponse.pm

@@ -0,0 +1,127 @@
+
+package ONVIF::Device::Elements::GetDynamicDNSResponse;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetDynamicDNSResponse');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %DynamicDNSInformation_of :ATTR(:get<DynamicDNSInformation>);
+
+__PACKAGE__->_factory(
+    [ qw(        DynamicDNSInformation
+
+    ) ],
+    {
+        'DynamicDNSInformation' => \%DynamicDNSInformation_of,
+    },
+    {
+        'DynamicDNSInformation' => 'ONVIF::Device::Types::DynamicDNSInformation',
+    },
+    {
+
+        'DynamicDNSInformation' => 'DynamicDNSInformation',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetDynamicDNSResponse
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetDynamicDNSResponse from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * DynamicDNSInformation
+
+ $element->set_DynamicDNSInformation($data);
+ $element->get_DynamicDNSInformation();
+
+
+
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetDynamicDNSResponse->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   DynamicDNSInformation =>  { # ONVIF::Device::Types::DynamicDNSInformation
+     Type => $some_value, # DynamicDNSType
+     Name => $some_value, # DNSName
+     TTL =>  $some_value, # duration
+     Extension =>  { # ONVIF::Device::Types::DynamicDNSInformationExtension
+     },
+   },
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetEndpointReference.pm

@@ -0,0 +1,107 @@
+
+package ONVIF::Device::Elements::GetEndpointReference;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetEndpointReference');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+
+__PACKAGE__->_factory(
+    [ qw(
+    ) ],
+    {
+    },
+    {
+    },
+    {
+
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetEndpointReference
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetEndpointReference from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetEndpointReference->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetEndpointReferenceResponse.pm

@@ -0,0 +1,121 @@
+
+package ONVIF::Device::Elements::GetEndpointReferenceResponse;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetEndpointReferenceResponse');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %GUID_of :ATTR(:get<GUID>);
+
+__PACKAGE__->_factory(
+    [ qw(        GUID
+
+    ) ],
+    {
+        'GUID' => \%GUID_of,
+    },
+    {
+        'GUID' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+    },
+    {
+
+        'GUID' => 'GUID',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetEndpointReferenceResponse
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetEndpointReferenceResponse from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * GUID
+
+ $element->set_GUID($data);
+ $element->get_GUID();
+
+
+
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetEndpointReferenceResponse->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   GUID =>  $some_value, # string
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetHostname.pm

@@ -0,0 +1,107 @@
+
+package ONVIF::Device::Elements::GetHostname;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetHostname');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+
+__PACKAGE__->_factory(
+    [ qw(
+    ) ],
+    {
+    },
+    {
+    },
+    {
+
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetHostname
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetHostname from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetHostname->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetHostnameResponse.pm

@@ -0,0 +1,126 @@
+
+package ONVIF::Device::Elements::GetHostnameResponse;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetHostnameResponse');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %HostnameInformation_of :ATTR(:get<HostnameInformation>);
+
+__PACKAGE__->_factory(
+    [ qw(        HostnameInformation
+
+    ) ],
+    {
+        'HostnameInformation' => \%HostnameInformation_of,
+    },
+    {
+        'HostnameInformation' => 'ONVIF::Device::Types::HostnameInformation',
+    },
+    {
+
+        'HostnameInformation' => 'HostnameInformation',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetHostnameResponse
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetHostnameResponse from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * HostnameInformation
+
+ $element->set_HostnameInformation($data);
+ $element->get_HostnameInformation();
+
+
+
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetHostnameResponse->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   HostnameInformation =>  { # ONVIF::Device::Types::HostnameInformation
+     FromDHCP =>  $some_value, # boolean
+     Name =>  $some_value, # token
+     Extension =>  { # ONVIF::Device::Types::HostnameInformationExtension
+     },
+   },
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetIPAddressFilter.pm

@@ -0,0 +1,107 @@
+
+package ONVIF::Device::Elements::GetIPAddressFilter;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetIPAddressFilter');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+
+__PACKAGE__->_factory(
+    [ qw(
+    ) ],
+    {
+    },
+    {
+    },
+    {
+
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetIPAddressFilter
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetIPAddressFilter from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetIPAddressFilter->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetIPAddressFilterResponse.pm

@@ -0,0 +1,133 @@
+
+package ONVIF::Device::Elements::GetIPAddressFilterResponse;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetIPAddressFilterResponse');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %IPAddressFilter_of :ATTR(:get<IPAddressFilter>);
+
+__PACKAGE__->_factory(
+    [ qw(        IPAddressFilter
+
+    ) ],
+    {
+        'IPAddressFilter' => \%IPAddressFilter_of,
+    },
+    {
+        'IPAddressFilter' => 'ONVIF::Device::Types::IPAddressFilter',
+    },
+    {
+
+        'IPAddressFilter' => 'IPAddressFilter',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetIPAddressFilterResponse
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetIPAddressFilterResponse from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * IPAddressFilter
+
+ $element->set_IPAddressFilter($data);
+ $element->get_IPAddressFilter();
+
+
+
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetIPAddressFilterResponse->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   IPAddressFilter =>  { # ONVIF::Device::Types::IPAddressFilter
+     Type => $some_value, # IPAddressFilterType
+     IPv4Address =>  { # ONVIF::Device::Types::PrefixedIPv4Address
+       Address => $some_value, # IPv4Address
+       PrefixLength =>  $some_value, # int
+     },
+     IPv6Address =>  { # ONVIF::Device::Types::PrefixedIPv6Address
+       Address => $some_value, # IPv6Address
+       PrefixLength =>  $some_value, # int
+     },
+     Extension =>  { # ONVIF::Device::Types::IPAddressFilterExtension
+     },
+   },
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetNTP.pm

@@ -0,0 +1,107 @@
+
+package ONVIF::Device::Elements::GetNTP;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetNTP');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+
+__PACKAGE__->_factory(
+    [ qw(
+    ) ],
+    {
+    },
+    {
+    },
+    {
+
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetNTP
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetNTP from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetNTP->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetNTPResponse.pm

@@ -0,0 +1,141 @@
+
+package ONVIF::Device::Elements::GetNTPResponse;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetNTPResponse');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %NTPInformation_of :ATTR(:get<NTPInformation>);
+
+__PACKAGE__->_factory(
+    [ qw(        NTPInformation
+
+    ) ],
+    {
+        'NTPInformation' => \%NTPInformation_of,
+    },
+    {
+        'NTPInformation' => 'ONVIF::Device::Types::NTPInformation',
+    },
+    {
+
+        'NTPInformation' => 'NTPInformation',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetNTPResponse
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetNTPResponse from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * NTPInformation
+
+ $element->set_NTPInformation($data);
+ $element->get_NTPInformation();
+
+
+
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetNTPResponse->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   NTPInformation =>  { # ONVIF::Device::Types::NTPInformation
+     FromDHCP =>  $some_value, # boolean
+     NTPFromDHCP =>  { # ONVIF::Device::Types::NetworkHost
+       Type => $some_value, # NetworkHostType
+       IPv4Address => $some_value, # IPv4Address
+       IPv6Address => $some_value, # IPv6Address
+       DNSname => $some_value, # DNSName
+       Extension =>  { # ONVIF::Device::Types::NetworkHostExtension
+       },
+     },
+     NTPManual =>  { # ONVIF::Device::Types::NetworkHost
+       Type => $some_value, # NetworkHostType
+       IPv4Address => $some_value, # IPv4Address
+       IPv6Address => $some_value, # IPv6Address
+       DNSname => $some_value, # DNSName
+       Extension =>  { # ONVIF::Device::Types::NetworkHostExtension
+       },
+     },
+     Extension =>  { # ONVIF::Device::Types::NTPInformationExtension
+     },
+   },
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetNetworkDefaultGateway.pm

@@ -0,0 +1,107 @@
+
+package ONVIF::Device::Elements::GetNetworkDefaultGateway;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetNetworkDefaultGateway');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+
+__PACKAGE__->_factory(
+    [ qw(
+    ) ],
+    {
+    },
+    {
+    },
+    {
+
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetNetworkDefaultGateway
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetNetworkDefaultGateway from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetNetworkDefaultGateway->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetNetworkDefaultGatewayResponse.pm

@@ -0,0 +1,124 @@
+
+package ONVIF::Device::Elements::GetNetworkDefaultGatewayResponse;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetNetworkDefaultGatewayResponse');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %NetworkGateway_of :ATTR(:get<NetworkGateway>);
+
+__PACKAGE__->_factory(
+    [ qw(        NetworkGateway
+
+    ) ],
+    {
+        'NetworkGateway' => \%NetworkGateway_of,
+    },
+    {
+        'NetworkGateway' => 'ONVIF::Device::Types::NetworkGateway',
+    },
+    {
+
+        'NetworkGateway' => 'NetworkGateway',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetNetworkDefaultGatewayResponse
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetNetworkDefaultGatewayResponse from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * NetworkGateway
+
+ $element->set_NetworkGateway($data);
+ $element->get_NetworkGateway();
+
+
+
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetNetworkDefaultGatewayResponse->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   NetworkGateway =>  { # ONVIF::Device::Types::NetworkGateway
+     IPv4Address => $some_value, # IPv4Address
+     IPv6Address => $some_value, # IPv6Address
+   },
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetNetworkInterfaces.pm

@@ -0,0 +1,107 @@
+
+package ONVIF::Device::Elements::GetNetworkInterfaces;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetNetworkInterfaces');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+
+__PACKAGE__->_factory(
+    [ qw(
+    ) ],
+    {
+    },
+    {
+    },
+    {
+
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetNetworkInterfaces
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetNetworkInterfaces from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetNetworkInterfaces->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetNetworkInterfacesResponse.pm

@@ -0,0 +1,210 @@
+
+package ONVIF::Device::Elements::GetNetworkInterfacesResponse;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetNetworkInterfacesResponse');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+my %NetworkInterfaces_of :ATTR(:get<NetworkInterfaces>);
+
+__PACKAGE__->_factory(
+    [ qw(        NetworkInterfaces
+
+    ) ],
+    {
+        'NetworkInterfaces' => \%NetworkInterfaces_of,
+    },
+    {
+        'NetworkInterfaces' => 'ONVIF::Device::Types::NetworkInterface',
+    },
+    {
+
+        'NetworkInterfaces' => 'NetworkInterfaces',
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetNetworkInterfacesResponse
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetNetworkInterfacesResponse from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+=item * NetworkInterfaces
+
+ $element->set_NetworkInterfaces($data);
+ $element->get_NetworkInterfaces();
+
+
+
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetNetworkInterfacesResponse->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+   NetworkInterfaces =>  { # ONVIF::Device::Types::NetworkInterface
+     Enabled =>  $some_value, # boolean
+     Info =>  { # ONVIF::Device::Types::NetworkInterfaceInfo
+       Name =>  $some_value, # string
+       HwAddress => $some_value, # HwAddress
+       MTU =>  $some_value, # int
+     },
+     Link =>  { # ONVIF::Device::Types::NetworkInterfaceLink
+       AdminSettings =>  { # ONVIF::Device::Types::NetworkInterfaceConnectionSetting
+         AutoNegotiation =>  $some_value, # boolean
+         Speed =>  $some_value, # int
+         Duplex => $some_value, # Duplex
+       },
+       OperSettings =>  { # ONVIF::Device::Types::NetworkInterfaceConnectionSetting
+         AutoNegotiation =>  $some_value, # boolean
+         Speed =>  $some_value, # int
+         Duplex => $some_value, # Duplex
+       },
+       InterfaceType => $some_value, # IANA-IfTypes
+     },
+     IPv4 =>  { # ONVIF::Device::Types::IPv4NetworkInterface
+       Enabled =>  $some_value, # boolean
+       Config =>  { # ONVIF::Device::Types::IPv4Configuration
+         Manual =>  { # ONVIF::Device::Types::PrefixedIPv4Address
+           Address => $some_value, # IPv4Address
+           PrefixLength =>  $some_value, # int
+         },
+         LinkLocal =>  { # ONVIF::Device::Types::PrefixedIPv4Address
+           Address => $some_value, # IPv4Address
+           PrefixLength =>  $some_value, # int
+         },
+         FromDHCP =>  { # ONVIF::Device::Types::PrefixedIPv4Address
+           Address => $some_value, # IPv4Address
+           PrefixLength =>  $some_value, # int
+         },
+         DHCP =>  $some_value, # boolean
+       },
+     },
+     IPv6 =>  { # ONVIF::Device::Types::IPv6NetworkInterface
+       Enabled =>  $some_value, # boolean
+       Config =>  { # ONVIF::Device::Types::IPv6Configuration
+         AcceptRouterAdvert =>  $some_value, # boolean
+         DHCP => $some_value, # IPv6DHCPConfiguration
+         Manual =>  { # ONVIF::Device::Types::PrefixedIPv6Address
+           Address => $some_value, # IPv6Address
+           PrefixLength =>  $some_value, # int
+         },
+         LinkLocal =>  { # ONVIF::Device::Types::PrefixedIPv6Address
+           Address => $some_value, # IPv6Address
+           PrefixLength =>  $some_value, # int
+         },
+         FromDHCP =>  { # ONVIF::Device::Types::PrefixedIPv6Address
+           Address => $some_value, # IPv6Address
+           PrefixLength =>  $some_value, # int
+         },
+         FromRA =>  { # ONVIF::Device::Types::PrefixedIPv6Address
+           Address => $some_value, # IPv6Address
+           PrefixLength =>  $some_value, # int
+         },
+         Extension =>  { # ONVIF::Device::Types::IPv6ConfigurationExtension
+         },
+       },
+     },
+     Extension =>  { # ONVIF::Device::Types::NetworkInterfaceExtension
+       InterfaceType => $some_value, # IANA-IfTypes
+       Dot3 =>  { # ONVIF::Device::Types::Dot3Configuration
+       },
+       Dot11 =>  { # ONVIF::Device::Types::Dot11Configuration
+         SSID => $some_value, # Dot11SSIDType
+         Mode => $some_value, # Dot11StationMode
+         Alias => $some_value, # Name
+         Priority => $some_value, # NetworkInterfaceConfigPriority
+         Security =>  { # ONVIF::Device::Types::Dot11SecurityConfiguration
+           Mode => $some_value, # Dot11SecurityMode
+           Algorithm => $some_value, # Dot11Cipher
+           PSK =>  { # ONVIF::Device::Types::Dot11PSKSet
+             Key => $some_value, # Dot11PSK
+             Passphrase => $some_value, # Dot11PSKPassphrase
+             Extension =>  { # ONVIF::Device::Types::Dot11PSKSetExtension
+             },
+           },
+           Dot1X => $some_value, # ReferenceToken
+           Extension =>  { # ONVIF::Device::Types::Dot11SecurityConfigurationExtension
+           },
+         },
+       },
+       Extension =>  { # ONVIF::Device::Types::NetworkInterfaceExtension2
+       },
+     },
+   },
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+

onvif/proxy/lib/ONVIF/Device/Elements/GetNetworkProtocols.pm

@@ -0,0 +1,107 @@
+
+package ONVIF::Device::Elements::GetNetworkProtocols;
+use strict;
+use warnings;
+
+{ # BLOCK to scope variables
+
+sub get_xmlns { 'http://www.onvif.org/ver10/device/wsdl' }
+
+__PACKAGE__->__set_name('GetNetworkProtocols');
+__PACKAGE__->__set_nillable();
+__PACKAGE__->__set_minOccurs();
+__PACKAGE__->__set_maxOccurs();
+__PACKAGE__->__set_ref();
+
+use base qw(
+    SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType
+);
+
+our $XML_ATTRIBUTE_CLASS;
+undef $XML_ATTRIBUTE_CLASS;
+
+sub __get_attr_class {
+    return $XML_ATTRIBUTE_CLASS;
+}
+
+use Class::Std::Fast::Storable constructor => 'none';
+use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
+
+Class::Std::initialize();
+
+{ # BLOCK to scope variables
+
+
+__PACKAGE__->_factory(
+    [ qw(
+    ) ],
+    {
+    },
+    {
+    },
+    {
+
+    }
+);
+
+} # end BLOCK
+
+
+
+
+
+
+
+} # end of BLOCK
+
+
+
+1;
+
+
+=pod
+
+=head1 NAME
+
+ONVIF::Device::Elements::GetNetworkProtocols
+
+=head1 DESCRIPTION
+
+Perl data type class for the XML Schema defined element
+GetNetworkProtocols from the namespace http://www.onvif.org/ver10/device/wsdl.
+
+
+
+
+
+
+
+=head1 PROPERTIES
+
+The following properties may be accessed using get_PROPERTY / set_PROPERTY
+methods:
+
+=over
+
+
+=back
+
+
+=head1 METHODS
+
+=head2 new
+
+ my $element = ONVIF::Device::Elements::GetNetworkProtocols->new($data);
+
+Constructor. The following data structure may be passed to new():
+
+ {
+ },
+
+=head1 AUTHOR
+
+Generated by SOAP::WSDL
+
+=cut
+