From 613d1da88ed498ece8722c9a4a923d37b93a2d5c Mon Sep 17 00:00:00 2001
From: Jan Mach <jan.mach@cesnet.cz>
Date: Thu, 7 Sep 2017 10:48:50 +0200
Subject: [PATCH] DEPRECATION OF OLD PERL CODE, RESTRUCTURALIZATION OF
REPOSITORY CONTENTS.
This commit deprecates old Perl library for handling IDEA messages, which will not be supported anymore. It also features restructuralization of the whole repository, because typedcols and ipranges libraries were moved into separate git repositories. Another reason for restructuralization is support of our automated build system.
---
Gruntfile.js | 383 -
lib_python/lib/idea-format/LICENSE => LICENSE | 0
.../lib/idea-format/Makefile => Makefile | 0
.../lib/idea-format/README.rst => README.rst | 0
.../archive => archive}/.gitignore | 0
.../bench_idea.py => bench_idea.py | 0
.../bin => bin}/json-schema-validate.py | 0
{lib_python/bin => bin}/jsonschema2dokudoc.py | 0
{lib_python/bin => bin}/jsonschema2mentat.py | 0
{lib_python/bin => bin}/jsonschema2moindoc.py | 0
.../lib/idea-format/dist => dist}/.gitignore | 0
.../lib/idea-format/idea => idea}/__init__.py | 0
.../lib/idea-format/idea => idea}/base.py | 0
.../lib/idea-format/idea => idea}/lite.py | 0
.../lib/idea-format/idea => idea}/valid.py | 0
lib_perl/bin/idea-validator | 193 -
lib_perl/deploy/ctrl/conffiles | 1 -
lib_perl/deploy/ctrl/control.tmpl | 10 -
lib_perl/deploy/ctrl/copyright | 15 -
lib_perl/deploy/ctrl/postinst | 32 -
lib_perl/deploy/ctrl/postrm | 13 -
lib_perl/deploy/ctrl/preinst | 8 -
lib_perl/deploy/ctrl/prerm | 8 -
lib_perl/deploy/ctrl/version.tmpl | 1 -
lib_perl/lib/Mentat/Handyman.pm | 652 --
lib_perl/lib/Mentat/MPath/Parser.pm | 189 -
lib_perl/lib/Mentat/Message.pm | 540 --
lib_perl/lib/Mentat/Message/Builder.pm | 521 --
lib_perl/lib/Mentat/Message/Builder/IDEA.pm | 280 -
lib_perl/lib/Mentat/Message/Factory.pm | 332 -
lib_perl/lib/Mentat/Message/IDEA.pm | 1083 ---
lib_perl/lib/Mentat/Message/Validator.pm | 170 -
lib_perl/lib/Mentat/Message/Validator/IDEA.pm | 171 -
lib_perl/lib/Mentat/Message/Value.pm | 168 -
lib_perl/lib/Mentat/Message/Value/IDEA.pm | 167 -
lib_perl/lib/Value/Convertor.pm | 2757 -------
lib_perl/lib/Value/Duration.pm | 140 -
lib_perl/lib/Value/IP.pm | 159 -
lib_perl/lib/Value/IPv4ADDR.pm | 141 -
lib_perl/lib/Value/IPv4CIDR.pm | 140 -
lib_perl/lib/Value/IPv4NETM.pm | 140 -
lib_perl/lib/Value/IPv4RNG.pm | 140 -
lib_perl/lib/Value/IPv6ADDR.pm | 140 -
lib_perl/lib/Value/Period.pm | 141 -
lib_perl/lib/Value/Range.pm | 354 -
lib_perl/lib/Value/Single.pm | 310 -
lib_perl/lib/Value/Tempus.pm | 134 -
lib_perl/lib/Value/Timestamp.pm | 149 -
lib_perl/tests/unit/spool/alert01.idea | 56 -
lib_perl/tests/unit/spool/alert02.idea | 1 -
lib_perl/tests/unit/spool/msgtmplts.json | 6418 -----------------
.../tests/unit/spool/schema-msgtmplts.json | 118 -
lib_perl/tests/unit/t/Mentat.Handyman.t | 83 -
lib_perl/tests/unit/t/Mentat.MPath.Parser.t | 142 -
.../unit/t/Mentat.Message.Builder.IDEA.t | 133 -
.../tests/unit/t/Mentat.Message.Builder.t | 180 -
.../tests/unit/t/Mentat.Message.Factory.t | 68 -
lib_perl/tests/unit/t/Mentat.Message.IDEA.t | 295 -
.../unit/t/Mentat.Message.Validator.IDEA.t | 52 -
.../tests/unit/t/Mentat.Message.Validator.t | 43 -
.../tests/unit/t/Mentat.Message.Value.IDEA.t | 43 -
lib_perl/tests/unit/t/Mentat.Message.Value.t | 43 -
lib_perl/tests/unit/t/Mentat.Message.t | 43 -
lib_perl/tests/unit/t/Value.Convertor.t | 797 --
lib_perl/tests/unit/t/Value.Duration.t | 137 -
lib_perl/tests/unit/t/Value.IP.t | 80 -
lib_perl/tests/unit/t/Value.IPv4ADDR.t | 184 -
lib_perl/tests/unit/t/Value.IPv4CIDR.t | 99 -
lib_perl/tests/unit/t/Value.IPv4NETM.t | 81 -
lib_perl/tests/unit/t/Value.IPv4RNG.t | 91 -
lib_perl/tests/unit/t/Value.IPv6ADDR.t | 127 -
lib_perl/tests/unit/t/Value.Period.t | 138 -
lib_perl/tests/unit/t/Value.Range.t | 242 -
lib_perl/tests/unit/t/Value.Single.t | 119 -
lib_perl/tests/unit/t/Value.Tempus.t | 64 -
lib_perl/tests/unit/t/Value.Timestamp.t | 209 -
lib_perl/tests/unit/test | 23 -
lib_perl/tests/unit/test.conf | 37 -
lib_python/lib/ipranges/LICENSE | 13 -
lib_python/lib/ipranges/Makefile | 62 -
lib_python/lib/ipranges/README.rst | 8 -
lib_python/lib/ipranges/archive/.gitignore | 4 -
lib_python/lib/ipranges/dist/.gitignore | 4 -
lib_python/lib/ipranges/ipranges.py | 267 -
lib_python/lib/ipranges/setup.py | 47 -
lib_python/lib/ipranges/test_ipranges.py | 272 -
lib_python/lib/typedcols/LICENSE | 13 -
lib_python/lib/typedcols/Makefile | 62 -
lib_python/lib/typedcols/README.rst | 7 -
lib_python/lib/typedcols/archive/.gitignore | 4 -
lib_python/lib/typedcols/dist/.gitignore | 4 -
lib_python/lib/typedcols/setup.py | 47 -
lib_python/lib/typedcols/test_typedcols.py | 164 -
lib_python/lib/typedcols/typedcols.py | 290 -
meta.json | 9 -
package.json | 18 -
.../lib/idea-format/setup.py => setup.py | 0
.../idea-format/test_idea.py => test_idea.py | 0
98 files changed, 21223 deletions(-)
delete mode 100644 Gruntfile.js
rename lib_python/lib/idea-format/LICENSE => LICENSE (100%)
rename lib_python/lib/idea-format/Makefile => Makefile (100%)
rename lib_python/lib/idea-format/README.rst => README.rst (100%)
rename {lib_python/lib/idea-format/archive => archive}/.gitignore (100%)
rename lib_python/lib/idea-format/bench_idea.py => bench_idea.py (100%)
rename {lib_python/bin => bin}/json-schema-validate.py (100%)
rename {lib_python/bin => bin}/jsonschema2dokudoc.py (100%)
rename {lib_python/bin => bin}/jsonschema2mentat.py (100%)
rename {lib_python/bin => bin}/jsonschema2moindoc.py (100%)
rename {lib_python/lib/idea-format/dist => dist}/.gitignore (100%)
rename {lib_python/lib/idea-format/idea => idea}/__init__.py (100%)
rename {lib_python/lib/idea-format/idea => idea}/base.py (100%)
rename {lib_python/lib/idea-format/idea => idea}/lite.py (100%)
rename {lib_python/lib/idea-format/idea => idea}/valid.py (100%)
delete mode 100755 lib_perl/bin/idea-validator
delete mode 100755 lib_perl/deploy/ctrl/conffiles
delete mode 100644 lib_perl/deploy/ctrl/control.tmpl
delete mode 100644 lib_perl/deploy/ctrl/copyright
delete mode 100755 lib_perl/deploy/ctrl/postinst
delete mode 100755 lib_perl/deploy/ctrl/postrm
delete mode 100755 lib_perl/deploy/ctrl/preinst
delete mode 100755 lib_perl/deploy/ctrl/prerm
delete mode 100644 lib_perl/deploy/ctrl/version.tmpl
delete mode 100644 lib_perl/lib/Mentat/Handyman.pm
delete mode 100644 lib_perl/lib/Mentat/MPath/Parser.pm
delete mode 100644 lib_perl/lib/Mentat/Message.pm
delete mode 100644 lib_perl/lib/Mentat/Message/Builder.pm
delete mode 100644 lib_perl/lib/Mentat/Message/Builder/IDEA.pm
delete mode 100644 lib_perl/lib/Mentat/Message/Factory.pm
delete mode 100644 lib_perl/lib/Mentat/Message/IDEA.pm
delete mode 100644 lib_perl/lib/Mentat/Message/Validator.pm
delete mode 100644 lib_perl/lib/Mentat/Message/Validator/IDEA.pm
delete mode 100644 lib_perl/lib/Mentat/Message/Value.pm
delete mode 100644 lib_perl/lib/Mentat/Message/Value/IDEA.pm
delete mode 100644 lib_perl/lib/Value/Convertor.pm
delete mode 100644 lib_perl/lib/Value/Duration.pm
delete mode 100644 lib_perl/lib/Value/IP.pm
delete mode 100644 lib_perl/lib/Value/IPv4ADDR.pm
delete mode 100644 lib_perl/lib/Value/IPv4CIDR.pm
delete mode 100644 lib_perl/lib/Value/IPv4NETM.pm
delete mode 100644 lib_perl/lib/Value/IPv4RNG.pm
delete mode 100644 lib_perl/lib/Value/IPv6ADDR.pm
delete mode 100644 lib_perl/lib/Value/Period.pm
delete mode 100644 lib_perl/lib/Value/Range.pm
delete mode 100644 lib_perl/lib/Value/Single.pm
delete mode 100644 lib_perl/lib/Value/Tempus.pm
delete mode 100644 lib_perl/lib/Value/Timestamp.pm
delete mode 100644 lib_perl/tests/unit/spool/alert01.idea
delete mode 100644 lib_perl/tests/unit/spool/alert02.idea
delete mode 100644 lib_perl/tests/unit/spool/msgtmplts.json
delete mode 100644 lib_perl/tests/unit/spool/schema-msgtmplts.json
delete mode 100644 lib_perl/tests/unit/t/Mentat.Handyman.t
delete mode 100644 lib_perl/tests/unit/t/Mentat.MPath.Parser.t
delete mode 100644 lib_perl/tests/unit/t/Mentat.Message.Builder.IDEA.t
delete mode 100644 lib_perl/tests/unit/t/Mentat.Message.Builder.t
delete mode 100644 lib_perl/tests/unit/t/Mentat.Message.Factory.t
delete mode 100644 lib_perl/tests/unit/t/Mentat.Message.IDEA.t
delete mode 100644 lib_perl/tests/unit/t/Mentat.Message.Validator.IDEA.t
delete mode 100644 lib_perl/tests/unit/t/Mentat.Message.Validator.t
delete mode 100644 lib_perl/tests/unit/t/Mentat.Message.Value.IDEA.t
delete mode 100644 lib_perl/tests/unit/t/Mentat.Message.Value.t
delete mode 100644 lib_perl/tests/unit/t/Mentat.Message.t
delete mode 100644 lib_perl/tests/unit/t/Value.Convertor.t
delete mode 100644 lib_perl/tests/unit/t/Value.Duration.t
delete mode 100644 lib_perl/tests/unit/t/Value.IP.t
delete mode 100644 lib_perl/tests/unit/t/Value.IPv4ADDR.t
delete mode 100644 lib_perl/tests/unit/t/Value.IPv4CIDR.t
delete mode 100644 lib_perl/tests/unit/t/Value.IPv4NETM.t
delete mode 100644 lib_perl/tests/unit/t/Value.IPv4RNG.t
delete mode 100644 lib_perl/tests/unit/t/Value.IPv6ADDR.t
delete mode 100644 lib_perl/tests/unit/t/Value.Period.t
delete mode 100644 lib_perl/tests/unit/t/Value.Range.t
delete mode 100644 lib_perl/tests/unit/t/Value.Single.t
delete mode 100644 lib_perl/tests/unit/t/Value.Tempus.t
delete mode 100644 lib_perl/tests/unit/t/Value.Timestamp.t
delete mode 100755 lib_perl/tests/unit/test
delete mode 100644 lib_perl/tests/unit/test.conf
delete mode 100644 lib_python/lib/ipranges/LICENSE
delete mode 100644 lib_python/lib/ipranges/Makefile
delete mode 100644 lib_python/lib/ipranges/README.rst
delete mode 100644 lib_python/lib/ipranges/archive/.gitignore
delete mode 100644 lib_python/lib/ipranges/dist/.gitignore
delete mode 100644 lib_python/lib/ipranges/ipranges.py
delete mode 100644 lib_python/lib/ipranges/setup.py
delete mode 100755 lib_python/lib/ipranges/test_ipranges.py
delete mode 100644 lib_python/lib/typedcols/LICENSE
delete mode 100644 lib_python/lib/typedcols/Makefile
delete mode 100644 lib_python/lib/typedcols/README.rst
delete mode 100644 lib_python/lib/typedcols/archive/.gitignore
delete mode 100644 lib_python/lib/typedcols/dist/.gitignore
delete mode 100644 lib_python/lib/typedcols/setup.py
delete mode 100755 lib_python/lib/typedcols/test_typedcols.py
delete mode 100644 lib_python/lib/typedcols/typedcols.py
delete mode 100644 meta.json
delete mode 100644 package.json
rename lib_python/lib/idea-format/setup.py => setup.py (100%)
rename lib_python/lib/idea-format/test_idea.py => test_idea.py (100%)
diff --git a/Gruntfile.js b/Gruntfile.js
deleted file mode 100644
index 49c895f..0000000
--- a/Gruntfile.js
+++ /dev/null
@@ -1,383 +0,0 @@
-module.exports = function(grunt) {
-
- function cbk_dir_size(err, stdout, stderr, cb) {
- grunt.config.set('template.deb-control.options.data.package_size', stdout.trim());
- cb();
- }
-
- function version() {
- return '<%= meta.version_major %>.<%= meta.version_minor %>';
- }
-
- function package_filename_deb(lang) {
- return '<%= meta.name %>-' + lang + '_' + version() + '_<%= meta.architecture %>.deb';
- }
- function package_filename_tar(lang, nover) {
- var vs = '';
- if (nover) { vs = 'latest'; } else { vs = version(); }
- return '<%= meta.name %>-' + lang + '_' + vs + '_stable.tar.gz';
- }
-
- // Project configuration.
- grunt.initConfig({
-
- pkg: grunt.file.readJSON('package.json'),
- meta: grunt.file.readJSON('meta.json'),
-
- // Python project paths to important directories
- project_paths_python: {
- 'deploy_dir': 'lib_python/deploy/',
- 'package_dir': 'lib_python/deploy/package/',
- 'control_dir': 'lib_python/deploy/ctrl/',
- 'archive_dir': 'lib_python/deploy/archive/'
- },
- // Perl project paths to important directories
- project_paths_perl: {
- 'deploy_dir': 'lib_perl/deploy/',
- 'package_dir': 'lib_perl/deploy/package/',
- 'control_dir': 'lib_perl/deploy/ctrl/',
- 'archive_dir': 'lib_perl/deploy/archive/'
- },
- // Paths related to Python DEB packages
- paths_deb_python: {
- 'bin_dir': 'usr/local/bin/',
- 'etc_dir': 'usr/share/idea/',
- 'lib_dir': 'usr/lib/python3/dist-packages/',
- 'doc_dir': 'usr/share/doc/idea/',
- 'man_dir': 'usr/share/man/'
- },
- // Paths related to Perl DEB packages
- paths_deb_perl: {
- 'bin_dir': 'usr/local/bin/',
- 'etc_dir': 'usr/share/idea/',
- 'lib_dir': 'usr/local/lib/site_perl/',
- 'doc_dir': 'usr/share/doc/idea/',
- 'man_dir': 'usr/share/man/'
- },
- // Paths related to Python TAR packages
- paths_tar_python: {
- 'bin_dir': 'opt/idea/bin/',
- 'etc_dir': 'opt/idea/etc/',
- 'lib_dir': 'opt/idea/lib_python/',
- 'doc_dir': 'opt/idea/doc/',
- 'man_dir': 'opt/idea/man/'
- },
- // Paths related to Perl TAR packages
- paths_tar_perl: {
- 'bin_dir': 'opt/idea/bin/',
- 'etc_dir': 'opt/idea/etc/',
- 'lib_dir': 'opt/idea/lib_perl/',
- 'doc_dir': 'opt/idea/doc/',
- 'man_dir': 'opt/idea/man/'
- },
-
- // ---------------------------------------------------------------------
- // Cleanup various destinations
- clean: {
- // Cleanup package directory
- build_python: {
- src: [
- "<%= project_paths_python.package_dir %>"
- ]
- },
- // Cleanup package directory
- build_perl: {
- src: [
- "<%= project_paths_perl.package_dir %>"
- ]
- }
- },
-
- // ---------------------------------------------------------------------
- // Running shel commands
- shell: {
- // Update NodeJS packages (Grunt, grunt plugins...)
- npm: {
- command: 'npm update'
- },
- // Calculate directory size
- dir_size_python: {
- command: '/usr/bin/du -k -s <%= project_paths_python.package_dir %> | /usr/bin/cut -f 1',
- options: {
- callback: cbk_dir_size
- }
- },
- // Calculate directory size
- dir_size_perl: {
- command: '/usr/bin/du -k -s <%= project_paths_perl.package_dir %> | /usr/bin/cut -f 1',
- options: {
- callback: cbk_dir_size
- }
- },
- // Archive Python DEB packages
- archive_deb_python: {
- command: 'mv <%= project_paths_python.deploy_dir %>*.deb <%= project_paths_python.archive_dir %>'
- },
- // Archive Perl DEB packages
- archive_deb_perl: {
- command: 'mv <%= project_paths_perl.deploy_dir %>*.deb <%= project_paths_perl.archive_dir %>'
- },
- // Archive Python TAR packages
- archive_tar_python: {
- command: 'mv <%= project_paths_python.deploy_dir %>*.tar.gz <%= project_paths_python.archive_dir %>'
- },
- // Archive Perl TAR packages
- archive_tar_perl: {
- command: 'mv <%= project_paths_perl.deploy_dir %>*.tar.gz <%= project_paths_perl.archive_dir %>'
- },
- // Build Python DEB package
- build_deb_python: {
- command: '/usr/bin/fakeroot /usr/bin/dpkg-deb --build <%= project_paths_python.package_dir %> <%= project_paths_python.deploy_dir %>' + package_filename_deb('python')
- },
- // Build Perl DEB package
- build_deb_perl: {
- command: '/usr/bin/fakeroot /usr/bin/dpkg-deb --build <%= project_paths_perl.package_dir %> <%= project_paths_perl.deploy_dir %>' + package_filename_deb('perl')
- },
- // Build Python TAR package
- build_tar_python: {
- command: '/usr/bin/fakeroot /bin/tar -czf <%= project_paths_python.deploy_dir %>' + package_filename_tar('python', false) + ' -C <%= project_paths_python.package_dir %> .'
- },
- // Build Perl TAR package
- build_tar_perl: {
- command: '/usr/bin/fakeroot /bin/tar -czf <%= project_paths_perl.deploy_dir %>' + package_filename_tar('perl', false) + ' -C <%= project_paths_perl.package_dir %> .'
- },
- // FTP deployment
- //ftp_deploy: {
- // command: 'lftp -f .lftp'
- //},
- // SCP Python DEB deployment
- scp_upload_deb_python: {
- command: '/usr/bin/scp <%= project_paths_python.deploy_dir %>' + package_filename_deb('python') + ' <%= meta.server %>:<%= meta.server_dir_deb %>'
- },
- // SCP Perl DEB deployment
- scp_upload_deb_perl: {
- command: '/usr/bin/scp <%= project_paths_perl.deploy_dir %>' + package_filename_deb('perl') + ' <%= meta.server %>:<%= meta.server_dir_deb %>'
- },
- // SCP Python TAR deployment
- scp_upload_tar_python: {
- command: '/usr/bin/scp <%= project_paths_python.deploy_dir %>' + package_filename_tar('python', false) + ' <%= meta.server %>:<%= meta.server_dir_tar %>'
- },
- scp_upload_tar_python_l: {
- command: '/usr/bin/scp <%= project_paths_python.deploy_dir %>' + package_filename_tar('python', true) + ' <%= meta.server %>:<%= meta.server_dir_tar %>'
- },
- // SCP Perl TAR deployment
- scp_upload_tar_perl: {
- command: '/usr/bin/scp <%= project_paths_perl.deploy_dir %>' + package_filename_tar('perl', false) + ' <%= meta.server %>:<%= meta.server_dir_tar %>'
- },
- scp_upload_tar_perl_l: {
- command: '/usr/bin/scp <%= project_paths_perl.deploy_dir %>' + package_filename_tar('perl', true) + ' <%= meta.server %>:<%= meta.server_dir_tar %>'
- },
- // SSH install
- ssh_install_python: {
- command: '/usr/bin/ssh <%= meta.server %> /usr/bin/dpkg -i <%= meta.server_dir_deb %>' + package_filename_deb('python')
- },
- // SSH install
- ssh_install_perl: {
- command: '/usr/bin/ssh <%= meta.server %> /usr/bin/dpkg -i <%= meta.server_dir_deb %>' + package_filename_deb('perl')
- },
- // SSH DEB repository update
- ssh_aptrepo_update: {
- command: '/usr/bin/ssh mach@<%= meta.server %> apt-update mentat'
- }
- },
-
- // ---------------------------------------------------------------------
- // Fill in certain template files
- template: {
- control_deb_python: {
- 'options': {
- 'data': {
- 'package_name': '<%= meta.name %>-python',
- 'package_version': version(),
- 'package_size': '0',
- 'architecture': '<%= meta.architecture %>'
- }
- },
- 'files': {
- '<%= project_paths_python.package_dir %>DEBIAN/control': ['<%= project_paths_python.control_dir %>control.tmpl']
- }
- },
- control_deb_perl: {
- 'options': {
- 'data': {
- 'package_name': '<%= meta.name %>-perl',
- 'package_version': version(),
- 'package_size': '0',
- 'architecture': '<%= meta.architecture %>'
- }
- },
- 'files': {
- '<%= project_paths_perl.package_dir %>DEBIAN/control': ['<%= project_paths_perl.control_dir %>control.tmpl']
- }
- },
- version_deb_perl: {
- 'options': {
- 'data': {
- 'package_version': version()
- }
- },
- 'files': {
- '<%= project_paths_perl.package_dir %><%= paths_deb_perl.doc_dir %>version': ['<%= project_paths_perl.control_dir %>version.tmpl']
- }
- },
- version_tar_perl: {
- 'options': {
- 'data': {
- 'package_version': version()
- }
- },
- 'files': {
- '<%= project_paths_perl.package_dir %><%= paths_tar_perl.doc_dir %>version': ['<%= project_paths_perl.control_dir %>version.tmpl']
- }
- }
- },
-
- // ---------------------------------------------------------------------
- // Copy certain files to appropriate locations
- copy: {
- // Copy components for DEB package
- deb_python: {
- files: [
- // ----- Move binaries to package location
- {
- expand: true,
- cwd: 'lib_python/bin/',
- src: './*',
- dest: '<%= project_paths_python.package_dir %><%= paths_deb_python.bin_dir %>'
- },
- // ----- Move libraries to package location
- {
- expand: true,
- cwd: 'lib_python/lib/',
- src: './**',
- dest: '<%= project_paths_python.package_dir %><%= paths_deb_python.lib_dir %>'
- },
- // ----- Move etc files to package location
- {
- expand: true,
- cwd: 'schema/',
- src: './**',
- dest: '<%= project_paths_python.package_dir %><%= paths_deb_python.etc_dir %>'
- }
- ]
- },
- // Copy components for DEB package
- deb_perl: {
- files: [
- // ----- Move binaries to package location
- {
- expand: true,
- cwd: 'lib_perl/bin/',
- src: './*',
- dest: '<%= project_paths_perl.package_dir %><%= paths_deb_perl.bin_dir %>'
- },
- // ----- Move libraries to package location
- {
- expand: true,
- cwd: 'lib_perl/lib/',
- src: './**',
- dest: '<%= project_paths_perl.package_dir %><%= paths_deb_perl.lib_dir %>'
- },
- // ----- Move etc files to package location
- {
- expand: true,
- cwd: 'schema/',
- src: './**',
- dest: '<%= project_paths_perl.package_dir %><%= paths_deb_perl.etc_dir %>'
- }
- ]
- },
- // Copy components for DEB package
- tar_perl: {
- files: [
- // ----- Move binaries to package location
- {
- expand: true,
- cwd: 'lib_perl/bin/',
- src: './*',
- dest: '<%= project_paths_perl.package_dir %><%= paths_tar_perl.bin_dir %>'
- },
- // ----- Move libraries to package location
- {
- expand: true,
- cwd: 'lib_perl/lib/',
- src: './**',
- dest: '<%= project_paths_perl.package_dir %><%= paths_tar_perl.lib_dir %>'
- },
- // ----- Move config to package location
- {
- expand: true,
- cwd: 'schema/',
- src: './**',
- dest: '<%= project_paths_perl.package_dir %><%= paths_tar_perl.etc_dir %>'
- }
- ]
- },
- latest_tar_perl: {
- files: [
- {
- src: '<%= project_paths_perl.deploy_dir %>' + package_filename_tar('perl', false),
- dest: '<%= project_paths_perl.deploy_dir %>' + package_filename_tar('perl', true),
- }
- ]
- }
- },
-
- // ---------------------------------------------------------------------
- // Make sure all files have necessary file permissions
- chmod: {
- options: {
- mode: '755'
- },
- deb_bin_python: {
- src: ['<%= project_paths_python.package_dir %><%= paths_deb_python.bin_dir %>/*']
- },
- deb_bin_perl: {
- src: ['<%= project_paths_perl.package_dir %><%= paths_deb_perl.bin_dir %>/*']
- },
- tar_bin_python: {
- src: ['<%= project_paths_python.package_dir %><%= paths_tar_python.bin_dir %>/*']
- },
- tar_bin_perl: {
- src: ['<%= project_paths_perl.package_dir %><%= paths_tar_perl.bin_dir %>/*']
- }
- }
-
- });
-
- // ---------------------------------------------------------------------
- // Load grunt modules
- require('load-grunt-tasks')(grunt, { scope: 'devDependencies' });
- require('time-grunt')(grunt);
-
- grunt.registerTask('inc-version', function() {
- v = grunt.config.get('meta.version_minor');
- grunt.config.set('meta.version_minor', v + 1);
- console.log("Incremented version to: " + grunt.template.process(version()));
- grunt.config.set('template.deb-control.options.data.package_version', grunt.template.process(version()));
- });
-
- grunt.registerTask('save-meta', function() {
- try {
- obj = JSON.parse(JSON.stringify(grunt.config.get('meta')));
- } catch (e){
- grunt.log.error(e);
- grunt.fail.warn("Error parsing the JSON data.", 3);
- }
- grunt.file.write('meta.json', JSON.stringify(obj, null, 4));
- });
-
- // ---------------------------------------------------------------------
- // Setup custom task(s).
- grunt.registerTask('next-version', ['inc-version', 'save-meta']);
- grunt.registerTask('build-deb-perl', ['clean:build_perl', 'shell:archive_deb_perl', 'copy:deb_perl', 'chmod:deb_bin_perl', 'shell:dir_size_perl', 'template:control_deb_perl', 'template:version_deb_perl', 'shell:build_deb_perl', 'clean:build_perl']);
- grunt.registerTask('build-tar-perl', ['clean:build_perl', 'shell:archive_tar_perl', 'copy:tar_perl', 'chmod:tar_bin_perl', 'template:version_tar_perl', 'shell:build_tar_perl', 'clean:build_perl', 'copy:latest_tar_perl']);
- grunt.registerTask('build-perl', ['build-deb-perl', 'build-tar-perl']);
- grunt.registerTask('deploy-deb-perl', ['build-deb-perl', 'shell:scp_upload_deb_perl', 'shell:ssh_aptrepo_update']);
- grunt.registerTask('deploy-tar-perl', ['build-tar-perl', 'shell:scp_upload_tar_perl', 'shell:scp_upload_tar_perl_l']);
- grunt.registerTask('deploy-perl', ['deploy-deb-perl', 'shell:ssh_aptrepo_update', 'deploy-tar-perl']);
- //grunt.registerTask('ftp-deploy', ['shell:ftp_deploy']);
-
- grunt.registerTask('update', ['shell:npm']);
- grunt.registerTask('default', ['update']);
-};
diff --git a/lib_python/lib/idea-format/LICENSE b/LICENSE
similarity index 100%
rename from lib_python/lib/idea-format/LICENSE
rename to LICENSE
diff --git a/lib_python/lib/idea-format/Makefile b/Makefile
similarity index 100%
rename from lib_python/lib/idea-format/Makefile
rename to Makefile
diff --git a/lib_python/lib/idea-format/README.rst b/README.rst
similarity index 100%
rename from lib_python/lib/idea-format/README.rst
rename to README.rst
diff --git a/lib_python/lib/idea-format/archive/.gitignore b/archive/.gitignore
similarity index 100%
rename from lib_python/lib/idea-format/archive/.gitignore
rename to archive/.gitignore
diff --git a/lib_python/lib/idea-format/bench_idea.py b/bench_idea.py
similarity index 100%
rename from lib_python/lib/idea-format/bench_idea.py
rename to bench_idea.py
diff --git a/lib_python/bin/json-schema-validate.py b/bin/json-schema-validate.py
similarity index 100%
rename from lib_python/bin/json-schema-validate.py
rename to bin/json-schema-validate.py
diff --git a/lib_python/bin/jsonschema2dokudoc.py b/bin/jsonschema2dokudoc.py
similarity index 100%
rename from lib_python/bin/jsonschema2dokudoc.py
rename to bin/jsonschema2dokudoc.py
diff --git a/lib_python/bin/jsonschema2mentat.py b/bin/jsonschema2mentat.py
similarity index 100%
rename from lib_python/bin/jsonschema2mentat.py
rename to bin/jsonschema2mentat.py
diff --git a/lib_python/bin/jsonschema2moindoc.py b/bin/jsonschema2moindoc.py
similarity index 100%
rename from lib_python/bin/jsonschema2moindoc.py
rename to bin/jsonschema2moindoc.py
diff --git a/lib_python/lib/idea-format/dist/.gitignore b/dist/.gitignore
similarity index 100%
rename from lib_python/lib/idea-format/dist/.gitignore
rename to dist/.gitignore
diff --git a/lib_python/lib/idea-format/idea/__init__.py b/idea/__init__.py
similarity index 100%
rename from lib_python/lib/idea-format/idea/__init__.py
rename to idea/__init__.py
diff --git a/lib_python/lib/idea-format/idea/base.py b/idea/base.py
similarity index 100%
rename from lib_python/lib/idea-format/idea/base.py
rename to idea/base.py
diff --git a/lib_python/lib/idea-format/idea/lite.py b/idea/lite.py
similarity index 100%
rename from lib_python/lib/idea-format/idea/lite.py
rename to idea/lite.py
diff --git a/lib_python/lib/idea-format/idea/valid.py b/idea/valid.py
similarity index 100%
rename from lib_python/lib/idea-format/idea/valid.py
rename to idea/valid.py
diff --git a/lib_perl/bin/idea-validator b/lib_perl/bin/idea-validator
deleted file mode 100755
index d2674c4..0000000
--- a/lib_perl/bin/idea-validator
+++ /dev/null
@@ -1,193 +0,0 @@
-#!/usr/bin/perl -T
-
-use strict;
-use warnings;
-
-#*******************************************************************************
-# DOCUMENTATION SECTION
-#*******************************************************************************
-
-=head1 NAME
-
-idea-validator - Simple IDEA message validator
-
-=head1 SYNOPSIS
-
- # Either use the anonymous pipe
- cat message.idea | idea-validator
-
- # Or pass the message file as the first argument
- idea-validator message.idea
-
-=head1 OPTIONS AND ARGUMENTS
-
-=over
-
-=item B<--help>
-
-Display short application help
-
-=item B<--man>
-
-Display full man page
-
-=item B<--strict>
-
-Turn on the strict mode
-
-=item B<--schema-file PATH>
-
-Select different JSON schema file
-
-=back
-
-=head1 DESCRIPTION
-
-The purpose of this program is to validate the IDEA message stored in a given text file,
-or passed on standard input. It is intended to be used as a simple tool to test generated
-IDEA messages.
-
-=head1 AUTHOR
-
- Jan Mach
- jan.mach@cesnet.cz
- Cesnet, z.s.p.o
- http://www.cesnet.cz
-
-=head1 COPYRIGHT
-
-This program is free software; you can redistribute
-it and/or modify it under the same terms as Perl itself.
-
-The full text of the license can be found in the
-LICENSE file included with this module.
-
-
-=head1 SEE ALSO
-
-perl(1), Mentat::Message::Validator::IDEA(3).
-
-=cut
-
-#*******************************************************************************
-# LIBRARY LOADING SECTION
-#*******************************************************************************
-
-#-- Perl core modules ---------------------------------------------------------#
-use Getopt::Long;
-use Pod::Usage;
-
-use Data::Dumper; #--- DEVELOPMENT ONLY ---#
-#use Smart::Comments; #--- DEVELOPMENT ONLY ---#
-
-#-- Perl CPAN modules ---------------------------------------------------------#
-
-#-- Custom application modules ------------------------------------------------#
-
-# Location of the schema file
-my $SCHEMA_FILE;
-
-# We must add the custom library location to the INC path, if we are in development
-# process, or if the package was installed from tarball
-use Cwd qw(abs_path);
-use FindBin;
-unless ($FindBin::Bin =~ m|^/usr/local/bin|) {
- # Tarball installation
- if ($FindBin::Bin =~ m|^/opt/mentat/bin|) {
- use lib "/opt/libcesnet-toolkit-perl/lib";
- use lib "/opt/idea/lib_perl";
- use lib "/opt/mentat/lib";
- $SCHEMA_FILE = '/opt/mentat/etc/schema-idea.conf';
- }
- # Development environment
- elsif (not $FindBin::Bin =~ m|tests/unit/bin|) {
- use lib (abs_path("$FindBin::Bin/../lib") =~ m{^(/.*)$})[0];
- $SCHEMA_FILE = '../etc/schema-idea.conf';
- }
- # Unit test environment
- else {
- use lib (abs_path("$FindBin::Bin/../lib") =~ m{^(/.*)$})[0];
- use lib (abs_path("$FindBin::Bin/../../../lib") =~ m{^(/.*)$})[0];
- $SCHEMA_FILE = '../conf/schema-idea.conf';
- }
-}
-else {
- $SCHEMA_FILE = '/etc/mentat/schema-idea.json';
-}
-
-use Mentat::Message::Factory;
-use Mentat::Message::Validator::IDEA;
-
-#*******************************************************************************
-# CONSTANTS AND GLOBAL VARIABLES DEFINITION SECTION
-#*******************************************************************************
-
-#-- Constants -----------------------------------------------------------------#
-
-#-- Static public class variables (our) ---------------------------------------#
-
-#-- Static protected class variables (my) -------------------------------------#
-
-# Configurations for the environment
-my $FLAG_HELP = 0;
-my $FLAG_MAN = 0;
-my $FLAG_STRICT = 0;
-
-#*******************************************************************************
-# INITIALIZATION AND CLEANUP SECTION
-#*******************************************************************************
-
-#-- Module initializations ----------------------------------------------------#
-BEGIN {
- use vars qw($VERSION);
- $VERSION = '0.1';
- $ENV{PATH} = '/bin:/usr/bin';
- $ENV{ENV} = undef;
-}
-
-#-- Module clean-up code (global destructor) ----------------------------------#
-END {
-
-}
-
-#*******************************************************************************
-# IMPLEMENTATION SECTION
-#*******************************************************************************
-
-# Parse application options
-my $result = GetOptions ('help' => \$FLAG_HELP, 'man' => \$FLAG_MAN, 'strict' => \$FLAG_STRICT, 'schema-file=s' => \$SCHEMA_FILE);
-pod2usage(-verbose => 0, -exitval => 1) unless $result;
-pod2usage(-verbose => 1, -exitval => 0) if $FLAG_HELP;
-pod2usage(-verbose => 2, -exitval => 0) if $FLAG_MAN;
-die "Invalid schema file '$SCHEMA_FILE'\n" unless -f $SCHEMA_FILE;
-
-# Prepare the validator
-my $validator = Mentat::Message::Validator::IDEA->new($SCHEMA_FILE);
-
-# Load IDEA message to one string from standard input, or given file
-my $idea = '';
-while (my $line = <>) { $idea .= $line; }
-
-# Check if we have read something
-pod2usage(-message => "This simple validator program is expecting one IDEA message either on standard input, or in a file given as first argument...", -verbose => 0, -exitval => 1) unless ($idea);
-
-# Parse given IDEA message
-my $message_idea;
-eval {
- $message_idea = Mentat::Message::Factory->from_string($idea, 'idea');
-};
-if ($@) {
- print "Parser error: $@\n";
- exit(1);
-}
-
-# Validate given string or file
-my $error = $validator->validate_s($message_idea, $FLAG_STRICT);
-unless ($error) {
- print "SUCCESSFULLY PARSED AND VALIDATED GIVEN IDEA MESSAGE:\n\n". $message_idea->to_string(1) . "\n";
- exit(0);
-}
-else {
- print "Validation error: $error\n";
- exit(1);
-}
diff --git a/lib_perl/deploy/ctrl/conffiles b/lib_perl/deploy/ctrl/conffiles
deleted file mode 100755
index 8b13789..0000000
--- a/lib_perl/deploy/ctrl/conffiles
+++ /dev/null
@@ -1 +0,0 @@
-
diff --git a/lib_perl/deploy/ctrl/control.tmpl b/lib_perl/deploy/ctrl/control.tmpl
deleted file mode 100644
index 3281144..0000000
--- a/lib_perl/deploy/ctrl/control.tmpl
+++ /dev/null
@@ -1,10 +0,0 @@
-Package: <%- package_name %>
-Version: <%- package_version %>
-Section: perl
-Installed-Size: <%- package_size %>
-Priority: optional
-Architecture: <%- architecture %>
-Depends: perl
-Maintainer: Jan Mach <jan.mach@cesnet.cz>
-Description: libidea
- Perl library for handling IDEA messages
diff --git a/lib_perl/deploy/ctrl/copyright b/lib_perl/deploy/ctrl/copyright
deleted file mode 100644
index 85ca39d..0000000
--- a/lib_perl/deploy/ctrl/copyright
+++ /dev/null
@@ -1,15 +0,0 @@
-Charon
-
-Copyright 2011-2012 Cesnet, z.s.p.o. (http://www.ces.net)
-Authors: Jan Mach <jan.mach@cesnet.cz>
-
-2011-12-31
-
-The entire code base may be distributed under the terms of the GNU General
-Public License (GPL), which appears immediately below. Alternatively, all
-of the source code as any code derived from that code may instead be
-distributed under the GNU Lesser General Public License (LGPL), at the
-choice of the distributor. The complete text of the LGPL appears at the
-bottom of this file.
-
-See /usr/share/common-licenses/(GPL|LGPL)
diff --git a/lib_perl/deploy/ctrl/postinst b/lib_perl/deploy/ctrl/postinst
deleted file mode 100755
index ba407b8..0000000
--- a/lib_perl/deploy/ctrl/postinst
+++ /dev/null
@@ -1,32 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-print "postinst script launched with args: '@ARGV'\n";
-
-# Create repository storage structure
-`/bin/mkdir -p /var/reps/apt`;
-`/bin/mkdir -p /var/reps/rpm`;
-`/bin/mkdir -p /var/reps/git`;
-`/bin/mkdir -p /var/reps/svn`;
-
-`/bin/mkdir -p /etc/rpm`;
-
-`/bin/mkdir -p /etc/vsftpd`;
-
-`/bin/mkdir -p /var/run/vsftpd/chroot`;
-`/bin/mkdir -p /var/ftproot/apt`;
-`/bin/mkdir -p /var/ftproot/rpm`;
-`/bin/mkdir -p /var/ftproot/tar`;
-
-`/bin/mkdir -p /etc/apache2/repositories.d/`;
-
-# Change permissions of custom scripts to executable
-`/bin/chmod 755 /opt/charon/scripts/*`;
-
-# Add the init script for incoming queue processing daemon to appropriate runlevels
-`/usr/sbin/update-rc.d inc-processing defaults`;
-`/usr/sbin/update-rc.d repositories defaults`;
-
-exit(0);
diff --git a/lib_perl/deploy/ctrl/postrm b/lib_perl/deploy/ctrl/postrm
deleted file mode 100755
index 4993dc8..0000000
--- a/lib_perl/deploy/ctrl/postrm
+++ /dev/null
@@ -1,13 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-print "postrm script launched with args: '@ARGV'\n";
-
-if ($ARGV[0] and $ARGV[0] eq 'purge')
-{
- `/usr/sbin/update-rc.d inc-processing remove`;
-}
-
-exit(0);
diff --git a/lib_perl/deploy/ctrl/preinst b/lib_perl/deploy/ctrl/preinst
deleted file mode 100755
index 3a308c0..0000000
--- a/lib_perl/deploy/ctrl/preinst
+++ /dev/null
@@ -1,8 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-print "preinst script launched with args: '@ARGV'\n";
-
-exit(0);
diff --git a/lib_perl/deploy/ctrl/prerm b/lib_perl/deploy/ctrl/prerm
deleted file mode 100755
index 280839a..0000000
--- a/lib_perl/deploy/ctrl/prerm
+++ /dev/null
@@ -1,8 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-print "prerm script launched with args: '@ARGV'\n";
-
-exit(0);
diff --git a/lib_perl/deploy/ctrl/version.tmpl b/lib_perl/deploy/ctrl/version.tmpl
deleted file mode 100644
index fed9f5a..0000000
--- a/lib_perl/deploy/ctrl/version.tmpl
+++ /dev/null
@@ -1 +0,0 @@
-<%- package_version %>
diff --git a/lib_perl/lib/Mentat/Handyman.pm b/lib_perl/lib/Mentat/Handyman.pm
deleted file mode 100644
index 820ea1d..0000000
--- a/lib_perl/lib/Mentat/Handyman.pm
+++ /dev/null
@@ -1,652 +0,0 @@
-package Mentat::Handyman;
-use strict;
-use warnings;
-
-# Fix of "smartmatch is experimental" warning
-# http://blogs.perl.org/users/mike_b/2013/06/a-little-nicer-way-to-use-smartmatch-on-perl-518.html
-no if $] >= 5.017011, warnings => 'experimental::smartmatch';
-
-#*******************************************************************************
-# DOCUMENTATION SECTION
-#*******************************************************************************
-
-=head1 NAME
-
-Mentat::Handyman - Utility library for generating IDEA messages using predefined templates
-
-=head1 SYNOPSIS
-
- use Mentat::Handyman;
-
- # Prepare handyman configurations
- my %handyman_cfg = (
- "template_file" => "/etc/mentat/msgtmplts.json", # Template file from which to load the message templates [MANDATORY]
- "temp_folder" => "/var/mentat/spool/_handyman", # Working directory [MANDATORY]
- "pickup_folder" => "/var/mentat/spool/_pickup/incoming", # Target folder to which to store the generated messages [MANDATORY]
- "schema_file" => "/etc/mentat/schema-idea.json", # JSON schema for message validation [MANDATORY]
- "template_schema_file" => "/etc/mentat/schema-msgtmplts.json", # JSON schema message template validation [MANDATORY]
- "user" => "mentat", # Name of the user, which will own the generated messages [MANDATORY]
- "message_type" => "idea", # Type of the generated message [MANDATORY]
- "strict" => 1, # Switch for strict error checking [OPTIONAL]
- "test_mode" => 0, # Switch for test mode [OPTIONAL]
- "builder_config" => {
- "name" => "cz.cesnet.node", # Name of the detection node node (reverse DNS name is suggested) [MANDATORY]
- "type" => "Honeypot, Test", # Type of the detection node (list of comma separated values) [OPTIONAL]
- "sw" => "LaBrea", # Name of the detection software [OPTIONAL]
- "note" => "Addtional note", # Additional note [OPTIONAL]
- }
- );
- # Instantinate the handyman object
- my $handyman = Mentat::Handyman->new(%handyman_cfg);
-
- # Instantinate Mentat::Handyman object using the configurations from external JSON file
- my $handyman = Mentat::Handyman->load('./handyman-deb.json');
-
- eval {
- # Arguments to be filled into the template
- my @ARGS = (...);
- my %ARGS = ('detect_time' => time, ...);
-
- # Attempt to generate the IDEA message according to the template - commandline like approach
- my $idea_message = $handyman->generate('template_id', {'detect_time' => 1356955200}, @ARGS);
- print $message->to_string(1);
-
- # Attempt to generate the IDEA message according to the template - hash like approach
- my $idea_message = $handyman->generate('template_id', %ARGS);
- print $message->to_string(1);
-
- # Attempt to generate the IDEA message according to the template and store it directly to the file - commandline like approach
- my ($rv, $filename) = $handyman->generate_to_file('template_id', {'detect_time' => 1356955200}, @ARGS);
-
- # Attempt to generate the IDEA message according to the template and store it directly to the file - hash like approach
- my ($rv, $filename) = $handyman->generate_to_file('template_id', %ARGS);
- };
- if ($@) {
- # SOMEHOW DEAL WITH ERRORS HERE
- }
-
- # For more usage examples please see the handyman.pl example script, which is located
- # in package documentation location.
-
-=head1 DESCRIPTION
-
-This utility class can be used to easily create complex IDEA messages. These messages
-are generated according to the prepared patterns stored in the designated configuration
-file (see the section TEMPLATE FILE SYNTAX for details).
-
-These templates are just lists of Mentat::Message::Builder::IDEA rules (see the
-manual page for details). There is the possibility to use variables and macros on
-both sides of the rule. These variables and macros will then be replaced/expanded
-with given value before the message is about to be created. Few examples:
-
- Source[1]/IP4[1] => $3
- Description => User $2 logged in from $3 port $4 using the $1 method
-
-In the examples above strings '$1', '$2', '$3' and '$4' will be replaced with given values:
-the '$1' string with value of the first argument, the '$2' string with value of the second
-argument and so on.
-
-Additonally, not only positional, but also named variables are supported. It is possible to
-use rules like this:
-
- Source[1]/IP4[1] => $ip
-
-If you want to use rules like this, you must either use hash like approach (see SINOPSIS above)
-for generating the messages, or you have to provide named variables via positional arguments
-like this (please see the Mentat::Message::Builder::IDEA manual page for details and more
-examples):
-
- ip=127.0.0.1
-
-When creating the object instance, you have to specify at least the name of the template file
-and location of the temporary and pickup directories. Builder configurations may be set up
-as well.
-
-=head1 TEMPLATE FILE SYNTAX
-
-Template file is JSON file. It should contain array of objects:
-
- {
- # Current version of template schema
- "version" : 1,
- # List of available templates
- "templates" : {
- # Unique template identifier
- "kippo-001" : {
- # Template alias (MANDATORY)
- "alias" : "kippo-login",
- # Title to display when (MANDATORY)
- "title" : "Remote login",
- # Name of the analyzer (MANDATORY, must match Node/SW value)
- "analyzer" : "Kippo"
- # Alert classification (MANDATORY, must match Description value)
- "class" : "Remote login",
- # Alert categorization (MANDATORY, must match Category value)
- "category" : "Malware",
- # Reference to external information source (OPTIONAL)
- "ref" : "http://www.alert.info",
- # Additional event description (OPTIONAL)
- "description" : "",
- # Additional notes (OPTIONAL)
- "note" : "",
-
- # Label for mentat-reporter - extra IP reports (MANDATORY)
- "label_e" : "Pokus o neopravnene pripojeni k SSH serveru",
- # Label for mentat-reporter - summary reports (MANDATORY)
- "label_s" : "Stroje na nasledujicich IP adresach se pokusily o neopravnene pripojeni k SSH serveru",
-
- # Number of command line arguments (MANDATORY)
- "args" : "6",
- # Help for the command line arguments (MANDATORY)
- "cmd_help" : "[source IP] [target IP] [target user] [completion] [impact] [event count]",
- # Example command line (OPTIONAL, BUT HIGHLY RECOMMENDED)
- "cmd_example" : "192.168.0.1 192.168.0.2 root failed \"Someone tried to login as root from 192.168.0.1\" 5",
-
- # Rules for building IDEA message (MANDATORY)
- "rules_idea" : [
- {
- "k" : "Source/IP4[1]",
- "v" : "$1"
- },
- {
- "k" : "Target/IP4[1]",
- "v" : "$2"
- },
- ...
- ]
- }
- }
- }
-
-=head1 CONFIGURATION OPTIONS
-
-=over
-
-=item B<template_file> [MANDATORY]
-
-Template file from which to load the message templates
-
-=item B<temp_folder> [MANDATORY]
-
-Working directory for temporary files
-
-=item B<pickup_folder> [MANDATORY]
-
-Target folder to which to store the generated messages
-
-=item B<schema_file> [MANDATORY]
-
-JSON schema for message validation
-
-=item B<template_schema_file> [MANDATORY]
-
-JSON schema message template validation
-
-=item B<user> [MANDATORY]
-
-Name of the user, which will own the generated messages
-
-=item B<message_type> [MANDATORY]
-
-Type of the generated message
-
-=item B<strict> [OPTIONAL]
-
-Switch for strict error checking
-
-=item B<test_mode> [OPTIONAL]
-
-Switch for test mode
-
-=item B<builder_config> [MANDATORY]
-
-Configurations for Mentat::Message::Builder::IDEA (see the documentation for details)
-
-=back
-
-=head1 AUTHOR
-
- Jan Mach
- Cesnet, z.s.p.o
- jan.mach@cesnet.cz
- http://www.cesnet.cz
-
-=head1 COPYRIGHT
-
-This program is free software; you can redistribute
-it and/or modify it under the same terms as Perl itself.
-
-The full text of the license can be found in the
-LICENSE file included with this module.
-
-=head1 SEE ALSO
-
-perl(1), Config::JSON(3), Mentat::Path::Parser(3), Mentat::Message::IDEA(3),
-Mentat::Message::Builder::IDEA(3), Mentat::Message::Validator::IDEA(3).
-
-=head1 FUNCTION REFERENCE
-
-=over 4
-
-=cut
-
-#*******************************************************************************
-# LIBRARY LOADING SECTION
-#*******************************************************************************
-
-#-- Perl core modules ---------------------------------------------------------#
-use Carp;
-use Scalar::Util 'blessed';
-use Time::HiRes qw(time);
-use Digest::MD5 qw(md5_hex);
-use Storable;
-use File::Copy;
-
-#use Smart::Comments; #-+-> DEVEL ONLY <-+-#
-use Data::Dumper; #-+-> DEVEL ONLY <-+-#
-
-#-- Perl CPAN modules ---------------------------------------------------------#
-
-#-- Custom application modules ------------------------------------------------#
-
-# Modules from Mentat package
-use Config::JSON;
-use Mentat::Message::Builder::IDEA;
-use Mentat::Message::Validator::IDEA;
-
-#*******************************************************************************
-# CONSTANTS AND GLOBAL VARIABLES DEFINITION SECTION
-#*******************************************************************************
-
-#-- Constants -----------------------------------------------------------------#
-
-#-- Static public class variables (our) ---------------------------------------#
-
-#-- Static protected class variables (my) -------------------------------------#
-
-#*******************************************************************************
-# INITIALIZATION AND CLEANUP SECTION
-#*******************************************************************************
-
-#-- Module initializations ----------------------------------------------------#
-BEGIN {
- use vars qw($VERSION $DEVEL @ISA);
- $VERSION = '0.1';
- $DEVEL = 0;
- $ENV{PATH} = '/bin:/usr/bin';
-}
-
-
-#-- Module clean-up code (global destructor) ----------------------------------#
-END {
-
-}
-
-#*******************************************************************************
-# IMPLEMENTATION SECTION
-#*******************************************************************************
-
-=item load() [PUBLIC,STATIC]
-
- Usage : my $instance = Mentat::Handyman->load($config_file);
- Purpose : Create and return reference to the new instance with configuration taken from external JSON file
- Arguments : STRING $config_file - name of the configuration JSON file
- Returns : Mentat::Handyman reference on success, dies on failure
- Throws : Dies, if not invoked on class
- Comments : Internally uses new() method
- See Also : new() method
-
-=cut
-
-sub load
-{
- my $class = shift;
- confess "Class method not invoked on class" if blessed($class);
- my ($config_file,) = @_;
- die "Handyman configuration file must be given as argument\n" unless $config_file;
- die "Handyman configuration file must be existing ordinary file\n" unless -f $config_file;
-
- # Load configurations from external JSON file
- my ($config, $error) = Config::JSON->load($config_file);
- die "$error\n" if $error;
-
- # Instantinate the handyman object
- return $class->new(%$config);
-}
-
-=item new() [PUBLIC,STATIC]
-
- Usage : my $instance = Mentat::Handyman->new(%config);
- Purpose : Create and return reference to the new instance
- Arguments : HASH %config with follwong keys:
- STRING $template_file - name of the template file [MANDATORY]
- STRING $temp_folder - name of the folder to store mentat messages [MANDATORY]
- STRING $pickup_folder - name of the folder to which to move the successfully created messages [MANDATORY]
- STRING $schema_file - name of the JSON schema file for message validation [OPTIONAL]
- STRING $template_schema_file - name of the JSON schema file for message template validation [MANDATORY]
- STRING $user - name of the user and group, to which to change the ownership of generated messages
- STRING $message_type - name of the user, who will own the generated messages [MANDATORY]
- BOOL $strict - strict filling of message templates [MANDATORY]
- HASH REFERENCE $builder_config - Mentat::Message::Builder::IDEA configurations
- Returns : Mentat::Handyman reference on success, dies on failure
- Throws : Dies, if not invoked on class
-
-=cut
-
-sub new
-{
- my $class = shift;
- confess "Class method not invoked on class" if blessed($class);
- my %config = @_;
-
- die "Constructor expects configurations as argument\n" unless %config;
- die "Handyman configuration 'template_file' is missing\n" unless $config{template_file};
- die "Handyman configuration 'temp_folder' is missing\n" unless $config{temp_folder};
- die "Handyman configuration 'pickup_folder' is missing\n" unless $config{pickup_folder};
- die "Handyman configuration 'user' is missing\n" unless $config{user};
- die "Teplate file '$config{template_file}' is not ordinary file\n" unless -f $config{template_file};
- die "Temp folder '$config{temp_folder}' is not a directory or writable\n" unless -d $config{temp_folder} and -w $config{temp_folder};
- die "Pickup folder '$config{pickup_folder}' is not a directory or writable\n" unless -d $config{pickup_folder} and -w $config{pickup_folder};
- if ($config{schema_file}) {
- die "Schema file '$config{schema_file}' is not ordinary file\n" unless -f $config{schema_file};
- }
- if ($config{template_schema_file}) {
- die "Template schema file '$config{template_schema_file}' is not ordinary file\n" unless -f $config{template_schema_file};
- }
-
- my $self = bless ({}, $class);
-
- # Setup temporary and destination directories
- $self->{TEMPLATE_FILE} = $config{template_file};
- $self->{TEMP_FOLDER} = $config{temp_folder};
- $self->{PICKUP_FOLDER} = $config{pickup_folder};
- $self->{SCHEMA_FILE} = $config{schema_file};
- $self->{TEMPLATE_SCHEMA_FILE} = $config{template_schema_file};
-
- my ($login, $pass, $uid, $gid) = getpwnam($config{user}) or die "User '$config{user}' does not exist in passwd file\n";
- $self->{USER_UID} = $uid;
- $self->{USER_GID} = $gid;
- $self->{MSGTYPE} = $config{message_type} || 'idea';
- $self->{STRICT} = $config{strict};
- $self->{TEST_MODE} = $config{test_mode};
-
- # Setup message builder based on the desired message type
- $self->{BUILDER} = Mentat::Message::Builder::IDEA->new($config{builder_config});
- $self->{VALIDATOR} = Mentat::Message::Validator::IDEA->new($self->{SCHEMA_FILE}) if $self->{SCHEMA_FILE};
-
- # Load message templates
- $self->_load_templates($self->{TEMPLATE_FILE}, $self->{TEMPLATE_SCHEMA_FILE});
-
- print STDERR "HANDYMAN UID: '$<', EUID: '$>', GID: '$(', EGID: '$)',\n" if $DEVEL;
- print STDERR "TEMPLATES: " . Dumper($self->{TEMPLATES}) if $DEVEL;
-
- # Perform further initializations (callback for subclassess)
- return $self->_init(@_);
-}
-
-=item fill_in_rule($$$$;$) [PUBLIC]
-
- Usage : my $filled_rule = $handyman->fill_in_rule($key, $value, $hash_variables, $array_variables);
- Purpose : Fill in and return single IDEA message building rule with values given in hash and array
- Arguments : STRING $key - rule key [MANDATORY]
- STRING $value - rule value [MANDATORY]
- HASH REFERENCE $hash_variables - hash containing named variables to be filled into the rules [OPTIONAL]
- ARRAY REFERENCE $array_variables - array containing indexed variables to be filled into the rules [OPTIONAL]
- BOOL $strict - strict fill flag [OPTIONAL]
- Returns : ARRAY containing filled $key and $value (SUCCESS)
- Throws : Dies, if message rules not given as arguments
- See Also : fill_in_rule() method of Mentat::Message::Builder
-
-=cut
-
-sub fill_in_rule(@)
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
- return $self->{BUILDER}->fill_in_rule(@_);
-}
-
-=item generate($$@) [PUBLIC]
-
- Usage : my $idea_message = $instance->generate('template_001', {'detect_time' => 1356955200}, @args);
- Purpose : Generate IDEA message according to the given template
- Arguments : STRING $template_id - identifier of the template to be used to generate the message [MANDATORY]
- HASH REFERENCE $name_args - name arguments and additional message configurations [MANDATORY]
- ARRAY @args - positional arguments to be filled to the template [OPTIONAL]
- Returns : Mentat::Message reference
- Throws : Dies, if not invoked on object
- Comments : This method is called from generate_to_file() method
- See Also : generate_to_file() method
-
-=cut
-
-sub generate($$@)
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
- my ($template_id, $name_args, @args) = @_;
- confess "IDEA message builder must be set up prior to message generation" unless $self->{BUILDER};
-
- # For convenience, extract the selected template from the template set
- my $template = $self->template($template_id);
-
- # Check the number of given arguments
- my $cnt = @args; $cnt = scalar keys %$name_args unless $cnt;
- die "Template '$template_id' expects '".$template->{'args'}."' arguments, but '$cnt' given instead\n" unless ($cnt >= $template->{'args'});
-
- # Fetch the list of message rules
- my $rules = $template->{'template'};
- die "Template '$template_id' does not provide rules to build '$self->{MSGTYPE}' message\n" unless $rules;
-
- # Build the message and generate the file name
- my $message = $self->{BUILDER}->build(rules => $rules,
- name_args => $name_args,
- pos_args => \@args,
- template_id => $template_id,
- strict => $self->{STRICT});
-
- # When running in test mode, append the 'Test' category to every generated message
- if ($self->{TEST_MODE}) {
- my $categories = $message->path_values('Category');
- unless ('Test' ~~ @$categories) {
- $message->path_node_set('Category[*]', 'Test');
- }
- }
-
- # Validate generated message
- if ($self->{VALIDATOR}) {
- my $error = $self->{VALIDATOR}->validate_s($message);
- die "$error\n".$message->to_string(1)."\n" if $error;
- }
-
- return $message;
-}
-
-=item store_to_file($$@) [PUBLIC]
-
- Usage : my ($rv, $file_name) = $instance->store_to_file($idea_message);
- Purpose : Store given IDEA message to the file in pickup folder
- Arguments : IDEA::Message $idea_message - Message to be stored
- Returns : Tuple containing following values:
- BOOL true on success, false on failure
- STRING name of the file containing generated message
- Throws : Dies, if not invoked on object
- Comments : This method uses generate() method to internally generate the IDEA message object
-
-=cut
-
-sub store_to_file($)
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
- my ($idea_message,) = @_;
-
- # Message creation must be atomic operation, so store the message to the temporary folder first
- my ($file_name, $file_path) = $idea_message->to_dir($self->{TEMP_FOLDER}, 1);
-
- # Prepare the file names in advance
- my $from = $file_path;
- my $to = $self->{PICKUP_FOLDER} . "/" . $file_name;
-
- # Clean the tainted file names
- $from = $1 if ($from =~ /(.*)/);
- $to = $1 if ($to =~ /(.*)/);
-
- # Change the ownership accordingly (FIXME)
- #chown($self->{USER_UID}, $self->{USER_GID}, $from)
- # or die "Unable to change ownership of the file '$from' to '".$self->{USER_UID}.":".$self->{USER_GID}."'\n";
-
- # Make sure the file access permissions are normalized
- my $mode = 0664; chmod($mode, $from)
- or die "Unable to change permissions of the message file '$from' to '$mode'\n";
-
- # Attempt to change the ownership
- chown($self->{USER_UID}, $self->{USER_GID}, $from);
-
- # And then move it to pickup directory
- move($from, $to)
- or die "Unable to move the message file '$from' to '$to': $!\n";
-
- return (1, $to);
-}
-
-=item generate_to_file($$@) [PUBLIC]
-
- Usage : my ($rv, $file_name) = $instance->generate_to_file('template_001', {'detect_time' => 1356955200}, @args);
- Purpose : Generate IDEA message according to the given template and store it to the file in pickup folder
- Arguments : Same as generate() method
- Returns : Same as store_to_file() method
- Throws : Dies, if not invoked on object
- Comments : This method uses generate() method to internally generate the IDEA message object
- See Also : generate(), store_to_file() methods
-
-=cut
-
-sub generate_to_file($$@)
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
-
- # Generate the IDEA message object
- my $idea_message = $self->generate(@_);
-
- # Store it to the file
- return $self->store_to_file($idea_message)
-}
-
-=item templates() [PUBLIC]
-
- Usage : my @templates = $instance->templates();
- Purpose : Get the list of names of all currently known templates
- Arguments : None
- Returns : ARRAY of STRINGS @templates
- Throws : Dies, if not invoked on object
-
-=cut
-
-sub templates()
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
-
- return sort keys %{$self->{TEMPLATES}};
-}
-
-=item template($) [PUBLIC]
-
- Usage : my $template = $instance->template($template_id);
- Purpose : Fetch the metadata for given template
- Arguments : STRING $template_id - identifier of the template [MANDATORY]
- Returns : HASH REFERENCE $template
- Throws : Dies, if not invoked on object
-
-=cut
-
-sub template($)
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
- my ($template_id,) = @_;
-
- die "Unknown template '$template_id'\n" unless exists $self->{TEMPLATES}->{$template_id};
- return $self->{TEMPLATES}->{$template_id};
-}
-
-=item parse_args($) [PUBLIC]
-
- Usage : my @args = $instance->parse_args($command_line);
- Purpose : Separate commandline given as single merged string into list of arguments
- Arguments : STRING $command_line - commandline as single merged string
- Returns : ARRAY of STRINGS @args
-
-=cut
-
-sub parse_args($)
-{
- my $invocant = shift;
-
- return Mentat::Message::Builder->parse_command_args(@_);
-}
-
-#-------------------------------------------------------------------------------
-# Private interface
-#-------------------------------------------------------------------------------
-
-# _init [PROTECTED]
-#
-# Usage : return $self->_init(@_);
-# Purpose : Initialize the new Mentat::Handyman instance
-# Arguments : None
-# Returns : Mentat::Handyman reference
-# Throws : Dies, if not invoked on instance
-# Comments : This method must never be called directly, it is supposed to be overloaded by subclasses.
-
-sub _init
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
- return $self;
-}
-
-# _load_templates($$) [PROTECTED]
-#
-# Usage : $self->{TEMPLATES} = $self->_load_templates($template_file, $template_schema_file);
-# Purpose : Load templates from given external file
-# Arguments : STRING $template_file - name of the template file [MANDATORY]
-# STRING $template_schema_file - name of the template schema file for validation [OPTIONAL]
-# Returns : Nothing, changes current object instance
-# Throws : Dies, if not invoked on instance
-
-sub _load_templates($$)
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
- my ($template_file, $template_schema_file) = @_;
-
- # Fallback - load the message templates and store them to the memory
- unless ($self->{TEMPLATES}) {
- my $cfg_parser = Config::JSON->new($template_schema_file);
-
- # Load the templates from external file
- my ($config, $error);
- ($config, $error) = $cfg_parser->config($template_file, $template_schema_file);
- die "Template file '$template_file' syntax error: '$error'\n" unless $config;
-
- $self->{TEMPLATES} = $config->{templates};
-
- my $tkey = "rules_".$self->{MSGTYPE};
- foreach my $key (keys %{$self->{TEMPLATES}}) {
- foreach my $rule (@{$self->{TEMPLATES}->{$key}->{$tkey}}) {
- push(@{$self->{TEMPLATES}->{$key}->{template}}, [$rule->{k}, $rule->{v}]);
- }
- }
- }
-}
-
-=pod
-
-=back
-
-=cut
-
-1;
diff --git a/lib_perl/lib/Mentat/MPath/Parser.pm b/lib_perl/lib/Mentat/MPath/Parser.pm
deleted file mode 100644
index 9d74a3b..0000000
--- a/lib_perl/lib/Mentat/MPath/Parser.pm
+++ /dev/null
@@ -1,189 +0,0 @@
-package Mentat::MPath::Parser;
-use strict;
-use warnings;
-
-#*******************************************************************************
-# DOCUMENTATION SECTION
-#*******************************************************************************
-
-=head1 NAME
-
-Mentat::MPath::Parser - Provides methods for handling Mentat message paths (MPath)
-
-=head1 SYNOPSIS
-
- use Mentat::MPath::Parser;
-
- #--------------------------------------
- # Module usage via static class methods
- #--------------------------------------
-
- # Parse out the first node (chunk) from given message path:
- eval {
- my ($name, $type, $index, $rest) = Mentat::MPath::Parser->parse_next_chunk($mpath);
- };
- if($@) { print "MESSAGE PATH ERROR: $@\n"; }
-
- # Parse the given message path chunk by chunk:
- my @result;
- eval {
- do {
- my ($name, $type, $index, $rest) = Mentat::MPath::Parser->parse_next_chunk($mpath);
- push(@result, [$next_node_xpath, $name, $type, $index, $mpath]);
- } while ($mpath);
- };
- if($@) { print "MESSAGE PATH ERROR: $@\n"; }
-
- # Parse the given message path in one call:
- eval {
- my @chunks = Mentat::MPath::Parser->parse($mpath);
- };
- if($@) { print "MESSAGE PATH ERROR: $@\n"; }
-
- # Parse the given message path in one call, but suppress all raised exceptions:
- my @chunks = Mentat::MPath::Parser->parse_quiet($mpath);
-
- # Just validate the given message path
- my $result = Mentat::MPath::Parser->validate($mpath);
-
- #----------------------------------
- # Module usage via instance methods
- #----------------------------------
-
- my $parser = new Mentat::MPath::Parser();
-
- # Parse out the first node (chunk) from given message path:
- eval {
- my ($name, $type, $index, $rest) = $parser->parse_next_chunk($mpath);
- };
- if($@) { print "MESSAGE PATH ERROR: $@\n"; }
-
- # Parse the given message path chunk by chunk:
- my @result;
- eval {
- do {
- my ($name, $type, $index, $rest) = $parser->parse_next_chunk($mpath);
- push(@result, [$next_node_xpath, $name, $type, $index, $mpath]);
- } while ($mpath);
- };
- if($@) { print "MESSAGE PATH ERROR: $@\n"; }
-
- # Parse the given message path in one call:
- eval {
- my @chunks = $parser->parse($mpath);
- };
- if($@) { print "MESSAGE PATH ERROR: $@\n"; }
-
- # Parse the given message path in one call, but suppress all raised exceptions:
- my @chunks = $parser->parse_quiet($mpath);
-
- # Just validate the given message path
- my $result = $parser->validate($mpath);
-
-=head1 DESCRIPTION
-
-This module is used to parse Mentat message path, which can be then used
-for manipulating the Mentat message objects. See the message path SYNTAX
-section for more details on message path.
-
-=head1 MESSAGE PATH SYNTAX (MPATH)
-
-Mentat message path (MPath) syntax is a subset of XPath syntax. Is uses only basic
-constructs for identifying the elements in the messages. Names of the nodes are defined
-in the RFC 4765, however at this point of implementation this module does validity
-check only on the first node in the path: it must be either 'Alert', or 'Heartbeat'.
-Any other node (element or atribute) names or the path structure are not checked.
-
-MPath is a string composed of node identifiers separated by '/' character.
-Node identifier is composed of optional '@' character followed by node name
-followed by optional integer index enclosed within '[' and ']' the braces.
-Character '@' implies, that the node is attribute node and this node must be
-the last node in the MPath (attribute nodes may not have any child nodes).
-Optional integer index is valid only for element nodes. IDEA standard allows
-multiple occurences of certain element nodes, index allows to identify particular
-one. MPath must not start with the '/' character.
-
-Some valid MPath examples:
-
-Valid message paths:
- Node/Name
- Source[2]/IP4[1]
-
-=head1 AUTHOR
-
- Jan Mach
- Cesnet, z.s.p.o
- jan.mach@cesnet.cz
- http://www.cesnet.cz
-
-=head1 COPYRIGHT
-
-This program is free software; you can redistribute
-it and/or modify it under the same terms as Perl itself.
-
-The full text of the license can be found in the
-LICENSE file included with this module.
-
-
-=head1 SEE ALSO
-
-perl(1).
-
-=head1 FUNCTION REFERENCE
-
-=over 4
-
-=cut
-
-#*******************************************************************************
-# LIBRARY LOADING SECTION
-#*******************************************************************************
-
-#-- Perl core modules ---------------------------------------------------------#
-use Carp;
-
-#use Data::Dumper; #-+-> DEVEL ONLY <-+-#
-
-#-- Perl CPAN modules ---------------------------------------------------------#
-
-#-- Custom application modules ------------------------------------------------#
-use Data::Path::Parser;
-
-#*******************************************************************************
-# CONSTANTS AND GLOBAL VARIABLES DEFINITION SECTION
-#*******************************************************************************
-
-#-- Constants -----------------------------------------------------------------#
-
-#-- Static public class variables (our) ---------------------------------------#
-
-#-- Static protected class variables (my) -------------------------------------#
-
-#*******************************************************************************
-# INITIALIZATION AND CLEANUP SECTION
-#*******************************************************************************
-
-#-- Module initializations ----------------------------------------------------#
-BEGIN {
- use vars qw($VERSION $DEVEL @ISA);
- $VERSION = '0.1';
- $DEVEL = 0;
- @ISA = ('Data::Path::Parser');
-}
-
-#-- Module clean-up code (global destructor) ----------------------------------#
-END {
-
-}
-
-#*******************************************************************************
-# IMPLEMENTATION SECTION
-#*******************************************************************************
-
-=pod
-
-=back
-
-=cut
-
-1;
diff --git a/lib_perl/lib/Mentat/Message.pm b/lib_perl/lib/Mentat/Message.pm
deleted file mode 100644
index 8e9dfe5..0000000
--- a/lib_perl/lib/Mentat/Message.pm
+++ /dev/null
@@ -1,540 +0,0 @@
-package Mentat::Message;
-use strict;
-use warnings;
-
-#*******************************************************************************
-# DOCUMENTATION SECTION
-#*******************************************************************************
-
-=head1 NAME
-
-Mentat::Message - Base class defining interface for working with Mentat::Messages
-
-=head1 SYNOPSIS
-
- use Mentat::Message;
-
-=head1 DESCRIPTION
-
-
-
-=head1 AUTHOR
-
- Jan Mach
- Cesnet, z.s.p.o
- jan.mach@cesnet.cz
- http://www.cesnet.cz
-
-=head1 COPYRIGHT
-
-This program is free software; you can redistribute
-it and/or modify it under the same terms as Perl itself.
-
-The full text of the license can be found in the
-LICENSE file included with this module.
-
-=head1 SEE ALSO
-
-perl(1).
-
-=head1 FUNCTION REFERENCE
-
-=over 4
-
-=cut
-
-#*******************************************************************************
-# LIBRARY LOADING SECTION
-#*******************************************************************************
-
-#-- Perl core modules ---------------------------------------------------------#
-use Carp;
-use Scalar::Util 'blessed';
-use Digest::MD5 qw(md5_hex);
-
-#use Smart::Comments; #-+-> DEVEL ONLY <-+-#
-#use Data::Dumper; #-+-> DEVEL ONLY <-+-#
-
-#-- Perl CPAN modules ---------------------------------------------------------#
-
-#-- Custom application modules ------------------------------------------------#
-
-#*******************************************************************************
-# CONSTANTS AND GLOBAL VARIABLES DEFINITION SECTION
-#*******************************************************************************
-
-#-- Constants -----------------------------------------------------------------#
-
-#-- Static public class variables (our) ---------------------------------------#
-
-#-- Static protected class variables (my) -------------------------------------#
-
-#*******************************************************************************
-# INITIALIZATION AND CLEANUP SECTION
-#*******************************************************************************
-
-#-- Module initializations ----------------------------------------------------#
-BEGIN {
- use vars qw($VERSION $DEVEL);
- $VERSION = '0.1';
- $DEVEL = 0;
-}
-
-#-- Module clean-up code (global destructor) ----------------------------------#
-END {
-
-}
-
-#-- Operator overloading ------------------------------------------------------#
-use overload
- '""' => 'to_string';
-
-#*******************************************************************************
-# IMPLEMENTATION SECTION
-#*******************************************************************************
-
-=item new() [PUBLIC,STATIC]
-
- Usage : my $message = Mentat::Message->new();
- Purpose : Create new empty instance of the Mentat message
- Arguments : None
- Returns : Reference to the new instance of the Mentat message
- Throws : Croaks, if invoked on object
-
-=cut
-
-sub new()
-{
- my $class = shift;
- confess "Class method not invoked on class" if blessed($class);
-
- my $self = bless ({}, $class);
- return $self->_init(@_);
-}
-
-=item unserialize($) [PUBLIC,STATIC]
-
- Usage : my $message = Mentat::Message->unserialize($string);
- Purpose : Recover serialized instance of the Mentat message from given string
- Arguments : STRING $string - string containing serialized instance
- Returns : Reference to the recovered instance of the Mentat message
- Throws : Croaks, if invoked on object
-
-=cut
-
-sub unserialize($)
-{
- my $class = shift;
- confess "Method needs implementation in subclass";
-}
-
-=item from_file($) [PUBLIC,STATIC]
-
- Usage : my $message = Mentat::Message->from_file($filename);
- Purpose : Recover serialized instance of the Mentat message from given file
- Arguments : STRING $filename - name of the file containing serialized instance
- Returns : Reference to the recovered instance of the Mentat message
- Throws : Croaks, if invoked on object
-
-=cut
-
-sub from_file($)
-{
- my $class = shift;
- confess "Method needs implementation in subclass";
-}
-
-#-------------------------------------------------------------------------------
-
-=item class() [PUBLIC]
-
- Usage : my $class = $message->class();
- Purpose : Determine the class/type of the Mentat::Message
- Arguments : None
- Returns : STRING $class
- Throws : Croaks, if invoked on class
-
-=cut
-
-sub class()
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
-
- # Determine the type of the message (last part of the class name)
- unless ($self->{CLASS}) {
- my $name = blessed($self);
- my @tmp = split(/:+/, $name);
- $self->{CLASS} = lc($tmp[$#tmp]);
- }
- return $self->{CLASS};
-}
-
-=item id(;$) [PUBLIC]
-
- Usage : my $id = $message->id();
- Purpose : Get (and optionally set) the ID attribute of the current Mentat::Message
- Arguments : STRING $id - Message ID which to set
- Returns : STRING current message ID
- Throws : Croaks, if invoked on class
-
-=cut
-
-sub id(;$)
-{
- my $self = shift;
- confess "Method needs implementation in subclass";
-}
-
-#-------------------------------------------------------------------------------
-
-=item iterate() [PUBLIC]
-
- Usage : my ($src_mpath, $value) = $message->iterate();
- while ($src_mpath) {
- # Do some processing here
- ($src_mpath, $value) = $message->iterate();
- }
- Purpose : Iterate through all nodes in the Mentat::Message
- Arguments : None
- Returns : STRING $src_mpath - MPath address of the node
- MIXED $value - value of the node
- Throws : Croaks, if invoked on class
-
-=cut
-
-sub iterate()
-{
- my $self = shift;
- confess "Method needs implementation in subclass";
-}
-
-#-------------------------------------------------------------------------------
-
-=item path_nodes($) [PUBLIC]
-
- Usage : my $nodes = $message->path_nodes($mpath);
- Purpose : Get all nodes on given message path
- Arguments : STRING $mpath - message path to the nodes [MANDATORY]
- Returns : reference to array of values
- Throws : Croaks, if invoked on class
- Croaks, if not given message path
- Croaks, if node on given message path does not exist
- See Also : Mentat::Message::Path::Parser class
-
-=cut
-
-sub path_nodes($)
-{
- my $self = shift;
- confess "Method needs implementation in subclass";
-}
-
-=item path_node($) [PUBLIC]
-
- Usage : my $node = $message->path_node($mpath);
- Purpose : Get first node on given message path
- Arguments : STRING $mpath - message path to the nodes [MANDATORY]
- Returns : STRING $value - node value (SUCCESS)
- undef (NODE HAS NO VALUE)
- Throws : Croaks, if invoked on class
- Croaks, if not given message path
- Same as path_nodes() method
- Comments : Internally uses path_nodes() method
- See Also : path_nodes() method, Mentat::Message::Path::Parser class
-
-=cut
-
-sub path_node($)
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
- my ($mpath,) = @_;
- confess "Invalid usage, message path must be given as argument" unless defined($mpath);
-
- # Get all matching nodes
- my $nodes = $self->path_nodes($mpath);
-
- # But return only the first one
- return shift @$nodes;
-}
-
-=item path_node_set($$) [PUBLIC]
-
- Usage : $message->path_node_set($mpath, $value);
- Purpose : If it does not exist, append new node to the Mentat message on the given path and set it`s value
- Arguments : STRING $mpath - path in the Mentat message structure [MANDATORY]
- STRING $value - value of the object [MANDATORY]
- Returns : Nothing
- Throws : Croaks, if invoked on class
- Croaks, if not given message path and value to set
- Croaks, if message path is syntactically incorrect
- See Also : Mentat::Message::Path::Parser class
-
-=cut
-
-sub path_node_set($$)
-{
- my $self = shift;
- confess "Method needs implementation in subclass";
-}
-
-=item path_node_delete($) [PUBLIC]
-
- Usage : my $node = $message->path_delete($mpath);
- Purpose : Deletes node on given message path
- Arguments : STRING $mpath - message path to the node [MANDATORY]
- Returns : Nothing
- Throws : Croaks, if invoked on class
- Croaks, if not given message path
- Croaks, if node on given message path does not exist
- See Also : Mentat::Message::Path::Parser class
-
-=cut
-
-sub path_node_delete($)
-{
- my $self = shift;
- confess "Method needs implementation in subclass";
-}
-
-=item path_node_exists($) [PRIVATE]
-
- Usage : my $result = $message->path_node_exists($mpath);
- Purpose : Tests, if the node on given message path exists
- Arguments : STRING $mpath - message path to the node [MANDATORY]
- Returns : INTEGER 1 (SUCCESS)
- INTEGER 0 (FAILURE)
- Throws : Croaks, if invoked on class
- Croaks, if not given any message path to test
- Comments : Internally uses path_node() method
- See Also : path_node() method, Mentat::Message::Path::Parser class
-
-=cut
-
-sub path_node_exists($)
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
- my ($mpath,) = @_;
- confess "Invalid usage, message path must be given as argument" unless defined($mpath);
-
- # Try to find node located on the given message path
- my $node = $self->path_node($mpath);
-
- # If the node on given path was not found, return undef
- return 0 unless $node;
- return 1;
-}
-
-#-------------------------------------------------------------------------------
-
-=item path_values($) [PUBLIC]
-
- Usage : my $value = $message->path_values($mpath);
- Purpose : Gets values of all nodes on given message path
- Arguments : STRING $mpath - message path to the nodes [MANDATORY]
- Returns : reference to array of values
- Throws : Croaks, if invoked on class
- Croaks, if not given message path
- Croaks, if node on given message path does not exist
- See Also : Mentat::Message::Path::Parser class
-
-=cut
-
-sub path_values($)
-{
- my $self = shift;
- confess "Method needs implementation in subclass";
-}
-
-=item path_value($) [PUBLIC]
-
- Usage : my $value = $message->path_value($mpath);
- Purpose : Get value of first attribute or element node on given message path
- Arguments : STRING $mpath - message path to the nodes [MANDATORY]
- Returns : STRING $value - node value (SUCCESS)
- undef (NODE HAS NO VALUE)
- Throws : Croaks, if invoked on class
- Croaks, if not given message path
- Same as path_value() method
- Comments : Internally uses path_values() method
- See Also : path_values() method, Mentat::Message::Path::Parser class
-
-=cut
-
-sub path_value($)
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
- my ($mpath,) = @_;
- confess "Invalid usage, message path must be given as argument" unless defined($mpath);
-
- # Get all mathing values
- my $values = $self->path_values($mpath);
-
- # But return only the first one
- return shift @$values;
-}
-
-=item path_value_set($$) [PUBLIC]
-
- Usage : my $value = $message->path_value_set($mpath, $value);
- Purpose : Set and return value of first node on given message path
- Arguments : STRING $mpath - message path to the node [MANDATORY]
- STRING $value - New node value [MANDATORY]
- Returns : Nothing
- Throws : Croaks, if invoked on class
- Croaks, if not given message path
- Croaks, if node on given message path does not exist
- See Also : Mentat::Message::Path::Parser class
-
-=cut
-
-sub path_value_set($$)
-{
- my $self = shift;
- confess "Method needs implementation in subclass";
-}
-
-#-------------------------------------------------------------------------------
-
-=item serialize() [PUBLIC]
-
- Usage : my $string = $message->serialize();
- Purpose : Export Mentat message into string
- Arguments : None
- Returns : STRING $string - string containing serialized Mentat message
- Throws : Croaks, if invoked on class
-
-=cut
-
-sub serialize()
-{
- my $self = shift;
- confess "Method needs implementation in subclass";
-}
-
-=item to_string() [PUBLIC]
-
- Usage : my $string = $message->to_string();
- Purpose : Export Mentat message into readable string
- Arguments : None
- Returns : STRING $string - string containing serialized Mentat message
- Throws : Croaks, if invoked on class
-
-=cut
-
-sub to_string()
-{
- my $self = shift;
- confess "Method needs implementation in subclass";
-}
-
-=item to_file($;$) [PUBLIC]
-
- Usage : $message->to_file($file_name);
- Purpose : Store Mentat message into external file
- Arguments : STRING $file_name - name of the file to which to store the message [MANDATORY]
- BOOL $pretty - format message nicely [OPTIONAL]
- Returns : STRING $file_name
- Throws : Croaks, if invoked on class
- Croaks, if given file could not be opened for writing
-
-=cut
-
-sub to_file($;$)
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
- my ($file_name, $pretty) = @_;
- confess "Name of the file to which to store the message must be given" unless $file_name;
-
- # Replace the accidental double slashes
- $file_name =~ s/\/\//\//g;
-
- # Untaint the file name
- $file_name = $1 if ($file_name =~ /(.*)/);
-
- # Do not overwrite existing files
- die "File '$file_name' already exist and would be ovewritten\n" if -f $file_name;
-
- ### Nice print: $pretty
- open(my $hnd, ">$file_name") or die "Cannot open file '$file_name' to store Mentat message for writing\n";
- print $hnd $self->to_string($pretty);
- close($hnd);
-
- return $file_name;
-}
-
-=item to_dir($;$) [PUBLIC]
-
- Usage : $message->to_dir($filename);
- Purpose : Store Mentat message into external file in designated directory
- Arguments : STRING $dirname - name of the directory to which to store the message [MANDATORY]
- BOOL $pretty - format message nicely [OPTIONAL]
- Returns : ARRAY containing
- STRING $file_name - name of the file within the target directory
- STRING $file_path - full path to the file
- Throws : Croaks, if invoked on class
-
-=cut
-
-sub to_dir($;$)
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
- my ($dir_name, $pretty) = @_;
- confess "Name of the directory to which to store the message must be given" unless $dir_name;
-
- # Generate the unique name for the message file
- my $fn = $self->_generate_file_name().".".$self->class();
- while (-e $dir_name."/".$fn) {
- $fn = $self->_generate_file_name().".".$self->class();
- }
-
- # Store the message to the file
- return ($fn, $self->to_file($dir_name.'/'.$fn));
-}
-
-#-------------------------------------------------------------------------------
-# Private interface
-#-------------------------------------------------------------------------------
-
-# _init [PROTECTED]
-#
-# Usage : return $self->_init(@_);
-# Purpose : Initialize the new Mentat::Message instance
-# Arguments :
-# Returns : Mentat::Message reference
-# Throws : Croaks, if invoked on class
-# Comments : This method must never be called directly, it is supposed to be overloaded by subclasses.
-
-sub _init
-{
- my $self = shift;
- confess "Method needs implementation in subclass";
-}
-
-# _generate_file_name() [PROTECTED]
-#
-# Usage :
-# Purpose : Generate unique ID for message file
-# Arguments :
-# Returns :
-# Throws : Dies, if not invoked on instance
-
-sub _generate_file_name()
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
- return md5_hex(time().sprintf('%04X', int(rand 65536)));
-}
-
-=pod
-
-=back
-
-=cut
-
-1;
diff --git a/lib_perl/lib/Mentat/Message/Builder.pm b/lib_perl/lib/Mentat/Message/Builder.pm
deleted file mode 100644
index c49960b..0000000
--- a/lib_perl/lib/Mentat/Message/Builder.pm
+++ /dev/null
@@ -1,521 +0,0 @@
-package Mentat::Message::Builder;
-use strict;
-use warnings;
-
-#*******************************************************************************
-# DOCUMENTATION SECTION
-#*******************************************************************************
-
-=head1 NAME
-
-Mentat::Message::Builder - Base class for providing methods for easier building messages from scratch
-
-=head1 SYNOPSIS
-
- use Mentat::Message::Builder;
-
-=head1 DESCRIPTION
-
-
-
-=head1 AUTHOR
-
- Jan Mach
- Cesnet, z.s.p.o
- jan.mach@cesnet.cz
- http://www.cesnet.cz
-
-=head1 COPYRIGHT
-
-This program is free software; you can redistribute
-it and/or modify it under the same terms as Perl itself.
-
-The full text of the license can be found in the
-LICENSE file included with this module.
-
-=head1 SEE ALSO
-
-perl(1).
-
-=head1 FUNCTION REFERENCE
-
-=over 4
-
-=cut
-
-#*******************************************************************************
-# LIBRARY LOADING SECTION
-#*******************************************************************************
-
-#-- Perl core modules ---------------------------------------------------------#
-use Carp;
-use Scalar::Util 'blessed';
-use Storable qw(dclone);
-
-use Data::Dumper; #-+-> DEVEL ONLY <-+-#
-#use Smart::Comments; #-+-> DEVEL ONLY <-+-#
-
-#-- Perl CPAN modules ---------------------------------------------------------#
-# Original solution used better unique ID generation algorithm, but it used to take
-# very long time to generate many IDs in a row
-#use Bytes::Random::Secure qw(random_string_from);
-use Data::Random qw(rand_chars);
-
-#-- Custom application modules ------------------------------------------------#
-
-#*******************************************************************************
-# CONSTANTS AND GLOBAL VARIABLES DEFINITION SECTION
-#*******************************************************************************
-
-#-- Constants -----------------------------------------------------------------#
-
-#-- Static public class variables (our) ---------------------------------------#
-
-#-- Static protected class variables (my) -------------------------------------#
-my $DFLT_CHARS = join('', ('a' .. 'z'), ('A' .. 'Z'), ('0' .. '9'));
-my $DFLT_LENGTH = 12;
-
-#*******************************************************************************
-# INITIALIZATION AND CLEANUP SECTION
-#*******************************************************************************
-
-#-- Module initializations ----------------------------------------------------#
-BEGIN {
- use vars qw($VERSION $DEVEL);
- $VERSION = '0.1';
- $DEVEL = 0;
-}
-
-
-#-- Module clean-up code (global destructor) ----------------------------------#
-END {
-
-}
-
-#*******************************************************************************
-# IMPLEMENTATION SECTION
-#*******************************************************************************
-
-=item new($) [PUBLIC, STATIC]
-
- Usage : my $builder = Mentat::Message::Builder->new();
- Purpose : Create new empty instance of the IDEA message builder
- Arguments : HASH REFERENCE $config - builder configurations (MANDATORY)
- Returns : Mentat::Message::Builder reference
- Throws : Dies, if invoked on object
- Dies, if mandatory builder configuration value is missing
-
-=cut
-
-sub new($)
-{
- my $class = shift;
- confess "Class method not invoked on class" if blessed($class);
- my ($config,) = @_;
- confess "Configurations must be given via hash reference" if defined $config and ref $config ne 'HASH';
-
- my $self = bless ({}, $class);
- $self->{CONFIGS} = ($config)?$config:{};
- return $self->_init(@_);
-}
-
-=item fill_in_rule($$$$;$) [PUBLIC, HYBRID]
-
- Usage : my $filled_rule = Mentat::Message::Builder->fill_in_rule($key, $value, $hash_variables, $array_variables, $strict);
- my $filled_rule = $builder->fill_in_rule($key, $value, $hash_variables, $array_variables);
- Purpose : Fill in and return single IDEA message building rule with values given in hash and array
- Arguments : STRING $key - rule key [MANDATORY]
- STRING $value - rule value [MANDATORY]
- HASH REFERENCE $hash_variables - hash containing named variables to be filled into the rules [OPTIONAL]
- ARRAY REFERENCE $array_variables - array containing indexed variables to be filled into the rules [OPTIONAL]
- BOOL $strict - strict fill flag [OPTIONAL]
- Returns : ARRAY containing filled $key and $value (SUCCESS)
- Throws : Dies, if message rules not given as arguments
-
-=cut
-
-sub fill_in_rule($$$$;$)
-{
- my $invocant = shift;
- my ($key, $value, $hash_variables, $array_variables, $strict) = @_;
- confess "Message rule key must be given as argument" unless $key;
- confess "Message rule value must be given as argument" unless $value;
- confess "Hash variables must be given as HASH reference" if defined $hash_variables and ref $hash_variables ne 'HASH';
- confess "Array variables must be given as ARRAY reference" if defined $array_variables and ref $array_variables ne 'ARRAY';
-
- # IMPORTANT !!! We must make copy of the variables
- my $variables = {};
- if (blessed($invocant)) {
- # Merge in the per builder configured named variables
- map { $variables->{$_} = $invocant->_c($_); } keys(%{$invocant->_c_all()});
- }
- # Merge in the per message configured named variables
- map { $variables->{$_} = $hash_variables->{$_}; } keys(%$hash_variables);
-
- # Parse out the positional arguments from array variables
- $variables = $invocant->_parse_args($variables, $array_variables);
-
- $key = $invocant->_fill_in($key, $variables, $strict);
- $value = $invocant->_fill_in($value, $variables, $strict);
-
- return ($key, $value);
-}
-
-
-=item fill_in_rules($$$;$) [PUBLIC, HYBRID]
-
- Usage : my $filled_rules = Mentat::Message::Builder->fill_in_rules($rules, $hash_variables, $array_variables, $strict);
- my $filled_rules = $builder->fill_in_rules($rules, $hash_variables, $array_variables);
- Purpose : Fill in and return the IDEA message rules building rules with values given in hash and array
- Arguments : ARRAY REFERENCE $rules - array containing mentat message rules building rules [MANDATORY]
- HASH REFERENCE $hash_variables - hash containing named variables to be filled into the rules
- ARRAY REFERENCE $array_variables - array containing indexed variables to be filled into the rules
- BOOL $strict - strict fill flag [OPTIONAL]
- Returns : ARRAY REFERENCE $filled_message_rules containing filled rules (SUCCESS)
- Throws : Dies, if message rules not given as arguments
-
-=cut
-
-sub fill_in_rules($$$;$)
-{
- my $invocant = shift;
- my ($message_rules, $hash_variables, $array_variables, $strict) = @_;
- confess "Message rules must be given as argument" unless $message_rules;
- confess "Message rules must be given as ARRAY reference" unless ref $message_rules eq 'ARRAY';
- confess "Message rules must not be empty" unless scalar @$message_rules;
- confess "Hash variables must be given as HASH reference" if defined $hash_variables and ref $hash_variables ne 'HASH';
- confess "Array variables must be given as ARRAY reference" if defined $array_variables and ref $array_variables ne 'ARRAY';
-
- # IMPORTANT !!! We must make copy of the rules, otherwise we would overwrite the templates
- my $filled_message_rules = dclone($message_rules);
-
- # IMPORTANT !!! We must make copy of the variables
- my $variables = {};
- if (blessed($invocant)) {
- # Merge in the per builder configured named variables
- map { $variables->{$_} = $invocant->_c($_); } keys(%{$invocant->_c_all()});
- }
- # Merge in the per message configured named variables
- map { $variables->{$_} = $hash_variables->{$_}; } keys(%$hash_variables);
-
- # Parse out the positional arguments from array variables
- $variables = $invocant->_parse_args($variables, $array_variables);
-
- # Fill in all rules
- my $result = []; my ($r1, $r2);
- foreach my $rule (@$filled_message_rules) {
- $r1 = $invocant->_fill_in($rule->[0], $variables, $strict);
- $r2 = $invocant->_fill_in($rule->[1], $variables, $strict);
- push (@$result, [$r1, $r2]) if defined $r1 and defined $r2;
- }
-
- return $result;
-}
-
-=item build(%) [PUBLIC]
-
- Usage : my $message = $builder->build(%config);
- Purpose : Create message object from rules
- Arguments : See appropriate documentation in child classes
- Returns : Mentat::Message reference (SUCCESS)
- Throws : Dies, if invoked on class
- Dies, if invalid message type given as argument
- Dies, if variable message configurations not given as argument via hash reference
- Dies, if message rules not given as arguments
-
-=cut
-
-sub build(%)
-{
- my $self = shift;
- confess "Method needs to be implemented in subclass";
-}
-
-=item build_quiet($$$) [PUBLIC]
-
- Usage : my $message = $builder->build_quiet('Alert', $config, $rules);
- Purpose : Create IDEA message object from rules, suppres all exceptions generated by Mentat::Message class
- Arguments : Same as build() method
- Returns : Mentat::Message reference (SUCCESS)
- undef (FAILURE)
- Throws : Dies, if invoked on class
- Comments : Internally uses build() method
- See Also : build() method
-
-=cut
-
-sub build_quiet($$$)
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
-
- my $message;
- eval {
- $message = $self->build(@_);
- };
- if ($@) { return undef; }
- return $message;
-}
-
-=item parse_command_args($) [PUBLIC, HYBRID]
-
- Usage :
- Purpose :
- Arguments :
- Returns :
- Throws :
-
-=cut
-
-sub parse_command_args($)
-{
- my $invocant = shift;
- my ($message_args,) = @_;
- confess "Message args must be given as argument" unless $message_args;
-
- my $tmp = '';
- my @result = ();
- my $in = 0;
- my $prev = undef;
-
- # Process the example argument line character by character
- foreach my $c (split(//, $message_args)) {
- if ($c eq '"') {
- if ($in) {
- $in = 0;
- push(@result, $tmp);
- $tmp = '';
- }
- else {
- $in = 1;
- if ($prev eq ' ') {
- push(@result, $tmp) if $tmp;
- $tmp = '';
- }
- }
- }
- elsif ($in) {
- $tmp .= $c;
- }
- elsif ($c eq ' ') {
- push(@result, $tmp) if $tmp;
- $tmp = '';
- }
- else {
- $tmp .= $c;
- }
- $prev = $c;
- }
- push(@result, $tmp) if $tmp;
- return @result;
-}
-
-#-------------------------------------------------------------------------------
-# Private interface
-#-------------------------------------------------------------------------------
-
-# _init [PROTECTED]
-#
-# Usage : return $self->_init(@_);
-# Purpose : Initialize the new Template::Module instance
-# Arguments : See the implementation in subclass for details
-# Returns : Template::Module reference
-# Throws : Dies, if invoked on class
-# Comments : This method must never be called directly, it is supposed to be overloaded by subclasses.
-
-sub _init
-{
- my $self = shift;
- confess "Method needs to be implemented in subclass";
-}
-
-# _c($;$) [PROTECTED]
-#
-# Usage : my $config = $self->_c($key, $default);
-# Purpose : Get the given configuration value
-# Arguments : STRING $key - name of the configuration [MANDATORY]
-# MIXED $default - default value to be returned if not found [OPTIONAL]
-# Returns : MIXED $value
-# Throws : Dies, if invoked on class
-
-sub _c($;$)
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
- my ($key, $default) = @_;
-
- return $self->{CONFIGS}->{$key} if exists $self->{CONFIGS}->{$key};
- return $default;
-}
-
-# _set_c($$) [PROTECTED]
-#
-# Usage : my $config = $self->_set_c($key, $val);
-# Purpose : Set the given configuration value
-# Arguments : STRING $key - name of the configuration [MANDATORY]
-# MIXED $val - value to be set [MANDATORY]
-# Returns : MIXED $value
-# Throws : Dies, if invoked on class
-
-sub _set_c($$)
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
- my ($key, $val) = @_;
-
- return $self->{CONFIGS}->{$key} = $val;
-}
-
-# _c_all() [PROTECTED]
-#
-# Usage : my $configs = $self->_c_all();
-# Purpose : Get all configuration values
-# Arguments : None
-# Returns : HASH REFERENCE $config
-# Throws : Dies, if invoked on class
-
-sub _c_all()
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
-
- return $self->{CONFIGS} if $self->{CONFIGS};
- return {};
-}
-
-# _parse_args(;$$) [PROTECTED]
-#
-# Usage : my $variables = $self->_parse_args($variables, $array_variables);
-# Purpose : Parse the positional arguments and add them to the variable storage hash
-# Arguments : HASH REFERENCE $variables - variable storage hash
-# ARRAY REFERENCE $array_variables - positional arguments
-# Returns :
-# Throws : Dies, if not invoked on instance
-
-sub _parse_args(;$$)
-{
- my $invocant = shift;
- my ($var, $args) = @_;
-
- $var = {} unless $var and ref $var eq 'HASH';
- $args = [] unless $args and ref $args eq 'ARRAY';
-
- my $index = 0;
- foreach my $val (@$args) {
- if ($val and $val =~ /^([_a-zA-Z0-9]+?)=(.+)$/) {
- $var->{$1} = $2;
- }
- else {
- $var->{++$index} = $val;
- }
- }
-
- return $var;
-}
-
-# _fill_in($$$) [PROTECTED,HYBRID]
-#
-# Usage : return $invocant->_fill_in($rule, $variables, $strict);
-# Purpose : Fill in given rule with given variables
-# Arguments : STRING $rule - rule to be filled [MANDATORY]
-# HASH REFERENCE $variables - variable map [MANDATORY]
-# BOOL $strict - die if variable not found flag [OPTIONAL]
-# Returns : STRING $rule
-# Throws : Dies, if invoked on class
-
-sub _fill_in($$$)
-{
- my $invocant = shift;
- my ($rule, $variables, $strict) = @_;
- my $tmp;
-
- # Expand variables in $template, but put an error message inside
- # if the variable isn't defined
- $rule =~ s{
- \$ # find a literal dollar character
- ([a-zA-Z0-9_]+) # find a "word" and store it in $1
- }{
- if (defined $variables->{$1}) {
- $variables->{$1};
- }
- elsif (exists $variables->{$1}) {
- "-+NULL+-";
- }
- else {
- die "Builder variable '$1' was not found\n" if $strict;
- "[NO VARIABLE: $1]"; # error msg
- }
- }egx;
- # Macro expansion
- $rule =~ s{
- % # find a literal percentage character
- ([a-zA-Z0-9_]+)(?::([^\[/]+))? # find a "macro" and store it in $1 and optional argument to $2
- }{
- $tmp = "_macro_$1";
- if ($invocant->can($tmp)) {
- $invocant->$tmp($2); # call the macro
- }
- else {
- die "Builder macro '$1' was not found\n" if $strict;
- "[NO MACRO: $1]"; # error msg
- }
- }egx;
- return $rule unless $rule =~ /-\+NULL\+-/;
- return undef;
-}
-
-#-------------------------------------------------------------------------------
-# Message building macros
-#-------------------------------------------------------------------------------
-
-sub _macro_ts(;$)
-{
- my $invocant = shift;
- my $utc = shift || time;
-
- # Parse the timestamp to year, month, day, ...
- my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime($utc);
- # See http://perldoc.perl.org/functions/localtime.html for explanation of following code
- $year += 1900;
- $mon += 1;
-
- return sprintf("%04d-%02d-%02dT%02d:%02d:%02dZ", $year, $mon, $mday, $hour, $min, $sec);
-}
-
-sub _macro_id()
-{
- my $invocant = shift;
-
- # Create random value in UUID ...
- my $uuid = '';
- my ($v1, $v2);
- for (1 .. 4) {
- $v1 = int(rand(65536)) % 65536;
- $v2 = int(rand(65536)) % 65536;
- $uuid .= pack 'I', ($v1 << 16) | $v2;
- }
- substr $uuid, 6, 1, chr( ord( substr( $uuid, 6, 1 ) ) & 0x0f | 0x40);
-
- return $uuid;
-}
-
-sub _macro_ids()
-{
- my $invocant = shift;
-
- use Time::HiRes qw(time);
- my @rnd = rand_chars(set => 'alphanumeric', size => $DFLT_LENGTH);
- return sprintf('1-%.6f-%'.$DFLT_LENGTH.'s', time, join('', @rnd));
-
- # Original solution used better unique ID generation algorithm, but it used to take
- # very long time to generate many IDs in a row
- #return sprintf('1-%.6f-%'.$DFLT_LENGTH.'s', time, random_string_from($DFLT_CHARS, $DFLT_LENGTH));
-}
-
-=pod
-
-=back
-
-=cut
-
-1;
diff --git a/lib_perl/lib/Mentat/Message/Builder/IDEA.pm b/lib_perl/lib/Mentat/Message/Builder/IDEA.pm
deleted file mode 100644
index c540f6c..0000000
--- a/lib_perl/lib/Mentat/Message/Builder/IDEA.pm
+++ /dev/null
@@ -1,280 +0,0 @@
-package Mentat::Message::Builder::IDEA;
-use strict;
-use warnings;
-
-#*******************************************************************************
-# DOCUMENTATION SECTION
-#*******************************************************************************
-
-=head1 NAME
-
-Mentat::Message::Builder::IDEA - Class providing methods for easier building of IDEA messages from scratch
-
-=head1 SYNOPSIS
-
- use Mentat::Message::Builder::IDEA;
-
- # Create builder object
- my $builder = Mentat::Message::Builder::IDEA->new();
-
- # Message configurations - used to specify values of some variable fields
- my $message_config = {
- 'detect_time' => 1234567890, # UNIX timestamp of the event detection
- 'name' => 'analyzer_name', # STRING value, identifier of the analyzer
- };
-
- # Build new IDEA message
- my $idea = $builder->build($message_config, \@idea_rules);
-
-=head1 DESCRIPTION
-
-Instances of this class can be used for easier creation of Mentat::Message::IDEA objects
-from scratch. In the IDEA data model there are few elements and attributes, which have
-either the same value for all messages coming from given analyzer (like name and type),
-or that are impossible to be defined stacically via rules (which is the main concept
-used in Mentat::Message::Factory::from_rules method, see the manual page for more information).
-
-The Mentat::Message::Builder::IDEA object makes use of the rule mechanism mentioned above,
-but it adds the ability to B<generate unique message identifiers and timestamps>, and
-B<add important elements and attributes to the message> according to the given configurations.
-Additionally, it takes care of automatically adding the CreateTime and some other specific
-nodes to the message tree structure.
-
-Message rules given to the I<build()> method of the Mentat::Message::Builder::IDEA object
-may overwrite the values set using the configurations listed above. For example, it is
-possible for the list of rules to create custom CreateTime value and thus overwrite the
-autogenerated CreateTime.
-
-The rules supplied to the factory method may contain variables and macros, which are expanded
-and processed during message generation. Variables can be defined like this:
-
- B<$[a-zA-Z0-9_]+>
- Few examples:
- B<$1>, B<$ip>, B<$detect_time>, ...
-
-Macros are expanded after the variable expansion, so that the parameters may be passed to the macros:
-
- B<%[a-zA-Z0-9_]+:[a-zA-Z0-9_]>
- Few examples:
- B<%id>, B<%ts:$detect_time>, ...
-
-Currently, there are following macros defined:
-
- B<%id> - generates the unique UUID
- B<%ts[:unixts]> - generates the timestamp either from current time, or using given unix timestamp
- B<%ipt:$ip> - detects and returns the type of given ip address (IP4|IP6)
-
-=head1 AUTHOR
-
- Jan Mach
- Cesnet, z.s.p.o
- jan.mach@cesnet.cz
- http://www.cesnet.cz
-
-=head1 COPYRIGHT
-
-This program is free software; you can redistribute
-it and/or modify it under the same terms as Perl itself.
-
-The full text of the license can be found in the
-LICENSE file included with this module.
-
-=head1 SEE ALSO
-
-perl(1), Mentat::MPath::Parser(3), Mentat::Message(3), Mentat::Message::Factory(3),
-Mentat::Message::Builder(3).
-
-=head1 FUNCTION REFERENCE
-
-=over 4
-
-=cut
-
-#*******************************************************************************
-# LIBRARY LOADING SECTION
-#*******************************************************************************
-
-#-- Perl core modules ---------------------------------------------------------#
-use Carp;
-use Scalar::Util 'blessed';
-#use Time::HiRes qw(time);
-
-#use Smart::Comments; #-+-> DEVEL ONLY <-+-#
-#use Data::Dumper; #-+-> DEVEL ONLY <-+-#
-
-#-- Perl CPAN modules ---------------------------------------------------------#
-
-#-- Custom application modules ------------------------------------------------#
-use Value::Convertor;
-use Mentat::Message::Builder;
-use Mentat::Message::Factory;
-
-#*******************************************************************************
-# CONSTANTS AND GLOBAL VARIABLES DEFINITION SECTION
-#*******************************************************************************
-
-#-- Constants -----------------------------------------------------------------#
-
-#-- Static public class variables (our) ---------------------------------------#
-
-#-- Static protected class variables (my) -------------------------------------#
-
-#*******************************************************************************
-# INITIALIZATION AND CLEANUP SECTION
-#*******************************************************************************
-
-#-- Module initializations ----------------------------------------------------#
-BEGIN {
- use vars qw($VERSION $DEVEL @ISA);
- $VERSION = '0.1';
- $DEVEL = 0;
- @ISA = ('Mentat::Message::Builder');
-}
-
-
-#-- Module clean-up code (global destructor) ----------------------------------#
-END {
-
-}
-
-#*******************************************************************************
-# IMPLEMENTATION SECTION
-#*******************************************************************************
-
-=item build(%) [PUBLIC]
-
- Usage : my $message = $builder->build($config, $rules);
- Purpose : Create Mentat::Message::IDEA object from rules
- Arguments :
- Returns : Mentat::Message reference (SUCCESS)
- Throws : Dies, if invoked on class
- Dies, if invalid message type given as argument
- Dies, if variable message configurations not given as argument via hash reference
- Dies, if message rules not given as arguments
- Comments : Internally uses Mentat::Message::Factory->from_rules() method
- See Also : Mentat::Message::Factory->from_rules() method
-
-=cut
-
-sub build(%)
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
- my %config = @_;
- confess "Message rules must be given as argument" unless $config{rules} and scalar @{$config{rules}};
- confess "Name arguments must be given as HASH reference" unless defined $config{name_args} and ref $config{name_args} eq 'HASH';
-
- # Pre-generate the current time for subsequent method calls
- $config{name_args}->{current_time} = time;
- $config{name_args}->{detect_time} = $config{name_args}->{current_time} unless $config{name_args}->{detect_time};
-
- # Generate the list of rules for message creation
- my $message_rules_all = [];
- push(@$message_rules_all, ["Format", 'IDEA0']);
- push(@$message_rules_all, ["ID", '%ids']);
- push(@$message_rules_all, ["CreateTime", '%ts:$current_time']);
- push(@$message_rules_all, ["DetectTime", '%ts:$detect_time']);
- push(@$message_rules_all, $self->_node_rules());
- push(@$message_rules_all, @{$config{rules}});
- push(@$message_rules_all, ['_CESNET/EventTemplate', $config{template_id}]) if $config{template_id};
-
- # Fill in the selected message rules
- my $filled_message_rules = $self->fill_in_rules($message_rules_all, $config{name_args}, $config{pos_args}, $config{strict});
-
- # Finally generate the message object using the rules
- return Mentat::Message::Factory->from_rules($filled_message_rules, 'idea');
-}
-
-#-------------------------------------------------------------------------------
-# Private interface
-#-------------------------------------------------------------------------------
-
-# _init [PROTECTED]
-#
-# Usage : return $self->_init(@_);
-# Purpose : Initialize the new Mentat::Message::Builder::IDEA instance
-# Arguments :
-# Returns : Template::Module reference
-# Throws : Dies, if invoked on class
-# Comments : This method must never be called directly, it is supposed to be overloaded by subclasses.
-# See Also :
-
-sub _init
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
- my ($config,) = @_;
-
- # Value postprocessing
- if ($self->_c('analyzer_id')) {
- my $n = $self->_c('analyzer_id');
- $self->_set_c('name', $n);
- }
- if ($self->_c('name')) {
- my $n = $self->_c('name');
- $n =~ s/[-@]/_/;
- $self->_set_c('name', $n);
- }
- return $self;
-}
-
-# _node_rules() [PRIVATE]
-#
-# Usage : push(@idea_rules_all, $self->_node_rules());
-# Purpose : Return list of node related rules
-# Arguments : None
-# Returns : list of Mentat::Message::Factory rules
-# Throws : Dies, if invoked on class
-
-sub _node_rules()
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
-
- my @rules = ();
-
- push(@rules, ["Node[1]/Name", '$name']) if $self->_c('name');
- if ($self->_c('type')) {
- my @vals = (); my $i = 0;
- if (ref $self->_c('type') eq 'ARRAY') {
- push(@vals, @{$self->_c('type')});
- }
- else {
- push(@vals, split(/[ ,;]+/, $self->_c('type')));
- }
- foreach my $v (@vals) {
- ++$i;
- push(@rules, ["Node[1]/Type[$i]", $v]);
- }
- }
- push(@rules, ["Node[1]/SW", '$sw']) if $self->_c('sw');
- push(@rules, ["Node[1]/AggrWin", '$aggrwin']) if $self->_c('aggrwin');
- push(@rules, ["Node[1]/Note", '$note']) if $self->_c('note');
-
- return @rules;
-}
-
-#-------------------------------------------------------------------------------
-# Message building macros
-#-------------------------------------------------------------------------------
-
-sub _macro_ipt(;$)
-{
- my $invocant = shift;
- my $ip = shift;
- die "Macro 'ipt' is expecting IP address as argument\n" unless $ip;
-
- my ($type, @matches) = Value::Convertor->detect_ip($ip);
- die "Macro 'ipt' received unknown IP address format '$ip'\n" unless $type;
-
- return 'IP4' if ($type =~ /IPV4/);
- return 'IP6';
-}
-
-=pod
-
-=back
-
-=cut
-
-1;
diff --git a/lib_perl/lib/Mentat/Message/Factory.pm b/lib_perl/lib/Mentat/Message/Factory.pm
deleted file mode 100644
index 4289a27..0000000
--- a/lib_perl/lib/Mentat/Message/Factory.pm
+++ /dev/null
@@ -1,332 +0,0 @@
-package Mentat::Message::Factory;
-use strict;
-use warnings;
-
-#*******************************************************************************
-# DOCUMENTATION SECTION
-#*******************************************************************************
-
-=head1 NAME
-
-Mentat::Message::Factory - Class providing factory methods for creating Mentat messages
-
-=head1 SYNOPSIS
-
- use Mentat::Message::Factory;
-
- # List of message rules according to which to build the Mentat message structure
- my @message_rules = (
- ['Alert/Analyzer/@name', 'sshd'],
- ['Alert/Source/Node/Address/@category', 'ipv4-addr'],
- ['Alert/Source/Node/Address/address', '192.168.0.1'],
- ['Alert/Target/Service/name', 'ssh'],
- ['Alert/Classification/@text', 'Remote Login'],
- ['Alert/Assessment/Impact/@severity', 'low'],
- );
-
- # Following methods croak, if parser encounters any error
- my $message = Mentat::Message::Factory->from_string($string, 'idea');
- my $message = Mentat::Message::Factory->from_file($file_name);
- my $message = Mentat::Message::Factory->from_rules($message_rules, 'idea');
-
- # These methods make the XML parser silent, they siply return under on failure
- my $message = Mentat::Message::Factory->from_string_quiet($string, 'idea');
- my $message = Mentat::Message::Factory->from_file_quiet($file_name);
- my $message = Mentat::Message::Factory->from_rules_quiet($message_rules, 'idea');
-
-=head1 DESCRIPTION
-
-This class provides static class methods for creating Mentat message objects from
-various sources. There are three pairs of methods provided by the interface. Both
-methods in the pair make the same job, but the former one throws exceptions generated
-by the parsers and the latter one is silent and catches them, which might be more
-convenient in some situations. See the L</"FUNCTION REFERENCE"> section below.
-
-=head1 MESSAGE RULES
-
-The I<from_rules()> and I<from_rules_quiet()> method expect list of rules, according
-to which to build the Mentat message structure. These rules are simple tuples
-(references to arrays with two items), where first item is the MPath of the
-desired node and second item is it`s value. Example of the simple rule:
-
- my $rule = ['Node[1]/Name', 'sshd'];
-
-=head1 AUTHOR
-
- Jan Mach
- Cesnet, z.s.p.o
- jan.mach@cesnet.cz
- http://www.cesnet.cz
-
-=head1 COPYRIGHT
-
-This program is free software; you can redistribute
-it and/or modify it under the same terms as Perl itself.
-
-The full text of the license can be found in the
-LICENSE file included with this module.
-
-
-=head1 SEE ALSO
-
-perl(1), Mentat::Message::IDEA(3), Mentat::Message::IDEA(3).
-
-=head1 FUNCTION REFERENCE
-
-=over 4
-
-=cut
-
-#*******************************************************************************
-# LIBRARY LOADING SECTION
-#*******************************************************************************
-
-#-- Perl core modules ---------------------------------------------------------#
-use Carp;
-use Scalar::Util 'blessed';
-
-use Data::Dumper; #-+-> DEVEL ONLY <-+-#
-#use Smart::Comments; #-+-> DEVEL ONLY <-+-#
-
-#-- Perl CPAN modules ---------------------------------------------------------#
-
-#-- Custom application modules ------------------------------------------------#
-use Data::Tree;
-use Mentat::Message::IDEA;
-
-#*******************************************************************************
-# CONSTANTS AND GLOBAL VARIABLES DEFINITION SECTION
-#*******************************************************************************
-
-#-- Constants -----------------------------------------------------------------#
-use constant VAL_UNDEF => '__UNDEF__';
-
-#-- Static public class variables (our) ---------------------------------------#
-
-#-- Static protected class variables (my) -------------------------------------#
-
-my %CLASS2CLASS = (
- 'tree' => 'Data::Tree',
- 'mongo' => 'Data::Tree',
- 'idea' => 'Mentat::Message::IDEA',
- );
-
-my %EXT2CLASS = (
- 'tree' => 'tree',
- 'mongo' => 'mongo',
- 'idea' => 'idea',
- );
-
-#*******************************************************************************
-# INITIALIZATION AND CLEANUP SECTION
-#*******************************************************************************
-
-#-- Module initializations ----------------------------------------------------#
-BEGIN {
- use vars qw($VERSION $DEVEL);
- $VERSION = '0.1';
- $DEVEL = 0;
-}
-
-
-#-- Module clean-up code (global destructor) ----------------------------------#
-END {
-
-}
-
-#*******************************************************************************
-# IMPLEMENTATION SECTION
-#*******************************************************************************
-
-=item from_string($$) [PUBLIC, STATIC]
-
- Usage : my $message = Mentat::Message::Factory->from_string($message_string, $message_class);
- Purpose : Create Mentat message object from given string
- Arguments : STRING $message_string - string containing Mentat message
- STRING $message_class - class of the message stored in a string
- Returns : Mentat::Message reference (SUCCESS)
- Throws : Croaks, if invoked on object
- Croaks, if Mentat message string not given as argument
- Croaks, if Mentat message type not given as argument
- Croaks, if given invalid Mentat message class as argument
- Comments :
- See Also : from_string_quiet() method
-
-=cut
-
-sub from_string($$)
-{
- my $class = shift;
- confess "Class method not invoked on class" if blessed($class);
- my ($message_string, $message_class) = @_;
- confess "Mentat message string must be given as argument" unless defined($message_string);
- confess "Mentat message type must be given as argument" unless defined($message_class);
- confess "Invalid Mentat message class '$message_class'" unless exists($CLASS2CLASS{$message_class});
-
- my $message_class_name = $CLASS2CLASS{$message_class};
- return $message_class_name->unserialize($message_string);
-}
-
-=item from_string_quiet($$) [PUBLIC, STATIC]
-
- Usage : my $message = Mentat::Message::Factory->from_string_quiet($message_string, $message_class);
- Purpose : Create Mentat message object from given string, suppres all exceptions
- Arguments : Same as from_string() method
- Returns : Mentat::Message reference (SUCCESS)
- undef (failure)
- Throws : Croaks, if invoked on object
- Same as from_string() method
- Comments :
- See Also : from_string() method
-
-=cut
-
-sub from_string_quiet($$)
-{
- my $class = shift;
- confess "Class method not invoked on class" if blessed($class);
-
- my $message;
- eval {
- $message = $class->from_string(@_);
- };
- if ($@) { return undef; }
- return $message;
-}
-
-=item from_file($;$) [PUBLIC, STATIC]
-
- Usage : my $message = Mentat::Message::Factory->from_file($message_file, $message_class);
- Purpose : Create Mentat message object from given file
- Arguments : STRING $message_file - name of the file containing Mentat message
- STRING $message_class - class of the message stored in a file (OPTIONAL)
- Returns : Mentat::Message reference (SUCCESS)
- Throws : Croaks, if invoked on object
- Croaks, if Mentat message file name not given as argument
- Croaks, if Mentat message type not given or detectable
- Croaks, if given invalid Mentat message class as argument
- Comments : Type of the message is optional argument, if the type can be automatically
- detected from the file name
- See Also : from_file_quiet() method
-
-=cut
-
-sub from_file($;$)
-{
- my $class = shift;
- confess "Class method not invoked on class" if blessed($class);
- my ($message_file, $message_class) = @_;
- confess "Invalid usage, Mentat message file name must be given as argument" unless defined($message_file);
- confess "Invalid Mentat message class '$message_class'" if defined($message_class) and not exists($CLASS2CLASS{$message_class});
-
- # If not explicitly given the message type, try to autodetect it from file extension
- unless ($message_class) {
- my $ext;
- if ($message_file =~ m/\.([\w\d]+)$/) {
- $ext = $1;
- }
- confess "Cannot determine Mentat message type based on the file name" unless defined($ext);
- confess "Unknown message file extension '$ext'" unless exists($EXT2CLASS{$ext});
- $message_class = $EXT2CLASS{$ext};
- }
-
- my $message_class_name = $CLASS2CLASS{$message_class};
- return $message_class_name->from_file($message_file);
-}
-
-=item from_file_quiet($) [PUBLIC, STATIC]
-
- Usage : my $message = Mentat::Message::Factory->from_file_quiet($message_file, $message_class);
- Purpose : Create Mentat message object from given file, suppres all exceptions
- Arguments : Same as from_file() method
- Returns : Mentat::Message reference (SUCCESS)
- undef (FAILURE)
- Throws : Croaks, if invoked on object
- Same as from_file() method
- Comments :
- See Also : from_file() method
-
-=cut
-
-sub from_file_quiet($)
-{
- my $class = shift;
- confess "Class method not invoked on class" if blessed($class);
-
- my $message;
- eval {
- $message = $class->from_file(@_);
- };
- if ($@) { return undef; }
- return $message;
-}
-
-=item from_rules($$) [PUBLIC, STATIC]
-
- Usage : my $message = Mentat::Message::Factory->from_rules($message_rules, $message_class);
- Purpose : Create Mentat message object from given rules
- Arguments : ARRAY REFERENCE $message_rules - Mentat message rules (each rule is passed as argument to Mentat::Message::path_node_set() method)
- STRING $message_class - class of the message
- Returns : Mentat::Message reference (SUCCESS)
- Throws : Croaks, if invoked on object
- Croaks, if Mentat message rules not given as arguments
- Croaks, if Mentat message type not given as argument
- Croaks, if given invalid Mentat message class as argument
- Comments :
- See Also : from_rules_quiet() method, Mentat::Message::path_node_set() method
-
-=cut
-
-sub from_rules($$)
-{
- my $class = shift;
- confess "Class method not invoked on class" if blessed($class);
- my ($message_rules, $message_class) = @_;
- confess "Invalid usage, Mentat message rules must be given as argument" unless $message_rules and scalar @$message_rules;
- confess "Mentat message type must be given as argument" unless defined($message_class);
- confess "Invalid Mentat message class '$message_class'" unless exists($CLASS2CLASS{$message_class});
-
- my $message_class_name = $CLASS2CLASS{$message_class};
- my $message = $message_class_name->new();
- my ($mpath, $value);
- foreach my $rule (@$message_rules) {
- ($mpath, $value) = @$rule;
- $message->path_node_set($mpath, $value) unless uc($value) eq VAL_UNDEF();
- }
- return $message;
-}
-
-=item from_rules_quiet(@) [PUBLIC, STATIC]
-
- Usage : my $message = Mentat::Message::Factory->from_rules_quiet(@message_rules);
- Purpose : Create Mentat message object from given rules, suppres all exceptions
- Arguments : Same as from_rules() method
- Returns : Mentat::Message reference (SUCCESS)
- undef (FAILURE)
- Throws : Croaks, if invoked on object
- Croaks, if Mentat message rules not given as arguments
- Comments :
- See Also : from_rules() method
-
-=cut
-
-sub from_rules_quiet
-{
- my $class = shift;
- confess "Class method not invoked on class" if blessed($class);
-
- my $message;
- eval {
- $message = $class->from_rules(@_);
- };
- if ($@) { return undef; }
- return $message;
-}
-
-=pod
-
-=back
-
-=cut
-
-1;
diff --git a/lib_perl/lib/Mentat/Message/IDEA.pm b/lib_perl/lib/Mentat/Message/IDEA.pm
deleted file mode 100644
index ccb77c4..0000000
--- a/lib_perl/lib/Mentat/Message/IDEA.pm
+++ /dev/null
@@ -1,1083 +0,0 @@
-package Mentat::Message::IDEA;
-use strict;
-use warnings;
-
-#*******************************************************************************
-# DOCUMENTATION SECTION
-#*******************************************************************************
-
-=head1 NAME
-
-Mentat::Message::IDEA - Class for working with Mentat::Message::IDEA objects
-
-=head1 SYNOPSIS
-
- use Mentat::Message::IDEA;
-
- my $instance = Mentat::Message::IDEA->new();
-
- my @MESSAGE_RULES = (
- ["Format", "IDEA0"],
- ["ID", "2E4A3926-B1B9-41E3-89AE-B6B474EB0A54"],
- ["DetectTime", "2014-03-22T10:12:31Z"],
- ["Category[1]", "Recon.Scanning"],
- ["ConnCount", 633],
- ["Description", "EPMAPPER exploitation attempt"],
- ["Ref[1]", "cve:CVE-2003-0605"],
- ["Source[1]/IP4[1]", "93.184.216.119"],
- ["Source[1]/Proto[1]", "tcp"],
- ["Source[1]/Proto[2]", "epmap"],
- ["Source[1]/Port[1]", "24508"],
- ["Target[1]/Proto[1]", "tcp"],
- ["Target[1]/Proto[2]", "epmap"],
- ["Target[1]/Port[1]", "135"],
- ["Node[1]/Name", "kippo-honey"],
- ["Node[1]/Realm", "cesnet.cz"],
- ["Node[1]/Tags[1]", "Protocol"],
- ["Node[1]/Tags[2]", "Honeypot"],
- ["Node[1]/SW", "Kippo"],
- ["Node[1]/AggrWin", "00:05:00"],
- );
- # Create the message structure by hand according to the given rules
- foreach my $rule (@MESSAGE_RULES) {
- $instance->path_node_set(@$rule);
- }
-
- # Check the existence of given node
- if ($instance->path_node_exists('Format')) { ... }
-
- # Export the message to the string
- print STDOUT $instance->to_string($pretty);
-
- # Get value (first) on given path
- my $value = $instance->path_value('Source/IP4');
- # Get list of all values on given path
- my $values = $instance->path_values('Source/IP4');
-
-=head1 DESCRIPTION
-
-
-
-=head1 AUTHOR
-
- Jan Mach
- Cesnet, z.s.p.o
- jan.mach@cesnet.cz
- http://www.cesnet.cz
-
-=head1 COPYRIGHT
-
-This program is free software; you can redistribute
-it and/or modify it under the same terms as Perl itself.
-
-The full text of the license can be found in the
-LICENSE file included with this module.
-
-=head1 SEE ALSO
-
-perl(1).
-
-=head1 FUNCTION REFERENCE
-
-=over 4
-
-=cut
-
-#*******************************************************************************
-# LIBRARY LOADING SECTION
-#*******************************************************************************
-
-#-- Perl core modules ---------------------------------------------------------#
-use Carp;
-use Scalar::Util 'blessed';
-
-use Data::Dumper; #-+-> DEVEL ONLY <-+-#
-#use Smart::Comments; #-+-> DEVEL ONLY <-+-#
-
-#-- Perl CPAN modules ---------------------------------------------------------#
-use Data::Compare;
-use JSON;
-
-#-- Custom application modules ------------------------------------------------#
-use Mentat::Message;
-use Value::Convertor;
-use Value::IP;
-use Value::Timestamp;
-use Value::Period;
-use Mentat::MPath::Parser;
-
-#*******************************************************************************
-# CONSTANTS AND GLOBAL VARIABLES DEFINITION SECTION
-#*******************************************************************************
-
-#-- Constants -----------------------------------------------------------------#
-use constant MPATH_MSGID => 'ID';
-use constant IPV4 => 'IPV4';
-use constant IPV6 => 'IPV6';
-
-use constant CONVERSIONS => {
- 'CreateTime' => ['_convert_timestamp'],
- 'DetectTime' => ['_convert_timestamp'],
- 'EventTime' => ['_convert_timestamp'],
- 'CeaseTime' => ['_convert_timestamp'],
- 'WinStartTime' => ['_convert_timestamp'],
- 'WinEndTime' => ['_convert_timestamp'],
-
- 'Source/IP4' => ['_convert_address', IPV4()],
- 'Source/IP6' => ['_convert_address', IPV6()],
- 'Target/IP4' => ['_convert_address', IPV4()],
- 'Target/IP6' => ['_convert_address', IPV6()],
-
- 'ConnCount' => ['_convert_int'],
- 'FlowCount' => ['_convert_int'],
- 'PacketCount' => ['_convert_int'],
- 'ByteCount' => ['_convert_int'],
- 'Source/Port' => ['_convert_int'],
- 'Target/Port' => ['_convert_int'],
- 'Source/ASN' => ['_convert_int'],
- 'Target/ASN' => ['_convert_int'],
- 'Attach/Size' => ['_convert_int'],
- };
-
-#-- Static public class variables (our) ---------------------------------------#
-
-#-- Static protected class variables (my) -------------------------------------#
-
-#*******************************************************************************
-# INITIALIZATION AND CLEANUP SECTION
-#*******************************************************************************
-
-#-- Module initializations ----------------------------------------------------#
-BEGIN {
- use vars qw($VERSION $DEVEL @ISA);
- $VERSION = '0.1';
- $DEVEL = 0;
- @ISA = ('Mentat::Message');
-}
-
-#-- Module clean-up code (global destructor) ----------------------------------#
-END {
-
-}
-
-#-- Operator overloading ------------------------------------------------------#
-use overload
- '==' => 'cmp_eq',
- 'eq' => 'cmp_eq';
-
-#*******************************************************************************
-# IMPLEMENTATION SECTION
-#*******************************************************************************
-
-=item unserialize($) [PUBLIC, STATIC]
-
- Usage : my $message = Mentat::Message::IDEA->unserialize($string);
- Purpose : Recover serialized instance of the Mentat::Message from given string
- Arguments : STRING $string - string containing serialized instance [MANDATORY]
- Returns : Mentat::Message::IDEA REFERENCE
- Throws : Dies, if not invoked on class
-
-=cut
-
-sub unserialize($)
-{
- my $class = shift;
- confess "Class method not invoked on class" if blessed($class);
- my ($string,) = @_;
-
- my $message = $class->new(decode_json($string));
- $message->_objectify();
- return $message;
-}
-
-=item from_file($) [PUBLIC, STATIC]
-
- Usage : my $message = Mentat::Message::IDEA->from_file($filename);
- Purpose : Recover serialized instance of the Mentat message from given file
- Arguments : STRING $filename - name of the file containing serialized instance [MANDATORY]
- Returns : Mentat::Message::IDEA REFERENCE
- Throws : Dies, if not invoked on class
- Comments : Internally uses unserialize() method
- See Also : unserialize() method
-
-=cut
-
-sub from_file($)
-{
- my $class = shift;
- confess "Class method not invoked on class" if blessed($class);
- my ($filename,) = @_;
- confess "Message file name must be given as argument" unless $filename;
- confess "Message file '$filename' is not ordinary file" unless -f $filename;
-
- # Load message from external file to string and untaint it
- open (my $mf, $filename) or die "Can`t open message file '$filename'\n";
- my $message = join("", <$mf>);
- close($mf);
- if ($message =~ /^(.+)$/s) { $message = $1; }
-
- # Unserialize the message from the string
- return $class->unserialize($message);
-}
-
-#-------------------------------------------------------------------------------
-
-=item id(;$) [PUBLIC]
-
- Usage : my $id = $message->id();
- Purpose : Get (and optionally set) the ID attribute of the current Mentat message
- Arguments : STRING $id - Message ID which to set (OPTIONAL)
- Returns : STRING current message ID
- Throws : Dies, if not invoked on object
- Same as path_node_set() and path_value() methods
- Comments : Internally uses path_node_set() and path_value() methods
- See Also : path_node_set(), path_value() methods
-
-=cut
-
-sub id(;$)
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
- my ($message_id,) = @_;
-
- # If we have been given the message ID, set it up
- if ($message_id) {
- $self->path_node_set(MPATH_MSGID(), $message_id)
- }
- return $self->path_value(MPATH_MSGID());
-}
-
-=item hash() [PUBLIC]
-
- Usage : my $hash = $message->hash();
- Purpose : Get the message structure hash
- Arguments : None
- Returns : HASH REFERENCE $hash
- Throws : Dies, if not invoked on object
-
-=cut
-
-sub hash()
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
-
- return $self->{HASH};
-}
-
-#-------------------------------------------------------------------------------
-
-=item iterate(;$$$) [PUBLIC]
-
- Usage :
- Purpose :
- Arguments :
- Returns :
- Throws : Dies, if not invoked on object
- Comments :
- See Also :
-
-=cut
-
-sub iterate(;$$$)
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
- my ($pattern, $nodemode, $fullmode) = @_;
-
- unless ($self->{ITER}) {
- $self->{ITER} = [];
- $self->_prepare_iterator($self->{HASH},'', $fullmode);
- $self->{ITER} = [sort {$a->[0] cmp $b->[0]} @{$self->{ITER}}]
- }
-
- my $next;
-
- while ($next = shift(@{$self->{ITER}})) {
- my ($mpath, $node) = @$next;
-
- next if ($pattern) and not $mpath =~ /$pattern/;
-
- return ($mpath, $$node) unless $nodemode;
- return ($mpath, $node);
- }
- $self->{ITER} = undef;
- return (undef, undef);
-}
-
-#-------------------------------------------------------------------------------
-
-=item path_nodes($) [PUBLIC]
-
- Usage : my $nodes = $message->path_nodes($mpath);
- Purpose : Get all nodes on given message path
- Arguments : STRING $mpath - message path to the nodes (MANDATORY)
- Returns : reference to array of values
- Throws : Dies, if not invoked on object
- Dies, if not given message path
- Dies, if node on given message path does not exist
- Comments : Internally uses private methods _path_nodes() and _get_child_text_node()
- See Also : Mentat::Message::Path::Parser class
-
-=cut
-
-sub path_nodes($)
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
- my ($mpath,) = @_;
-
- # Storage for nodes in current processing round
- my $nodes_a = [$self->{HASH}];
-
- # Storage for nodes in next processing round
- my $nodes_b = [];
-
- # Process the given MPath chunk by chunk
- my ($name, $type, $index, $lindex, $tmp_val);
- do {
- ($name, $type, $index, $mpath) = Mentat::MPath::Parser->parse_next_chunk($mpath);
- $name = ($type eq 'attr') ? '@' . $name : $name;
-
- # Check each node in the storage
- foreach my $node (@$nodes_a) {
- # Node must be a hash reference, otherwise it does not make any sense
- # asking for '$name', and of course '$name' key must exist
- next unless (ref $node eq 'HASH' and exists $node->{$name});
-
- # If the MPath contained index part
- if ($index) {
- # Node must be array reference, otherwise it does not make any sense
- # and of course array must not be empty
- next unless (ref $node->{$name} eq 'ARRAY') and scalar @{$node->{$name}} > 0;
-
- if ($index eq '#') {
- $lindex = $#{$node->{$name}};
- }
- else {
- $lindex = $index - 1;
- }
-
- # Node on given index must exist
- next unless $node->{$name}->[$lindex];
-
- # We must pass everything by reference
- $tmp_val = (ref $node->{$name}->[$lindex]) ? $node->{$name}->[$lindex] : \$node->{$name}->[$lindex];
-
- # Let the node be handled in next round
- push(@$nodes_b, $tmp_val);
- }
- # We do not care about any particular index
- else {
- # If there are multiple subnodes under current node`s speciffic key, we must
- # add all of them
- if (ref $node->{$name} eq 'ARRAY') {
- # C-like for loop must be used in this case, because we must pass everything by reference
- for (my $i = 0; $i < scalar(@{$node->{$name}}); $i++) {
- # We must pass everything by reference
- $tmp_val = (ref $node->{$name}->[$i]) ? $node->{$name}->[$i] : \$node->{$name}->[$i];
-
- # Let the node be handled in next round
- push(@$nodes_b, $tmp_val);
- }
- }
- else {
- # We must pass everything by reference
- $tmp_val = (ref $node->{$name}) ? $node->{$name} : \$node->{$name};
-
- # Let the node be handled in next round
- push(@$nodes_b, $tmp_val);
- }
- }
- }
-
- return undef unless scalar $nodes_b;
- $nodes_a = $nodes_b; $nodes_b = [];
-
- } while ($mpath);
-
- return $nodes_a;
-}
-
-=item path_node_set($$) [PUBLIC]
-
- Usage : $message->path_node_set($mpath, $value);
- Purpose : If it does not exist, append new node to the Mentat message on the given path and set it`s value
- Arguments : STRING $mpath - path in the Mentat message structure (MANDATORY)
- STRING $value - value of the object (MANDATORY)
- Returns : Nothing
- Throws : Dies, if not invoked on object
- Dies, if not given message path and value to set
- Dies, if message path is syntactically incorrect
- Comments : Internally uses private recursive method _append_node()
- See Also : _append_node() method, Mentat::Message::Path::Parser class
-
-=cut
-
-sub path_node_set($$)
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
- my ($mpath, $value) = @_;
-
- $value = $self->_prepare_value($mpath, $value);
-
- # Recursively parse the given MPath and create the inner HASH structure
- $self->_append_node($self->{HASH}, '', $mpath, $value);
-}
-
-=item path_node_delete($) [PUBLIC]
-
- Usage : my $node = $message->path_delete($mpath);
- Purpose : Deletes node on given message path
- Arguments : string $mpath - message path to the node (MANDATORY)
- Returns : Nothing
- Throws : Dies, if not invoked on object
- Dies, if not given message path
- Dies, if node on given message path does not exist
- Comments : Internally uses private method _path_node()
- See Also : _path_node() method, Mentat::Message::Path::Parser class
-
-=cut
-
-sub path_node_delete($)
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
- my ($mpath,) = @_;
-
- # Storage for nodes in current processing round
- my $nodes_a = [$self->{HASH}];
-
- # Storage for nodes in next processing round
- my $nodes_b = [];
-
- # Parse the given MPath in one call
- my @chunks = Mentat::MPath::Parser->parse($mpath);
-
- my ($name, $type, $index, $tmp_val);
- for (my $i = 0; $i < scalar(@chunks); $i++) {
- ($name, $type, $index) = @{$chunks[$i]};
- $name = ($type eq 'attr') ? '@' . $name : $name;
-
- # Check each node in the storage
- foreach my $node (@$nodes_a) {
-
- # Node must be a hash reference, otherwise it does not make any sense
- # asking for '$name', and of course '$name' key must exist
- next unless (ref $node eq 'HASH' and exists $node->{$name});
-
- # If the MPath contained index part
- if ($index) {
- # '*' and '#' as index value are forbidden for deletion
- next if $index eq '*' or $index eq '#';
-
- # Node must be array reference, otherwise it does not make any sense
- # and of course array element at '$index' must exist
- next unless (ref $node->{$name} eq 'ARRAY' and $node->{$name}->[$index-1]);
-
- # End of the MPath, do the removal
- if (($i+1) == scalar(@chunks)) {
- splice(@{$node->{$name}}, ($index-1), 1);
- }
- else {
- # We must pass everything by reference
- $tmp_val = (ref $node->{$name}->[$index-1]) ? $node->{$name}->[$index-1] : \$node->{$name}->[$index-1];
-
- # Let the node be handled in next round
- push(@$nodes_b, $tmp_val);
- }
- }
- # We do not care about any particular index
- else {
- # If there are multiple subnodes under current node`s speciffic key, we must
- # add all of them
- if (ref $node->{$name} eq 'ARRAY') {
- # End of the MPath, do the removal
- if (($i+1) == scalar(@chunks)) {
- delete $node->{$name};
- }
- else {
- # C-like for loop must be used in this case, because we must pass everything by reference
- for (my $i = 0; $i < scalar(@{$node->{$name}}); $i++) {
- # We must pass everything by reference
- $tmp_val = (ref $node->{$name}->[$i]) ? $node->{$name}->[$i] : \$node->{$name}->[$i];
-
- # Let the node be handled in next round
- push(@$nodes_b, $tmp_val);
- }
- }
- }
- else {
- # End of the MPath, do the removal
- if (($i+1) == scalar(@chunks)) {
- delete $node->{$name};
- }
- else {
- # We must pass everything by reference
- $tmp_val = (ref $node->{$name}) ? $node->{$name} : \$node->{$name};
-
- # Let the node be handled in next round
- push(@$nodes_b, $tmp_val);
- }
- }
- }
- }
-
- last unless scalar $nodes_b;
- $nodes_a = $nodes_b; $nodes_b = [];
- }
-}
-
-#-------------------------------------------------------------------------------
-
-=item path_values($) [PUBLIC]
-
- Usage : my $value = $message->path_values($mpath);
- Purpose : Gets values of all nodes on given message path
- Arguments : STRING $mpath - message path to the nodes (MANDATORY)
- Returns : reference to array of values
- Throws : Dies, if not invoked on object
- Dies, if not given message path
- Dies, if node on given message path does not exist
- Comments : Internally uses private methods _path_nodes() and _get_child_text_node()
- See Also : Mentat::Message::Path::Parser class
-
-=cut
-
-sub path_values($)
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
- my ($mpath,) = @_;
-
- my $nodes = $self->path_nodes($mpath);
- my $values = [];
- map { push(@$values, ((ref $_ eq 'SCALAR')?$$_:$_)); } @$nodes;
- return $values;
-}
-
-=item path_value_set($$) [PUBLIC]
-
- Usage : my $value = $message->path_value_set($mpath, $value);
- Purpose : Set and return value of first node on given message path
- Arguments : STRING $mpath - message path to the node (MANDATORY)
- STRING $value - New node value (MANDATORY)
- Returns : Nothing
- Throws : Dies, if not invoked on object
- Dies, if not given message path
- Dies, if node on given message path does not exist
- Comments : Internally uses private methods _path_node() and _get_child_text_node()
- See Also : Mentat::Message::Path::Parser class
-
-=cut
-
-sub path_value_set($$)
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
- my ($mpath, $value) = @_;
-
- $value = $self->_prepare_value($mpath, $value);
-
- my $node = $self->path_node($mpath);
- confess "Node on path '$mpath' does not exist" unless $node;
-
- if (ref $node eq 'SCALAR') {
- $$node = $value;
- }
- else {
- confess "Suspicious attempt to assign scalar value instead of previous HASH or ARRAY reference";
- }
-}
-
-#-------------------------------------------------------------------------------
-
-=item serialize() [PUBLIC]
-
- Usage : my $string = $message->serialize();
- Purpose : Export Mentat message into string
- Arguments : None
- Returns : STRING $string - string containing serialized Mentat message
- Throws : Dies, if not invoked on object
-
-=cut
-
-sub serialize()
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
-
- #return encode_json($self->{HASH});
- return JSON->new->utf8->allow_blessed->convert_blessed->encode($self->{HASH})
-}
-
-=item to_string(;$) [PUBLIC]
-
- Usage : my $string = $message->to_string();
- Purpose : Export Mentat message into readable string
- Arguments : BOOL $pretty - format message nicely (OPTIONAL)
- Returns : STRING $string - string containing serialized Mentat message
- Throws : Dies, if not invoked on object
- Comments :
- See Also :
-
-=cut
-
-sub to_string(;$)
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
-
- my $pretty = (shift @_) ? 1 : 0;
-
- return to_json($self->{HASH}, {utf8 => 1, pretty => $pretty, allow_blessed => 1, convert_blessed => 1});
-}
-
-=item cmp_eq($$$) [PUBLIC]
-
- Usage : Will be used automatically in integer or string equality comparison context (==,eq)
- Purpose : Allow integer and string equality comparisons (==,eq)
- Arguments : Value::Single $self - left comparison operand
- MIXED $other - right comparison operand
- BOOL $swap - swap left and right operand
- Returns : INTEGER $result (0 or 1) if the operads are equal
- Throws : Dies, if not invoked on object
- Comments : Must be implemented apropriatelly in subclasses
-
-=cut
-
-sub cmp_eq($$$)
-{
- my ($self, $other, $swap) = @_;
- confess "Instance method not invoked on object instance" unless blessed($self);
-
- my $left = $self->hash();
- my $right;
- if (blessed($other) and (blessed($other) eq 'Mentat::Message::IDEA')) {
- $right = $other->hash();
- }
- elsif (ref $other and ref $other eq 'HASH') {
- $right = $other;
- }
- else {
- die "Unable to compare object with scalar or ARRAY\n";
- }
-
- ($left, $right) = ($right, $left) if $swap;
-
- return Compare($left, $right);
-}
-
-=item is_expired($;$$) [PUBLIC]
-
- Usage : my $result = $message->is_expired($threshold);
- Purpose :
- Arguments :
- Returns :
- Throws : Dies, if not invoked on object
-
-=cut
-
-sub is_expired($;$$)
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
- my ($threshold, $attribute, $tsc) = @_;
-
- $attribute = 'DetectTime' unless $attribute;
- $tsc = time unless $tsc;
-
- my $ts = $self->path_value($attribute);
- confess "Unable to check expiration" unless $ts;
-
- $tsc -= $threshold;
-
- return ($tsc <= $ts) ? 0 : 1;
-}
-
-#-------------------------------------------------------------------------------
-# Private interface
-#-------------------------------------------------------------------------------
-
-# _init(;$) [PROTECTED]
-#
-# Usage : return $self->_init(@_);
-# Purpose : Initialize the new Mentat::Message::IDEA instance
-# Arguments :
-# Returns :
-# Throws : Dies, if not invoked on object
-# Comments : This method must never be called directly, it is supposed to be overloaded by subclasses.
-# See Also :
-
-sub _init(;$$)
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
- my ($hash, $objectify) = @_;
-
- # Build default message structure
- unless (defined $hash) {
- $hash = {
- 'Format' => 'IDEA0',
- };
- }
- else {
- confess "Message structure must be given via HASH reference" unless ref $hash eq 'HASH';
- }
-
- # Structure of hash of hashes
- $self->{HASH} = $hash;
-
- # Objectify, if requested
- $self->_objectify() if $objectify;
-
- return $self;
-}
-
-# _append_node($$$$) [PRIVATE]
-#
-# Usage : $self->_append_node($self->{HASH}, $mpath, $rest, $value);
-# Purpose : Recursively walks through the given MPath and creates all necessary nodes, sets the given value to the last one
-# Arguments : HASH REFERENCE $current - current node, we are working with (MANDATORY)
-# STRING $mpath - already processed MPath (MANDATORY)
-# STRING $rest - rest of the MPath to process (MANDATORY)
-# STRING $value - value to assign to the last node in the path (MANDATORY)
-# Returns : Nothing
-# Throws : Dies, if not invoked on object
-# Dies, if MPath was invalid
-# Comments : This method is for internal use only, it is called from path_node_set() method
-# See Also : path_node_set() method
-
-sub _append_node($$$$)
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
- my ($current, $mpath, $rest, $value) = @_;
-
- # Parse next chunk from the rest of the given MPath
- my ($name, $type, $index, $ref);
- ($name, $type, $index, $rest) = Mentat::MPath::Parser->parse_next_chunk($rest);
- $name = ($type eq 'attr') ? '@' . $name : $name;
-
- # If we are not at the end of the path, build the structure recursively
- if ($rest) {
-
- if (not $index and exists($current->{$name}) and (ref $current->{$name} eq 'ARRAY')) {
- # EITHER complain
- #confess "Structure at '$name' was already defined as array multivalue: " . Dumper($current);
-
- # OR handle
- $index = 1;
- }
-
- # We must handle multivalues separately
- if ($index) {
- # Perhaps the node on this MPath already exists and it is not a multivalue
- if (exists($current->{$name}) and not (ref $current->{$name} eq 'ARRAY')) {
- # EITHER complain
- #confess "Structure at '$name' was already defined and not as array";
-
- # OR handle
- my $tmp = $current->{$name}; $current->{$name} = [$tmp];
- }
- # Push new element to the end of existing array
- if ($index eq '*') {
- my $x = {}; push(@{$current->{$name}}, $x);
- $self->_append_node($x, Mentat::MPath::Parser->join($mpath,$name, $index), $rest, $value);
- }
- # Work with the last element of existing array
- elsif ($index eq '#') {
- my $l = 0; $l = $#{$current->{$name}} if ref $current->{$name} eq 'ARRAY';
- $current->{$name}->[$l] = {} unless exists $current->{$name}->[$l];
- $self->_append_node($current->{$name}->[$l], Mentat::MPath::Parser->join($mpath, $name, $index), $rest, $value);
- }
- # Work with the element on specific position within array
- else {
- $current->{$name}->[$index-1] = {} unless exists $current->{$name}->[$index-1];
- $self->_append_node($current->{$name}->[$index-1], Mentat::MPath::Parser->join($mpath, $name, $index), $rest, $value);
- }
- }
- # Single values are easy to deal with
- else {
- confess "Structure at '$name' was already defined and not as HASH: " . Dumper($current) if (exists($current->{$name}) and not (ref $current->{$name} eq 'HASH'));
- $current->{$name} = {} unless exists $current->{$name};
- $self->_append_node($current->{$name}, Mentat::MPath::Parser->join($mpath,$name), $rest, $value);
- }
- }
- # End of the path, assign the value
- else {
- if (not $index and exists($current->{$name}) and (ref $current->{$name} eq 'ARRAY')) {
- # EITHER complain
- confess "Structure at '$name' was already defined as array multivalue: " . Dumper($current);
-
- # OR handle
- $index = 1;
- }
-
- # We must handle multivalues separately
- if ($index) {
- # Perhaps the node on this MPath already exists and it is not a multivalue
- if (exists($current->{$name}) and not (ref $current->{$name} eq 'ARRAY')) {
- # EITHER complain
- #confess "Structure at '$name' was already defined and not as array";
-
- # OR handle
- my $tmp = $current->{$name}; $current->{$name} = [$tmp];
- }
- # Append new element to existing array
- if ($index eq '*') {
- push(@{$current->{$name}}, $value);
- }
- # Replace the value of last element in array
- elsif ($index eq '#') {
- my $l = 0; $l = $#{$current->{$name}} if ref $current->{$name} eq 'ARRAY';
- $current->{$name}->[$l] = $value;
- }
- # Put the value to specific position
- else {
- $current->{$name}->[$index-1] = $value;
- }
- }
- # Single values are easy to deal with
- else {
- $current->{$name} = $value;
- }
- }
-}
-
-# _prepare_iterator($$;$) [PROTECTED]
-#
-# Usage :
-# Purpose :
-# Arguments :
-# Returns :
-# Throws : Dies, if not invoked on object
-# Comments :
-# See Also :
-
-sub _prepare_iterator($$;$)
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
- my ($hash, $path, $fullmode) = @_;
-
- my ($mpath, $ref, $i);
- foreach my $key (keys(%$hash)) {
- # Handle subhashes
- if(ref $hash->{$key} eq 'HASH') {
- $mpath = Mentat::MPath::Parser->join($path, $key);
- $ref = \$hash->{$key};
- push(@{$self->{ITER}}, [$mpath, $ref]) if $fullmode;
- $self->_prepare_iterator($hash->{$key}, Mentat::MPath::Parser->join($path, $key), $fullmode);
- }
- elsif (ref $hash->{$key} eq 'ARRAY') {
-
- $mpath = Mentat::MPath::Parser->join($path, $key);
- $ref = \$hash->{$key};
- push(@{$self->{ITER}}, [$mpath, $ref]) if $fullmode;
-
- $i = 0;
- foreach my $item (@{$hash->{$key}}) {
- $mpath = Mentat::MPath::Parser->join($path, $key, $i+1);
- if (ref $item eq 'HASH') {
- $ref = \$hash->{$key}->[$i];
- push(@{$self->{ITER}}, [$mpath, $ref]) if $fullmode;
- $self->_prepare_iterator($item, $mpath, $fullmode);
- }
- else {
- $ref = \$hash->{$key}->[$i];
- push(@{$self->{ITER}}, [$mpath, $ref]);
- }
- ++$i;
- }
- }
- else {
- $ref = \$hash->{$key};
- $mpath = Mentat::MPath::Parser->join($path, $key);
- push(@{$self->{ITER}}, [$mpath, $ref]);
- }
- }
-}
-
-# _prepare_value($$) [PROTECTED]
-#
-# Usage :
-# Purpose :
-# Arguments :
-# Returns :
-# Throws : Dies, if not invoked on object
-# Comments :
-# See Also :
-
-sub _prepare_value($$)
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
- my ($mpath, $value) = @_;
-
- my $mpath_s = $mpath; $mpath_s =~ s/\[\d*\]//g;
-
- # Handle the MPath unknown to the convertor
- return $value unless exists CONVERSIONS()->{$mpath_s};
-
- my ($conversion, @args) = @{CONVERSIONS()->{$mpath_s}};
- return $self->$conversion($value, @args);
-}
-
-# _unprepare_value($$) [PROTECTED]
-#
-# Usage :
-# Purpose :
-# Arguments :
-# Returns :
-# Throws : Dies, if not invoked on object
-# Comments :
-# See Also :
-
-sub _unprepare_value($$)
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
- my ($mpath, $value) = @_;
-
- my $mpath_s = $mpath; $mpath_s =~ s/\[\d*\]//g;
-
- # Handle the MPath unknown to the convertor
- return $value unless exists CONVERSIONS()->{$mpath_s};
- return $value->to_string() if blessed($value);
- return $value;
-}
-
-# _objectify() [PROTECTED]
-#
-# Usage :
-# Purpose :
-# Arguments :
-# Returns :
-# Throws : Dies, if not invoked on object
-# Comments :
-# See Also :
-
-sub _objectify()
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
-
- my $value;
- my ($mpath, $node) = $self->iterate(undef,1);
- do {
- $value = $self->_prepare_value($mpath, $$node);
- $$node = $value;
- ($mpath, $node) = $self->iterate(undef,1);
- } while $mpath;
-}
-
-# _deobjectify() [PROTECTED]
-#
-# Usage :
-# Purpose :
-# Arguments :
-# Returns :
-# Throws : Dies, if not invoked on object
-# Comments :
-# See Also :
-
-sub _deobjectify()
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
-
- my $value;
- my ($mpath, $node) = $self->iterate(undef,1);
- do {
- $value = $self->_unprepare_value($mpath, $$node);
- $$node = $value;
- ($mpath, $node) = $self->iterate(undef,1);
- } while $mpath;
-}
-
-# _convert_address($$) [PROTECTED]
-#
-# Usage :
-# Purpose :
-# Arguments :
-# Returns :
-# Throws : Dies, if not invoked on object
-# Comments :
-# See Also :
-
-sub _convert_address($$)
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
- my ($value, $type) = @_;
-
- if (ref $value eq 'ARRAY') {
- my $r = [];
- foreach my $v (@$value) {
- push(@$r, Value::IP->new($value));
- }
- return $r;
- }
- else {
- #return Value::IP->new($value, $type) if $type;
- return Value::IP->new($value);
- }
-}
-
-# _convert_timestamp($) [PROTECTED]
-#
-# Usage :
-# Purpose :
-# Arguments :
-# Returns :
-# Throws : Dies, if not invoked on object
-# Comments :
-# See Also :
-
-sub _convert_timestamp($)
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
- my ($value,) = @_;
-
- return Value::Timestamp->new($value);
-}
-
-# _convert_int($) [PROTECTED]
-#
-# Usage :
-# Purpose :
-# Arguments :
-# Returns :
-# Throws : Dies, if not invoked on object
-# Comments :
-# See Also :
-
-sub _convert_int($)
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
- my ($value,) = @_;
-
- if (ref $value eq 'ARRAY') {
- my $r = [];
- foreach my $v (@$value) {
- push(@$r, int($value));
- }
- return $r;
- }
- else {
- return int($value);
- }
-}
-
-=pod
-
-=back
-
-=cut
-
-1;
diff --git a/lib_perl/lib/Mentat/Message/Validator.pm b/lib_perl/lib/Mentat/Message/Validator.pm
deleted file mode 100644
index 7d3026d..0000000
--- a/lib_perl/lib/Mentat/Message/Validator.pm
+++ /dev/null
@@ -1,170 +0,0 @@
-package Mentat::Message::Validator;
-use strict;
-use warnings;
-
-#*******************************************************************************
-# DOCUMENTATION SECTION
-#*******************************************************************************
-
-=head1 NAME
-
-Mentat::Message::Validator - Base class for all Mentat message validators
-
-=head1 SYNOPSIS
-
- use Mentat::Message::Validator;
-
-=head1 DESCRIPTION
-
-
-
-=head1 AUTHOR
-
- Jan Mach
- Cesnet, z.s.p.o
- jan.mach@cesnet.cz
- http://www.cesnet.cz
-
-=head1 COPYRIGHT
-
-This program is free software; you can redistribute
-it and/or modify it under the same terms as Perl itself.
-
-The full text of the license can be found in the
-LICENSE file included with this module.
-
-
-=head1 SEE ALSO
-
-perl(1).
-
-=head1 FUNCTION REFERENCE
-
-=over 4
-
-=cut
-
-#*******************************************************************************
-# INITIALIZATION AND CLEANUP SECTION
-#*******************************************************************************
-
-#-- Perl core modules ---------------------------------------------------------#
-use Carp;
-use Scalar::Util 'blessed';
-
-#use Smart::Comments; #-+-> DEVEL ONLY <-+-#
-#use Data::Dumper; #-+-> DEVEL ONLY <-+-#
-
-#-- Perl CPAN modules ---------------------------------------------------------#
-
-#-- Custom application modules ------------------------------------------------#
-
-#-- Module initializations ----------------------------------------------------#
-BEGIN {
- use vars qw($VERSION $DEVEL);
- $VERSION = '0.1';
- $DEVEL = 0;
-}
-
-
-#-- Module clean-up code (global destructor) ----------------------------------#
-END {
-
-}
-
-#*******************************************************************************
-# CONSTANTS AND GLOBAL VARIABLES DEFINITION SECTION
-#*******************************************************************************
-
-#-- Constants -----------------------------------------------------------------#
-
-#-- Static public class variables (our) ---------------------------------------#
-
-#-- Static protected class variables (my) -------------------------------------#
-
-#*******************************************************************************
-# IMPLEMENTATION SECTION
-#*******************************************************************************
-
-=item new() [PUBLIC,STATIC]
-
- Usage : my $validator = Mentat::Message::Validator->new(...);
- Purpose : Create and return reference to the new instance
- Arguments : Same as _init() method
- Returns : Mentat::Message::Validator reference
- Throws : Croaks, if invoked on object
- Comments : Internally uses _init() method
- See Also : _init() method
-
-=cut
-
-sub new
-{
- my $class = shift;
- croak ((caller(0))[3] . ": class method invoked on object") if ref $class;
- my $self = bless ({}, $class);
- $self->_init(@_);
- return $self;
-}
-
-=item validate_s($) [PUBLIC, ABSTRACT]
-
- Usage : my $error_string = $validator->validate_s($mentat_message);
- Purpose : Validate the given Mentat message
- Arguments : Mentat::Message $mentat_message - Mentat message object reference
- Returns : STRING $error - string describing error on validation FAILURE
- STRING '' (empty string) on validation SUCCESS
- Throws : Croaks, if invoked on class
-
-=cut
-
-sub validate_s($)
-{
- my $self = shift;
- croak ((caller(0))[3] . ": method needs implementation");
-}
-
-=item validate_b($) [PUBLIC, ABSTRACT]
-
- Usage : my $error_flag = $validator->validate_b($mentat_message);
- Purpose : Validate the given Mentat message
- Arguments : Mentat::Message $mentat_message - Mentat message object reference
- Returns : INTEGER 1 on validation FAILURE
- INTEGER 0 in validation SUCCESS
- Throws : Croaks, if invoked on class
-
-=cut
-
-sub validate_b($)
-{
- my $self = shift;
- croak ((caller(0))[3] . ": method needs implementation");
-}
-
-#-------------------------------------------------------------------------------
-# Private interface
-#-------------------------------------------------------------------------------
-
-# _init [PROTECTED, ABSTRACT]
-#
-# Usage : In constructor: return $self->_init(@_);
-# Purpose : Initialization callback for subclassess
-# Arguments : Unknown
-# Returns : Mentat::Message::Validator reference
-# Throws :
-# Comments :
-# See Also :
-
-sub _init
-{
- my $self = shift;
- croak ((caller(0))[3] . ": class method needs implementation");
-}
-
-=pod
-
-=back
-
-=cut
-
-1;
diff --git a/lib_perl/lib/Mentat/Message/Validator/IDEA.pm b/lib_perl/lib/Mentat/Message/Validator/IDEA.pm
deleted file mode 100644
index 5035b1b..0000000
--- a/lib_perl/lib/Mentat/Message/Validator/IDEA.pm
+++ /dev/null
@@ -1,171 +0,0 @@
-package Mentat::Message::Validator::IDEA;
-use strict;
-use warnings;
-
-#*******************************************************************************
-# DOCUMENTATION SECTION
-#*******************************************************************************
-
-=head1 NAME
-
-Mentat::Message::Validator::IDEA - JSON Schema based Mentat::Message::IDEA validator
-
-=head1 SYNOPSIS
-
- use Mentat::Message::Validator::IDEA;
-
-=head1 DESCRIPTION
-
-
-
-=head1 AUTHOR
-
- Jan Mach
- Cesnet, z.s.p.o
- jan.mach@cesnet.cz
- http://www.cesnet.cz
-
-=head1 COPYRIGHT
-
-This program is free software; you can redistribute
-it and/or modify it under the same terms as Perl itself.
-
-The full text of the license can be found in the
-LICENSE file included with this module.
-
-
-=head1 SEE ALSO
-
-perl(1), Mentat::Message::Validator(3), JSON::Schema::Validator(3).
-
-=head1 FUNCTION REFERENCE
-
-=over 4
-
-=cut
-
-#*******************************************************************************
-# INITIALIZATION AND CLEANUP SECTION
-#*******************************************************************************
-
-#-- Perl core modules ---------------------------------------------------------#
-use Carp;
-use Scalar::Util 'blessed';
-
-#use Data::Dumper; #-+-> DEVEL ONLY <-+-#
-#use Smart::Comments; #-+-> DEVEL ONLY <-+-#
-
-#-- Perl CPAN modules ---------------------------------------------------------#
-use JSON;
-
-#-- Custom application modules ------------------------------------------------#
-use Mentat::Message::Validator;
-use JSON::Schema::Validator;
-
-#-- Module initializations ----------------------------------------------------#
-BEGIN {
- use vars qw($VERSION $DEVEL @ISA);
- $VERSION = '0.1';
- $DEVEL = 0;
- @ISA = ('Mentat::Message::Validator');
-}
-
-
-#-- Module clean-up code (global destructor) ----------------------------------#
-END {
-
-}
-
-#*******************************************************************************
-# CONSTANTS AND GLOBAL VARIABLES DEFINITION SECTION
-#*******************************************************************************
-
-#-- Constants -----------------------------------------------------------------#
-
-#-- Static public class variables (our) ---------------------------------------#
-
-#-- Static protected class variables (my) -------------------------------------#
-
-#*******************************************************************************
-# IMPLEMENTATION SECTION
-#*******************************************************************************
-
-=item validate_s($) [PUBLIC]
-
- Usage : my $error_string = $validator->validate_s($mentat_message);
- Purpose : Validate the given Mentat message
- Arguments : Mentat::Message $mentat_message - Mentat message object reference
- Returns : STRING $error - string describing error on validation FAILURE
- STRING '' (empty string) on validation SUCCESS
- Throws : Dies, if invoked on class
-
-=cut
-
-sub validate_s($)
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
- my ($message,) = @_;
- confess "Message must be a 'Mentat::Message::IDEA' instance" unless blessed($message) and $message->isa('Mentat::Message::IDEA');
-
- # Validate given message structure
- my $error = $self->{VALIDATOR}->validate($message->hash());
- return $error if $error;
-
- return "";
-}
-
-=item validate_b($) [PUBLIC]
-
- Usage : my $error_flag = $validator->validate_b($mentat_message);
- Purpose : Validate the given Mentat message
- Arguments : Mentat::Message $mentat_message - Mentat message object reference
- Returns : INTEGER 1 on validation FAILURE
- INTEGER 0 in validation SUCCESS
- Throws : Dies, if invoked on class
-
-=cut
-
-sub validate_b($)
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
-
- my $error = $self->validate_s(@_);
- return 1 if $error;
- return 0;
-}
-
-#-------------------------------------------------------------------------------
-# Private interface
-#-------------------------------------------------------------------------------
-
-# _init($) [PROTECTED, ABSTRACT]
-#
-# Usage : In constructor: return $self->_init(@_);
-# Purpose : Initialization callback for subclassess
-# Arguments : string $schema_file
-# Returns : Mentat::Message::Validator reference
-# Throws :
-# Comments :
-# See Also :
-
-sub _init($)
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
- my ($schema_file,) = @_;
- confess "JSON schema file must be given as argument" unless $schema_file;
-
- $self->{VALIDATOR} = JSON::Schema::Validator->new($schema_file);
-
- return $self;
-}
-
-=pod
-
-=back
-
-=cut
-
-1;
diff --git a/lib_perl/lib/Mentat/Message/Value.pm b/lib_perl/lib/Mentat/Message/Value.pm
deleted file mode 100644
index e3d1e86..0000000
--- a/lib_perl/lib/Mentat/Message/Value.pm
+++ /dev/null
@@ -1,168 +0,0 @@
-package Mentat::Message::Value;
-use strict;
-use warnings;
-
-#*******************************************************************************
-# DOCUMENTATION SECTION
-#*******************************************************************************
-
-=head1 NAME
-
-Mentat::Message::Value - Utility class for determining datatypes of Mentat message values
-
-=head1 SYNOPSIS
-
- use Mentat::Message::Value;
-
-=head1 DESCRIPTION
-
-=head1 AUTHOR
-
- Jan Mach
- Cesnet, z.s.p.o
- jan.mach@cesnet.cz
- http://www.cesnet.cz
-
-=head1 COPYRIGHT
-
-This program is free software; you can redistribute
-it and/or modify it under the same terms as Perl itself.
-
-The full text of the license can be found in the
-LICENSE file included with this module.
-
-
-=head1 SEE ALSO
-
-perl(1).
-
-=head1 FUNCTION REFERENCE
-
-=over 4
-
-=cut
-
-#*******************************************************************************
-# LIBRARY LOADING SECTION
-#*******************************************************************************
-
-#-- Perl core modules ---------------------------------------------------------#
-use Carp;
-
-#use Data::Dumper; #-+-> DEVEL ONLY <-+-#
-
-#-- Perl CPAN modules ---------------------------------------------------------#
-
-#-- Custom application modules ------------------------------------------------#
-
-#*******************************************************************************
-# CONSTANTS AND GLOBAL VARIABLES DEFINITION SECTION
-#*******************************************************************************
-
-#-- Constants -----------------------------------------------------------------#
-
-# !!!! WARNING !!! Some of these datatypes are hardcoded in filter grammar !!!!
-# LOW level datatypes
-use constant DATATYPE_UNKNOWN => 'UNKNOWN';
-use constant DATATYPE_DEPENDENT => 'DEPENDENT';
-use constant DATATYPE_BOOL => 'BOOL';
-use constant DATATYPE_BYTE => 'BYTE';
-use constant DATATYPE_DATETIME => 'DATETIME';
-use constant DATATYPE_ENUM => 'STRING';
-use constant DATATYPE_INT => 'INT';
-use constant DATATYPE_NTPSTAMP => 'NTPSTAMP';
-use constant DATATYPE_PORTLIST => 'PORTLIST';
-use constant DATATYPE_REAL => 'REAL';
-use constant DATATYPE_STRING => 'STRING';
-
-# HIGH level datatypes
-use constant DATATYPE_PERIOD => 'PERIOD';
-use constant DATATYPE_NUMERIC => 'NUMERIC';
-use constant DATATYPE_ADDRESS => 'ADDRESS';
-use constant DATATYPE_IPV4 => 'IPV4';
-use constant DATATYPE_IPV6 => 'IPV6';
-use constant DATATYPE_MAC => 'MAC';
-use constant DATATYPE_EMAIL => 'EMAIL';
-
-use constant DATATYPE_IPV4_STR => 'IPV4-ADDR';
-use constant DATATYPE_IPV4_HEX => 'IPV4-ADDR-HEX';
-use constant DATATYPE_IPV4_STR_NET => 'IPV4-NET';
-use constant DATATYPE_IPV4_STR_NET_MASK => 'IPV4-NET-MASK';
-use constant DATATYPE_IPV6_STR => 'IPV6-ADDR';
-use constant DATATYPE_IPV6_HEX => 'IPV6-ADDR-HEX';
-use constant DATATYPE_IPV6_STR_NET => 'IPV6-NET';
-use constant DATATYPE_IPV6_STR_NET_MASK => 'IPV6-NET-MASK';
-
-#-- Static public class variables (our) ---------------------------------------#
-
-#-- Static protected class variables (my) -------------------------------------#
-
-my %MESSAGETYPES2CLASS = (
- 'idea' => 'Mentat::Message::Value::IDEA',
- );
-
-#*******************************************************************************
-# INITIALIZATION AND CLEANUP SECTION
-#*******************************************************************************
-
-#-- Module initializations ----------------------------------------------------#
-BEGIN {
- use vars qw($VERSION $DEVEL);
- $VERSION = '0.1';
- $DEVEL = 0;
-}
-
-
-#-- Module clean-up code (global destructor) ----------------------------------#
-END {
-
-}
-
-#*******************************************************************************
-# IMPLEMENTATION SECTION
-#*******************************************************************************
-
-=item path_datatype($) [PUBLIC,STATIC]
-
- Usage : my $datatype = Mentat::Message::Value->path_datatype($mpath)
- Purpose : Determine the data type of the given MPath node
- Arguments : STRING containing MPath
- Returns :
- Throws : Croaks, if invoked on object
- Comments :
- See Also :
-
-=cut
-
-sub path_datatype($)
-{
- my $class = shift;
- croak ((caller(0))[3] . ": method needs implementation");
-}
-
-=item value_datatype($$) [PUBLIC,STATIC]
-
- Usage : my $datatype = Mentat::Message::Value->value_datatype($mpath)
- Purpose : Determine the data type of the value on given MPath node in given IDEA message
- Arguments : STRING containing MPath
- Mentat::Message::IDEA reference
- Returns :
- Throws : Croaks, if invoked on object
- Comments :
- See Also :
-
-=cut
-
-sub value_datatype($$)
-{
- my $class = shift;
- croak ((caller(0))[3] . ": method needs implementation");
-}
-
-=pod
-
-=back
-
-=cut
-
-1;
diff --git a/lib_perl/lib/Mentat/Message/Value/IDEA.pm b/lib_perl/lib/Mentat/Message/Value/IDEA.pm
deleted file mode 100644
index acd4a23..0000000
--- a/lib_perl/lib/Mentat/Message/Value/IDEA.pm
+++ /dev/null
@@ -1,167 +0,0 @@
-package Mentat::Message::Value::IDEA;
-use strict;
-use warnings;
-
-#*******************************************************************************
-# DOCUMENTATION SECTION
-#*******************************************************************************
-
-=head1 NAME
-
-Mentat::Message::Value::IDEA - Utility class for determining datatypes of Mentat message values
-
-=head1 SYNOPSIS
-
- use Mentat::Message::Value::IDEA;
-
-=head1 DESCRIPTION
-
-
-
-=head1 AUTHOR
-
- Jan Mach
- Cesnet, z.s.p.o
- jan.mach@cesnet.cz
- http://www.cesnet.cz
-
-=head1 COPYRIGHT
-
-This program is free software; you can redistribute
-it and/or modify it under the same terms as Perl itself.
-
-The full text of the license can be found in the
-LICENSE file included with this module.
-
-
-=head1 SEE ALSO
-
-perl(1).
-
-=head1 FUNCTION REFERENCE
-
-=over 4
-
-=cut
-
-#*******************************************************************************
-# LIBRARY LOADING SECTION
-#*******************************************************************************
-
-#-- Perl core modules ---------------------------------------------------------#
-use Carp;
-use Scalar::Util 'blessed';
-
-use Data::Dumper; #-+-> DEVEL ONLY <-+-#
-#use Smart::Comments; #-+-> DEVEL ONLY <-+-#
-
-#-- Perl CPAN modules ---------------------------------------------------------#
-
-#-- Custom application modules ------------------------------------------------#
-use Data::Path::Value;
-use Data::Core qw(:c_dtypes);
-
-#*******************************************************************************
-# CONSTANTS AND GLOBAL VARIABLES DEFINITION SECTION
-#*******************************************************************************
-
-#-- Constants -----------------------------------------------------------------#
-
-#-- Static public class variables (our) ---------------------------------------#
-
-#-- Static protected class variables (my) -------------------------------------#
-
-# Table containing datatypes of IDEA elements on given paths
-my %MPATH2DATATYPE = (
- 'CreateTime' => DT_DATETIME,
- 'DetectTime' => DT_DATETIME,
- 'EventTime' => DT_DATETIME,
- 'CeaseTime' => DT_DATETIME,
- 'WinStartTime' => DT_DATETIME,
- 'WinEndTime' => DT_DATETIME,
-
- 'Source/IP4' => DT_IPV4,
- 'Source/IP6' => DT_IPV6,
- 'Target/IP4' => DT_IPV4,
- 'Target/IP6' => DT_IPV6,
-
- 'Source/Port' => DT_INT,
- 'Target/Port' => DT_INT,
- 'ConnCount' => DT_INT,
- 'FlowCount' => DT_INT,
- 'PacketCount' => DT_INT,
- 'ByteCount' => DT_INT,
-);
-
-#*******************************************************************************
-# INITIALIZATION AND CLEANUP SECTION
-#*******************************************************************************
-
-#-- Module initializations ----------------------------------------------------#
-BEGIN {
- use vars qw($VERSION $DEVEL @ISA);
- $VERSION = '0.1';
- $DEVEL = 0;
- @ISA = ('Data::Path::Value');
-}
-
-
-#-- Module clean-up code (global destructor) ----------------------------------#
-END {
-
-}
-
-#*******************************************************************************
-# IMPLEMENTATION SECTION
-#*******************************************************************************
-
-=item path_datatype($) [PUBLIC,STATIC]
-
- Usage : my $datatype = Mentat::Message::Value->path_datatype($mpath)
- Purpose : Determine the data type of the given MPath node
- Arguments : STRING containing MPath
- Returns :
- Throws : Croaks, if invoked on object
-
-=cut
-
-sub path_datatype($)
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
- my ($mpath,) = @_;
- confess "MPath must be given as argument" unless $mpath;
-
- return DT_STRING unless exists $MPATH2DATATYPE{$mpath};
- return $MPATH2DATATYPE{$mpath};
-}
-
-=item value_datatype($$) [PUBLIC,STATIC]
-
- Usage : my $datatype = Mentat::Message::Value->value_datatype($mpath)
- Purpose : Determine the data type of the value on given MPath node in given IDEA message
- Arguments : STRING containing MPath
- Mentat::Message::IDEA reference
- Returns :
- Throws : Croaks, if invoked on object
-
-=cut
-
-sub value_datatype($$)
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
- my ($mpath, $mentat_message) = @_;
- confess "MPath must be given as argument" unless $mpath;
-
- return DT_STRING unless exists $MPATH2DATATYPE{$mpath};
- return $MPATH2DATATYPE{$mpath};
-}
-
-=pod
-
-=back
-
-=cut
-
-1;
diff --git a/lib_perl/lib/Value/Convertor.pm b/lib_perl/lib/Value/Convertor.pm
deleted file mode 100644
index 8dcd840..0000000
--- a/lib_perl/lib/Value/Convertor.pm
+++ /dev/null
@@ -1,2757 +0,0 @@
-package Value::Convertor;
-use strict;
-use warnings;
-
-#*******************************************************************************
-# DOCUMENTATION SECTION
-#*******************************************************************************
-
-=head1 NAME
-
-Value::Convertor - Short module description
-
-=head1 SYNOPSIS
-
- use Value::Convertor;
-
-=head1 DESCRIPTION
-
-This is the library class for various conversion functions. All conversions can
-be called either as class, or instance methods.
-
-=head1 AUTHOR
-
- Jan Mach
- Cesnet, z.s.p.o
- jan.mach@cesnet.cz
- http://www.cesnet.cz
-
-=head1 COPYRIGHT
-
-This program is free software; you can redistribute
-it and/or modify it under the same terms as Perl itself.
-
-The full text of the license can be found in the
-LICENSE file included with this module.
-
-=head1 SEE ALSO
-
-perl(1).
-
-=head1 FUNCTION REFERENCE
-
-=over 4
-
-=cut
-
-#*******************************************************************************
-# LIBRARY LOADING SECTION
-#*******************************************************************************
-
-#-- Perl core modules ---------------------------------------------------------#
-use Carp;
-use Scalar::Util 'blessed';
-
-use Data::Dumper; #-+-> DEVEL ONLY <-+-#
-use Net::CIDR::Lite; # libnet-cidr-lite-perl
-use Net::IP; # libnet-ip-perl
-#use Smart::Comments; #-+-> DEVEL ONLY <-+-#
-
-#-- Perl CPAN modules ---------------------------------------------------------#
-use Date::Parse;
-use DateTime;
-use DateTime::TimeZone;
-
-#-- Custom application modules ------------------------------------------------#
-
-#*******************************************************************************
-# CONSTANTS AND GLOBAL VARIABLES DEFINITION SECTION
-#*******************************************************************************
-
-#-- Constants -----------------------------------------------------------------#
-
-# Number of seconds between 1.1.1900 and 1.1.1970 (for NTP to unix timestamp conversions)
-use constant NTP_TO_EPOCH_DELTA => 2208988800;
-use constant MAX_IP_MASK => hex('0xFFFFFFFF');
-
-use constant UNKNOWN_TYPE => 'UNKONWN';
-
-use constant IPV4ADDR_STRING => 'IPV4ADDR_STRING';
-use constant IPV4ADDR_HEXSTR => 'IPV4ADDR_HEXSTR';
-use constant IPV4ADDR_INTEGER => 'IPV4ADDR_INTEGER';
-
-use constant IPV6ADDR_STRING => 'IPV6ADDR_STRING';
-use constant IPV6ADDR_HEXSTR => 'IPV6ADDR_HEXSTR';
-use constant IPV6ADDR_INTEGER => 'IPV6ADDR_INTEGER';
-
-use constant IPV4CIDR_STRING => 'IPV4CIDR_STRING';
-use constant IPV4NETM_STRING => 'IPV4NETM_STRING';
-use constant IPV6CIDR_STRING => 'IPV6CIDR_STRING';
-
-use constant IPV4RNG_STRING => 'IPV4RNG_STRING';
-use constant IPV4RNG_HEXSTR => 'IPV4RNG_HEXSTR';
-use constant IPV4RNG_INTEGER => 'IPV4RNG_INTEGER';
-
-use constant IPV6RNG_STRING => 'IPV6RNG_STRING';
-use constant IPV6RNG_HEXSTR => 'IPV6RNG_HEXSTR';
-use constant IPV6RNG_INTEGER => 'IPV6RNG_INTEGER';
-
-use constant TS_UNIXSTAMP => 'TS_UNIXSTAMP';
-use constant TS_NTPSTAMP => 'TS_NTPSTAMP';
-use constant TS_DATETIME => 'TS_DATETIME';
-use constant TS_PERIOD => 'TS_PERIOD';
-
-use constant IP_CONVERSIONS => {
- IPV4ADDR_STRING() =>
- {'INT' => 'ipv4str_to_int', 'BIN' => 'ipv4str_to_bin'},
- IPV4ADDR_HEXSTR() =>
- {'INT' => 'ipv4hex_to_int', 'BIN' => 'ipv4hex_to_bin'},
- IPV4ADDR_INTEGER() =>
- {'INT' => 'anything_to_samething', 'BIN' => 'ipv4int_to_bin'},
- IPV4CIDR_STRING() =>
- {'INT' => 'ipv4cidr_to_ints', 'BIN' => 'ipv4cidr_to_bins'},
- IPV4NETM_STRING() =>
- {'INT' => 'ipv4netm_to_ints', 'BIN' => 'ipv4netm_to_bins'},
- IPV4RNG_STRING() =>
- {'INT' => 'ipv4rngstr_to_ints', 'BIN' => 'ipv4rngstr_to_bins'},
- IPV4RNG_HEXSTR() =>
- {},
- IPV4RNG_INTEGER() =>
- {},
-
- IPV6ADDR_STRING() =>
- {'INT' => 'ipv6str_to_bigint', 'BIN' => 'ipv6str_to_bin'},
- IPV6ADDR_HEXSTR() =>
- {'INT' => 'hexstr_to_bigint', 'BIN' => 'hexstr_to_bin'},
- IPV6ADDR_INTEGER() =>
- {'INT' => 'anything_to_samething', 'BIN' => 'bigint_to_bin'},
- IPV6CIDR_STRING() =>
- {'INT' => 'ipv6cidr_to_bigints', 'BIN' => 'ipv6cidr_to_bins'},
- IPV6RNG_STRING() =>
- {},
- IPV6RNG_HEXSTR() =>
- {},
- IPV6RNG_INTEGER() =>
- {},
- };
-
-use constant TS_CONVERSIONS => {
- TS_UNIXSTAMP() => 'unixs_to_nbi',
- TS_NTPSTAMP() => 'ntps_to_nbi',
- TS_DATETIME() => 'datestr_to_nbi',
- TS_PERIOD() => 'periodstr_to_nbis',
- };
-
-#-- Static public class variables (our) ---------------------------------------#
-
-#-- Static protected class variables (my) -------------------------------------#
-
-#*******************************************************************************
-# INITIALIZATION AND CLEANUP SECTION
-#*******************************************************************************
-
-#-- Module initializations ----------------------------------------------------#
-BEGIN {
- use vars qw($VERSION $DEVEL $TIME_ZONE_OFFSET $TIME_ZONE $QR_IPV4 $QR_IPV6 $QR_TS %IP_QRS %TS_QRS);
- $VERSION = '0.1';
- $DEVEL = 0;
-
- # Calculate the timezone offset for local timezone
- $TIME_ZONE = DateTime::TimeZone->new(name => 'local');
- $TIME_ZONE_OFFSET = DateTime->now(time_zone => $TIME_ZONE)->offset();
-
- $QR_IPV4 = [
- [IPV4ADDR_STRING(), qr/^([\d]+\.[\d]+\.[\d]+\.[\d]+)$/],
- [IPV4ADDR_HEXSTR(), qr/^(?:0x)?([a-zA-Z0-9]{8})$/],
- [IPV4ADDR_INTEGER(), qr/^(0|[1-9][0-9]{0,10})$/],
- [IPV4CIDR_STRING(), qr/^([\d]+\.[\d]+\.[\d]+\.[\d]+)\/([\d]+)$/],
- [IPV4NETM_STRING(), qr/^([\d]+\.[\d]+\.[\d]+\.[\d]+)\/([\d]+\.[\d]+\.[\d]+\.[\d]+)$/],
- [IPV4RNG_STRING(), qr/^([\d]+\.[\d]+\.[\d]+\.[\d]+) ?(?:-|\.\.) ?([\d]+\.[\d]+\.[\d]+\.[\d]+)$/],
- [IPV4RNG_HEXSTR(), qr/^(?:0x)?([a-zA-Z0-9]{8}) ?(?:-|\.\.) ?(?:0x)?([a-zA-Z0-9]{8})$/],
- [IPV4RNG_INTEGER(), qr/^([0-9]{1,10}) ?(?:-|\.\.) ?([0-9]{1,10})$/],
- ];
-
- $QR_IPV6 = [
- [IPV6ADDR_STRING(), qr/^([:a-zA-Z0-9]+:[:a-zA-Z0-9]*)$/],
- [IPV6ADDR_HEXSTR(), qr/^(?:0x)?([a-zA-Z0-9]{32})$/],
- [IPV6ADDR_INTEGER(), qr/^(0|[1-9][0-9]*)$/],
- [IPV6CIDR_STRING(), qr/^([:a-zA-Z0-9]+:[:a-zA-Z0-9]+)\/([\d]+)$/],
- [IPV6RNG_STRING(), qr/^([:a-zA-Z0-9]+:[:a-zA-Z0-9]+) ?(?:-|\.\.) ?([:a-zA-Z0-9]+:[:a-zA-Z0-9]+)$/],
- [IPV6RNG_HEXSTR(), qr/^(?:0x)?([a-zA-Z0-9]{32}) ?(?:-|\.\.) ?(?:0x)?([a-zA-Z0-9]{32})$/],
- [IPV6RNG_INTEGER(), qr/^([0-9]+) ?(?:-|\.\.) ?([0-9]+)$/],
- ];
-
- $QR_TS = [
- [TS_NTPSTAMP(), qr/^(0x[a-zA-Z0-9]+\.0x[a-zA-Z0-9]+)$/],
- [TS_UNIXSTAMP(), qr/^([0-9]+(?:\.[0-9]+)?)$/],
- [TS_DATETIME(), qr/^(\d{4}-\d{2}-\d{2}(?:T| )\d{2}:\d{2}(?::\d{2})?(?:\.\d+)?(?:Z|\+\d{2}:?\d{2}|-\d{2}:?\d{2})?)$/],
- [TS_PERIOD(), qr/^(\d{4}-\d{2}-\d{2}(?:T| )\d{2}:\d{2}(?::\d{2})?(?:Z|\+\d{2}:?\d{2}|-\d{2}:?\d{2})?) ?(?:-|\.\.) ?(\d{4}-\d{2}-\d{2}(?:T| )\d{2}:\d{2}(?::\d{2})?(?:Z|\+\d{2}:?\d{2}|-\d{2}:?\d{2})?)$/],
- ];
-
- map { $IP_QRS{$_->[0]} = $_->[1] } (@$QR_IPV4, @$QR_IPV6);
- map { $TS_QRS{$_->[0]} = $_->[1] } @$QR_TS;
-}
-
-
-#-- Module clean-up code (global destructor) ----------------------------------#
-END {
-
-}
-
-#*******************************************************************************
-# IMPLEMENTATION SECTION
-#*******************************************************************************
-
-=item new() [PUBLIC,STATIC]
-
- Usage : my $instance = Value::Convertor->new()
- Purpose : Create and return reference to the new instance
- Arguments : Same as the the _init() method
- Returns : Value::Convertor reference on success, croaks on failure
- Throws : Dies, if invoked on object
- Comments : Internally uses _init() method, subclasses should never overload this method.
- See Also : _init() method
-
-=cut
-
-sub new
-{
- my $class = shift;
- confess "Class method not invoked on class" if blessed($class);
- my $self = bless ({}, $class);
- return $self->_init(@_);
-}
-
-#-------------------------------------------------------------------------------
-# General conversion methods
-#-------------------------------------------------------------------------------
-
-=item anything_to_samething($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->anything_to_samething($value);
- my $result = $convertor->anything_to_samething($value);
- Purpose : Converts anything to same thing (dummy conversion)
- Arguments : MIXED $anything - Value to be converted [MANDATORY]
- Returns : MIXED $anything
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub anything_to_samething($)
-{
- my $invocant = shift;
- my ($anything,) = @_;
- confess "Expected conversion argument not given" unless defined $anything;
-
- return $anything;
-}
-
-=item anything_to_int($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->anything_to_int($value);
- my $result = $convertor->anything_to_int($value);
- Purpose : Converts anything to integer
- Arguments : MIXED $anything - Value to be converted [MANDATORY]
- Returns : INTEGER $anything
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub anything_to_int($)
-{
- my $invocant = shift;
- my ($anything,) = @_;
- confess "Expected conversion argument not given" unless defined $anything;
-
- return int($anything);
-}
-
-=item anything_to_string($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->anything_to_string($value);
- my $result = $convertor->anything_to_string($value);
- Purpose : Converts anything to string
- Arguments : MIXED $anything - Value to be converted [MANDATORY]
- Returns : STRING $anything
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub anything_to_string($)
-{
- my $invocant = shift;
- my ($anything,) = @_;
- confess "Expected conversion argument not given" unless defined $anything;
-
- return "$anything";
-}
-
-#-------------------------------------------------------------------------------
-
-=item hexstr_to_binstr($;$) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->hexstr_to_binstr($value, $width);
- my $result = $convertor->hexstr_to_binstr($value, $width);
- Purpose : Converts 'hexadecimal string' to 'binary string'
- Arguments : STRING $hex - Value to be converted [MANDATORY]
- INTEGER $width - Width of the string, pad zeros from left [OPTIONAL, DEFAULT = 0]
- Returns : STRING $bin
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub hexstr_to_binstr($;$)
-{
- my $invocant = shift;
- my ($hexstr, $width) = @_;
- confess "Expected conversion argument not given" unless defined $hexstr;
-
- # Strip out the leading '0x', if present
- $hexstr =~ s/^0x//;
-
- my $binstr = unpack("B*", pack("H*", $invocant->_zero_pad_n($hexstr,2)));
- $binstr = $invocant->_zero_pad($binstr, $width) if $width;
-
- return $binstr;
-}
-
-=item binstr_to_hexstr($;$$) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->binstr_to_hexstr($value, $width, $prefix);
- my $result = $convertor->binstr_to_hexstr($value, $width, $prefix);
- Purpose : Converts 'hexadecimal string' to 'binary string'
- Arguments : STRING $binstr - Value to be converted [MANDATORY]
- INTEGER $width - Width of the string, pad zeros from left [OPTIONAL, DEFAULT = 0]
- BOOL $prefix - Prepend the '0x' prefix to the result? [OPTIONAL, DEFAULT = 0]
- Returns : STRING $hexstr
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub binstr_to_hexstr($;$$)
-{
- my $invocant = shift;
- my ($binstr, $width, $prefix) = @_;
- confess "Expected conversion argument not given" unless defined $binstr;
-
- my $hexstr = unpack("H*", pack("B*", $invocant->_zero_pad_n($binstr,8)));
- $hexstr = $invocant->_zero_pad($hexstr, $width) if $width;
-
- return (($prefix)?'0x':'') . uc($hexstr);
-}
-
-#-------------------------------------------------------------------------------
-
-=item hexstr_to_bigint($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->hexstr_to_bigint($value);
- my $result = $convertor->hexstr_to_bigint($value);
- Purpose : Converts 'hexadecimal string' to 'big integer'
- Arguments : STRING $hexstr - Value to be converted [MANDATORY]
- Returns : BIGINT $bigint
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub hexstr_to_bigint($)
-{
- my $invocant = shift;
- my ($hexstr,) = @_;
- confess "Expected conversion argument not given" unless defined $hexstr;
-
- # Strip out the leading '0x', if present
- $hexstr =~ s/^0x//;
-
- use bigint;
- my $bigint = hex("0x$hexstr");
-
- return $bigint;
-}
-
-=item bigint_to_hexstr($;$$) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->bigint_to_hexstr($value, $width, $prefix);
- my $result = $convertor->bigint_to_hexstr($value, $width,$prefix);
- Purpose : Converts 'big integer' to 'hexadecimal string'
- Arguments : BIGINT $bigint - Value to be converted [MANDATORY]
- INTEGER $width - Width of the string, pad zeros from left [OPTIONAL, DEFAULT = 0]
- BOOL $prefix - Prepend the '0x' prefix to the result? [OPTIONAL, DEFAULT = 0]
- Returns : STRING $hexstr
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub bigint_to_hexstr($;$$)
-{
- my $invocant = shift;
- my ($bigint, $width, $prefix) = @_;
- confess "Expected conversion argument not given" unless defined $bigint;
-
- use bigint;
- my $hexstr = $bigint->as_hex();
- $hexstr =~ s/^0x//;
- $hexstr = $invocant->_zero_pad($hexstr, $width) if $width;
-
- return (($prefix)?'0x':'') . uc($hexstr);
-}
-
-#-------------------------------------------------------------------------------
-
-=item hexstr_to_bin($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->hexstr_to_bin($value);
- my $result = $convertor->hexstr_to_bin($value);
- Purpose : Converts 'hexadecimal string' to 'binary'
- Arguments : STRING $hexstr - Value to be converted [MANDATORY]
- Returns : BINARY $data
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub hexstr_to_bin($)
-{
- my $invocant = shift;
- my ($hexstr,) = @_;
- confess "Expected conversion argument not given" unless defined $hexstr;
-
- # Strip out the leading '0x', if present
- $hexstr =~ s/^0x//;
-
- return pack("H*", $invocant->_zero_pad_n($hexstr,2));
-}
-
-=item bin_to_hexstr($;$$) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->bin_to_hexstr($value, $width, $prefix);
- my $result = $convertor->bin_to_hexstr($value, $width, $prefix);
- Purpose : Converts 'binary' to 'hexadecimal string'
- Arguments : BINARY $data - Value to be converted [MANDATORY]
- INTEGER $width - Width of the string, pad zeros from left [OPTIONAL, DEFAULT = 0]
- BOOL $prefix - Prepend the '0x' prefix to the result? [OPTIONAL, DEFAULT = 0]
- Returns : STRING $hexstr
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub bin_to_hexstr($;$$)
-{
- my $invocant = shift;
- my ($data, $width, $prefix) = @_;
- confess "Expected conversion argument not given" unless defined $data;
-
- my $hexstr = unpack("H*", $data);
- $hexstr = $invocant->_zero_pad($hexstr, $width) if $width;
-
- return (($prefix)?'0x':'') . uc($hexstr);
-}
-
-#-------------------------------------------------------------------------------
-
-=item binstr_to_bin($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->binstr_to_bin($value);
- my $result = $convertor->binstr_to_bin($value);
- Purpose : Converts 'binary string' to 'binary'
- Arguments : STRING $binstr - Value to be converted [MANDATORY]
- Returns : BINARY $bin
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub binstr_to_bin($)
-{
- my $invocant = shift;
- my ($binstr,) = @_;
- confess "Expected conversion argument not given" unless defined $binstr;
-
- return pack("B*", $invocant->_zero_pad_n($binstr,8));
-}
-
-=item bin_to_binstr($;$) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->bin_to_binstr($value, $width);
- my $result = $convertor->bin_to_binstr($value, $width);
- Purpose : Converts 'binary' to 'binary string'
- Arguments : BINARY $data - Value to be converted [MANDATORY]
- INTEGER $width - Width of the string, pad zeros from left [OPTIONAL, DEFAULT = 0]
- Returns : STRING $binstr
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub bin_to_binstr($;$)
-{
- my $invocant = shift;
- my ($data, $width) = @_;
- confess "Expected conversion argument not given" unless defined $data;
-
- my $binstr = unpack("B*", $data);
- $binstr = $invocant->_zero_pad($binstr, $width) if $width;
-
- return $binstr;
-}
-
-#-------------------------------------------------------------------------------
-
-=item bin_to_bigint($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->bin_to_bigint($value);
- my $result = $convertor->bin_to_bigint($value);
- Purpose : Converts 'binary' to 'big integer'
- Arguments : BINARY $bin - Value to be converted [MANDATORY]
- Returns : BIGINT $bigint
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub bin_to_bigint($)
-{
- my $invocant = shift;
- my ($bin,) = @_;
- confess "Expected conversion argument not given" unless defined $bin;
-
- return $invocant->hexstr_to_bigint($invocant->bin_to_hexstr($bin));
-}
-
-=item bigint_to_bin($;$$) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->bigint_to_bin($value);
- my $result = $convertor->bigint_to_bin($value);
- Purpose : Converts 'big integer' to 'binary'
- Arguments : BIGINT $bigint - Value to be converted [MANDATORY]
- Returns : BINARY $bin
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub bigint_to_bin($;$$)
-{
- my $invocant = shift;
- my ($bigint,) = @_;
- confess "Expected conversion argument not given" unless defined $bigint;
-
- return $invocant->hexstr_to_bin($invocant->bigint_to_hexstr($bigint));
-}
-
-#-------------------------------------------------------------------------------
-# IPv4 conversion methods
-#-------------------------------------------------------------------------------
-
-=item ipv4str_to_int($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->ipv4str_to_int($value);
- my $result = $convertor->ipv4str_to_int($value);
- Purpose : Converts 'ipv4str' to 'integer'
- Arguments : STRING $ipv4str - Value to be converted [MANDATORY]
- Returns : INTEGER $ipv4int
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub ipv4str_to_int($)
-{
- my $invocant = shift;
- my ($ipv4str,) = @_;
- confess "Expected conversion argument not given" unless defined $ipv4str;
-
- my $ptrn = $IP_QRS{IPV4ADDR_STRING()};
- return undef unless $ipv4str =~ /$ptrn/;
-
- return unpack('N', pack('C4', split(/\./, $ipv4str)));
-}
-
-=item int_to_ipv4str($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->int_to_ipv4str($value);
- my $result = $convertor->int_to_ipv4str($value);
- Purpose : Converts 'integer' to 'ipv4str'
- Arguments : INTEGER $ipv4int - Value to be converted [MANDATORY]
- Returns : STRING $ipv4str
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub int_to_ipv4str($)
-{
- my $invocant = shift;
- my ($int,) = @_;
- confess "Expected conversion argument not given" unless defined $int;
-
- return join('.', unpack('C4', pack('N', $int)));
-}
-
-#-------------------------------------------------------------------------------
-
-=item ipv4hex_to_int($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->ipv4hex_to_int($value);
- my $result = $convertor->ipv4hex_to_int($value);
- Purpose : Converts 'ipv4hex' to 'integer'
- Arguments : STRING $ipv4hex - Value to be converted [MANDATORY]
- Returns : INTEGER $ipv4int
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub ipv4hex_to_int($)
-{
- my $invocant = shift;
- my ($ipv4hex,) = @_;
- confess "Expected conversion argument not given" unless defined $ipv4hex;
-
- $ipv4hex =~ s/^0x//;
- return unpack("N", pack("H*", $ipv4hex));
-}
-
-=item int_to_ipv4hex($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->int_to_ipv4hex($value);
- my $result = $convertor->int_to_ipv4hex($value);
- Purpose : Converts 'integer' to 'ipv4hex'
- Arguments : INTEGER $ipv4int - Value to be converted [MANDATORY]
- Returns : STRING $ipv4hex
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub int_to_ipv4hex($)
-{
- my $invocant = shift;
- my ($ipv4int,) = @_;
- confess "Expected conversion argument not given" unless defined $ipv4int;
-
- return uc(unpack("H*", pack("N", $ipv4int)));
-}
-
-#-------------------------------------------------------------------------------
-
-=item ipv4str_to_bin($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->ipv4str_to_bin($value);
- my $result = $convertor->ipv4str_to_bin($value);
- Purpose : Converts 'ipv4str' to 'binary'
- Arguments : STRING $ipv4str - Value to be converted [MANDATORY]
- Returns : BINARY $ipv4data
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub ipv4str_to_bin($)
-{
- my $invocant = shift;
- my ($ipv4str,) = @_;
- confess "Expected conversion argument not given" unless defined $ipv4str;
-
- return pack('C4', split(/\./, $ipv4str));
-}
-
-=item bin_to_ipv4str($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->bin_to_ipv4str($value);
- my $result = $convertor->bin_to_ipv4str($value);
- Purpose : Converts 'binary' to 'ipv4str'
- Arguments : BINARY $ipv4data - Value to be converted [MANDATORY]
- Returns : STRING $ipv4str
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub bin_to_ipv4str($)
-{
- my $invocant = shift;
- my ($ipv4data,) = @_;
- confess "Expected conversion argument not given" unless defined $ipv4data;
-
- return join('.', unpack('C4', $ipv4data));
-}
-
-#-------------------------------------------------------------------------------
-
-=item ipv4hex_to_bin($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->ipv4hex_to_bin($value);
- my $result = $convertor->ipv4hex_to_bin($value);
- Purpose : Converts 'ipv4hex' to 'binary'
- Arguments : STRING $ipv4hex - Value to be converted [MANDATORY]
- Returns : BINARY $ipv4data
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub ipv4hex_to_bin($)
-{
- my $invocant = shift;
- my ($ipv4hex,) = @_;
- confess "Expected conversion argument not given" unless defined $ipv4hex;
-
- return $invocant->hexstr_to_bin($ipv4hex);
-}
-
-=item bin_to_ipv4hex($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->bin_to_ipv4hex($value);
- my $result = $convertor->bin_to_ipv4hex($value);
- Purpose : Converts 'binary' to 'ipv4hex'
- Arguments : BINARY $ipv4data - Value to be converted [MANDATORY]
- Returns : STRING $ipv4hex
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub bin_to_ipv4hex($)
-{
- my $invocant = shift;
- my ($ipv4bin,) = @_;
- confess "Expected conversion argument not given" unless defined $ipv4bin;
-
- return $invocant->bin_to_hexstr($ipv4bin);
-}
-
-#-------------------------------------------------------------------------------
-
-=item ipv4int_to_bin($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->ipv4int_to_bin($value);
- my $result = $convertor->ipv4int_to_bin($value);
- Purpose : Converts 'ipv4int' to 'binary'
- Arguments : INTEGER $ipv4int - Value to be converted [MANDATORY]
- Returns : BINARY $ipv4data
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub ipv4int_to_bin($)
-{
- my $invocant = shift;
- my ($ipv4int,) = @_;
- confess "Expected conversion argument not given" unless defined $ipv4int;
-
- return pack("N", $ipv4int);
-}
-
-=item bin_to_ipv4int($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->bin_to_ipv4int($value);
- my $result = $convertor->bin_to_ipv4int($value);
- Purpose : Converts 'binary' to 'ipv4int'
- Arguments : BINARY $ipv4data - Value to be converted [MANDATORY]
- Returns : INTEGER $ipv4int
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub bin_to_ipv4int($)
-{
- my $invocant = shift;
- my ($ipv4bin,) = @_;
- confess "Expected conversion argument not given" unless defined $ipv4bin;
-
- return unpack('N', $ipv4bin);
-}
-
-#-------------------------------------------------------------------------------
-
-=item ipv4cidr_to_ints($;$) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->ipv4cidr_to_ints($value, $length);
- my $result = $convertor->ipv4cidr_to_ints($value, $lenght);
- Purpose : Converts 'ipv4cidr string' to 'integers'
- Arguments : STRING $ipv4cidr - Value to be converted [MANDATORY]
- INTEGER $length - Length of the network, can be parsed out from previous argument [OPTIONAL]
- Returns : INTEGER $min
- INTEGER $max
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub ipv4cidr_to_ints($;$)
-{
- my $invocant = shift;
- my ($ipv4cidr,$length) = @_;
- confess "Expected conversion argument not given" unless defined $ipv4cidr;
-
- unless ($length) {
- my $ptrn = $IP_QRS{IPV4CIDR_STRING()};
- my @matches = ($ipv4cidr =~ /$ptrn/);
- ($ipv4cidr,$length) = @matches if @matches;
- }
- confess "Invalid network address given as argument" unless defined $ipv4cidr;
- confess "Invalid network length given as argument" unless defined $length;
-
- # Convert the IP address to integer
- my $ipv4int = $invocant->ipv4str_to_int($ipv4cidr);
-
- # Masks must be applied, otherwise this algorithm would fail on 64bit platforms !!!
- my $netmask_int = (MAX_IP_MASK() << (32 - $length)) & MAX_IP_MASK();
- my $wildmask_int = (~ $netmask_int) & MAX_IP_MASK();
-
- # And now calculate the ranges
- my $min = ($ipv4int & $netmask_int);
- my $max = ($ipv4int & $netmask_int) + $wildmask_int;
-
- return ($min, $max);
-}
-
-=item ipv4cidr_to_bins($;$) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->ipv4cidr_to_bins($value);
- my $result = $convertor->ipv4cidr_to_bins($value);
- Purpose : Converts 'ipv4cidr string' to 'binaries'
- Arguments : Same as ipv4cidr_to_ints() method
- Returns : BINARY $min
- BINARY $max
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub ipv4cidr_to_bins($;$)
-{
- my $invocant = shift;
-
- my ($min, $max) = $invocant->ipv4cidr_to_ints(@_);
- return ($invocant->ipv4int_to_bin($min), $invocant->ipv4int_to_bin($max));
-}
-
-#-------------------------------------------------------------------------------
-
-=item ipv4rngstr_to_ints($;$) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->ipv4rngstr_to_ints($value, $length);
- my $result = $convertor->ipv4rngstr_to_ints($value, $lenght);
- Purpose : Converts 'ipv4rngstr string' to 'integers'
- Arguments : STRING $ipv4rngstr - Value to be converted [MANDATORY]
- INTEGER $second - Length of the network, can be parsed out from previous argument [OPTIONAL]
- Returns : INTEGER $min
- INTEGER $max
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub ipv4rngstr_to_ints($;$)
-{
- my $invocant = shift;
- my ($ipv4rngstr,$second) = @_;
- confess "Expected conversion argument not given" unless defined $ipv4rngstr;
-
- unless ($second)
- {
- my $ptrn = $IP_QRS{IPV4RNG_STRING()};
- my @matches = ($ipv4rngstr =~ /$ptrn/);
- ($ipv4rngstr,$second) = @matches if @matches;
- }
- confess "Invalid network range beginning address given as argument" unless defined $ipv4rngstr;
- confess "Invalid network range end address given as argument" unless defined $second;
-
- # Convert the IP address to integer
- my $min = $invocant->ipv4str_to_int($ipv4rngstr);
- my $max = $invocant->ipv4str_to_int($second);
-
- return ($min, $max);
-}
-
-=item ipv4rngstr_to_bins($;$) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->ipv4rngstr_to_bins($value);
- my $result = $convertor->ipv4rngstr_to_bins($value);
- Purpose : Converts 'ipv4rngstr string' to 'binaries'
- Arguments : Same as ipv4rngstr_to_ints() method
- Returns : BINARY $min
- BINARY $max
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub ipv4rngstr_to_bins($;$)
-{
- my $invocant = shift;
-
- my ($min, $max) = $invocant->ipv4rngstr_to_ints(@_);
- return ($invocant->ipv4int_to_bin($min), $invocant->ipv4int_to_bin($max));
-}
-
-#-------------------------------------------------------------------------------
-
-=item ipv4netm_to_ints($;$) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->ipv4netm_to_ints($network, $netmask);
- my $result = $convertor->ipv4netm_to_ints($value, $lenght);
- Purpose : Converts 'ipv4rngstr string' to 'integers'
- Arguments : STRING $ipv4rngstr - Value to be converted [MANDATORY]
- INTEGER $second - Length of the network, can be parsed out from previous argument [OPTIONAL]
- Returns : INTEGER $min
- INTEGER $max
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub ipv4netm_to_ints($;$)
-{
- my $invocant = shift;
- my ($ipv4netm, $netmask) = @_;
- confess "Expected conversion argument not given" unless defined $ipv4netm;
-
- unless ($netmask)
- {
- my $ptrn = $IP_QRS{IPV4NETM_STRING()};
- my @matches = ($ipv4netm =~ /$ptrn/);
- ($ipv4netm, $netmask) = @matches if @matches;
- }
- confess "Invalid network address given as argument" unless defined $ipv4netm;
- confess "Invalid network mask given as argument" unless defined $netmask;
-
- # Convert the IP address to integer
- my $ipv4int = $invocant->ipv4str_to_int($ipv4netm);
- my $netmask_int = $invocant->ipv4str_to_int($netmask);
-
- # This algorithm would be perfect on 32bit platforms, sadly, it fails on 64bit !!!
- my $wildmask_int = (~ $netmask_int) & MAX_IP_MASK();
-
- # And now calculate the ranges
- my $min = ($ipv4int & $netmask_int);
- my $max = ($ipv4int & $netmask_int) + $wildmask_int;
-
- return ($min, $max);
-}
-
-=item ipv4netm_to_bins($;$) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->ipv4netm_to_bins($value);
- my $result = $convertor->ipv4netm_to_bins($value);
- Purpose : Converts 'ipv4rngstr string' to 'binaries'
- Arguments : Same as ipv4rngstr_to_ints() method
- Returns : BINARY $min
- BINARY $max
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub ipv4netm_to_bins($;$)
-{
- my $invocant = shift;
-
- my ($min, $max) = $invocant->ipv4netm_to_ints(@_);
- return ($invocant->ipv4int_to_bin($min), $invocant->ipv4int_to_bin($max));
-}
-
-#-------------------------------------------------------------------------------
-
-=item ints_to_ipv4cidr($$) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->ints_to_ipv4cidr($min, $max);
- my $result = $convertor->ints_to_ipv4cidr($min, $max);
- Purpose : Converts 'integers' to 'ipv4cidr string'
- Arguments : INTEGER $min - minimal IP [MANDATORY]
- INTEGER $max - maximal IP [MANDATORY]
- Returns : STRING $ipv4cidr
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub ints_to_ipv4cidr($$)
-{
- my $invocant = shift;
- my ($min, $max) = @_;
- confess "Expected conversion argument not given" unless defined $min and defined $max;
-
- my $network = ($min & $max);
- my $wildmask = ($min ^ $max);
-
- my ($size, $i) = (32, 1);
- while ($i < $wildmask) {
- $size--;
- $i = $i << 1;
- }
-
- return $invocant->int_to_ipv4str($network) . "/$size";
-}
-
-=item ints_to_ipv4netm($$) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->ints_to_ipv4netm($min, $max);
- my $result = $convertor->ints_to_ipv4netm($min, $max);
- Purpose : Converts 'integers' to 'ipv4netm string'
- Arguments : INTEGER $min - minimal IP [MANDATORY]
- INTEGER $max - maximal IP [MANDATORY]
- Returns : STRING $ipv4cidr
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub ints_to_ipv4netm($;$)
-{
- my $invocant = shift;
- my ($min,$max) = @_;
- confess "Expected conversion argument not given" unless defined $min and defined $max;
-
- my $network = ($min & $max);
- my $wildmask = ($min ^ $max);
- my $netmask = (MAX_IP_MASK() ^ $wildmask) & MAX_IP_MASK();
-
- return $invocant->int_to_ipv4str($network) . "/" . $invocant->int_to_ipv4str($netmask);
-}
-
-=item ints_to_ipv4rngstr($$) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->ints_to_ipv4rngstr($min, $max);
- my $result = $convertor->ints_to_ipv4rngstr($min, $max);
- Purpose : Converts 'integers' to 'ipv4rngstr string'
- Arguments : INTEGER $min - minimal IP [MANDATORY]
- INTEGER $max - maximal IP [MANDATORY]
- Returns : STRING $ipv4cidr
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub ints_to_ipv4rngstr($;$)
-{
- my $invocant = shift;
- my ($min,$max) = @_;
- confess "Expected conversion argument not given" unless defined $min and defined $max;
-
- return $invocant->int_to_ipv4str($min) . '..' . $invocant->int_to_ipv4str($max);
-}
-
-#-------------------------------------------------------------------------------
-# IPv6 conversion methods
-#-------------------------------------------------------------------------------
-
-=item ipv6_expand($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->ipv6_expand($value);
- my $result = $convertor->ipv6_expand($value);
- Purpose : Expand the shortened IPv6 address string
- Arguments : STRING $ipv6str - Value to be converted [MANDATORY]
- Returns : STRING $ipv6str
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub ipv6_expand($)
-{
- my $invocant = shift;
- my ($ipv6str,) = @_;
- confess "Expected conversion argument not given" unless defined $ipv6str;
-
- # Calculate number of IPv6 address sections
- my $tmp = $ipv6str;
- $tmp =~ s/^:+|:+$//g;
- my @sects = split(/:+/, $tmp);
-
- # If there are too few sections, IPv6 address was in compressed format
- if (scalar(@sects) != 8)
- {
- my @zeros = ();
- push(@zeros, 0) while ((scalar(@zeros) + scalar(@sects)) < 8);
- my $zeros = join(':', @zeros);
- $ipv6str =~ s/::/:$zeros:/;
- $ipv6str =~ s/^:|:$//g;
- @sects = split(/:+/, $ipv6str);
- }
-
- # Pad with zeroes from the left according to RFC 3513, section 2.3
- # (Internet Protocol Version 6 (IPv6) Addressing Architecture)
- my @result = map { $invocant->_zero_pad($_, 4) } @sects;
-
- return join(':', @result);
-}
-
-=item ipv6_collapse($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->ipv6_collapse($value);
- my $result = $convertor->ipv6_collapse($value);
- Purpose : Collapse the expanded IPv6 address string
- Arguments : STRING $ipv6str - Value to be converted [MANDATORY]
- Returns : STRING $ipv6str
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub ipv6_collapse($)
-{
- my $invocant = shift;
- my ($ipv6str,) = @_;
- confess "Expected conversion argument not given" unless defined $ipv6str;
-
- # Split IPv6 address to sections
- my @sects = split(/:+/, $ipv6str);
-
- # Remove the leading zeros
- my @tmp = map { $_ =~ s/^0*(\d+)$/$1/; $_; } @sects;
- $ipv6str = join(':', @tmp);
-
- # Find the maximal string of zeros
- my $max = "";
- while ($ipv6str =~ /(0(:0)+)/gs) {
- $max = $1 if length($1) > length($max);
- }
- if ($max)
- {
- # Replace it with double colon
- $ipv6str =~ s/$max/::/;
- # Cleanup after last operation
- $ipv6str =~ s/:::+/::/;
- }
- return $ipv6str;
-}
-
-#-------------------------------------------------------------------------------
-
-=item ipv6str_to_hexstr($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->ipv6str_to_hexstr($value);
- my $result = $convertor->ipv6str_to_hexstr($value);
- Purpose : Converts 'ipv6str' to 'hexadecimal string'
- Arguments : STRING $ipv6str - Value to be converted [MANDATORY]
- Returns : STRING $hexstr
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub ipv6str_to_hexstr($)
-{
- my $invocant = shift;
- my ($ipv6str,) = @_;
- confess "Expected conversion argument not given" unless defined $ipv6str;
-
- $ipv6str = $invocant->ipv6_expand($ipv6str);
- $ipv6str =~ s/://g;
-
- return uc($ipv6str);
-}
-
-=item hexstr_to_ipv6str($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->hexstr_to_ipv6st($value);
- my $result = $convertor->hexstr_to_ipv6st($value);
- Purpose : Converts 'hexadecimal string' to 'ipv6str'
- Arguments : STRING $hexstr - Value to be converted [MANDATORY]
- Returns : STRING $ipv6str
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub hexstr_to_ipv6str($)
-{
- my $invocant = shift;
- my ($ipv6hex,) = @_;
- confess "Expected conversion argument not given" unless defined $ipv6hex;
-
- return $invocant->ipv6_collapse(join(':', unpack('(A4)*', $ipv6hex)));
-}
-
-#-------------------------------------------------------------------------------
-
-=item ipv6str_to_bin($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->ipv6str_to_bin($value);
- my $result = $convertor->ipv6str_to_bin($value);
- Purpose : Converts 'ipv6str' to 'binary'
- Arguments : STRING $ipv6str - Value to be converted [MANDATORY]
- Returns : BINARY $ipv6bin
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub ipv6str_to_bin($)
-{
- my $invocant = shift;
- my ($ipv6str,) = @_;
- confess "Expected conversion argument not given" unless defined $ipv6str;
-
- $ipv6str = $invocant->ipv6_expand($ipv6str);
- $ipv6str =~ s/://g;
-
- return $invocant->hexstr_to_bin($ipv6str);
-}
-
-=item bin_to_ipv6str($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->bin_to_ipv6str($value);
- my $result = $convertor->bin_to_ipv6str($value);
- Purpose : Converts 'binary' to 'ipv6str'
- Arguments : BINARY $ipv6bin - Value to be converted [MANDATORY]
- Returns : STRING $ipv6str
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub bin_to_ipv6str($)
-{
- my $invocant = shift;
- my ($ipv6bin,) = @_;
- confess "Expected conversion argument not given" unless defined $ipv6bin;
-
- return $invocant->ipv6_collapse(join(':', unpack('(A4)*', $invocant->bin_to_hexstr($ipv6bin))));
-}
-
-#-------------------------------------------------------------------------------
-
-=item ipv6str_to_bigint($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->ipv6str_to_bigint($value);
- my $result = $convertor->ipv6str_to_bigint($value);
- Purpose : Converts 'ipv6str' to 'bigint'
- Arguments : STRING $ipv6str - Value to be converted [MANDATORY]
- Returns : BIGINT $ipv6bigint
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub ipv6str_to_bigint($)
-{
- my $invocant = shift;
- my ($ipv6str,) = @_;
- confess "Expected conversion argument not given" unless defined $ipv6str;
-
- $ipv6str = $invocant->ipv6_expand($ipv6str);
- $ipv6str =~ s/://g;
-
- return $invocant->hexstr_to_bigint($ipv6str);
-}
-
-=item bigint_to_ipv6str($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->bigint_to_ipv6str($value);
- my $result = $convertor->bigint_to_ipv6str($value);
- Purpose : Converts 'bigint' to 'ipv6str'
- Arguments : BIGINT $ipv6bigint - Value to be converted [MANDATORY]
- Returns : STRING $ipv6str
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub bigint_to_ipv6str($)
-{
- my $invocant = shift;
- my ($ipv6bigint,) = @_;
- confess "Expected conversion argument not given" unless defined $ipv6bigint;
-
- use bigint;
- return $invocant->ipv6_collapse(join(':', unpack('(A4)*', $invocant->bigint_to_hexstr($ipv6bigint,32))));
-}
-
-#-------------------------------------------------------------------------------
-# IP address detection
-#-------------------------------------------------------------------------------
-
-=item detect_ipv4($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->detect_ipv4($value);
- my $result = $convertor->detect_ipv4($value);
- Purpose : Detect type of IPv4 adress/network/range
- Arguments : STRING $address - Value to be converted [MANDATORY]
- Returns : STRING $type
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub detect_ipv4($)
-{
- my $invocant = shift;
- my ($address,) = @_;
- confess "Expected conversion argument not given" unless defined $address;
-
- my ($type, $ptrn, @matches);
- foreach my $t (@$QR_IPV4)
- {
- ($type, $ptrn) = @$t;
- @matches = ($address =~ /$ptrn/);
- return ($type, @matches) if @matches;
- }
- return undef;
-}
-
-=item detect_ipv6($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->detect_ipv6($value);
- my $result = $convertor->detect_ipv6($value);
- Purpose : Detect type of IPv6 adress/network/range
- Arguments : STRING $address - Value to be converted [MANDATORY]
- Returns : STRING $type
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub detect_ipv6($)
-{
- my $invocant = shift;
- my ($address,) = @_;
- confess "Expected conversion argument not given" unless defined $address;
-
- my ($type, $ptrn, @matches);
- foreach my $t (@$QR_IPV6)
- {
- ($type, $ptrn) = @$t;
- @matches = ($address =~ /$ptrn/);
- return ($type, @matches) if @matches;
- }
- return undef;
-}
-
-=item detect_ip($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->detect_ip($value);
- my $result = $convertor->detect_ip($value);
- Purpose : Detect type of IPv4/IPv6 adress/network/range
- Arguments : STRING $address - Value to be converted [MANDATORY]
- Returns : STRING $type
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub detect_ip($)
-{
- my $invocant = shift;
- my ($address,) = @_;
- confess "Expected conversion argument not given" unless defined $address;
-
- my ($type, @matches);
- ($type, @matches) = $invocant->detect_ipv4($address);
- return ($type, @matches) if $type;
- ($type, @matches) = $invocant->detect_ipv6($address);
- return ($type, @matches);
-}
-
-#-------------------------------------------------------------------------------
-
-=item ipv4_to_int($;$) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->ipv4_to_int($value);
- my $result = $convertor->ipv4_to_int($value);
- Purpose : Converts 'ipv4' adress in any representation to 'integer'
- Arguments : INTEGER $ipv4 - Value to be converted [MANDATORY]
- STRING $type - Type of the argument (bypass autodetection) [OPTIONAL]
- Returns : INTEGER $ipv4int
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub ipv4_to_int($)
-{
- my $invocant = shift;
- my ($ipv4, $type, @matches) = @_;
- confess "Expected conversion argument not given" unless defined $ipv4;
-
- ($type, @matches) = $invocant->detect_ipv4($ipv4) unless $type;
- confess "Invalid argument '$ipv4' given" unless $type;
- confess "Do not know how to convert $type to integer" unless exists IP_CONVERSIONS()->{$type}->{INT};
-
- my $conversion = IP_CONVERSIONS()->{$type}->{INT};
- return ($type, $invocant->$conversion(@matches)) if $conversion;
- return (UNKNOWN_TYPE(), $ipv4);
-}
-
-=item ipv4_to_bin($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->ipv4_to_bin($value);
- my $result = $convertor->ipv4_to_bin($value);
- Purpose : Converts 'ipv4' adress in any representation to 'binary'
- Arguments : Same as ipv4_to_int() method
- Returns : BINARY $binary
- Throws : Dies, if not given any conversion argument
- See also : ipv4_to_int() method
-
-=cut
-
-sub ipv4_to_bin($)
-{
- my $invocant = shift;
- my ($ipv4, $type, @matches) = @_;
- confess "Expected conversion argument not given" unless defined $ipv4;
-
- ($type, @matches) = $invocant->detect_ipv4($ipv4) unless $type;
- confess "Invalid argument '$ipv4' given" unless $type;
- confess "Do not know how to convert $type to binary" unless exists IP_CONVERSIONS()->{$type}->{BIN};
-
- my $conversion = IP_CONVERSIONS()->{$type}->{BIN};
- return ($type, $invocant->$conversion(@matches)) if $conversion;
- return (UNKNOWN_TYPE(), $ipv4);
-}
-
-#-------------------------------------------------------------------------------
-
-=item ipv6_to_bigint($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->ipv6_to_bigint($value);
- my $result = $convertor->ipv6_to_bigint($value);
- Purpose : Converts 'ipv6' adress in any representation to 'integer'
- Arguments : INTEGER $ipv6 - Value to be converted [MANDATORY]
- STRING $type - Type of the argument (bypass autodetection) [OPTIONAL]
- Returns : INTEGER $ipv6int
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub ipv6_to_bigint($;$)
-{
- my $invocant = shift;
- my ($ipv6, $type, @matches) = @_;
- confess "Expected conversion argument not given" unless defined $ipv6;
-
- ($type, @matches) = $invocant->detect_ipv6($ipv6) unless $type;
- confess "Invalid argument '$ipv6' given" unless $type;
- confess "Do not know how to convert $type" unless exists IP_CONVERSIONS()->{$type}->{INT};
-
- my $conversion = IP_CONVERSIONS()->{$type}->{INT};
- return ($type, $invocant->$conversion($ipv6)) if $conversion;
- return (UNKNOWN_TYPE(), $ipv6);
-}
-
-=item ipv6_to_bin($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->ipv6_to_bin($value);
- my $result = $convertor->ipv6_to_bin($value);
- Purpose : Converts 'ipv6' adress in any representation to 'binary'
- Arguments : Same as ipv6_to_bigint() method
- Returns : BINARY $binary
- Throws : Dies, if not given any conversion argument
- See also : ipv6_to_bigint() method
-
-=cut
-
-sub ipv6_to_bin($;$)
-{
- my $invocant = shift;
- my ($ipv6, $type, @matches) = @_;
- confess "Expected conversion argument not given" unless defined $ipv6;
-
- ($type, @matches) = $invocant->detect_ipv6($ipv6) unless $type;
- confess "Invalid argument '$ipv6' given" unless $type;
- confess "Do not know how to convert $type" unless exists IP_CONVERSIONS()->{$type}->{BIN};
-
- my $conversion = IP_CONVERSIONS()->{$type}->{BIN};
- return ($type, $invocant->$conversion($ipv6)) if $conversion;
- return (UNKNOWN_TYPE(), $ipv6);
-}
-
-#-------------------------------------------------------------------------------
-
-=item ipv6cidr_to_bigints($;$) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->ipv6cidr_to_bigints($value, $length);
- my $result = $convertor->ipv6cidr_to_bigints($value, $length);
- Purpose : Converts 'ipv6cidr string' to 'bigintegers'
- Arguments : STRING $ipv6cidr - Value to be converted [MANDATORY]
- Returns : BIGINT $min
- BIGINT $max
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub ipv6cidr_to_bigints($)
-{
- my $invocant = shift;
- my ($ipv6cidr) = @_;
- confess "Expected conversion argument not given" unless defined $ipv6cidr;
-
- my $cidr = Net::CIDR::Lite->new;
- eval {
- $cidr->add($ipv6cidr);
- };
-
- if ($@) {
- confess "Invalid network address given as argument: $@";
- }
-
- my ($min_str, $max_str) = split (/-/, join ('', $cidr->list_range));
-
- # And now calculate the ranges
- my $min = $invocant->ipv6str_to_bigint($min_str);
- my $max = $invocant->ipv6str_to_bigint($max_str);
-
- return ($min, $max);
-}
-
-=item bigints_to_ipv6cidr($$) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->bigints_to_ipv6cidr($min, $max);
- my $result = $convertor->bigints_to_ipv6cidr($value, $length);
- Purpose :
- Arguments :
- Returns :
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub bigints_to_ipv6cidr($$)
-{
- my $invocant = shift;
- my ($min, $max) = @_;
- confess "Expected conversion argument not given" unless defined $min and defined $max;
-
- my $min_str = $invocant->bigint_to_ipv6str($min);
- my $max_str = $invocant->bigint_to_ipv6str($max);
-
- my $cidr = Net::CIDR::Lite->new;
- eval {
- $cidr->add_range("$min_str-$max_str");
- };
- if ($@) {
- confess "Invalid IPv6 integer CIDR ranges given as arguments: $@";
- }
-
- my @cidr_lists = $cidr->list;
-
- return $cidr_lists[0];
-}
-
-=item ipv6cidr_to_bins($;$) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->ipv6cidr_to_bins($value);
- my $result = $convertor->ipv6cidr_to_bins($value);
- Purpose : Converts 'ipv6cidr string' to 'binaries'
- Arguments : Same as ipv6cidr_to_bigints() method
- Returns : BINARY $min
- BINARY $max
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub ipv6cidr_to_bins($)
-{
- my $invocant = shift;
- my ($ipv6cidr) = @_;
- confess "Expected conversion argument not given" unless defined $ipv6cidr;
-
- my $cidr = Net::CIDR::Lite->new;
- eval {
- $cidr->add($ipv6cidr);
- };
-
- if ($@) {
- confess "Invalid network address given as argument: $@";
- }
-
- my ($min_str, $max_str) = split (/-/, join ('', $cidr->list_range));
-
- # And now calculate the ranges
- my $min = $invocant->ipv6str_to_bin($min_str);
- my $max = $invocant->ipv6str_to_bin($max_str);
-
- return ($min, $max);
-}
-
-=item bins_to_ipv6cidr($$) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->bins_to_ipv6cidr($min, $max);
- my $result = $convertor->bins_to_ipv6cidr($value, $length);
- Purpose :
- Arguments :
- Returns :
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub bins_to_ipv6cidr($$)
-{
- my $invocant = shift;
- my ($min, $max) = @_;
- confess "Expected conversion argument not given" unless defined $min and defined $max;
-
- my $min_str = $invocant->bin_to_ipv6str($min);
- my $max_str = $invocant->bin_to_ipv6str($max);
-
- my $cidr = Net::CIDR::Lite->new;
- eval {
- $cidr->add_range("$min_str-$max_str");
- };
- if ($@) {
- confess "Invalid IPv6 integer CIDR ranges given as arguments: $@";
- }
-
- my @cidr_lists = $cidr->list;
-
- return $cidr_lists[0];
-}
-
-#-------------------------------------------------------------------------------
-
-=item ip_to_int($;$) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->ip_to_int($value);
- my $result = $convertor->ip_to_int($value);
- Purpose : Converts 'ipv4' adress in any representation to 'integer'
- Arguments : INTEGER $ip - Value to be converted [MANDATORY]
- STRING $type - Type of the argument (bypass autodetection) [OPTIONAL]
- Returns : INTEGER|GIGINT $ipint
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub ip_to_int($)
-{
- my $invocant = shift;
- my ($ip, $type, @matches) = @_;
- confess "Expected conversion argument not given" unless defined $ip;
-
- ($type, @matches) = $invocant->detect_ip($ip) unless $type;
- confess "Invalid argument '$ip' given" unless $type;
- confess "Do not know how to convert $type" unless exists IP_CONVERSIONS()->{$type}->{INT};
-
- my $conversion = IP_CONVERSIONS()->{$type}->{INT};
- return ($type, $invocant->$conversion(@matches)) if $conversion;
- return (UNKNOWN_TYPE(), $ip);
-}
-
-=item ip_to_bin($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->ip_to_bin($value);
- my $result = $convertor->ip_to_bin($value);
- Purpose : Converts 'ip' adress in any representation to 'binary'
- Arguments : Same as ip_to_int() method
- Returns : BINARY $binary
- Throws : Dies, if not given any conversion argument
- See also : ip_to_int() method
-
-=cut
-
-sub ip_to_bin($)
-{
- my $invocant = shift;
- my ($ip, $type, @matches) = @_;
- confess "Expected conversion argument not given" unless defined $ip;
-
- ($type, @matches) = $invocant->detect_ip($ip) unless $type;
- confess "Invalid argument '$ip' given" unless $type;
- confess "Do not know how to convert $type" unless exists IP_CONVERSIONS()->{$type}->{BIN};
-
- my $conversion = IP_CONVERSIONS()->{$type}->{BIN};
- return ($type, $invocant->$conversion(@matches)) if $conversion;
- return (UNKNOWN_TYPE(), $ip);
-}
-
-#-------------------------------------------------------------------------------
-# IP address anonymizations
-#-------------------------------------------------------------------------------
-
-=item ipv4_anonymize($;$) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->ipv4_anonymize($value);
- my $result = $convertor->ipv4_anonymize($value);
- Purpose : Anonymizes IPv4 address
- Arguments : STRING ipv4 - Value to be converted [MANDATORY]
- INTEGER $depth - How much to anonymize [OPTIONAL,DEFAULT=1]
- Returns : BINARY $binary
- Throws : Dies, if not given any conversion argument
- See also : ip_to_int() method
-
-=cut
-
-sub ipv4_anonymize($;$)
-{
- my $invocant = shift;
- my ($ipv4, $depth) = @_;
- confess "Expected conversion argument not given" unless defined $ipv4;
-
- my @chunks = split(/\./, $ipv4);
- $depth = 1 unless defined $depth;
- $depth = int($depth);
- $depth = 1 if ($depth < 0 or $depth > 4);
-
- for (my $i = 0; $i < $depth; $i++) { pop(@chunks); }
- for (my $i = 0; $i < $depth; $i++) { push(@chunks, 0); }
-
- return join('.', @chunks);
-}
-
-#-------------------------------------------------------------------------------
-# MAC conversions
-#-------------------------------------------------------------------------------
-
-=item macstr_to_hexstr($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->macstr_to_hexstr($value);
- my $result = $convertor->macstr_to_hexstr($value);
- Purpose : Converts 'mac_string' to 'hexadecimal string'
- Arguments : STRING $macstr - Value to be converted [MANDATORY]
- Returns : STRING $hexstr
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub macstr_to_hexstr($)
-{
- my $invocant = shift;
- my ($macstr,) = @_;
- confess "Expected conversion argument not given" unless defined $macstr;
-
- $macstr =~ s/://g;
- return uc($macstr);
-}
-
-=item hexstr_to_macstr($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->hexstr_to_macstr($value);
- my $result = $convertor->hexstr_to_macstr($value);
- Purpose : Converts 'hexadecimal string' to 'mac_string'
- Arguments : STRING $hexstr - Value to be converted [MANDATORY]
- Returns : STRING $macstr
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub hexstr_to_macstr($)
-{
- my $invocant = shift;
- my ($machex,) = @_;
- confess "Expected conversion argument not given" unless defined $machex;
-
- return join(':', unpack('(A2)*', $machex));
-}
-
-#-------------------------------------------------------------------------------
-
-=item macstr_to_bin($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->macstr_to_bin($value);
- my $result = $convertor->macstr_to_bin($value);
- Purpose : Converts 'mac_string' to 'binary'
- Arguments : STRING $macstr - Value to be converted [MANDATORY]
- Returns : BINARY $macbin
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub macstr_to_bin($)
-{
- my $invocant = shift;
- my ($macstr,) = @_;
- confess "Expected conversion argument not given" unless defined $macstr;
-
- $macstr =~ s/://g;
- return $invocant->hexstr_to_bin($macstr);
-}
-
-=item bin_to_macstr($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->bin_to_macstr($value);
- my $result = $convertor->bin_to_macstr($value);
- Purpose : Converts 'binary' to 'mac_string'
- Arguments : BINARY $macbin - Value to be converted [MANDATORY]
- Returns : STRING $macstr
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub bin_to_macstr($)
-{
- my $invocant = shift;
- my ($macbin,) = @_;
- confess "Expected conversion argument not given" unless defined $macbin;
-
- return $invocant->hexstr_to_macstr($invocant->bin_to_hexstr($macbin));
-}
-
-#-------------------------------------------------------------------------------
-
-=item macstr_to_bigint($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->macstr_to_bigint($value);
- my $result = $convertor->macstr_to_bigint($value);
- Purpose : Converts 'macstr' to 'bigint'
- Arguments : STRING $macstr - Value to be converted [MANDATORY]
- Returns : BIGINT $bigint
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub macstr_to_bigint($)
-{
- my $invocant = shift;
- my ($macstr,) = @_;
- confess "Expected conversion argument not given" unless defined $macstr;
-
- $macstr =~ s/://g;
-
- return $invocant->hexstr_to_bigint($macstr);
-}
-
-=item bigint_to_macstr($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->bigint_to_macstr($value);
- my $result = $convertor->bigint_to_macstr($value);
- Purpose : Converts 'bigint' to 'macstr'
- Arguments : BIGINT $bigint - Value to be converted [MANDATORY]
- Returns : STRING $macstr
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub bigint_to_macstr($)
-{
- my $invocant = shift;
- my ($bigint,) = @_;
- confess "Expected conversion argument not given" unless defined $bigint;
-
- use bigint;
- return $invocant->hexstr_to_macstr($invocant->bigint_to_hexstr($bigint,12));
-}
-
-#-------------------------------------------------------------------------------
-# Time and date conversions
-#-------------------------------------------------------------------------------
-
-=item ntps_to_nbi($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->ntps_to_nbi($value);
- my $result = $convertor->ntps_to_nbi($value);
- Purpose : Converts 'ntp_stamp' to 'bigint'
- Arguments : STRING $ntpstamp - Value to be converted [MANDATORY]
- Returns : BIGINT $bigint
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub ntps_to_nbi($)
-{
- my $invocant = shift;
- my ($ntpstamp,) = @_;
- confess "Expected conversion argument not given" unless defined $ntpstamp;
-
- use bigint;
-
- my $part = qr/[0-9a-fA-F]+/;
- my ($high, $low) = $ntpstamp =~ /^0x($part)\.0x($part)$/;
-
- my $bigint = hex("0x$low") + (hex("0x$high") << 32);
- $bigint =~ /^[0-9]+$/;
-
- return $bigint;
-}
-
-=item nbi_to_ntps($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->nbi_to_ntps($value);
- my $result = $convertor->nbi_to_ntps($value);
- Purpose : Converts 'bigint' to 'ntp_stamp'
- Arguments : BIGINT $bigint - Value to be converted [MANDATORY]
- Returns : STRING $ntps
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub nbi_to_ntps($)
-{
- my $invocant = shift;
- my ($bigint,) = @_;
- confess "Expected conversion argument not given" unless defined $bigint;
-
- use bigint;
-
- my $s = ($bigint >> 32);
- my $m = $bigint - ($s <<32);
-
- return lc(sprintf("0x%x.0x%x", $s, $m));
-}
-
-#-------------------------------------------------------------------------------
-
-=item unixs_to_ubi($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->unixs_to_ubi($value);
- my $result = $convertor->unixs_to_ubi($value);
- Purpose : Converts 'unix_stamp' to 'bigint'
- Arguments : INTEGER|FLOAT $unixstamp - Value to be converted [MANDATORY]
- Returns : BIGINT $bigint
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub unixs_to_ubi($)
-{
- my $invocant = shift;
- my ($unixstamp,) = @_;
- confess "Expected conversion argument not given" unless defined $unixstamp;
-
- use bigint;
-
- my $result = $invocant->unixs_to_ints($unixstamp);
- my ($high, $low) = @$result;
-
- my $bigint = int($low) + (int($high) << 32);
- $bigint =~ /^[0-9]+$/;
-
- return $bigint;
-}
-
-=item ubi_to_unixs($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->ubi_to_unixs($value);
- my $result = $convertor->ubi_to_unixs($value);
- Purpose : Converts 'bigint' to 'unix_stamp'
- Arguments : BIGINT $bigint - Value to be converted [MANDATORY]
- Returns : INTEGER|FLOAT $unixstamp
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub ubi_to_unixs($)
-{
- my $invocant = shift;
- my ($bigint,) = @_;
- confess "Expected conversion argument not given" unless defined $bigint;
-
- my $s = ($bigint >> 32);
- my $m = $bigint - ($s << 32);
-
- return $invocant->ints_to_unixs([$s,$m]);
-}
-
-#-------------------------------------------------------------------------------
-
-=item unixs_to_nbi($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->unixs_to_nbi($value);
- my $result = $convertor->unixs_to_nbi($value);
- Purpose : Converts 'unix_stamp' to 'ntp bigint'
- Arguments : INTEGER|FLOAT $unixstamp - Value to be converted [MANDATORY]
- Returns : BIGINT $bigint
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub unixs_to_nbi($)
-{
- my $invocant = shift;
- my ($unixstamp,) = @_;
- confess "Expected conversion argument not given" unless defined $unixstamp;
-
- $unixstamp = $invocant->unixs_to_ubi($unixstamp);
- $unixstamp = $invocant->unixe_to_ntpe_b($unixstamp);
-
- return $unixstamp;
-}
-
-=item nbi_to_unixs($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->nbi_to_unixs($value);
- my $result = $convertor->nbi_to_unixs($value);
- Purpose : Converts 'bigint' to 'unix_stamp'
- Arguments : BIGINT $bigint - Value to be converted [MANDATORY]
- Returns : INTEGER|FLOAT $unixstamp
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub nbi_to_unixs($)
-{
- my $invocant = shift;
- my ($bigint,) = @_;
- confess "Expected conversion argument not given" unless defined $bigint;
-
- $bigint = $invocant->ntpe_to_unixe_b($bigint);
- $bigint = $invocant->ubi_to_unixs($bigint);
-
- return $bigint;
-}
-
-#-------------------------------------------------------------------------------
-
-=item ntps_to_ints($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->ntps_to_ints($value);
- my $result = $convertor->ntps_to_ints($value);
- Purpose : Converts 'ntp_stamp' to 'integers'
- Arguments : STRING $ntpstamp - Value to be converted [MANDATORY]
- Returns : ARRAY REFERENCE CONTAINING
- INTEGER $seconds
- INTEGER $fractions
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub ntps_to_ints($)
-{
- my $invocant = shift;
- my ($ntpstamp,) = @_;
- confess "Expected conversion argument not given" unless defined $ntpstamp;
-
- my $part = qr/[0-9a-fA-F]{1,8}/;
- my ($high, $low) = $ntpstamp =~ /^0x($part)\.0x($part)$/;
-
- return [hex("0x$high"), hex("0x$low")];
-}
-
-=item ints_to_ntps($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->ints_to_ntps($value);
- my $result = $convertor->ints_to_ntps($value);
- Purpose : Converts 'integers' to 'ntp_stamp'
- Arguments : ARRAY REFERENCE CONTAINING [MANDATORY]
- INTEGER $seconds
- INTEGER $fractions
- Returns : STRING $ntpstamp
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub ints_to_ntps($)
-{
- my $invocant = shift;
- my ($ints) = @_;
- confess "Expected conversion argument not given" unless defined $ints;
- confess "Conversion argument must be given as ARRAY reference" unless ref $ints eq 'ARRAY';
-
- $ints->[1] = 0 unless $ints->[1];
-
- return sprintf("0x%x.0x%x", $ints->[0], $ints->[1]);
-}
-
-#-------------------------------------------------------------------------------
-
-=item unixs_to_ints($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->unixs_to_ints($value);
- my $result = $convertor->unixs_to_ints($value);
- Purpose : Converts 'unix_stamp' to 'integers'
- Arguments : INTEGER|FLOAT $unixstamp - Value to be converted [MANDATORY]
- Returns : ARRAY REFERENCE CONTAINING
- INTEGER $seconds
- INTEGER $fractions
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub unixs_to_ints($)
-{
- my $invocant = shift;
- my ($unixstamp,) = @_;
- confess "Expected conversion argument not given" unless defined $unixstamp;
-
- my $part = qr/[0-9]+/;
- my ($high, $low) = $unixstamp =~ /^($part)(?:\.($part))?$/;
- $low = 0 unless $low;
-
- return [$high, $low];
-}
-
-=item ints_to_unixs($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->ints_to_unixs($value);
- my $result = $convertor->ints_to_unixs($value);
- Purpose : Converts 'integers' to 'unix_stamp'
- Arguments : ARRAY REFERENCE CONTAINING [MANDATORY]
- INTEGER $seconds
- INTEGER $fractions
- Returns : INTEGER|FLOAT $unixstamp
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub ints_to_unixs($)
-{
- my $invocant = shift;
- my ($ints) = @_;
- confess "Expected conversion argument not given" unless defined $ints;
- confess "Conversion argument must be given as ARRAY reference" unless ref $ints eq 'ARRAY';
-
- $ints->[1] = 0 unless $ints->[1];
- my ($s, $m) = @$ints;
-
- return "$s.0" + "0.$m";
-}
-
-#-------------------------------------------------------------------------------
-
-=item ntpe_to_unixe($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->ntpe_to_unixe($value);
- my $result = $convertor->ntpe_to_unixe($value);
- Purpose : Converts 'ntp epoch' to 'unix epoch' (1900 -> 1970)
- Arguments : INTEGER|FLOAT $ntpepoch - Value to be converted [MANDATORY]
- Returns : INTEGER|FLOAT $unixepoch
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub ntpe_to_unixe($)
-{
- my $invocant = shift;
- my ($ntpepoch,) = @_;
- confess "Expected conversion argument not given" unless defined $ntpepoch;
-
- return $ntpepoch - NTP_TO_EPOCH_DELTA;
-}
-
-=item unixe_to_ntpe($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->($value);
- my $result = $convertor->($value);
- Purpose : Converts 'unix epoch' to 'ntp epoch' (1970 -> 1900)
- Arguments : INTEGER|FLOAT $unixepoch - Value to be converted [MANDATORY]
- Returns : INTEGER|FLOAT $ntpepoc
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub unixe_to_ntpe($)
-{
- my $invocant = shift;
- my ($unixepoch,) = @_;
- confess "Expected conversion argument not given" unless defined $unixepoch;
-
- return $unixepoch + NTP_TO_EPOCH_DELTA;
-}
-
-#-------------------------------------------------------------------------------
-
-=item ntpe_to_unixe_b($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->ntpe_to_unixe_b($value);
- my $result = $convertor->ntpe_to_unixe_b($value);
- Purpose : Converts 'ntp epoch' to 'unix epoch' in bigint (1900 -> 1970)
- Arguments : BIGINT $ntpepoch - Value to be converted [MANDATORY]
- Returns : BIGINT $unixepoch
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub ntpe_to_unixe_b($)
-{
- my $invocant = shift;
- use bigint;
- my ($ntpepoch,) = @_;
- confess "Expected conversion argument not given" unless defined $ntpepoch;
-
- return $ntpepoch - (NTP_TO_EPOCH_DELTA() << 32);
-}
-
-=item unixe_to_ntpe_b($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->unixe_to_ntpe_b($value);
- my $result = $convertor->unixe_to_ntpe_b($value);
- Purpose : Converts 'unix epoch' to 'ntp epoch' in bigint (1970 -> 1900)
- Arguments : BIGINT $unixepoch - Value to be converted [MANDATORY]
- Returns : BIGINT $ntpepoch
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub unixe_to_ntpe_b($)
-{
- my $invocant = shift;
- use bigint;
- my ($unixepoch,) = @_;
- confess "Expected conversion argument not given" unless defined $unixepoch;
-
- return $unixepoch + (NTP_TO_EPOCH_DELTA() << 32);
-}
-
-#-------------------------------------------------------------------------------
-
-=item local_to_utc($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->local_to_utc($value);
- my $result = $convertor->local_to_utc($value);
- Purpose : Converts 'local' unix timestamp to 'utc/gmt' unix timestamp
- Arguments : INTEGER|FLOAT $unixstamp - Value to be converted [MANDATORY]
- Returns : INTEGER|FLOAT $unixstamp
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub local_to_utc($)
-{
- my $invocant = shift;
- my ($unixstamp,) = @_;
- confess "Expected conversion argument not given" unless defined $unixstamp;
-
- return $unixstamp - $TIME_ZONE_OFFSET;
-}
-
-=item utc_to_local($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->utc_to_local($value);
- my $result = $convertor->utc_to_local($value);
- Purpose : Converts 'utc/gmt' unix timestamp to 'local' unix timestamp
- Arguments : INTEGER|FLOAT $unixstamp - Value to be converted [MANDATORY]
- Returns : INTEGER|FLOAT $unixstamp
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub utc_to_local($)
-{
- my $invocant = shift;
- my ($unixstamp,) = @_;
- confess "Expected conversion argument not given" unless defined $unixstamp;
-
- return $unixstamp + $TIME_ZONE_OFFSET;
-}
-
-#-------------------------------------------------------------------------------
-
-=item datestr_to_unixs($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->datestr_to_unixs($value);
- my $result = $convertor->datestr_to_unixs($value);
- Purpose : Converts 'date string' to 'integer' timestamp
- Arguments : STRING $datestr - Value to be converted [MANDATORY]
- Returns : INTEGER $timestamp
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub datestr_to_unixs($)
-{
- my $invocant = shift;
- my ($datestr,) = @_;
- confess "Expected conversion argument not given" unless defined $datestr;
-
- return str2time($datestr);
-}
-
-=item unixs_to_datestr($;$) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->unixs_to_datestr($value, $print_in_local);
- my $result = $convertor->unixs_to_datestr($value, $print_in_local);
- Purpose : Converts 'unix_stamp' to 'date string' formated in ISO 8601
- Arguments : INTEGER|FLOAT $unixstamp - Value to be converted [MANDATORY]
- BOOL $print_in_local - display the timestamp in local time, not UTC/GMT
- Returns : STRING $datestr
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub unixs_to_datestr($;$)
-{
- my $invocant = shift;
- my ($unixstamp, $print_in_local) = @_;
- confess "Expected conversion argument not given" unless defined $unixstamp;
-
- # Assume all timestamps to be in UTC/GMT
- my $dt = DateTime->from_epoch(epoch => $unixstamp, time_zone => 'UTC');
-
- # Print time in local time zone?
- unless ($print_in_local)
- {
- $dt->set_time_zone('UTC');
- return $dt->strftime('%F %TZ');
- }
- else {
- $dt->set_time_zone($TIME_ZONE);
- #return $dt->strftime('%F %T%z');
- return $dt->strftime('%F %T');
- }
-}
-
-=item unixs_to_ldatestr($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->unixs_to_ldatestr($value);
- my $result = $convertor->unixs_to_ldatestr($value);
- Purpose : Converts 'unix_stamp' to 'date string' formated in local time, not UTC/GMT
- Arguments : INTEGER|FLOAT $unixstamp - Value to be converted [MANDATORY]
- Returns : STRING $datestr
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub unixs_to_ldatestr($)
-{
- my $invocant = shift;
- my ($unixstamp) = @_;
- confess "Expected conversion argument not given" unless defined $unixstamp;
-
- return $invocant->unixs_to_datestr($unixstamp, 1);
-}
-
-#-------------------------------------------------------------------------------
-
-=item unixs_to_datetime($;$) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->unixs_to_datetime($value, $print_in_local);
- my $result = $convertor->unixs_to_datestr($value, $print_in_local);
- Purpose : Converts 'unix_stamp' to 'DateTime'
- Arguments : INTEGER|FLOAT $unixstamp - Value to be converted [MANDATORY]
- BOOL $print_in_local - display the timestamp in local time, not UTC/GMT
- Returns : DateTime
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub unixs_to_datetime($;$)
-{
- my $invocant = shift;
- my ($unixstamp, $print_in_local) = @_;
- confess "Expected conversion argument not given" unless defined $unixstamp;
-
- # Assume all timestamps to be in UTC/GMT
- my $dt = DateTime->from_epoch(epoch => $unixstamp, time_zone => 'UTC');
-
- # Print time in local time zone?
- unless ($print_in_local)
- {
- $dt->set_time_zone('UTC');
- return $dt;
- }
- else
- {
- $dt->set_time_zone($TIME_ZONE);
- return $dt;
- }
-}
-
-#-------------------------------------------------------------------------------
-
-=item ntps_to_datestr($;$) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->ntps_to_datestr($value, $print_in_local);
- my $result = $convertor->ntps_to_datestr($value, $print_in_local);
- Purpose : Converts 'ntp_stamp' to 'date string' formated in ISO 8601
- Arguments : STRING $ntpstamp - Value to be converted [MANDATORY]
- BOOL $print_in_local - display the timestamp in local time, not UTC/GMT
- Returns : STRING $datestr
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub ntps_to_datestr($;$)
-{
- my $invocant = shift;
- my ($ntpstamp, $print_in_local) = @_;
- confess "Expected conversion argument not given" unless defined $ntpstamp;
-
- # Convert the ntpstamp to bigint representation
- $ntpstamp = $invocant->ntps_to_nbi($ntpstamp);
- # Change epoch from 1900 to 1970
- $ntpstamp = $invocant->ntpe_to_unixe_b($ntpstamp);
- # And format the result
- return $invocant->ubi_to_datestr($ntpstamp, $print_in_local);
-}
-
-=item ntps_to_ldatestr($;$) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->ntps_to_ldatestr($value);
- my $result = $convertor->ntps_to_ldatestr($value);
- Purpose : Converts 'ntp_stamp' to 'date string' formated in ISO 8601
- Arguments : STRING $ntpstamp - Value to be converted [MANDATORY]
- Returns : STRING $datestr
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub ntps_to_ldatestr($;$)
-{
- my $invocant = shift;
- my ($ntpstamp, ) = @_;
- confess "Expected conversion argument not given" unless defined $ntpstamp;
-
- # Convert the ntpstamp to bigint representation
- $ntpstamp = $invocant->ntps_to_nbi($ntpstamp);
- # Change epoch from 1900 to 1970
- $ntpstamp = $invocant->ntpe_to_unixe_b($ntpstamp);
- # And format the result
- return $invocant->ubi_to_datestr($ntpstamp, 1);
-}
-
-#-------------------------------------------------------------------------------
-
-=item datestr_to_ubi($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->datestr_to_ubi($value);
- my $result = $convertor->datestr_to_ubi($value);
- Purpose : Converts 'date string' to 'unix bigint' timestamp
- Arguments : STRING $datestr - Value to be converted [MANDATORY]
- Returns : BIGINT $bigint
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub datestr_to_ubi($)
-{
- my $invocant = shift;
- my ($datestr,) = @_;
- confess "Expected conversion argument not given" unless defined $datestr;
-
- # Parse the time string and get the epoch timestamp
- my $epoch = str2time($datestr);
- # Convert epoch to bigint
- return $invocant->unixs_to_ubi($epoch);
-}
-
-=item ubi_to_datestr($;$) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->ubi_to_datestr($value, $print_in_local);
- my $result = $convertor->ubi_to_datestr($value, $print_in_local);
- Purpose : Converts 'unix bigint' timestamp to 'date string'
- Arguments : BIGINT $bigint - Value to be converted [MANDATORY]
- Returns : STRING $datestr
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub ubi_to_datestr($;$)
-{
- my $invocant = shift;
- my ($unixstamp, $print_in_local) = @_;
- confess "Expected conversion argument not given" unless defined $unixstamp;
-
- # Separate seconds and fractions from bigint timestamp
- my $s = ($unixstamp >> 32);
- my $m = $unixstamp - ($s << 32);
-
- return $invocant->unixs_to_datestr("$s.$m", $print_in_local);
-}
-
-#-------------------------------------------------------------------------------
-
-=item datestr_to_nbi($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->datestr_to_nbi($value);
- my $result = $convertor->datestr_to_nbi($value);
- Purpose : Converts 'date string' to 'ntp bigint' timestamp
- Arguments : STRING $datestr - Value to be converted [MANDATORY]
- Returns : BIGINT $bigint
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub datestr_to_nbi($)
-{
- my $invocant = shift;
- my ($datestr,) = @_;
- confess "Expected conversion argument not given" unless defined $datestr;
-
- # Parse the time string and get the epoch timestamp
- my $epoch = str2time($datestr);
- # Convert epoch from unix to NTP (1970 -> 1900)
- $epoch = $invocant->unixe_to_ntpe($epoch);
- # Convert epoch to bigint
- return $invocant->unixs_to_ubi($epoch);
-}
-
-=item nbi_to_datestr($;$) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->nbi_to_datestr($value, $print_in_local);
- my $result = $convertor->nbi_to_datestr($value, $print_in_local);
- Purpose : Converts 'ntp bigint' timestamp to 'date string'
- Arguments : BIGINT $bigint - Value to be converted [MANDATORY]
- Returns : STRING $datestr
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub nbi_to_datestr($;$)
-{
- my $invocant = shift;
- my ($bigint, $print_in_local) = @_;
- confess "Expected conversion argument not given" unless defined $bigint;
-
- # Convert epoch from NTP to unix (1900 -> 1970)
- $bigint = $invocant->ntpe_to_unixe_b($bigint);
- return $invocant->ubi_to_datestr($bigint, $print_in_local);
-}
-
-#-------------------------------------------------------------------------------
-
-=item periodstr_to_nbis($;$) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->periodstr_to_nbis($value);
- my $result = $convertor->periodstr_to_nbis($value);
- Purpose : Converts 'period string' to 'ntp bigints' timestamp
- Arguments : STRING $datestr - Value to be converted [MANDATORY]
- STRING $second - Optional second argument [OPTIONAL]
- Returns : BIGINT $bigint
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub periodstr_to_nbis($;$)
-{
- my $invocant = shift;
- my ($datestr,$second) = @_;
- confess "Expected conversion argument not given" unless defined $datestr;
-
- unless ($second)
- {
- my $ptrn = $TS_QRS{TS_PERIOD()};
- my @matches = ($datestr =~ /$ptrn/);
- ($datestr,$second) = @matches if @matches;
- }
- confess "Invalid period start time given as argument" unless defined $datestr;
- confess "Invalid period end time given as argument" unless defined $second;
-
- # Convert the IP address to integer
- my $min = $invocant->datestr_to_nbi($datestr);
- my $max = $invocant->datestr_to_nbi($second);
-
- return ($min, $max);
-}
-
-=item nbis_to_periodstr($$;$) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->nbis_to_periodstr($min, $max, $print_in_local);
- my $result = $convertor->nbis_to_periodstr($min, $max, $print_in_local);
- Purpose : Converts 'ntp bigint' timestamp to 'date string'
- Arguments : BIGINT $min - Value to be converted [MANDATORY]
- BIGINT $max - Value to be converted [MANDATORY]
- Returns : STRING $datestr
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub nbis_to_periodstr($$;$)
-{
- my $invocant = shift;
- my ($min, $max, $print_in_local) = @_;
- confess "Expected conversion arguments not given" unless defined $min and defined $max;
-
- # Convert epoch from NTP to unix (1900 -> 1970)
- $min = $invocant->ntpe_to_unixe_b($min);
- $max = $invocant->ntpe_to_unixe_b($max);
-
- return $invocant->ubi_to_datestr($min, $print_in_local) . '..' . $invocant->ubi_to_datestr($max, $print_in_local);
-}
-
-#-------------------------------------------------------------------------------
-
-=item detect_datetime($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->detect_datetime($value);
- my $result = $convertor->detect_datetime($value);
- Purpose : Detect type of date/timestamp
- Arguments : STRING $timestamp - Value to be converted [MANDATORY]
- Returns : STRING $type
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub detect_datetime($)
-{
- my $invocant = shift;
- my ($timestamp,) = @_;
- confess "Expected conversion argument not given" unless defined $timestamp;
-
- my ($type, $ptrn, @matches);
- foreach my $t (@$QR_TS)
- {
- ($type, $ptrn) = @$t;
- @matches = ($timestamp =~ /$ptrn/);
- return ($type, @matches) if @matches;
- }
- return undef;
-}
-
-#-------------------------------------------------------------------------------
-
-=item datetime_to_nbi($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->datetime_to_nbii($value);
- my $result = $convertor->datetime_to_nbi($value);
- Purpose : Converts any 'datetime' to 'ntp bigint' timestamp
- Arguments : STRING $datestr - Value to be converted [MANDATORY]
- Returns : BIGINT $bigint
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub datetime_to_nbi($)
-{
- my $invocant = shift;
- my ($timestamp, $type, @matches) = @_;
- confess "Expected conversion argument not given" unless defined $timestamp;
-
- ($type, @matches) = $invocant->detect_datetime($timestamp) unless $type;
- confess "Invalid argument '$timestamp' given" unless $type;
- confess "Do not know how to convert $type" unless exists TS_CONVERSIONS()->{$type};
-
- my $conversion = TS_CONVERSIONS()->{$type};
-
- return ($type, $invocant->$conversion(@matches)) if $conversion;
- return (UNKNOWN_TYPE(), $timestamp);
-}
-
-#-------------------------------------------------------------------------------
-
-=item duration_to_string($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->duration_to_string($value);
- my $result = $convertor->duration_to_string($value);
- Purpose : Converts numeric 'duration' to 'string'
- Arguments : INTEGER $duration - Value to be converted [MANDATORY]
- Returns : STRING $duration_str
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub duration_to_string($)
-{
- my $invocant = shift;
- my ($duration,) = @_;
- confess "Expected conversion argument not given" unless defined $duration;
-
- my @chunks = (); my $tmp;
- $tmp = int($duration / 86400);
- if ($tmp) { $duration %= 86400; push(@chunks, sprintf('%dd',$tmp)); }
- $tmp = int($duration / 3600);
- if ($tmp) { $duration %= 3600; push(@chunks, sprintf('%dh',$tmp)); }
- $tmp = int($duration / 60);
- if ($tmp) { $duration %= 60; push(@chunks, sprintf('%dm',$tmp)); }
-
- if (scalar @chunks) { push(@chunks, sprintf('%ds', $duration)) if $duration; }
- else { push(@chunks, sprintf('%.4fs', $duration)); }
- return join(' ', @chunks);
-}
-
-=item string_to_duration($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->string_to_duration($value);
- my $result = $convertor->string_to_duration($value);
- Purpose : Converts string 'duration' to numeric representation
- Arguments : INTEGER $duration - Value to be converted [MANDATORY]
- Returns : STRING $duration_str
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub string_to_duration($)
-{
- my $invocant = shift;
- my ($duration,) = @_;
- confess "Expected conversion argument not given" unless defined $duration;
-
- my $numduration = 0;
- $duration =~ s/\s+//g;
- if ($duration =~ /([\d]+)w/) { $numduration += ( 604800 * $1); $duration =~ s/([\d]+w)//; }
- if ($duration =~ /([\d]+)d/) { $numduration += ( 86400 * $1); $duration =~ s/([\d]+d)//; }
- if ($duration =~ /([\d]+)h/) { $numduration += ( 3600 * $1); $duration =~ s/([\d]+h)//; }
- if ($duration =~ /([\d]+)m/) { $numduration += ( 60 * $1); $duration =~ s/([\d]+m)//; }
-
- $duration =~ s/s//g;
- $numduration += $duration;
-
- return $numduration;
-}
-
-#-------------------------------------------------------------------------------
-
-=item list_to_array($) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->list_to_array($value);
- my $result = $convertor->list_to_array($value);
- Purpose : Converts 'list' to 'array'
- Arguments : STRING $list - Value to be converted [MANDATORY]
- Returns : ARRAY REFERENCE $array
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub list_to_array($)
-{
- my $invocant = shift;
- my ($list,) = @_;
- confess "Expected conversion argument not given" unless defined $list;
-
- my @items = split(/[,; ]+/, $list);
- return \@items;
-}
-
-=item array_to_list($;$) [PUBLIC,HYBRID]
-
- Usage : my $result = Value::Convertor->array_to_list($value);
- my $result = $convertor->array_to_list($value);
- Purpose : Converts 'array' to 'list'
- Arguments : ARRAY REFERENCE $array - Value to be converted [MANDATORY]
- STRING $separator - string separator [OPTIONAL, DEFAULT = ',']
- Returns : STRING $list
- Throws : Dies, if not given any conversion argument
-
-=cut
-
-sub array_to_list($;$)
-{
- my $invocant = shift;
- my ($array, $separator) = @_;
- confess "Expected conversion argument not given" unless defined $array;
-
- $separator = ',' unless $separator;
-
- return join($separator, @$array);
-}
-
-#-------------------------------------------------------------------------------
-# Private interface
-#-------------------------------------------------------------------------------
-
-# _init [PROTECTED]
-#
-# Usage : return $self->_init(@_);
-# Purpose : Initialize the new Value::Convertor instance
-# Arguments : None
-# Returns : Value::Convertor reference
-# Throws : Dies, if invoked on class
-# Comments : This method must never be called directly, it is supposed to be overloaded by subclasses.
-
-sub _init
-{
- my $self = shift;
- confess "Instance method not invoked on object instance" unless blessed($self);
- return $self;
-}
-
-# _zero_pad($$$) [PROTECTED]
-#
-# Usage : my $str = $invocant->_zero_pad($str, $lenght);
-# Purpose : Pad string from left or right with zeros to specified length
-# Arguments : STRING $str - string to be padded
-# INTEGER $len - length of resulting string
-# BOOL $right - 0 = pad from left, 1 = pad from right
-# Returns : STRING $str
-# Throws : Nothing
-
-sub _zero_pad($$$)
-{
- my $invocant = shift;
- my ($str, $len, $right) = @_;
-
- return $str unless $len and int($len);
-
- my $i;
- my $strlen = length($str);
- for ($i = 0; $i < $len - $strlen; $i++)
- {
- unless ($right) { $str = "0" . $str; }
- else { $str = $str . "0"; }
- }
- return $str;
-}
-
-# _zero_pad_n($$$) [PROTECTED]
-#
-# Usage : my $str = $invocant->_zero_pad_n($str, $mod);
-# Purpose : Pad string from left or right with zeros to length with specified
-# modulus (for example binary to octets, or hexadecimal to pairs)
-# Arguments : STRING $str - string to be padded
-# INTEGER $mod - modulus of the length of resulting string
-# BOOL $right - 0 = pad from left, 1 = pad from right
-# Returns : STRING $str
-# Throws : Nothing
-
-sub _zero_pad_n($$$)
-{
- my $invocant = shift;
- my ($str, $mod, $right) = @_;
-
- return $str unless $mod and int($mod);
-
- my $i;
- my $strlen = length($str);
- my $short = $strlen % $mod;
-
- return $str unless $short;
-
- for ($i = 0; $i < $mod - $short; $i++)
- {
- unless ($right) { $str = "0" . $str; }
- else { $str = $str . "0"; }
- }
- return $str;
-}
-
-=pod
-
-=back
-
-=cut
-
-1;
diff --git a/lib_perl/lib/Value/Duration.pm b/lib_perl/lib/Value/Duration.pm
deleted file mode 100644
index a4e5862..0000000
--- a/lib_perl/lib/Value/Duration.pm
+++ /dev/null
@@ -1,140 +0,0 @@
-package Value::Duration;
-use strict;
-use warnings;
-
-#*******************************************************************************
-# DOCUMENTATION SECTION
-#*******************************************************************************
-
-=head1 NAME
-
-Value::Duration - Short module description
-
-=head1 SYNOPSIS
-
- use Value::Duration;
-
-=head1 DESCRIPTION
-
-Extensive module description
-
-=head1 AUTHOR
-
-Jan Mach
-Cesnet, z.s.p.o
-jan.mach@cesnet.cz
-http://www.cesnet.cz
-
-=head1 COPYRIGHT
-
-This program is free software; you can redistribute
-it and/or modify it under the same terms as Perl itself.
-
-The full text of the license can be found in the
-LICENSE file included with this module.
-
-=head1 SEE ALSO
-
-perl(1), Value::Single(3).
-
-=head1 FUNCTION REFERENCE
-
-=over 4
-
-=cut
-
-#*******************************************************************************
-# LIBRARY LOADING SECTION
-#*******************************************************************************
-
-#-- Perl core modules ---------------------------------------------------------#
-use Carp;
-use Scalar::Util 'blessed';
-
-#use Data::Dumper; #-+-> DEVEL ONLY <-+-#
-
-#-- Perl CPAN modules ---------------------------------------------------------#
-
-#-- Custom application modules ------------------------------------------------#
-use Value::Single;
-use Value::Convertor;
-
-#*******************************************************************************
-# CONSTANTS AND GLOBAL VARIABLES DEFINITION SECTION
-#*******************************************************************************
-
-#-- Constants -----------------------------------------------------------------#
-
-#-- Static public class variables (our) ---------------------------------------#
-
-#-- Static protected class variables (my) -------------------------------------#
-
-#*******************************************************************************
-# INITIALIZATION AND CLEANUP SECTION
-#*******************************************************************************
-
-#-- Module initializations ----------------------------------------------------#
-BEGIN {
- use vars qw($VERSION $DEVEL @ISA);
- $VERSION = '0.1';
- $DEVEL = 0;
- @ISA = ('Value::Single');
-}
-
-
-#-- Module clean-up code (global destructor) ----------------------------------#
-END {
-
-}
-
-#*******************************************************************************
-# IMPLEMENTATION SECTION
-#*******************************************************************************
-
-
-=item to_string(;$) [PUBLIC]
-
- Usage : Will be used automatically to convert object to string in string context
- Purpose : Convert the object to string
- Arguments : None
- Returns : STRING $json
- Throws : Croaks, if not invoked on object
- Comments : Must be implemented apropriatelly in subclasses
-
-=cut
-
-sub to_string(;$)
-{
- my $self = shift;
- croak ((caller(0))[3] . ": instance method invoked on class") unless blessed($self);
-
- return Value::Convertor->duration_to_string($self->_value());
-}
-
-#-------------------------------------------------------------------------------
-# Private interface
-#-------------------------------------------------------------------------------
-
-# _to_inner($) [PROTECTED]
-#
-# Usage : my $value = $self->_to_inner($value);
-# Purpose : Convert the given value to appropriate inner representation
-# Arguments : MIXED $value - value to be converted [MANDATORY]
-# Returns : MIXED $inner
-# Throws : Croaks, if invoked on class
-# Comments : This method must never be called directly, it is supposed to be overloaded by subclasses.
-
-sub _to_inner($)
-{
- my $invocant = shift;
-
- return Value::Convertor->string_to_duration(@_);
-}
-
-=pod
-
-=back
-
-=cut
-
-1;
diff --git a/lib_perl/lib/Value/IP.pm b/lib_perl/lib/Value/IP.pm
deleted file mode 100644
index 5da3cba..0000000
--- a/lib_perl/lib/Value/IP.pm
+++ /dev/null
@@ -1,159 +0,0 @@
-package Value::IP;
-use strict;
-use warnings;
-
-#*******************************************************************************
-# DOCUMENTATION SECTION
-#*******************************************************************************
-
-=head1 NAME
-
-Value::IPv4 - Short module description
-
-=head1 SYNOPSIS
-
- use Value::IPv4;
-
-=head1 DESCRIPTION
-
-Extensive module description
-
-=head1 AUTHOR
-
-Jan Mach
-Cesnet, z.s.p.o
-jan.mach@cesnet.cz
-http://www.cesnet.cz
-
-=head1 COPYRIGHT
-
-This program is free software; you can redistribute
-it and/or modify it under the same terms as Perl itself.
-
-The full text of the license can be found in the
-LICENSE file included with this module.
-
-=head1 SEE ALSO
-
-perl(1).
-
-=head1 FUNCTION REFERENCE
-
-=over 4
-
-=cut
-
-#*******************************************************************************
-# LIBRARY LOADING SECTION
-#*******************************************************************************
-
-#-- Perl core modules ---------------------------------------------------------#
-use Carp;
-use Scalar::Util 'blessed';
-
-#use Data::Dumper; #-+-> DEVEL ONLY <-+-#
-#use Smart::Comments; #-+-> DEVEL ONLY <-+-#
-
-#-- Perl CPAN modules ---------------------------------------------------------#
-
-#-- Custom application modules ------------------------------------------------#
-use Value::Convertor;
-
-use Value::IPv4ADDR;
-use Value::IPv4CIDR;
-use Value::IPv4NETM;
-use Value::IPv4RNG;
-
-use Value::IPv6ADDR;
-
-#*******************************************************************************
-# CONSTANTS AND GLOBAL VARIABLES DEFINITION SECTION
-#*******************************************************************************
-
-#-- Constants -----------------------------------------------------------------#
-
-#-- Static public class variables (our) ---------------------------------------#
-
-#-- Static protected class variables (my) -------------------------------------#
-
-#*******************************************************************************
-# INITIALIZATION AND CLEANUP SECTION
-#*******************************************************************************
-
-#-- Module initializations ----------------------------------------------------#
-BEGIN {
- use vars qw($VERSION $DEVEL $MAPPING);
- $VERSION = '0.1';
- $DEVEL = 0;
- $MAPPING = {
- Value::Convertor::IPV4ADDR_STRING() => 'Value::IPv4ADDR',
- Value::Convertor::IPV4ADDR_HEXSTR() => 'Value::IPv4ADDR',
- Value::Convertor::IPV4ADDR_INTEGER() => 'Value::IPv4ADDR',
-
- Value::Convertor::IPV6ADDR_STRING() => 'Value::IPv6ADDR',
- Value::Convertor::IPV6ADDR_HEXSTR() => 'Value::IPv6ADDR',
- Value::Convertor::IPV6ADDR_INTEGER() => 'Value::IPv6ADDR',
-
- Value::Convertor::IPV4CIDR_STRING() => 'Value::IPv4CIDR',
- Value::Convertor::IPV4NETM_STRING() => 'Value::IPv4NETM',
- Value::Convertor::IPV6CIDR_STRING() => '',
-
- Value::Convertor::IPV4RNG_STRING() => 'Value::IPv4RNG',
- Value::Convertor::IPV4RNG_HEXSTR() => '',
- Value::Convertor::IPV4RNG_INTEGER() => '',
-
- Value::Convertor::IPV6RNG_STRING() => '',
- Value::Convertor::IPV6RNG_HEXSTR() => '',
- Value::Convertor::IPV6RNG_INTEGER() => '',
- };
-}
-
-
-#-- Module clean-up code (global destructor) ----------------------------------#
-END {
-
-}
-
-#*******************************************************************************
-# IMPLEMENTATION SECTION
-#*******************************************************************************
-
-=item new [PUBLIC,STATIC]
-
- Usage : my $instance = Value::IPv4->new($value);
- Purpose : Create and return reference to the new instance
- Arguments :
- Returns : Value::IPv4 reference on success, croaks on failure
- Throws : Croaks, if invoked on object
- Comments : Internally uses _init() method, subclasses should never overload this method.
- See Also : _init() method
-
-=cut
-
-sub new
-{
- my $class = shift;
- confess "Class method not invoked on class" if blessed($class);
- my ($value, $type) = @_;
- confess "IP address expected to be given as argument" unless $value;
-
- my (@matches, $class_name);
-
- # Autodetect the type of the value
- ($type, @matches) = Value::Convertor->detect_ip($value) unless $type;
- confess "Unknown IP address value '$value', type could not be detected" unless $type;
-
- # Determine the appropriate class for representing given IP address type
- $class_name = $MAPPING->{$type} if exists $MAPPING->{$type};
- confess "Unknown IP address type '$type' for value $value" unless $class_name;
-
- return $class_name->new($value);
-}
-
-=pod
-
-=back
-
-=cut
-
-1;
diff --git a/lib_perl/lib/Value/IPv4ADDR.pm b/lib_perl/lib/Value/IPv4ADDR.pm
deleted file mode 100644
index d8e6f45..0000000
--- a/lib_perl/lib/Value/IPv4ADDR.pm
+++ /dev/null
@@ -1,141 +0,0 @@
-package Value::IPv4ADDR;
-use strict;
-use warnings;
-
-#*******************************************************************************
-# DOCUMENTATION SECTION
-#*******************************************************************************
-
-=head1 NAME
-
-Value::IPv4ADDR - Short module description
-
-=head1 SYNOPSIS
-
- use Value::IPv4ADDR;
-
-=head1 DESCRIPTION
-
-Extensive module description
-
-=head1 AUTHOR
-
-Jan Mach
-Cesnet, z.s.p.o
-jan.mach@cesnet.cz
-http://www.cesnet.cz
-
-=head1 COPYRIGHT
-
-This program is free software; you can redistribute
-it and/or modify it under the same terms as Perl itself.
-
-The full text of the license can be found in the
-LICENSE file included with this module.
-
-=head1 SEE ALSO
-
-perl(1), Value::Single(3).
-
-=head1 FUNCTION REFERENCE
-
-=over 4
-
-=cut
-
-#*******************************************************************************
-# LIBRARY LOADING SECTION
-#*******************************************************************************
-
-#-- Perl core modules ---------------------------------------------------------#
-use Carp;
-use Scalar::Util 'blessed';
-
-#use Data::Dumper; #-+-> DEVEL ONLY <-+-#
-
-#-- Perl CPAN modules ---------------------------------------------------------#
-
-#-- Custom application modules ------------------------------------------------#
-use Value::Single;
-use Value::Convertor;
-
-#*******************************************************************************
-# CONSTANTS AND GLOBAL VARIABLES DEFINITION SECTION
-#*******************************************************************************
-
-#-- Constants -----------------------------------------------------------------#
-use constant DEFAULT_FORMATER => 'int_to_ipv4str';
-
-#-- Static public class variables (our) ---------------------------------------#
-
-#-- Static protected class variables (my) -------------------------------------#
-
-#*******************************************************************************
-# INITIALIZATION AND CLEANUP SECTION
-#*******************************************************************************
-
-#-- Module initializations ----------------------------------------------------#
-BEGIN {
- use vars qw($VERSION $DEVEL @ISA);
- $VERSION = '0.1';
- $DEVEL = 0;
- @ISA = ('Value::Single');
-}
-
-
-#-- Module clean-up code (global destructor) ----------------------------------#
-END {
-
-}
-
-#*******************************************************************************
-# IMPLEMENTATION SECTION
-#*******************************************************************************
-
-=item to_string(;$) [PUBLIC]
-
- Usage : Will be used automatically to convert object to string in string context
- Purpose : Convert the object to string
- Arguments : None
- Returns : STRING $json
- Throws : Croaks, if not invoked on object
- Comments : Must be implemented apropriatelly in subclasses
-
-=cut
-
-sub to_string(;$)
-{
- my $self = shift;
- croak ((caller(0))[3] . ": instance method invoked on class") unless blessed($self);
-
- return Value::Convertor->int_to_ipv4str($self->_value());
-}
-
-#-------------------------------------------------------------------------------
-# Private interface
-#-------------------------------------------------------------------------------
-
-# _to_inner($) [PROTECTED]
-#
-# Usage : my $value = $self->_to_inner($value);
-# Purpose : Convert the given value to appropriate inner representation
-# Arguments : MIXED $value - value to be converted [MANDATORY]
-# Returns : MIXED $inner
-# Throws : Croaks, if invoked on class
-# Comments : This method must never be called directly, it is supposed to be overloaded by subclasses.
-
-sub _to_inner($)
-{
- my $invocant = shift;
-
- my ($type,$value) = Value::Convertor->ipv4_to_int(@_);
- return $value;
-}
-
-=pod
-
-=back
-
-=cut
-
-1;
diff --git a/lib_perl/lib/Value/IPv4CIDR.pm b/lib_perl/lib/Value/IPv4CIDR.pm
deleted file mode 100644
index b9da59f..0000000
--- a/lib_perl/lib/Value/IPv4CIDR.pm
+++ /dev/null
@@ -1,140 +0,0 @@
-package Value::IPv4CIDR;
-use strict;
-use warnings;
-
-#*******************************************************************************
-# DOCUMENTATION SECTION
-#*******************************************************************************
-
-=head1 NAME
-
-Value::IPv4CIDR - Short module description
-
-=head1 SYNOPSIS
-
- use Value::IPv4CIDR;
-
-=head1 DESCRIPTION
-
-Extensive module description
-
-=head1 AUTHOR
-
-Jan Mach
-Cesnet, z.s.p.o
-jan.mach@cesnet.cz
-http://www.cesnet.cz
-
-=head1 COPYRIGHT
-
-This program is free software; you can redistribute
-it and/or modify it under the same terms as Perl itself.
-
-The full text of the license can be found in the
-LICENSE file included with this module.
-
-=head1 SEE ALSO
-
-perl(1), Value::Range(3).
-
-=head1 FUNCTION REFERENCE
-
-=over 4
-
-=cut
-
-#*******************************************************************************
-# LIBRARY LOADING SECTION
-#*******************************************************************************
-
-#-- Perl core modules ---------------------------------------------------------#
-use Carp;
-use Scalar::Util 'blessed';
-
-#use Data::Dumper; #-+-> DEVEL ONLY <-+-#
-
-#-- Perl CPAN modules ---------------------------------------------------------#
-
-#-- Custom application modules ------------------------------------------------#
-use Value::Range;
-use Value::Convertor;
-
-#*******************************************************************************
-# CONSTANTS AND GLOBAL VARIABLES DEFINITION SECTION
-#*******************************************************************************
-
-#-- Constants -----------------------------------------------------------------#
-
-#-- Static public class variables (our) ---------------------------------------#
-
-#-- Static protected class variables (my) -------------------------------------#
-
-#*******************************************************************************
-# INITIALIZATION AND CLEANUP SECTION
-#*******************************************************************************
-
-#-- Module initializations ----------------------------------------------------#
-BEGIN {
- use vars qw($VERSION $DEVEL @ISA);
- $VERSION = '0.1';
- $DEVEL = 0;
- @ISA = ('Value::Range');
-}
-
-
-#-- Module clean-up code (global destructor) ----------------------------------#
-END {
-
-}
-
-#*******************************************************************************
-# IMPLEMENTATION SECTION
-#*******************************************************************************
-
-=item to_string() [PUBLIC]
-
- Usage : Will be used automatically to convert object to string in string context
- Purpose : Convert the object to string
- Arguments : None
- Returns : STRING $json
- Throws : Croaks, if not invoked on object
- Comments : Must be implemented apropriatelly in subclasses
-
-=cut
-
-sub to_string()
-{
- my $self = shift;
- croak ((caller(0))[3] . ": instance method invoked on class") unless blessed($self);
-
- return Value::Convertor->ints_to_ipv4cidr($self->_values());
-}
-
-#-------------------------------------------------------------------------------
-# Private interface
-#-------------------------------------------------------------------------------
-
-# _to_inner($) [PROTECTED]
-#
-# Usage : my $value = $self->_to_inner($value);
-# Purpose : Convert the given value to appropriate inner representation
-# Arguments : MIXED $value - value to be converted [MANDATORY]
-# Returns : MIXED $inner
-# Throws : Croaks, if invoked on class
-# Comments : This method must never be called directly, it is supposed to be overloaded by subclasses.
-
-sub _to_inner($)
-{
- my $invocant = shift;
-
- my ($type,@values) = Value::Convertor->ipv4_to_int(@_);
- return @values;
-}
-
-=pod
-
-=back
-
-=cut
-
-1;
diff --git a/lib_perl/lib/Value/IPv4NETM.pm b/lib_perl/lib/Value/IPv4NETM.pm
deleted file mode 100644
index 2ca2bf9..0000000
--- a/lib_perl/lib/Value/IPv4NETM.pm
+++ /dev/null
@@ -1,140 +0,0 @@
-package Value::IPv4NETM;
-use strict;
-use warnings;
-
-#*******************************************************************************
-# DOCUMENTATION SECTION
-#*******************************************************************************
-
-=head1 NAME
-
-Value::IPv4NETM - Short module description
-
-=head1 SYNOPSIS
-
- use Value::IPv4NETM;
-
-=head1 DESCRIPTION
-
-Extensive module description
-
-=head1 AUTHOR
-
-Jan Mach
-Cesnet, z.s.p.o
-jan.mach@cesnet.cz
-http://www.cesnet.cz
-
-=head1 COPYRIGHT
-
-This program is free software; you can redistribute
-it and/or modify it under the same terms as Perl itself.
-
-The full text of the license can be found in the
-LICENSE file included with this module.
-
-=head1 SEE ALSO
-
-perl(1), Value::Range(3).
-
-=head1 FUNCTION REFERENCE
-
-=over 4
-
-=cut
-
-#*******************************************************************************
-# LIBRARY LOADING SECTION
-#*******************************************************************************
-
-#-- Perl core modules ---------------------------------------------------------#
-use Carp;
-use Scalar::Util 'blessed';
-
-#use Data::Dumper; #-+-> DEVEL ONLY <-+-#
-
-#-- Perl CPAN modules ---------------------------------------------------------#
-
-#-- Custom application modules ------------------------------------------------#
-use Value::Range;
-use Value::Convertor;
-
-#*******************************************************************************
-# CONSTANTS AND GLOBAL VARIABLES DEFINITION SECTION
-#*******************************************************************************
-
-#-- Constants -----------------------------------------------------------------#
-
-#-- Static public class variables (our) ---------------------------------------#
-
-#-- Static protected class variables (my) -------------------------------------#
-
-#*******************************************************************************
-# INITIALIZATION AND CLEANUP SECTION
-#*******************************************************************************
-
-#-- Module initializations ----------------------------------------------------#
-BEGIN {
- use vars qw($VERSION $DEVEL @ISA);
- $VERSION = '0.1';
- $DEVEL = 0;
- @ISA = ('Value::Range');
-}
-
-
-#-- Module clean-up code (global destructor) ----------------------------------#
-END {
-
-}
-
-#*******************************************************************************
-# IMPLEMENTATION SECTION
-#*******************************************************************************
-
-=item to_string() [PUBLIC]
-
- Usage : Will be used automatically to convert object to string in string context
- Purpose : Convert the object to string
- Arguments : None
- Returns : STRING $json
- Throws : Croaks, if not invoked on object
- Comments : Must be implemented apropriatelly in subclasses
-
-=cut
-
-sub to_string()
-{
- my $self = shift;
- croak ((caller(0))[3] . ": instance method invoked on class") unless blessed($self);
-
- return Value::Convertor->ints_to_ipv4netm($self->_values());
-}
-
-#-------------------------------------------------------------------------------
-# Private interface
-#-------------------------------------------------------------------------------
-
-# _to_inner($) [PROTECTED]
-#
-# Usage : my $value = $self->_to_inner($value);
-# Purpose : Convert the given value to appropriate inner representation
-# Arguments : MIXED $value - value to be converted [MANDATORY]
-# Returns : MIXED $inner
-# Throws : Croaks, if invoked on class
-# Comments : This method must never be called directly, it is supposed to be overloaded by subclasses.
-
-sub _to_inner($)
-{
- my $invocant = shift;
-
- my ($type,@values) = Value::Convertor->ipv4_to_int(@_);
- return @values;
-}
-
-=pod
-
-=back
-
-=cut
-
-1;
diff --git a/lib_perl/lib/Value/IPv4RNG.pm b/lib_perl/lib/Value/IPv4RNG.pm
deleted file mode 100644
index 5409a7e..0000000
--- a/lib_perl/lib/Value/IPv4RNG.pm
+++ /dev/null
@@ -1,140 +0,0 @@
-package Value::IPv4RNG;
-use strict;
-use warnings;
-
-#*******************************************************************************
-# DOCUMENTATION SECTION
-#*******************************************************************************
-
-=head1 NAME
-
-Value::IPv4RNG - Short module description
-
-=head1 SYNOPSIS
-
- use Value::IPv4RNG;
-
-=head1 DESCRIPTION
-
-Extensive module description
-
-=head1 AUTHOR
-
-Jan Mach
-Cesnet, z.s.p.o
-jan.mach@cesnet.cz
-http://www.cesnet.cz
-
-=head1 COPYRIGHT
-
-This program is free software; you can redistribute
-it and/or modify it under the same terms as Perl itself.
-
-The full text of the license can be found in the
-LICENSE file included with this module.
-
-=head1 SEE ALSO
-
-perl(1), Value::Range(3).
-
-=head1 FUNCTION REFERENCE
-
-=over 4
-
-=cut
-
-#*******************************************************************************
-# LIBRARY LOADING SECTION
-#*******************************************************************************
-
-#-- Perl core modules ---------------------------------------------------------#
-use Carp;
-use Scalar::Util 'blessed';
-
-#use Data::Dumper; #-+-> DEVEL ONLY <-+-#
-
-#-- Perl CPAN modules ---------------------------------------------------------#
-
-#-- Custom application modules ------------------------------------------------#
-use Value::Range;
-use Value::Convertor;
-
-#*******************************************************************************
-# CONSTANTS AND GLOBAL VARIABLES DEFINITION SECTION
-#*******************************************************************************
-
-#-- Constants -----------------------------------------------------------------#
-
-#-- Static public class variables (our) ---------------------------------------#
-
-#-- Static protected class variables (my) -------------------------------------#
-
-#*******************************************************************************
-# INITIALIZATION AND CLEANUP SECTION
-#*******************************************************************************
-
-#-- Module initializations ----------------------------------------------------#
-BEGIN {
- use vars qw($VERSION $DEVEL @ISA);
- $VERSION = '0.1';
- $DEVEL = 0;
- @ISA = ('Value::Range');
-}
-
-
-#-- Module clean-up code (global destructor) ----------------------------------#
-END {
-
-}
-
-#*******************************************************************************
-# IMPLEMENTATION SECTION
-#*******************************************************************************
-
-=item to_string() [PUBLIC]
-
- Usage : Will be used automatically to convert object to string in string context
- Purpose : Convert the object to string
- Arguments : None
- Returns : STRING $json
- Throws : Croaks, if not invoked on object
- Comments : Must be implemented apropriatelly in subclasses
-
-=cut
-
-sub to_string()
-{
- my $self = shift;
- croak ((caller(0))[3] . ": instance method invoked on class") unless blessed($self);
-
- return Value::Convertor->ints_to_ipv4rngstr($self->_values());
-}
-
-#-------------------------------------------------------------------------------
-# Private interface
-#-------------------------------------------------------------------------------
-
-# _to_inner($) [PROTECTED]
-#
-# Usage : my $value = $self->_to_inner($value);
-# Purpose : Convert the given value to appropriate inner representation
-# Arguments : MIXED $value - value to be converted [MANDATORY]
-# Returns : MIXED $inner
-# Throws : Croaks, if invoked on class
-# Comments : This method must never be called directly, it is supposed to be overloaded by subclasses.
-
-sub _to_inner($)
-{
- my $invocant = shift;
-
- my ($type,@values) = Value::Convertor->ipv4_to_int(@_);
- return @values;
-}
-
-=pod
-
-=back
-
-=cut
-
-1;
diff --git a/lib_perl/lib/Value/IPv6ADDR.pm b/lib_perl/lib/Value/IPv6ADDR.pm
deleted file mode 100644
index 761e76a..0000000
--- a/lib_perl/lib/Value/IPv6ADDR.pm
+++ /dev/null
@@ -1,140 +0,0 @@
-package Value::IPv6ADDR;
-use strict;
-use warnings;
-
-#*******************************************************************************
-# DOCUMENTATION SECTION
-#*******************************************************************************
-
-=head1 NAME
-
-Value::IPv6ADDR - Short module description
-
-=head1 SYNOPSIS
-
- use Value::IPv6ADDR;
-
-=head1 DESCRIPTION
-
-Extensive module description
-
-=head1 AUTHOR
-
-Jan Mach
-Cesnet, z.s.p.o
-jan.mach@cesnet.cz
-http://www.cesnet.cz
-
-=head1 COPYRIGHT
-
-This program is free software; you can redistribute
-it and/or modify it under the same terms as Perl itself.
-
-The full text of the license can be found in the
-LICENSE file included with this module.
-
-=head1 SEE ALSO
-
-perl(1), Value::Single(3).
-
-=head1 FUNCTION REFERENCE
-
-=over 4
-
-=cut
-
-#*******************************************************************************
-# LIBRARY LOADING SECTION
-#*******************************************************************************
-
-#-- Perl core modules ---------------------------------------------------------#
-use Carp;
-use Scalar::Util 'blessed';
-
-#use Data::Dumper; #-+-> DEVEL ONLY <-+-#
-
-#-- Perl CPAN modules ---------------------------------------------------------#
-
-#-- Custom application modules ------------------------------------------------#
-use Value::Single;
-use Value::Convertor;
-
-#*******************************************************************************
-# CONSTANTS AND GLOBAL VARIABLES DEFINITION SECTION
-#*******************************************************************************
-
-#-- Constants -----------------------------------------------------------------#
-
-#-- Static public class variables (our) ---------------------------------------#
-
-#-- Static protected class variables (my) -------------------------------------#
-
-#*******************************************************************************
-# INITIALIZATION AND CLEANUP SECTION
-#*******************************************************************************
-
-#-- Module initializations ----------------------------------------------------#
-BEGIN {
- use vars qw($VERSION $DEVEL @ISA);
- $VERSION = '0.1';
- $DEVEL = 0;
- @ISA = ('Value::Single');
-}
-
-
-#-- Module clean-up code (global destructor) ----------------------------------#
-END {
-
-}
-
-#*******************************************************************************
-# IMPLEMENTATION SECTION
-#*******************************************************************************
-
-=item to_string() [PUBLIC]
-
- Usage : Will be used automatically to convert object to string in string context
- Purpose : Convert the object to string
- Arguments : None
- Returns : STRING $json
- Throws : Croaks, if not invoked on object
- Comments : Must be implemented apropriatelly in subclasses
-
-=cut
-
-sub to_string()
-{
- my $self = shift;
- croak ((caller(0))[3] . ": instance method invoked on class") unless blessed($self);
-
- return Value::Convertor->bigint_to_ipv6str($self->_value());
-}
-
-#-------------------------------------------------------------------------------
-# Private interface
-#-------------------------------------------------------------------------------
-
-# _to_inner($) [PROTECTED]
-#
-# Usage : my $value = $self->_to_inner($value);
-# Purpose : Convert the given value to appropriate inner representation
-# Arguments : MIXED $value - value to be converted [MANDATORY]
-# Returns : MIXED $inner
-# Throws : Croaks, if invoked on class
-# Comments : This method must never be called directly, it is supposed to be overloaded by subclasses.
-
-sub _to_inner($)
-{
- my $invocant = shift;
-
- my ($type,$value) = Value::Convertor->ipv6_to_bigint(@_);
- return $value;
-}
-
-=pod
-
-=back
-
-=cut
-
-1;
diff --git a/lib_perl/lib/Value/Period.pm b/lib_perl/lib/Value/Period.pm
deleted file mode 100644
index 869c49a..0000000
--- a/lib_perl/lib/Value/Period.pm
+++ /dev/null
@@ -1,141 +0,0 @@
-package Value::Period;
-use strict;
-use warnings;
-
-#*******************************************************************************
-# DOCUMENTATION SECTION
-#*******************************************************************************
-
-=head1 NAME
-
-Value::Period - Short module description
-
-=head1 SYNOPSIS
-
- use Value::Period;
-
-=head1 DESCRIPTION
-
-Extensive module description
-
-=head1 AUTHOR
-
-Jan Mach
-Cesnet, z.s.p.o
-jan.mach@cesnet.cz
-http://www.cesnet.cz
-
-=head1 COPYRIGHT
-
-This program is free software; you can redistribute
-it and/or modify it under the same terms as Perl itself.
-
-The full text of the license can be found in the
-LICENSE file included with this module.
-
-=head1 SEE ALSO
-
-perl(1), Value::Range(3).
-
-=head1 FUNCTION REFERENCE
-
-=over 4
-
-=cut
-
-#*******************************************************************************
-# LIBRARY LOADING SECTION
-#*******************************************************************************
-
-#-- Perl core modules ---------------------------------------------------------#
-use Carp;
-use Scalar::Util 'blessed';
-
-#use Data::Dumper; #-+-> DEVEL ONLY <-+-#
-
-#-- Perl CPAN modules ---------------------------------------------------------#
-
-#-- Custom application modules ------------------------------------------------#
-use Value::Range;
-use Value::Convertor;
-
-#*******************************************************************************
-# CONSTANTS AND GLOBAL VARIABLES DEFINITION SECTION
-#*******************************************************************************
-
-#-- Constants -----------------------------------------------------------------#
-
-#-- Static public class variables (our) ---------------------------------------#
-
-#-- Static protected class variables (my) -------------------------------------#
-
-#*******************************************************************************
-# INITIALIZATION AND CLEANUP SECTION
-#*******************************************************************************
-
-#-- Module initializations ----------------------------------------------------#
-BEGIN {
- use vars qw($VERSION $DEVEL @ISA);
- $VERSION = '0.1';
- $DEVEL = 0;
- @ISA = ('Value::Range');
-}
-
-
-#-- Module clean-up code (global destructor) ----------------------------------#
-END {
-
-}
-
-#*******************************************************************************
-# IMPLEMENTATION SECTION
-#*******************************************************************************
-
-=item to_string(;$) [PUBLIC]
-
- Usage : Will be used automatically to convert object to string in string context
- Purpose : Convert the object to string
- Arguments : None
- Returns : STRING $json
- Throws : Croaks, if not invoked on object
- Comments : Must be implemented apropriatelly in subclasses
-
-=cut
-
-sub to_string(;$)
-{
- my $self = shift;
- croak ((caller(0))[3] . ": instance method invoked on class") unless blessed($self);
-
- return join('..', map { Value::Convertor->nbi_to_datestr($_, @_); } $self->_values());
-}
-
-#-------------------------------------------------------------------------------
-# Private interface
-#-------------------------------------------------------------------------------
-
-# _to_inner($) [PROTECTED]
-#
-# Usage : my $value = $self->_to_inner($value);
-# Purpose : Convert the given value to appropriate inner representation
-# Arguments : MIXED $value - value to be converted [MANDATORY]
-# Returns : MIXED $inner
-# Throws : Croaks, if invoked on class
-# Comments : This method must never be called directly, it is supposed to be overloaded by subclasses.
-
-sub _to_inner($)
-{
- my $invocant = shift;
- my ($period,) = @_;
-
- my ($type,@values) = Value::Convertor->datetime_to_nbi(@_);
- return @values;
-}
-
-=pod
-
-=back
-
-=cut
-
-1;
diff --git a/lib_perl/lib/Value/Range.pm b/lib_perl/lib/Value/Range.pm
deleted file mode 100644
index c58a7ff..0000000
--- a/lib_perl/lib/Value/Range.pm
+++ /dev/null
@@ -1,354 +0,0 @@
-package Value::Range;
-use strict;
-use warnings;
-
-#*******************************************************************************
-# DOCUMENTATION SECTION
-#*******************************************************************************
-
-=head1 NAME
-
-Value::Range - Short module description
-
-=head1 SYNOPSIS
-
- use Value::Range;
-
-=head1 DESCRIPTION
-
-Extensive module description
-
-=head1 AUTHOR
-
-Jan Mach
-Cesnet, z.s.p.o
-jan.mach@cesnet.cz
-http://www.cesnet.cz
-
-=head1 COPYRIGHT
-
-This program is free software; you can redistribute
-it and/or modify it under the same terms as Perl itself.
-
-The full text of the license can be found in the
-LICENSE file included with this module.
-
-=head1 SEE ALSO
-
-perl(1).
-
-=head1 FUNCTION REFERENCE
-
-=over 4
-
-=cut
-
-#*******************************************************************************
-# LIBRARY LOADING SECTION
-#*******************************************************************************
-
-#-- Perl core modules ---------------------------------------------------------#
-use Carp;
-use Scalar::Util 'blessed';
-
-#use Data::Dumper; #-+-> DEVEL ONLY <-+-#
-
-#-- Perl CPAN modules ---------------------------------------------------------#
-
-#-- Custom application modules ------------------------------------------------#
-
-#*******************************************************************************
-# CONSTANTS AND GLOBAL VARIABLES DEFINITION SECTION
-#*******************************************************************************
-
-#-- Constants -----------------------------------------------------------------#
-
-#-- Static public class variables (our) ---------------------------------------#
-
-#-- Static protected class variables (my) -------------------------------------#
-
-#*******************************************************************************
-# INITIALIZATION AND CLEANUP SECTION
-#*******************************************************************************
-
-#-- Module initializations ----------------------------------------------------#
-BEGIN {
- use vars qw($VERSION $DEVEL);
- $VERSION = '0.1';
- $DEVEL = 0;
-}
-
-
-#-- Module clean-up code (global destructor) ----------------------------------#
-END {
-
-}
-
-# Operator overloading
-use overload
- '""' => 'to_string',
- '<=>' => 'cmp_numeric',
- 'cmp' => 'cmp_string';
-
-#*******************************************************************************
-# IMPLEMENTATION SECTION
-#*******************************************************************************
-
-=item new [PUBLIC,STATIC]
-
- Usage : my $instance = Value::Range->new();
- Purpose : Create and return reference to the new instance
- Arguments : Same as the the _init() method
- Returns : Value::Range reference on success, croaks on failure
- Throws : Croaks, if invoked on object
- Comments : Internally uses _init() method, subclasses should never overload this method.
- See Also : _init() method
-
-=cut
-
-sub new
-{
- my $class = shift;
- croak ((caller(0))[3] . ": class method invoked on object") if blessed($class);
- my @values = @_;
- croak ((caller(0))[3] . ": expecting arguments to be given to constructor") unless @values;
-
- my $self = bless ({}, $class);
- $self->_values($class->_to_inner(@values));
- return $self;
-}
-
-=item type() [PUBLIC]
-
- Usage : my $name = $value->type();
- Purpose :
- Returns :
- Arguments :
- Throws :
- Comments :
- See Also :
-
-=cut
-
-sub type()
-{
- my $self = shift;
- croak ((caller(0))[3] . ": instance method invoked on class") unless blessed($self);
-
- # Determine the type of the value (last part of the class name)
- unless ($self->{TYPE}) {
- my $name = blessed($self);
- my @tmp = split(/:+/, $name);
- $self->{TYPE} = lc($tmp[$#tmp]);
- }
- return $self->{TYPE};
-}
-
-=item to_numeric() [PUBLIC]
-
- Usage : Will be used automatically to convert object to integer in numeric context
- Purpose : Convert the object to integer
- Arguments : None
- Returns : INTEGER|BIGINT $numeric
- Throws : Croaks, if not invoked on object
-
-=cut
-
-sub to_numeric()
-{
- my $self = shift;
- croak ((caller(0))[3] . ": instance method invoked on class") unless blessed($self);
- return $self->_values();
-}
-
-=item to_string() [PUBLIC]
-
- Usage : Will be used automatically to convert object to string in string context
- Purpose : Convert the object to string
- Arguments : None
- Returns : STRING $json
- Throws : Croaks, if not invoked on object
- Comments : Must be implemented apropriatelly in subclasses
-
-=cut
-
-sub to_string()
-{
- my $self = shift;
- croak ((caller(0))[3] . ": instance method invoked on class") unless blessed($self);
- my ($min, $max) = $self->_values();
- return "$min-$max";
-}
-
-=item cmp_numeric() [PUBLIC]
-
- Usage : Will be used automatically in integer comparison context (==,!=,<,>,<=,>=,<=>)
- Purpose : Allow integer comparisons (==,!=,<,>,<=,>=,<=>)
- Arguments : Value::Range $self - left comparison operand
- MIXED $other - right comparison operand
- BOOL $swap - swap left and right operand
- Returns : INTEGER $result (-1, 0, or 1) if the left operand is stringwise
- (less than, equal, greater than) the right operator
- Throws : Croaks, if not invoked on object
- Comments : Must be implemented apropriatelly in subclasses
-
-=cut
-
-sub cmp_numeric()
-{
- my ($self, $other, $swap) = @_;
- croak ((caller(0))[3] . ": instance method invoked on class") unless blessed($self);
-
- if (blessed($other)) {
- if ($other->isa('Value::Range')) {
- my ($omin, $omax) = $other->to_numeric();
- return $self->_cmp_numeric_range($omin, $omax, $swap);
- }
- elsif ($other->isa('Value::Single')) {
- my $omin = $other->to_numeric();
- return $self->_cmp_numeric_single($omin, $swap);
- }
- }
- else {
- my ($omin, $omax) = $self->_to_inner($other);
-
- return $self->_cmp_numeric_range($omin, $omax, $swap) if $omax;
- return $self->_cmp_numeric_single($omin, $swap);
- }
-}
-
-
-=item cmp_string($$$) [PUBLIC]
-
- Usage : Will be used automatically in string comparison context (eq,ne,gt,lt,ge,le,cmp)
- Purpose : Allow string comparisons (eq,ne,gt,lt,ge,le,cmp)
- Arguments : Value::Range $self - left comparison operand
- MIXED $other - right comparison operand
- BOOL $swap - swap left and right operand
- Returns : INTEGER $result (-1, 0, or 1) if the left operand is stringwise
- (less than, equal, greater than) the right operator
- Throws : Croaks, if not invoked on object
- Comments : Must be implemented apropriatelly in subclasses
-
-=cut
-
-sub cmp_string($$$)
-{
- my ($self, $other, $swap) = @_;
- croak ((caller(0))[3] . ": instance method invoked on class") unless blessed($self);
- return $self->cmp_numeric($other, $swap);
-}
-
-=item TO_JSON() [PUBLIC]
-
- Usage : Will be used automatically by Perl's JSON library
- Purpose : This method allows exporting objects to JSON
- Arguments : None
- Returns : STRING $string
- Throws : Croaks, if not invoked on object
- Comments : Internally uses _init() method, subclasses should never overload this method.
- See Also : http://search.cpan.org/~makamaka/JSON-2.57/lib/JSON.pm#allow_blessed
-
-=cut
-
-sub TO_JSON()
-{
- my $self = shift;
- croak ((caller(0))[3] . ": instance method invoked on class") unless blessed($self);
- return $self->to_string();
-}
-
-#-------------------------------------------------------------------------------
-# Private interface
-#-------------------------------------------------------------------------------
-
-# _values(;@) [PROTECTED]
-#
-# Usage :
-# Purpose :
-# Arguments :
-# Returns :
-# Throws : Croaks, if invoked on class
-# Comments :
-
-sub _values(;@)
-{
- my $self = shift;
- croak ((caller(0))[3] . ": instance method invoked on class") unless blessed($self);
- my @new_values = @_;
-
- if (@new_values) {
- ($self->{MIN}, $self->{MAX}) = @new_values;
- croak ((caller(0))[3] . ": range minimum must be given as first argument") unless defined $self->{MIN};
- $self->{MAX} = $self->{MIN} unless defined $self->{MAX};
- croak ((caller(0))[3] . ": range minimum must be less than or equal maximum") unless $self->{MIN} <= $self->{MAX};
- }
-
- return ($self->{MIN}, $self->{MAX});
-}
-
-# _to_inner($) [PROTECTED]
-#
-# Usage : my @values = $self->_to_inner($value);
-# Purpose : Convert the given value to appropriate inner representation
-# Arguments : MIXED $value - value to be converted [MANDATORY]
-# Returns : MIXED @inner
-# Throws : Croaks, if invoked on class
-# Comments : This method must never be called directly, it is supposed to be overloaded by subclasses.
-
-sub _to_inner($)
-{
- my $invocant = shift;
-
- return (map { split('-',$_); } @_);
-}
-
-# _cmp_numeric_range($$$$) [PROTECTED]
-#
-# Usage :
-# Purpose :
-# Arguments :
-# Returns :
-# Throws : Croaks, if invoked on class
-# Comments :
-
-sub _cmp_numeric_range($$$$)
-{
- my ($self, $omin, $omax, $swap) = @_;
- croak ((caller(0))[3] . ": instance method invoked on class") unless blessed($self);
-
- my ($min, $max) = $self->to_numeric();
- ($min, $max, $omin, $omax) = ($omin, $omax, $min, $max) if $swap;
-
- return 0 if (($min == $omin) and ($max == $omax));
- return -1 if (($min >= $omin) and ($max <= $omax));
- return 1;
-}
-
-# _cmp_numeric_single($$$) [PROTECTED]
-#
-# Usage :
-# Purpose :
-# Arguments :
-# Returns :
-# Throws : Croaks, if invoked on class
-# Comments :
-
-sub _cmp_numeric_single($$$)
-{
- my ($self, $other_min, $swap) = @_;
- croak ((caller(0))[3] . ": instance method invoked on class") unless blessed($self);
-
- my ($min, $max) = $self->to_numeric();
-
- return 0 if ($min <= $other_min) and ($other_min <= $max);
- return 1;
-}
-
-=pod
-
-=back
-
-=cut
-
-1;
diff --git a/lib_perl/lib/Value/Single.pm b/lib_perl/lib/Value/Single.pm
deleted file mode 100644
index 11f5d0d..0000000
--- a/lib_perl/lib/Value/Single.pm
+++ /dev/null
@@ -1,310 +0,0 @@
-package Value::Single;
-use strict;
-use warnings;
-
-#*******************************************************************************
-# DOCUMENTATION SECTION
-#*******************************************************************************
-
-=head1 NAME
-
-Value::Single - Short module description
-
-=head1 SYNOPSIS
-
- use Value::Single;
-
-=head1 DESCRIPTION
-
-Extensive module description
-
-=head1 AUTHOR
-
-Jan Mach
-Cesnet, z.s.p.o
-jan.mach@cesnet.cz
-http://www.cesnet.cz
-
-=head1 COPYRIGHT
-
-This program is free software; you can redistribute
-it and/or modify it under the same terms as Perl itself.
-
-The full text of the license can be found in the
-LICENSE file included with this module.
-
-=head1 SEE ALSO
-
-perl(1).
-
-=head1 FUNCTION REFERENCE
-
-=over 4
-
-=cut
-
-#*******************************************************************************
-# LIBRARY LOADING SECTION
-#*******************************************************************************
-
-#-- Perl core modules ---------------------------------------------------------#
-use Carp;
-use Scalar::Util 'blessed';
-
-#use Data::Dumper; #-+-> DEVEL ONLY <-+-#
-
-#-- Perl CPAN modules ---------------------------------------------------------#
-
-#-- Custom application modules ------------------------------------------------#
-
-#*******************************************************************************
-# CONSTANTS AND GLOBAL VARIABLES DEFINITION SECTION
-#*******************************************************************************
-
-#-- Constants -----------------------------------------------------------------#
-
-#-- Static public class variables (our) ---------------------------------------#
-
-#-- Static protected class variables (my) -------------------------------------#
-
-#*******************************************************************************
-# INITIALIZATION AND CLEANUP SECTION
-#*******************************************************************************
-
-#-- Module initializations ----------------------------------------------------#
-BEGIN {
- use vars qw($VERSION $DEVEL);
- $VERSION = '0.1';
- $DEVEL = 0;
-}
-
-
-#-- Module clean-up code (global destructor) ----------------------------------#
-END {
-
-}
-
-# Operator overloading
-use overload
- '0+' => 'to_numeric',
- '""' => 'to_string',
- '<=>' => 'cmp_numeric',
- 'cmp' => 'cmp_string';
-
-#*******************************************************************************
-# IMPLEMENTATION SECTION
-#*******************************************************************************
-
-=item new [PUBLIC,STATIC]
-
- Usage : my $instance = Value::Single->new($value);
- Purpose : Create and return reference to the new instance
- Arguments : Same as the the _init() method
- Returns : Value::Single reference on success, croaks on failure
- Throws : Croaks, if invoked on object
- Comments : Internally uses _init() method, subclasses should never overload this method.
- See Also : _init() method
-
-=cut
-
-sub new
-{
- my $class = shift;
- confess "Class method invoked on object" if blessed($class);
- my ($value,) = @_;
- croak ((caller(0))[3] . ": expecting argument to be given to constructor") unless defined $value;
-
- my $self = bless ({}, $class);
- $self->_value($class->_to_inner($value));
- return $self;
-}
-
-=item type() [PUBLIC]
-
- Usage : my $name = $value->type();
- Purpose :
- Returns :
- Arguments :
- Throws :
- Comments :
- See Also :
-
-=cut
-
-sub type()
-{
- my $self = shift;
- croak ((caller(0))[3] . ": instance method invoked on class") unless blessed($self);
-
- # Determine the type of the value (last part of the class name)
- unless ($self->{TYPE})
- {
- my $name = blessed($self);
- my @tmp = split(/:+/, $name);
- $self->{TYPE} = lc($tmp[$#tmp]);
- }
- return $self->{TYPE};
-}
-
-=item to_numeric() [PUBLIC]
-
- Usage : Will be used automatically to convert object to integer in numeric context
- Purpose : Convert the object to integer
- Arguments : None
- Returns : INTEGER|BIGINT $numeric
- Throws : Croaks, if not invoked on object
-
-=cut
-
-sub to_numeric()
-{
- my $self = shift;
- croak ((caller(0))[3] . ": instance method invoked on class") unless blessed($self);
- return $self->_value();
-}
-
-=item to_string() [PUBLIC]
-
- Usage : Will be used automatically to convert object to string in string context
- Purpose : Convert the object to string
- Arguments : None
- Returns : STRING $json
- Throws : Croaks, if not invoked on object
- Comments : Must be implemented apropriatelly in subclasses
-
-=cut
-
-sub to_string()
-{
- my $self = shift;
- croak ((caller(0))[3] . ": instance method invoked on class") unless blessed($self);
- return "" . $self->_value();
-}
-
-=item cmp_numeric($$$) [PUBLIC]
-
- Usage : Will be used automatically in integer comparison context (==,!=,<,>,<=,>=,<=>)
- Purpose : Allow integer comparisons (==,!=,<,>,<=,>=,<=>)
- Arguments : Value::Single $self - left comparison operand
- MIXED $other - right comparison operand
- BOOL $swap - swap left and right operand
- Returns : INTEGER $result (-1, 0, or 1) if the left operand is stringwise
- (less than, equal, greater than) the right operator
- Throws : Croaks, if not invoked on object
- Comments : Must be implemented apropriatelly in subclasses
-
-=cut
-
-sub cmp_numeric($$$)
-{
- my ($self, $other, $swap) = @_;
- croak ((caller(0))[3] . ": instance method invoked on class") unless blessed($self);
-
- my $left = $self->to_numeric();
- my $right;
- if (blessed($other)) {
- if ($other->isa('Value::Range')) {
- return $other->cmp_numeric($self, 1);
- }
- else {
- $right = $other->to_numeric();
- }
- }
- else {
- $right = $self->_to_inner($other);
- }
-
- ($left,$right) = ($right,$left) if $swap;
-
- return $left <=> $right;
-}
-
-
-=item cmp_string($$$) [PUBLIC]
-
- Usage : Will be used automatically in string comparison context (eq,ne,gt,lt,ge,le,cmp)
- Purpose : Allow string comparisons (eq,ne,gt,lt,ge,le,cmp)
- Arguments : Value::Single $self - left comparison operand
- MIXED $other - right comparison operand
- BOOL $swap - swap left and right operand
- Returns : INTEGER $result (-1, 0, or 1) if the left operand is stringwise
- (less than, equal, greater than) the right operator
- Throws : Croaks, if not invoked on object
- Comments : Must be implemented apropriatelly in subclasses
-
-=cut
-
-sub cmp_string($$$)
-{
- my ($self, $other, $swap) = @_;
- croak ((caller(0))[3] . ": instance method invoked on class") unless blessed($self);
- return $self->cmp_numeric($other, $swap);
-}
-
-=item TO_JSON() [PUBLIC]
-
- Usage : Will be used automatically by Perl's JSON library
- Purpose : This method allows exporting objects to JSON
- Arguments : None
- Returns : STRING $string
- Throws : Croaks, if not invoked on object
- Comments : Internally uses _init() method, subclasses should never overload this method.
- See Also : http://search.cpan.org/~makamaka/JSON-2.57/lib/JSON.pm#allow_blessed
-
-=cut
-
-sub TO_JSON()
-{
- my $self = shift;
- croak ((caller(0))[3] . ": instance method invoked on class") unless blessed($self);
- return $self->to_string();
-}
-
-#-------------------------------------------------------------------------------
-# Private interface
-#-------------------------------------------------------------------------------
-
-# _value(;$) [PROTECTED]
-#
-# Usage :
-# Purpose :
-# Arguments :
-# Returns :
-# Throws : Croaks, if invoked on class
-# Comments :
-
-sub _value(;$)
-{
- my $self = shift;
- croak ((caller(0))[3] . ": instance method invoked on class") unless blessed($self);
- my ($new_value,) = @_;
-
- $self->{VALUE} = $new_value if defined $new_value;
-
- return $self->{VALUE};
-}
-
-# _to_inner($) [PROTECTED]
-#
-# Usage : my $value = $self->_to_inner($value);
-# Purpose : Convert the given value to appropriate inner representation
-# Arguments : MIXED $value - value to be converted [MANDATORY]
-# Returns : MIXED $inner
-# Throws : Croaks, if invoked on class
-# Comments : This method must never be called directly, it is supposed to be overloaded by subclasses.
-
-sub _to_inner($)
-{
- my $invocant = shift;
-
- my ($new_value,) = @_;
- return $new_value;
-}
-
-=pod
-
-=back
-
-=cut
-
-1;
diff --git a/lib_perl/lib/Value/Tempus.pm b/lib_perl/lib/Value/Tempus.pm
deleted file mode 100644
index a310e5b..0000000
--- a/lib_perl/lib/Value/Tempus.pm
+++ /dev/null
@@ -1,134 +0,0 @@
-package Value::Tempus;
-use strict;
-use warnings;
-
-#*******************************************************************************
-# DOCUMENTATION SECTION
-#*******************************************************************************
-
-=head1 NAME
-
-Value::Tempusv4 - Short module description
-
-=head1 SYNOPSIS
-
- use Value::Tempusv4;
-
-=head1 DESCRIPTION
-
-Extensive module description
-
-=head1 AUTHOR
-
-Jan Mach
-Cesnet, z.s.p.o
-jan.mach@cesnet.cz
-http://www.cesnet.cz
-
-=head1 COPYRIGHT
-
-This program is free software; you can redistribute
-it and/or modify it under the same terms as Perl itself.
-
-The full text of the license can be found in the
-LICENSE file included with this module.
-
-=head1 SEE ALSO
-
-perl(1).
-
-=head1 FUNCTION REFERENCE
-
-=over 4
-
-=cut
-
-#*******************************************************************************
-# LIBRARY LOADING SECTION
-#*******************************************************************************
-
-#-- Perl core modules ---------------------------------------------------------#
-use Carp;
-use Scalar::Util 'blessed';
-
-#use Data::Dumper; #-+-> DEVEL ONLY <-+-#
-
-#-- Perl CPAN modules ---------------------------------------------------------#
-
-#-- Custom application modules ------------------------------------------------#
-use Value::Convertor;
-
-use Value::Timestamp;
-use Value::Period;
-
-#*******************************************************************************
-# CONSTANTS AND GLOBAL VARIABLES DEFINITION SECTION
-#*******************************************************************************
-
-#-- Constants -----------------------------------------------------------------#
-
-#-- Static public class variables (our) ---------------------------------------#
-
-#-- Static protected class variables (my) -------------------------------------#
-
-#*******************************************************************************
-# INITIALIZATION AND CLEANUP SECTION
-#*******************************************************************************
-
-#-- Module initializations ----------------------------------------------------#
-BEGIN {
- use vars qw($VERSION $DEVEL $MAPPING);
- $VERSION = '0.1';
- $DEVEL = 0;
- $MAPPING = {
- Value::Convertor::TS_UNIXSTAMP() => 'Value::Timestamp',
- Value::Convertor::TS_NTPSTAMP() => 'Value::Timestamp',
- Value::Convertor::TS_DATETIME() => 'Value::Timestamp',
- Value::Convertor::TS_PERIOD() => 'Value::Period',
- };
-}
-
-
-#-- Module clean-up code (global destructor) ----------------------------------#
-END {
-
-}
-
-#*******************************************************************************
-# IMPLEMENTATION SECTION
-#*******************************************************************************
-
-=item new [PUBLIC,STATIC]
-
- Usage : my $instance = Value::Tempus->new($value);
- Purpose : Create and return reference to the new instance
- Arguments :
- Returns : Value::Tempus reference on success, croaks on failure
- Throws : Croaks, if invoked on object
- Comments : Internally uses _init() method, subclasses should never overload this method.
- See Also : _init() method
-
-=cut
-
-sub new
-{
- my $class = shift;
- croak ((caller(0))[3] . ": class method invoked on object") if blessed($class);
- my ($value, $type) = @_;
- croak ((caller(0))[3] . ": expecting argument to be given to constructor") unless $value;
-
- my (@matches, $class_name);
- ($type, @matches) = Value::Convertor->detect_datetime($value) unless $type;
- $class_name = $MAPPING->{$type};
- croak ((caller(0))[3] . ": unknown datetime class '$value' => $type") unless $class_name;
-
- return $class_name->new($value);
-}
-
-=pod
-
-=back
-
-=cut
-
-1;
diff --git a/lib_perl/lib/Value/Timestamp.pm b/lib_perl/lib/Value/Timestamp.pm
deleted file mode 100644
index 6418563..0000000
--- a/lib_perl/lib/Value/Timestamp.pm
+++ /dev/null
@@ -1,149 +0,0 @@
-package Value::Timestamp;
-use strict;
-use warnings;
-
-#*******************************************************************************
-# DOCUMENTATION SECTION
-#*******************************************************************************
-
-=head1 NAME
-
-Value::Timestamp - Short module description
-
-=head1 SYNOPSIS
-
- use Value::Timestamp;
-
-=head1 DESCRIPTION
-
-Extensive module description
-
-=head1 AUTHOR
-
-Jan Mach
-Cesnet, z.s.p.o
-jan.mach@cesnet.cz
-http://www.cesnet.cz
-
-=head1 COPYRIGHT
-
-This program is free software; you can redistribute
-it and/or modify it under the same terms as Perl itself.
-
-The full text of the license can be found in the
-LICENSE file included with this module.
-
-=head1 SEE ALSO
-
-perl(1), Value::Single(3).
-
-=head1 FUNCTION REFERENCE
-
-=over 4
-
-=cut
-
-#*******************************************************************************
-# LIBRARY LOADING SECTION
-#*******************************************************************************
-
-#-- Perl core modules ---------------------------------------------------------#
-use Carp;
-use Scalar::Util 'blessed';
-
-#use Data::Dumper; #-+-> DEVEL ONLY <-+-#
-
-#-- Perl CPAN modules ---------------------------------------------------------#
-
-#-- Custom application modules ------------------------------------------------#
-use Value::Single;
-use Value::Convertor;
-
-#*******************************************************************************
-# CONSTANTS AND GLOBAL VARIABLES DEFINITION SECTION
-#*******************************************************************************
-
-#-- Constants -----------------------------------------------------------------#
-
-#-- Static public class variables (our) ---------------------------------------#
-
-#-- Static protected class variables (my) -------------------------------------#
-
-#*******************************************************************************
-# INITIALIZATION AND CLEANUP SECTION
-#*******************************************************************************
-
-#-- Module initializations ----------------------------------------------------#
-BEGIN {
- use vars qw($VERSION $DEVEL @ISA);
- $VERSION = '0.1';
- $DEVEL = 0;
- @ISA = ('Value::Single');
-}
-
-
-#-- Module clean-up code (global destructor) ----------------------------------#
-END {
-
-}
-
-#*******************************************************************************
-# IMPLEMENTATION SECTION
-#*******************************************************************************
-
-
-=item to_string(;$) [PUBLIC]
-
- Usage : Will be used automatically to convert object to string in string context
- Purpose : Convert the object to string
- Arguments : None
- Returns : STRING $json
- Throws : Croaks, if not invoked on object
- Comments : Must be implemented apropriatelly in subclasses
-
-=cut
-
-sub to_string(;$)
-{
- my $self = shift;
- croak ((caller(0))[3] . ": instance method invoked on class") unless blessed($self);
-
- return Value::Convertor->nbi_to_datestr($self->_value(), @_);
-}
-
-sub to_unixts(;$)
-{
- my $self = shift;
- croak ((caller(0))[3] . ": instance method invoked on class") unless blessed($self);
-
- return Value::Convertor->nbi_to_unixs($self->_value(), @_);
-}
-
-#-------------------------------------------------------------------------------
-# Private interface
-#-------------------------------------------------------------------------------
-
-# _to_inner($) [PROTECTED]
-#
-# Usage : my $value = $self->_to_inner($value);
-# Purpose : Convert the given value to appropriate inner representation
-# Arguments : MIXED $value - value to be converted [MANDATORY]
-# Returns : MIXED $inner
-# Throws : Croaks, if invoked on class
-# Comments : This method must never be called directly, it is supposed to be overloaded by subclasses.
-
-sub _to_inner($)
-{
- my $invocant = shift;
-
- my ($type, $value) = Value::Convertor->datetime_to_nbi(@_);
- return $value;
-}
-
-=pod
-
-=back
-
-=cut
-
-1;
diff --git a/lib_perl/tests/unit/spool/alert01.idea b/lib_perl/tests/unit/spool/alert01.idea
deleted file mode 100644
index 98fd46e..0000000
--- a/lib_perl/tests/unit/spool/alert01.idea
+++ /dev/null
@@ -1,56 +0,0 @@
-{
- "Format": "IDEA0",
- "ID": "4390fc3f-c753-4a3e-bc83-1b44f24baf75",
- "DetectTime": "2012-11-03T10:00Z",
- "WinStartTime": "2012-11-03T05:00Z",
- "WinEndTime": "2012-11-03T10:00Z",
- "CreateTime": "2012-11-03T10:02Z",
- "EventTime": "2012-11-03T07:36Z",
- "CeaseTime": "2012-11-03T09:55Z",
- "Category": ["Phishing"],
- "Ref": ["cve:CVE-1234-5678"],
- "Confidence": 1,
- "Note": "Synthetic example",
- "ConnCount": 20,
- "Source": [
- {
- "Type": ["Phishing"],
- "IP4": ["195.113.144.194", "192.168.0.253"],
- "URL": ["http://example.com/cgi-bin/killemall"],
- "Attach": ["att1"],
- "Netname": ["ripe:IANA-CBLK-RESERVED1"]
- }
- ],
- "Target": [
- {
- "Type": ["Backscatter"],
- "Email": ["innocent@example.com"],
- "Spoofed": 1
- },
- {
- "IP4": ["10.2.2.2"],
- "Anonymised": 1
- }
- ],
- "Node": [
- {
- "Name": "buldocek",
- "Type": ["Network", "Honeypot", "Kippo"],
- "SW": ["Kippo"],
- "AggrWin": "12:59:00"
- }
- ],
- "_CESNET": {
- "EventTemplate": "n6-008"
- },
- "Attach": [
- {
- "Handle": "att1",
- "FileName": ["killemall"],
- "Type": ["malware"],
- "Hash": ["sha1:0c4a38c3569f0cc632e74f4c"],
- "Size": 46,
- "Ref": ["Trojan-Spy:W32/FinSpy.A"]
- }
- ]
-}
diff --git a/lib_perl/tests/unit/spool/alert02.idea b/lib_perl/tests/unit/spool/alert02.idea
deleted file mode 100644
index 717a7db..0000000
--- a/lib_perl/tests/unit/spool/alert02.idea
+++ /dev/null
@@ -1 +0,0 @@
-{"DetectTime": "2016-07-31T16:57:32Z", "Node": [{"Type": ["Relay"], "Name": "cz.cesnet.mentat.warden_filer"}, {"SW": ["Nemea", "HostStatsNemea"], "Type": ["Flow", "Statistical"], "Name": "cz.cesnet.nemea.hoststats"}], "EventTime": "2016-07-31T16:52:30Z", "Description": "SSH dictionary/bruteforce attack", "ConnCount": 85, "CeaseTime": "2016-07-31T16:57:29Z", "Format": "IDEA0", "Category": ["Attempt.Login"], "CreateTime": "2016-07-31T16:57:32Z", "Source": [{"IP4": ["82.142.64.117"]}], "FlowCount": 170, "ID": "3dc36d8a-fa6c-44dd-a534-8f794fbb8f36", "Target": [{"Port": [22], "IP4": ["0.0.0.0"], "Proto": ["tcp", "ssh"]}]}
diff --git a/lib_perl/tests/unit/spool/msgtmplts.json b/lib_perl/tests/unit/spool/msgtmplts.json
deleted file mode 100644
index b29b13e..0000000
--- a/lib_perl/tests/unit/spool/msgtmplts.json
+++ /dev/null
@@ -1,6418 +0,0 @@
-{
- "version" : 1,
- "templates" : {
- "labrea-003" : {
- "_id" : "labrea-003",
- "label_e" : "Pokus o odeslání SYN/ACK paketu na takové IP adresy, kde nejsou a nikdy nebyly v provozu žádné síťové servery",
- "args" : "7",
- "cmd_help" : "[source IP] [source port] [target IP] [target port] [event cease time] [event count] [original log line]",
- "cmd_example" : "195.113.134.254 6877 78.00.00.00 1234 1274107160 50 \"1274106860 Inbound SYN/ACK: 195.113.134.254 6877 -> 78.xx.xx.xx 1234\"",
- "id" : "labrea-003",
- "category" : "Recon.Scanning",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Stroje na následujících IP adresách poslaly SYN/ACK paket na takové IP adresy, kde nejsou a nikdy nebyly v provozu žádné síťové servery",
- "ref" : "",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "LaBrea"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "Connection"
- },
- {
- "k" : "Node[1]/Type[2]",
- "v" : "Tarpit"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Port[1]",
- "v" : "$2"
- },
- {
- "k" : "Target[1]/%ipt:$3[1]",
- "v" : "$3"
- },
- {
- "k" : "Target[1]/Port[1]",
- "v" : "$4"
- },
- {
- "k" : "CeaseTime",
- "v" : "$5"
- },
- {
- "k" : "Category[1]",
- "v" : "Recon.Scanning"
- },
- {
- "k" : "Description",
- "v" : "SYN/ACK scan or DOS attack"
- },
- {
- "k" : "ConnCount",
- "v" : "$6"
- },
- {
- "k" : "Attach[1]/Type[1]",
- "v" : "Syslog"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$7"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Unsolicited SYN/ACK packet received from remote host $1:$2"
- }
- ],
- "title" : "SYN/ACK scan or DOS attack",
- "class" : "SYN/ACK scan or DOS attack",
- "analyzer" : "LaBrea",
- "alias" : "labrea-003"
- },
- "sserv-018" : {
- "_id" : "sserv-018",
- "label_e" : "Hlášení o strojích poskytujících službu SSL v.3 v režimu Cipher Block Chaining (CBC) a tedy zranitelných skrze útok MiTM POODLE (Padding Oracle On Downgraded Legacy Encryption) (SSL Scan Report)",
- "args" : "6",
- "cmd_help" : "[source IP] [source port] [poodle?] [cipher size] [expiration] [original log line]",
- "cmd_example" : "195.113.134.254 443 Y 1024 N \"195.113.134.254 443 (Y 1024 N) 2014-12-01_17:05:43 s\"",
- "id" : "sserv-018",
- "category" : "Vulnerable.Config",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Hlášení o strojích poskytujících službu SSL v.3 v režimu Cipher Block Chaining (CBC) a tedy zranitelných skrze útok MiTM POODLE (Padding Oracle On Downgraded Legacy Encryption) (SSL Scan Report)",
- "ref" : "https://csirt.cesnet.cz/cs/services/sserv",
- "description" : "",
- "note" : "",
- "class" : "SSL Scan Report",
- "title" : "SSL Scan Report",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "SSERV"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Node[1]/Type[2]",
- "v" : "Recon"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Port[1]",
- "v" : "$2"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "tcp"
- },
- {
- "k" : "Category[1]",
- "v" : "Vulnerable.Config"
- },
- {
- "k" : "Description",
- "v" : "SSL Scan Report"
- },
- {
- "k" : "Note",
- "v" : "Poodle: $3, Cipher size: $4, Expiration $5"
- },
- {
- "k" : "Ref[1]",
- "v" : "urn:cve:CVE-2014-3566"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$6"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "System $1 ($2) provides SSLv3 in CBC mode and is vulnerable to MitM POODLE attack"
- }
- ],
- "alias" : "sserv-018",
- "analyzer" : "SSERV"
- },
- "n6-015" : {
- "_id" : "n6-015",
- "label_e" : "Hlášení o strojích, které jsou součástí botnetu Zeroaccess (Bots Zeroaccess Report)",
- "args" : "2",
- "cmd_help" : "[source IP] [original log line]",
- "cmd_example" : "195.113.134.254 \"195.113.134.254 | 2014-01-06_15:47:12 | O\"",
- "id" : "n6-015",
- "category" : "Intrusion.Botnet",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Hlášení o strojích, které jsou součástí botnetu Zeroaccess (Bots Zeroaccess Report)",
- "ref" : "https://csirt.cesnet.cz/cs/services/n6",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "N6"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Category[1]",
- "v" : "Intrusion.Botnet"
- },
- {
- "k" : "Description",
- "v" : "Bots Zeroaccess Report"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$2"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Host $1 is part of the Zeroaccess botnet"
- }
- ],
- "title" : "Bots Zeroaccess Report",
- "class" : "Bots Zeroaccess Report",
- "analyzer" : "N6",
- "alias" : "n6-015"
- },
- "uceprot-001" : {
- "_id" : "uceprot-001",
- "args" : "2",
- "label_e" : "Hlášení o špatně nakonfigurovaném mail serveru (Backscatter Report)",
- "cmd_help" : "[source IP] [original log line]",
- "cmd_example" : "195.113.134.254 \"195.113.134.254 B\"",
- "category" : "Abusive.Spam",
- "id" : "uceprot-001",
- "severity" : "low",
- "enabled" : 1,
- "label_s" : "Hlášení o špatně nakonfigurovaných mail serverech (Backscatter Report)",
- "ref" : "https://csirt.cesnet.cz/cs/services/uceprot",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "UCEPROT"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Node[1]/Type[2]",
- "v" : "Data"
- },
- {
- "k" : "Node[1]/Type[3]",
- "v" : "Policy"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Category[1]",
- "v" : "Abusive.Spam"
- },
- {
- "k" : "Description",
- "v" : "Backscatter Report"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$2"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "System $1 contains misconfigured mail server"
- }
- ],
- "title" : "Backscatter Report",
- "class" : "Backscatter Report",
- "analyzer" : "UCEPROT",
- "alias" : "uceprot-001"
- },
- "n6-016" : {
- "_id" : "n6-016",
- "label_e" : "Hlášení o strojích infikovaných malwarem Pushdo (Pushdo Report)",
- "args" : "4",
- "cmd_help" : "[source IP] [target url] [method] [original log line]",
- "cmd_example" : "195.113.134.254 /?Ctrlfunc_qgyF POST \"195.113.134.254 | /?Ctrlfunc_qgyF (HTTP/1.1 POST) 2013-08-08_11:03:50 | P\"",
- "id" : "n6-016",
- "category" : "Intrusion.Botnet",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Hlášení o strojích infikovaných malwarem Pushdo (Pushdo Report)",
- "ref" : "https://csirt.cesnet.cz/cs/services/n6",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "N6"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Type[1]",
- "v" : "Malware"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "tcp"
- },
- {
- "k" : "Source[1]/Proto[2]",
- "v" : "http"
- },
- {
- "k" : "Source[1]/Note",
- "v" : "HTTP method: $3"
- },
- {
- "k" : "Target[1]/URL[1]",
- "v" : "$2"
- },
- {
- "k" : "Target[1]/Proto[1]",
- "v" : "tcp"
- },
- {
- "k" : "Category[1]",
- "v" : "Intrusion.Botnet"
- },
- {
- "k" : "Description",
- "v" : "Pushdo Report"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$4"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Host $1 is infected with Pushdo malware ($3)"
- }
- ],
- "title" : "Pushdo Report",
- "class" : "Pushdo Report",
- "analyzer" : "N6",
- "alias" : "n6-016"
- },
- "n6-011" : {
- "_id" : "n6-011",
- "label_e" : "Hlášení o strojích, které jsou součástí botnetu Kelihos (Kelihos Report)",
- "args" : "2",
- "cmd_help" : "[source IP] [original log line]",
- "cmd_example" : "195.113.134.254 \"195.113.134.254 | 2014-01-06_15:32:27 | K\"",
- "id" : "n6-011",
- "category" : "Intrusion.Botnet",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Hlášení o strojích, které jsou součástí botnetu Kelihos (Kelihos Report)",
- "ref" : "https://csirt.cesnet.cz/cs/services/n6",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "N6"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Type[1]",
- "v" : "Botnet"
- },
- {
- "k" : "Category[1]",
- "v" : "Intrusion.Botnet"
- },
- {
- "k" : "Description",
- "v" : "Kelihos Report"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$2"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Host $1 connected to Kelihos botnet"
- }
- ],
- "title" : "Kelihos Report",
- "class" : "Kelihos Report",
- "analyzer" : "N6",
- "alias" : "n6-011"
- },
- "x4-001" : {
- "_id" : "x4-001",
- "label_e" : "Systém je infikován známým malware a součástí botnetu (Botnet Drone)",
- "args" : "7",
- "cmd_help" : "[source IP] [source port] [target IP] [target port] [botnet] [infection] [original log line]",
- "cmd_example" : "195.113.134.254 1821 198.51.100.44 80 Conficker ConfickerC \"2014-02-25_19:21:32 195.113.134.254 1821 -> 198.51.100.44 80\"",
- "id" : "x4-001",
- "category" : "Malware",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Systémy na následujících IP adresách jsou infikovány známým malware a součástí botnetu (Botnet Drone)",
- "ref" : "https://csirt.cesnet.cz/cs/services/x4",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "X4"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Type[1]",
- "v" : "Malware"
- },
- {
- "k" : "Source[1]/Port[1]",
- "v" : "$2"
- },
- {
- "k" : "Source[1]/Note",
- "v" : "Malware: $6"
- },
- {
- "k" : "Target[1]/%ipt:$3[1]",
- "v" : "$3"
- },
- {
- "k" : "Target[1]/Port[1]",
- "v" : "$4"
- },
- {
- "k" : "Note",
- "v" : "Botnet: $5"
- },
- {
- "k" : "Category[1]",
- "v" : "Intrusion.Botnet"
- },
- {
- "k" : "Category[2]",
- "v" : "Malware"
- },
- {
- "k" : "Description",
- "v" : "Botnet Drone"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$7"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "System $1:$2 connected to $3:$4 and is part of $5 botnet ($6)"
- }
- ],
- "title" : "Botnet Drone",
- "class" : "Botnet Drone",
- "analyzer" : "X4",
- "alias" : "x4-001"
- },
- "warden-spam" : {
- "_id" : "warden-spam",
- "args" : "10",
- "label_e" : "Stroj rozesílal nevyžádanou poštu",
- "cmd_help" : "[analyzer] [analyzer_class] [ip_category] [src_ip] [proto_name] [proto_num] [tgt_port] [count] [note] [origin]",
- "cmd_example" : "analyzer detector ipv4-addr 195.113.134.254 tcp 6 1234 100 \"Additional note\" warden",
- "category" : "Abusive.Spam",
- "id" : "warden-spam",
- "severity" : "low",
- "enabled" : 1,
- "label_s" : "Stroje na následujících IP adresách rozesílají nevyžádanou poštu",
- "ref" : "",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "$1"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "$2"
- },
- {
- "k" : "Source[1]/%ipt:$4[1]",
- "v" : "$4"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "$5"
- },
- {
- "k" : "Target[1]/Port[1]",
- "v" : "$7"
- },
- {
- "k" : "Target[1]/Proto[1]",
- "v" : "$5"
- },
- {
- "k" : "Category[1]",
- "v" : "Abusive.Spam"
- },
- {
- "k" : "Description",
- "v" : "Spam"
- },
- {
- "k" : "ConnCount",
- "v" : "$8"
- },
- {
- "k" : "Note",
- "v" : "$9"
- },
- {
- "k" : "_CESNET/Origin",
- "v" : "$10"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Remote host $4 sent unsolicited emails"
- }
- ],
- "title" : "Spam",
- "class" : "Spam",
- "analyzer" : "",
- "alias" : "warden-spam"
- },
- "sserv-014" : {
- "_id" : "sserv-014",
- "label_e" : "Hlášení o strojích poskytujících službu UDP NETBIOS Name Service, které lze zneužít k útokům typu DDoS (Scan NETBIOS)",
- "args" : "3",
- "cmd_help" : "[source IP] [source port] [original log line]",
- "cmd_example" : "195.113.134.254 137 \"195.113.134.254 (137) 2014-04-22_12:08:24 B\"",
- "id" : "sserv-014",
- "category" : "Vulnerable.Config",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Hlášení o strojích poskytujících službu UDP NETBIOS Name Service, které lze zneužít k útokům typu DDoS (Scan NETBIOS)",
- "ref" : "https://csirt.cesnet.cz/cs/services/sserv",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "SSERV"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Node[1]/Type[2]",
- "v" : "Recon"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Port[1]",
- "v" : "$2"
- },
- {
- "k" : "Source[1]/Type[1]",
- "v" : "Backscatter"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "udp"
- },
- {
- "k" : "Source[1]/Proto[2]",
- "v" : "netbios-ns"
- },
- {
- "k" : "Category[1]",
- "v" : "Vulnerable.Config"
- },
- {
- "k" : "Description",
- "v" : "Scan NETBIOS"
- },
- {
- "k" : "Note",
- "v" : "$3"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "System provides open NETBIOS service and can be misused for massive DDoS attack"
- }
- ],
- "title" : "Scan NETBIOS",
- "class" : "Scan NETBIOS",
- "analyzer" : "SSERV",
- "alias" : "sserv-014"
- },
- "n6-031" : {
- "_id" : "n6-031",
- "args" : "3",
- "label_e" : "Hlášení o zkompromitovaných routerech nebo jiných zařízeních (Router Report)",
- "cmd_help" : "[source IP] [source port] [original log line]",
- "cmd_example" : "195.113.134.254 23 \"195.113.134.254 | 23 | 2014-10-31_12:50:27 | r\"",
- "id" : "n6-031",
- "category" : "Intrusion.Botnet",
- "severity" : "high",
- "enabled" : 1,
- "label_s" : "Hlášení o zkompromitovaných routerech nebo jiných zařízeních (Router Report)",
- "ref" : "https://csirt.cesnet.cz/cs/services/n6",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "N6"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Type[1]",
- "v" : "Malware"
- },
- {
- "k" : "Source[1]/Type[2]",
- "v" : "Botnet"
- },
- {
- "k" : "Source[1]/Port[1]",
- "v" : "$2"
- },
- {
- "k" : "Category[1]",
- "v" : "Intrusion.Botnet"
- },
- {
- "k" : "Description",
- "v" : "Compromised Router Report"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$3"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Router or device $1 is compromised"
- }
- ],
- "title" : "Compromised router or device",
- "class" : "Compromised Router Report",
- "analyzer" : "N6",
- "alias" : "n6-031"
- },
- "dio-other" : {
- "_id" : "dio-other",
- "args" : "8",
- "label_e" : "Pokus o skenování portů",
- "cmd_help" : "[source IP type] [source IP] [protocol name] [protocol number] [source port] [target IP] [target port] [event count]",
- "cmd_example" : "ipv4-addr 195.113.134.254 tcp 6 56 195.113.161.181 56 100",
- "category" : "Recon.Scanning",
- "id" : "dio-other",
- "severity" : "low",
- "enabled" : 1,
- "label_s" : "Stroje na následujících IP adresách se pokusily o skenování portů",
- "ref" : "",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "Dionaea"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "Honeypot"
- },
- {
- "k" : "Node[1]/Type[2]",
- "v" : "Protocol"
- },
- {
- "k" : "Source[1]/%ipt:$2[1]",
- "v" : "$2"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "$3"
- },
- {
- "k" : "Source[1]/Port[1]",
- "v" : "$5"
- },
- {
- "k" : "Target[1]/%ipt:$6[1]",
- "v" : "$6"
- },
- {
- "k" : "Target[1]/Proto[1]",
- "v" : "$3"
- },
- {
- "k" : "Target[1]/Port[1]",
- "v" : "$7"
- },
- {
- "k" : "Category[1]",
- "v" : "Recon.Scanning"
- },
- {
- "k" : "Description",
- "v" : "Portscan"
- },
- {
- "k" : "ConnCount",
- "v" : "$8"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Remote host scanned port $7 from $2:$5"
- }
- ],
- "title" : "Portscan",
- "class" : "Portscan",
- "analyzer" : "Dionaea",
- "alias" : "dio-other"
- },
- "n6-022" : {
- "_id" : "n6-022",
- "label_e" : "Hlášení o strojích infikovaných malwarem Cutwail (Cutwail Report)",
- "args" : "2",
- "cmd_help" : "[source IP] [original log line]",
- "cmd_example" : "195.113.134.254 \"195.113.134.254 | W\"",
- "id" : "n6-022",
- "category" : "Intrusion.Botnet",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Hlášení o strojích infikovaných malwarem Cutwail (Cutwail Report)",
- "ref" : "https://csirt.cesnet.cz/cs/services/n6",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "N6"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Type[1]",
- "v" : "Malware"
- },
- {
- "k" : "Source[1]/Type[2]",
- "v" : "Botnet"
- },
- {
- "k" : "Category[1]",
- "v" : "Intrusion.Botnet"
- },
- {
- "k" : "Description",
- "v" : "Cutwail Report"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$2"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Host $1 is infected with Cutwail malware"
- }
- ],
- "title" : "Cutwail Report",
- "class" : "Cutwail Report",
- "analyzer" : "N6",
- "alias" : "n6-022"
- },
- "sserv-001" : {
- "_id" : "sserv-001",
- "args" : "4",
- "label_e" : "Stroj byl označen jako pravděpodobný řídící server botnetu (Botnet Command and Control)",
- "cmd_help" : "[source IP] [source port] [count] [original log line]",
- "cmd_example" : "195.113.134.254 6667 1 \"195.113.134.254 6667 (#crack-me) C\"",
- "id" : "sserv-001",
- "category" : "Intrusion.Botnet",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Stroje na následujících IP adresách jsou pravděpodobně řídícími servery botnetu (Botnet Command and Control)",
- "ref" : "https://csirt.cesnet.cz/cs/services/sserv",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "SSERV"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Type[1]",
- "v" : "Botnet"
- },
- {
- "k" : "Source[1]/Type[1]",
- "v" : "CC"
- },
- {
- "k" : "Source[1]/Port[1]",
- "v" : "$2"
- },
- {
- "k" : "ConnCount",
- "v" : "$3"
- },
- {
- "k" : "Category[1]",
- "v" : "Intrusion.Botnet"
- },
- {
- "k" : "Description",
- "v" : "Botnet Command and Control"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$4"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "System or service was compromised and is botnet CaC"
- }
- ],
- "title" : "Botnet Command and Control",
- "class" : "Botnet Command and Control",
- "analyzer" : "SSERV",
- "alias" : "sserv-001"
- },
- "n6-033" : {
- "_id" : "n6-033",
- "label_e" : "Hlášení o strojích infikovaných malwarem a zapojených do botnetu (Botnet Infection Report)",
- "args" : "3",
- "cmd_help" : "[source IP] [botnet name] [log line]",
- "cmd_example" : "195.113.134.254 pushdo \"195.113.134.254 2014-11-12_17:54:01 pushdo\"",
- "id" : "n6-033",
- "category" : "Intrusion.Botnet",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Hlášení o strojích infikovaných malwarem a zapojených do botnetu (Botnet Infection Report)",
- "ref" : "https://csirt.cesnet.cz/cs/services/n6",
- "description" : "",
- "note" : "",
- "class" : "Botnet Infection Report",
- "title" : "Botnet Infection Report",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "N6"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Type[1]",
- "v" : "Malware"
- },
- {
- "k" : "Source[1]/Type[2]",
- "v" : "Botnet"
- },
- {
- "k" : "Source[1]/Note",
- "v" : "Botnet name: $2"
- },
- {
- "k" : "Category[1]",
- "v" : "Intrusion.Botnet"
- },
- {
- "k" : "Description",
- "v" : "Botnet Infection Report"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$3"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Host $1 is infected with $2 malware and part of the botnet"
- }
- ],
- "alias" : "n6-033",
- "analyzer" : "N6"
- },
- "warden-webattack" : {
- "_id" : "warden-webattack",
- "label_e" : "Pokus o utok proti webovemu serveru",
- "args" : "10",
- "cmd_help" : "[analyzer] [analyzer_class] [ip_category] [src_ip] [proto_name] [proto_num] [tgt_port] [count] [note] [origin]",
- "cmd_example" : "analyzer detector ipv4-addr 195.113.134.254 tcp 6 1234 100 \"Additional note\" warden",
- "category" : "Attempt.Exploit",
- "id" : "warden-webattack",
- "severity" : "low",
- "enabled" : 1,
- "label_s" : "Pokus o utok proti webovemu serveru",
- "ref" : "",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "$1"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "$2"
- },
- {
- "k" : "Source[1]/%ipt:$4[1]",
- "v" : "$4"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "$5"
- },
- {
- "k" : "Target[1]/Port[1]",
- "v" : "$7"
- },
- {
- "k" : "Target[1]/Proto[1]",
- "v" : "$5"
- },
- {
- "k" : "Category[1]",
- "v" : "Attempt.Exploit"
- },
- {
- "k" : "Description",
- "v" : "Webattack"
- },
- {
- "k" : "ConnCount",
- "v" : "$8"
- },
- {
- "k" : "Note",
- "v" : "$9"
- },
- {
- "k" : "_CESNET/Origin",
- "v" : "$10"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Remote host tried open URLs from $4"
- }
- ],
- "title" : "Webattack",
- "class" : "Webattack",
- "analyzer" : "",
- "alias" : "warden-webattack"
- },
- "warden-vulnerability" : {
- "_id" : "warden-vulnerability",
- "label_e" : "Stroj obsahuje bezpečnostní zranitelnost",
- "args" : "10",
- "cmd_help" : "[analyzer] [analyzer_class] [ip_category] [src_ip] [proto_name] [proto_num] [tgt_port] [count] [note] [origin]",
- "cmd_example" : "analyzer detector ipv4-addr 195.113.134.254 tcp 6 1234 100 \"Additional note\" warden",
- "category" : "Vulnerable",
- "id" : "warden-vulnerability",
- "severity" : "low",
- "enabled" : 1,
- "label_s" : "Stroje obsahují bezpečnostní zranitelnosti",
- "ref" : "",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "$1"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "$2"
- },
- {
- "k" : "Source[1]/%ipt:$4[1]",
- "v" : "$4"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "$5"
- },
- {
- "k" : "Target[1]/Port[1]",
- "v" : "$7"
- },
- {
- "k" : "Target[1]/Proto[1]",
- "v" : "$5"
- },
- {
- "k" : "Category[1]",
- "v" : "Vulnerable"
- },
- {
- "k" : "Description",
- "v" : "Security vulnerability"
- },
- {
- "k" : "ConnCount",
- "v" : "$8"
- },
- {
- "k" : "Note",
- "v" : "$9"
- },
- {
- "k" : "_CESNET/Origin",
- "v" : "$10"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Remote host $4 contains security vulnerability"
- }
- ],
- "title" : "Security vulnerability",
- "class" : "Security vulnerability",
- "analyzer" : "",
- "alias" : "warden-vulnerability"
- },
- "n6-017" : {
- "_id" : "n6-017",
- "label_e" : "Hlášení o strojích infikovaných malwarem Moure (Moure Sinkhole Report I)",
- "args" : "5",
- "cmd_help" : "[source IP] [source port] [target IP] [target port] [original log line]",
- "cmd_example" : "195.113.134.254 1056 198.51.100.71 80 \"195.113.134.254 | 1056 -> 198.51.100.71 | 80 | 2013-08-08_22:55:19 | R\"",
- "id" : "n6-017",
- "category" : "Intrusion.Botnet",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Hlášení o strojích infikovaných malwarem Moure (Moure Sinkhole Report I)",
- "ref" : "https://csirt.cesnet.cz/cs/services/n6",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "N6"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Node[1]/Type[2]",
- "v" : "Blackhole"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Port[1]",
- "v" : "$2"
- },
- {
- "k" : "Target[1]/%ipt:$3[1]",
- "v" : "$3"
- },
- {
- "k" : "Target[1]/Port[1]",
- "v" : "$4"
- },
- {
- "k" : "Category[1]",
- "v" : "Intrusion.Botnet"
- },
- {
- "k" : "Description",
- "v" : "Moure Sinkhole Report I"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$5"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Host $1:$2 connected to $3:$4 and is infected with Moure malware"
- }
- ],
- "title" : "Moure Sinkhole Report I",
- "class" : "Moure Sinkhole Report I",
- "analyzer" : "N6",
- "alias" : "n6-017"
- },
- "n6-004" : {
- "_id" : "n6-004",
- "label_e" : "Hlášení o strojích infikovaných malwarem Citadel (Citadel Report)",
- "args" : "5",
- "cmd_help" : "[source IP] [target host] [target url] [http method] [original log line]",
- "cmd_example" : "195.113.134.254 evil.org /c/hluz.php POST \"195.113.134.254 -> evil.org | /c/hluz.php (HTTP/1.1 POST) 2012-11-29_11:03:50 | C\"",
- "id" : "n6-004",
- "category" : "Intrusion.Botnet",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Hlášení o strojích infikovaných malwarem Citadel (Citadel Report)",
- "ref" : "https://csirt.cesnet.cz/cs/services/n6",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "N6"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Type[1]",
- "v" : "Botnet"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "tcp"
- },
- {
- "k" : "Source[1]/Proto[2]",
- "v" : "http"
- },
- {
- "k" : "Source[1]/Note",
- "v" : "HTTP method: $4"
- },
- {
- "k" : "Target[1]/URL[1]",
- "v" : "http://$2/$3"
- },
- {
- "k" : "Target[1]/Proto[1]",
- "v" : "tcp"
- },
- {
- "k" : "Target[1]/Proto[2]",
- "v" : "http"
- },
- {
- "k" : "Category[1]",
- "v" : "Intrusion.Botnet"
- },
- {
- "k" : "Description",
- "v" : "Citadel Report"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$5"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Host $1 connected to $2 ($3) and is infected with Citadel malware"
- }
- ],
- "title" : "Citadel Report",
- "class" : "Citadel Report",
- "analyzer" : "N6",
- "alias" : "n6-004"
- },
- "connection-test" : {
- "_id" : "connection-test",
- "args" : "1",
- "label_e" : "Connection test",
- "cmd_help" : "[source IP]",
- "cmd_example" : "1.1.1.1",
- "category" : "Test",
- "id" : "connection-test",
- "severity" : "low",
- "enabled" : 1,
- "label_s" : "Connection test",
- "ref" : "",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "CONNTEST"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "CONNTEST"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Category[1]",
- "v" : "Test"
- },
- {
- "k" : "Description",
- "v" : "Connection test"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Connection test"
- }
- ],
- "title" : "Connection test",
- "class" : "Connection test",
- "analyzer" : "Mentat",
- "alias" : "connection-test"
- },
- "x2-003" : {
- "_id" : "x2-003",
- "label_e" : "Hlášení o nebezpečném obsahu na infikovaných strojích (Malware URL)",
- "args" : "3",
- "cmd_help" : "[source IP] [url] [original log line]",
- "cmd_example" : "195.113.134.254 hXXp://www.example.org/doc/index.html \"195.113.134.254 | 2013-01-15_13:56:53 | malwareurl: hXXp://www.example.org/doc/index.html\"",
- "id" : "x2-003",
- "category" : "Malware",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Hlášení o nebezpečném obsahu na infikovaných strojích (Malware URL)",
- "ref" : "https://csirt.cesnet.cz/cs/services/x2",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "X2"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "tcp"
- },
- {
- "k" : "Source[1]/Proto[2]",
- "v" : "http"
- },
- {
- "k" : "Source[1]/URL[1]",
- "v" : "$2"
- },
- {
- "k" : "Category[1]",
- "v" : "Malware"
- },
- {
- "k" : "Description",
- "v" : "Malware URL"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$3"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "System $1 contains malware at $2"
- }
- ],
- "title" : "Malware URL",
- "class" : "Malware URL",
- "analyzer" : "X2",
- "alias" : "x2-003"
- },
- "dio-mysqld" : {
- "_id" : "dio-mysqld",
- "label_e" : "Pokus o útok na MySQL server",
- "args" : "6",
- "cmd_help" : "[source IP type] [source IP] [source port] [target IP] [target port] [event count]",
- "cmd_example" : "ipv4-addr 195.113.134.254 56 195.113.161.181 56 100",
- "category" : "Attempt.Exploit",
- "id" : "dio-mysqld",
- "severity" : "low",
- "enabled" : 1,
- "label_s" : "Stroje na následujících IP adresách se pokusily zaútočit na MySQL server",
- "ref" : "",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "Dionaea"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "Honeypot"
- },
- {
- "k" : "Node[1]/Type[2]",
- "v" : "Protocol"
- },
- {
- "k" : "Source[1]/%ipt:$2[1]",
- "v" : "$2"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "tcp"
- },
- {
- "k" : "Source[1]/Proto[2]",
- "v" : "mysql"
- },
- {
- "k" : "Source[1]/Port[1]",
- "v" : "$3"
- },
- {
- "k" : "Target[1]/%ipt:$4[1]",
- "v" : "$4"
- },
- {
- "k" : "Target[1]/Proto[1]",
- "v" : "tcp"
- },
- {
- "k" : "Target[1]/Proto[2]",
- "v" : "sql"
- },
- {
- "k" : "Target[1]/Port[1]",
- "v" : "$5"
- },
- {
- "k" : "Category[1]",
- "v" : "Recon.Scanning"
- },
- {
- "k" : "Category[2]",
- "v" : "Attempt.Exploit"
- },
- {
- "k" : "Description",
- "v" : "SQL query attack attempt"
- },
- {
- "k" : "ConnCount",
- "v" : "$6"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Remote host connected to MySQL on port $5 from $2:$3"
- }
- ],
- "title" : "MySQL query attack attempt",
- "class" : "SQL query attack attempt",
- "analyzer" : "Dionaea",
- "alias" : "dio-mysqld"
- },
- "sserv-012" : {
- "_id" : "sserv-012",
- "args" : "4",
- "label_e" : "Hlášení o strojích poskytujících službu SSDP, které lze zneužít k masivním útokům typu DDoS (Scan SSDP)",
- "cmd_help" : "[source IP] [source port] [system name] [original log line]",
- "cmd_example" : "195.113.134.254 1900 \"XRX_OS/1.0 UPnP/1.0 Phaser 8550DP\" \"195.113.134.254 1900 (XRX_OS/1.0 UPnP/1.0 Phaser 8550DP) 2014-03-27_14:03:16 S\"",
- "id" : "sserv-012",
- "category" : "Vulnerable.Config",
- "severity" : "high",
- "enabled" : 1,
- "label_s" : "Hlášení o strojích poskytujících službu SSDP, které lze zneužít k masivním útokům typu DDoS (Scan SSDP)",
- "ref" : "https://csirt.cesnet.cz/cs/services/sserv",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "SSERV"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Node[1]/Type[2]",
- "v" : "Recon"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Port[1]",
- "v" : "$2"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "udp"
- },
- {
- "k" : "Source[1]/Proto[2]",
- "v" : "ssdp"
- },
- {
- "k" : "Source[1]/Note",
- "v" : "System name: $3"
- },
- {
- "k" : "Category[1]",
- "v" : "Vulnerable.Config"
- },
- {
- "k" : "Description",
- "v" : "Scan SSDP"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$4"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "System provides SDDP service and can be misused for massive DDoS attack"
- }
- ],
- "title" : "Scan SSDP",
- "class" : "Scan SSDP",
- "analyzer" : "SSERV",
- "alias" : "sserv-012"
- },
- "n6-019" : {
- "_id" : "n6-019",
- "args" : "4",
- "label_e" : "Informace o zkompromitovanych Systemech pro spravu obsahu (Compromised CMS Report)",
- "cmd_help" : "[source IP] [source url] [CMS name] [original log line]",
- "cmd_example" : "195.113.134.254 hXXp://g3.example.eu/wp-login.php:admin Wordpress \"195.113.134.254 | hXXp://g3.example.eu/wp-login.php:admin | Wordpress | S\"",
- "id" : "n6-019",
- "category" : "Intrusion.AppCompromise",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Informace o zkompromitovanych Systemech pro spravu obsahu (Compromised CMS Report)",
- "ref" : "https://csirt.cesnet.cz/cs/services/n6",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "N6"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "tcp"
- },
- {
- "k" : "Source[1]/Proto[2]",
- "v" : "http"
- },
- {
- "k" : "Source[1]/URL[1]",
- "v" : "$2"
- },
- {
- "k" : "Target[1]/note",
- "v" : "CMS name: $3"
- },
- {
- "k" : "Target[1]/Proto[1]",
- "v" : "tcp"
- },
- {
- "k" : "Target[1]/Proto[2]",
- "v" : "http"
- },
- {
- "k" : "Category[1]",
- "v" : "Intrusion.AppCompromise"
- },
- {
- "k" : "Description",
- "v" : "Compromised CMS Report"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$4"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Host $1 contains compromised CMS system $3 at $2"
- }
- ],
- "title" : "Compromised CMS Report",
- "class" : "Compromised CMS Report",
- "analyzer" : "N6",
- "alias" : "n6-019"
- },
- "n6-008" : {
- "_id" : "n6-008",
- "label_e" : "Hlášení o strojích infikovaných malwarem Zeus Gameover (Zeus Gameover Report)",
- "args" : "4",
- "cmd_help" : "[source IP] [source port] [malware] [original log line]",
- "cmd_example" : "195.113.134.254 9073 \"known on p2p network\" \"195.113.134.254 | 9073 (UDP) | known on p2p network | 2013-11-07_17:41:37 | G\"",
- "id" : "n6-008",
- "category" : "Intrusion.Botnet",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Hlášení o strojích infikovaných malwarem Zeus Gameover (Zeus Gameover Report)",
- "ref" : "https://csirt.cesnet.cz/cs/services/n6",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "N6"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Port[1]",
- "v" : "$2"
- },
- {
- "k" : "Note",
- "v" : "Malware: $3"
- },
- {
- "k" : "Category[1]",
- "v" : "Intrusion.Botnet"
- },
- {
- "k" : "Description",
- "v" : "Zeus Gameover Report"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$4"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Host $1:$2 is infected with Zeus Gameover malware ($3)"
- }
- ],
- "title" : "Zeus Gameover Report",
- "class" : "Zeus Gameover Report",
- "analyzer" : "N6",
- "alias" : "n6-008"
- },
- "sserv-005" : {
- "_id" : "sserv-005",
- "label_e" : "Stroj funguje jako otevřený DNS resolver a může být zneužit pro masivní DDoS útoky (Open DNS Resolver)",
- "args" : "2",
- "cmd_help" : "[source IP] [original log line]",
- "cmd_example" : "195.113.134.254 \"195.113.134.254 (4.2381 dnsmasq-2.32) 2013-11-12_20:09:31 R\"",
- "id" : "sserv-005",
- "category" : "Vulnerable.Config",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Stroje na následujících IP adresách fungují jako otevřené DNS resolvery a mohou být zneužity pro masivní DDoS útoky (Open DNS Resolver)",
- "ref" : "https://csirt.cesnet.cz/cs/services/sserv",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "SSERV"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Node[1]/Type[2]",
- "v" : "Recon"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "udp"
- },
- {
- "k" : "Source[1]/Proto[2]",
- "v" : "domain"
- },
- {
- "k" : "Source[1]/Type[1]",
- "v" : "Backscatter"
- },
- {
- "k" : "Category[1]",
- "v" : "Vulnerable.Config"
- },
- {
- "k" : "Description",
- "v" : "Open DNS Resolver"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$2"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Host $1 is ORR can be misused to DDoS attack"
- }
- ],
- "title" : "Open DNS Resolver",
- "class" : "Open DNS Resolver",
- "analyzer" : "SSERV",
- "alias" : "sserv-005"
- },
- "x2-005" : {
- "_id" : "x2-005",
- "label_e" : "Hlášení o otevřeném proxy serveru na (typicky) zkompromitovaném počítači (Proxy server)",
- "args" : "2",
- "cmd_help" : "[source IP] [original log line]",
- "cmd_example" : "195.113.134.254 \"195.113.134.254 | 2013-02-27_13:32:11 | proxy: SOCKS4 (21147)\"",
- "id" : "x2-005",
- "category" : "Vulnerable",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Hlášení o otevřeném proxy serveru na (typicky) zkompromitovaném počítači (Proxy server)",
- "ref" : "https://csirt.cesnet.cz/cs/services/x2",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "X2"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Type[1]",
- "v" : "Proxy"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "tcp"
- },
- {
- "k" : "Category[1]",
- "v" : "Vulnerable"
- },
- {
- "k" : "Description",
- "v" : "Proxy server"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$2"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "System $1 acts as open proxy"
- }
- ],
- "title" : "Proxy server",
- "class" : "Proxy server",
- "analyzer" : "X2",
- "alias" : "x2-005"
- },
- "warden-probe" : {
- "_id" : "warden-probe",
- "args" : "10",
- "label_e" : "Skenování portů vzdáleného stroje",
- "cmd_help" : "[analyzer] [analyzer_class] [ip_category] [src_ip] [proto_name] [proto_num] [tgt_port] [count] [note] [origin]",
- "cmd_example" : "analyzer detector ipv4-addr 195.113.134.254 tcp 6 1234 100 \"Additional note\" warden",
- "category" : "Recon.Scanning",
- "id" : "warden-probe",
- "severity" : "low",
- "enabled" : 1,
- "label_s" : "Skenování portů vzdáleného stroje",
- "ref" : "",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "$1"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "$2"
- },
- {
- "k" : "Source[1]/%ipt:$4[1]",
- "v" : "$4"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "$5"
- },
- {
- "k" : "Target[1]/Port[1]",
- "v" : "$7"
- },
- {
- "k" : "Target[1]/Proto[1]",
- "v" : "$5"
- },
- {
- "k" : "Category[1]",
- "v" : "Recon.Scanning"
- },
- {
- "k" : "Description",
- "v" : "Probe"
- },
- {
- "k" : "ConnCount",
- "v" : "$8"
- },
- {
- "k" : "Note",
- "v" : "$9"
- },
- {
- "k" : "_CESNET/Origin",
- "v" : "$10"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Remote host $4 performed unrecognized portscan"
- }
- ],
- "title" : "Probe",
- "class" : "Probe",
- "analyzer" : "",
- "alias" : "warden-probe"
- },
- "sserv-011" : {
- "_id" : "sserv-011",
- "label_e" : "Hlášení o strojích poskytujících službu UDP Quote of the Day, které lze zneužít k útokům typu DDoS (Scan QOTD)",
- "args" : "3",
- "cmd_help" : "[source IP] [source port] [original log line]",
- "cmd_example" : "195.113.134.254 17 \"195.113.134.254 (17) 2014-03-28_08:57:09 Q\"",
- "id" : "sserv-011",
- "category" : "Vulnerable.Config",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Hlášení o strojích poskytujících službu UDP Quote of the Day, které lze zneužít k útokům typu DDoS (Scan QOTD)",
- "ref" : "https://csirt.cesnet.cz/cs/services/sserv",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "SSERV"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Node[1]/Type[2]",
- "v" : "Recon"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Port[1]",
- "v" : "$2"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "udp"
- },
- {
- "k" : "Source[1]/Proto[2]",
- "v" : "qotd"
- },
- {
- "k" : "Category[1]",
- "v" : "Vulnerable.Config"
- },
- {
- "k" : "Description",
- "v" : "Scan QOTD"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$3"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "System provides UDP QOTD service and can be misused for massive DDoS attack"
- }
- ],
- "title" : "Scan QOTD",
- "class" : "Scan QOTD",
- "analyzer" : "SSERV",
- "alias" : "sserv-011"
- },
- "n6-005" : {
- "_id" : "n6-005",
- "label_e" : "Hlášení o strojích infikovaných malwarem Dorkbot (Dorkbot Report)",
- "args" : "5",
- "cmd_help" : "[source IP] [target IP] [duration] [bot name] [original log line]",
- "cmd_example" : "195.113.134.254 198.51.100.23 2:29:14 {CZ|W7u}inpvqeu!~inpvqeu@will.not.show.it \"195.113.134.254 -> 198.51.100.23 (2:29:14) {CZ|W7u}inpvqeu!~inpvqeu@will.not.show.it | 2012-12-12_18:42:49 | D\"",
- "id" : "n6-005",
- "category" : "Intrusion.Botnet",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Hlášení o strojích infikovaných malwarem Dorkbot (Dorkbot Report)",
- "ref" : "https://csirt.cesnet.cz/cs/services/n6",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "N6"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Type[1]",
- "v" : "Botnet"
- },
- {
- "k" : "Target[1]/%ipt:$2[1]",
- "v" : "$2"
- },
- {
- "k" : "Category[1]",
- "v" : "Intrusion.Botnet"
- },
- {
- "k" : "Description",
- "v" : "Dorkbot Report"
- },
- {
- "k" : "Note",
- "v" : "Duration: $3, Bot name: $4"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$5"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Host $1 connected to $2 and is infected with Dorkbot malware ($4)"
- }
- ],
- "title" : "Dorkbot Report",
- "class" : "Dorkbot Report",
- "analyzer" : "N6",
- "alias" : "n6-005"
- },
- "sserv-004" : {
- "_id" : "sserv-004",
- "label_e" : "Stroj slouží jako proxy pro rozesílání spamu, nebo napadání dalších strojů (Botnet Proxy)",
- "args" : "3",
- "cmd_help" : "[source IP] [source port] [original log line]",
- "cmd_example" : "195.113.134.254 80 \"195.113.134.254 80 (HTTPPROXY) 2011-03-10_11:57:00 P\"",
- "id" : "sserv-004",
- "category" : "Vulnerable",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Stroje na následujících IP adresách jsou infikovány a slouží jako proxy pro rozesílání spamu, nebo napadání dalších strojů (Botnet Proxy)",
- "ref" : "https://csirt.cesnet.cz/cs/services/sserv",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "SSERV"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Port[1]",
- "v" : "$2"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "tcp"
- },
- {
- "k" : "Source[1]/Proto[2]",
- "v" : "http"
- },
- {
- "k" : "Source[1]/Type[1]",
- "v" : "Proxy"
- },
- {
- "k" : "Category[1]",
- "v" : "Vulnerable"
- },
- {
- "k" : "Description",
- "v" : "Botnet Proxy"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$3"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Host $1 is compromised and acts as open proxy for botnet, spam etc."
- }
- ],
- "title" : "Botnet Proxy",
- "class" : "Botnet Proxy",
- "analyzer" : "SSERV",
- "alias" : "sserv-004"
- },
- "n6-027" : {
- "_id" : "n6-027",
- "label_e" : "Hlášení o strojích infikovaných malwarem Tinba (Tinba Report)",
- "args" : "4",
- "cmd_help" : "[source IP] [method] [target domain] [original log line]",
- "cmd_example" : "195.113.134.254 GET zy37qwfad93.com \"195.113.134.254 | GET | zy37qwfad93.com | 2014-07-22_14:20:13 | T\"",
- "id" : "n6-027",
- "category" : "Intrusion.Botnet",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Hlášení o strojích infikovaných malwarem Tinba (Tinba Report)",
- "ref" : "https://csirt.cesnet.cz/cs/services/n6",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "N6"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Type[1]",
- "v" : "Malware"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "tcp"
- },
- {
- "k" : "Source[1]/Proto[2]",
- "v" : "http"
- },
- {
- "k" : "Source[1]/Note",
- "v" : "HTTP method: $2"
- },
- {
- "k" : "Target[1]/Hostname[1]",
- "v" : "$3"
- },
- {
- "k" : "Target[1]/Proto[1]",
- "v" : "tcp"
- },
- {
- "k" : "Target[1]/Proto[2]",
- "v" : "http"
- },
- {
- "k" : "Category[1]",
- "v" : "Intrusion.Botnet"
- },
- {
- "k" : "Description",
- "v" : "Tinba Report"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$4"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Host $1 is infected with Tinba malware pointing to domain $3"
- }
- ],
- "title" : "Tinba Report",
- "class" : "Tinba Report",
- "analyzer" : "N6",
- "alias" : "n6-027"
- },
- "sserv-015" : {
- "_id" : "sserv-015",
- "label_e" : "Hlášení o webových serverech zkompromitovaných prostřednictvím botnetů. Mohou na nich běžet staré verze CMS (Joomla/Drupal/Wordpress) nebo užívají zkompromitovaných/slabých hesel správců (Compromised website)",
- "args" : "5",
- "cmd_help" : "[source IP] [port] [hostname] [URL] [original log line]",
- "cmd_example" : "195.113.134.254 80 kariera.utb.cz images/821/72/css.php \"192.0.2.254|80 (hXXp,kariera.utb.cz,images/821/72/css.php) stealrat-t1|spam|2014-06-19_04:30:37|W\"",
- "id" : "sserv-015",
- "category" : "Intrusion.UserCompromise",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Hlášení o webových serverech zkompromitovaných prostřednictvím botnetů. Mohou na nich běžet staré verze CMS (Joomla/Drupal/Wordpress) nebo užívají zkompromitovaných/slabých hesel správců (Compromised website)",
- "ref" : "https://csirt.cesnet.cz/cs/services/sserv",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "SSERV"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Port[1]",
- "v" : "$2"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "tcp"
- },
- {
- "k" : "Source[1]/Proto[2]",
- "v" : "http"
- },
- {
- "k" : "Source[1]/Hostname[1]",
- "v" : "$3"
- },
- {
- "k" : "Source[1]/URL[1]",
- "v" : "$4"
- },
- {
- "k" : "Category[1]",
- "v" : "Intrusion.AppCompromise"
- },
- {
- "k" : "Category[2]",
- "v" : "Intrusion.UserCompromise"
- },
- {
- "k" : "Description",
- "v" : "Compromised website"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$5"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "System $1 ($3) provides compromised website at $4"
- }
- ],
- "title" : "Compromised website",
- "class" : "Compromised website",
- "analyzer" : "SSERV",
- "alias" : "sserv-015"
- },
- "n6-018" : {
- "_id" : "n6-018",
- "label_e" : "Hlášení o strojích infikovaných malwarem Moure (Moure Sinkhole Report II)",
- "args" : "5",
- "cmd_help" : "[source IP] [method] [host] [target url] [original log line]",
- "cmd_example" : "195.113.134.254 GET emigit.zz /9c6815ZcJl3an \"195.113.134.254 | GET emigit.zz /9c6815ZcJl3an | RR\"",
- "id" : "n6-018",
- "category" : "Intrusion.Botnet",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Hlášení o strojích infikovaných malwarem Moure (Moure Sinkhole Report II)",
- "ref" : "https://csirt.cesnet.cz/cs/services/n6",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "N6"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Node[1]/Type[2]",
- "v" : "Blackhole"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Type[1]",
- "v" : "Malware"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "tcp"
- },
- {
- "k" : "Source[1]/Proto[2]",
- "v" : "http"
- },
- {
- "k" : "Source[1]/Note",
- "v" : "HTTP method: $2"
- },
- {
- "k" : "Target[1]/URL[1]",
- "v" : "http://$3/$4"
- },
- {
- "k" : "Target[1]/Proto[1]",
- "v" : "tcp"
- },
- {
- "k" : "Target[1]/Proto[2]",
- "v" : "http"
- },
- {
- "k" : "Category[1]",
- "v" : "Intrusion.Botnet"
- },
- {
- "k" : "Description",
- "v" : "Moure Sinkhole Report II"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$5"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Host $1 connected to $3 ($4) and is infected with Moure malware"
- }
- ],
- "title" : "Moure Sinkhole Report II",
- "class" : "Moure Sinkhole Report II",
- "analyzer" : "N6",
- "alias" : "n6-018"
- },
- "sserv-013" : {
- "_id" : "sserv-013",
- "args" : "4",
- "label_e" : "Hlášení o otevřených NTP serverech, které lze zneužít k útokům typu DDoS prostřednictvím dotazů typu Mode 6 (Scan NTP)",
- "cmd_help" : "[source IP] [source port] [system name] [original log line]",
- "cmd_example" : "195.113.134.254 123 \"XRX_OS/1.0 UPnP/1.0 Phaser 8550DP\" \"195.113.134.254 123 (ntpd 4.2.4p5-a1) 2014-03-27_14:03:16 T\"",
- "id" : "sserv-013",
- "category" : "Vulnerable.Config",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Hlášení o otevřených NTP serverech, které lze zneužít k útokům typu DDoS prostřednictvím dotazů typu Mode 6 (Scan NTP)",
- "ref" : "https://csirt.cesnet.cz/cs/services/sserv",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "SSERV"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Node[1]/Type[2]",
- "v" : "Recon"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Port[1]",
- "v" : "$2"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "udp"
- },
- {
- "k" : "Source[1]/Proto[2]",
- "v" : "ntp"
- },
- {
- "k" : "Source[1]/Note",
- "v" : "System name: $3"
- },
- {
- "k" : "Category[1]",
- "v" : "Vulnerable.Config"
- },
- {
- "k" : "Description",
- "v" : "Scan NTP"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$4"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "System $3 provides open NTP service and can be misused for massive DDoS attack"
- }
- ],
- "title" : "Scan NTP",
- "class" : "Scan NTP",
- "analyzer" : "SSERV",
- "alias" : "sserv-013"
- },
- "n6-024" : {
- "_id" : "n6-024",
- "label_e" : "Hlášení o strojích infikovaných malwarem Power Zeus (Power Zeus Report)",
- "args" : "4",
- "cmd_help" : "[source IP] [source url] [method] [original log line]",
- "cmd_example" : "195.113.134.254 /dropfilms/data.php POST \"195.113.134.254 | /dropfilms/data.php (HTTP/1.1 POST) 2013-10-22_18:59:21 | Z\"",
- "id" : "n6-024",
- "category" : "Intrusion.Botnet",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Hlášení o strojích infikovaných malwarem Power Zeus (Power Zeus Report)",
- "ref" : "https://csirt.cesnet.cz/cs/services/n6",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "N6"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Type[1]",
- "v" : "Malware"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "tcp"
- },
- {
- "k" : "Source[1]/Proto[2]",
- "v" : "http"
- },
- {
- "k" : "Source[1]/URL[1]",
- "v" : "$2"
- },
- {
- "k" : "Source[1]/Note",
- "v" : "HTTP method: $3"
- },
- {
- "k" : "Category[1]",
- "v" : "Intrusion.Botnet"
- },
- {
- "k" : "Description",
- "v" : "Power Zeus Report"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$4"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Host $1 provides malicious URL $2 and is infected with Power Zeus malware"
- }
- ],
- "title" : "Power Zeus Report",
- "class" : "Power Zeus Report",
- "analyzer" : "N6",
- "alias" : "n6-024"
- },
- "sserv-002" : {
- "_id" : "sserv-002",
- "label_e" : "Komunikace se známými řídícími servery botnetu (Botnet Drone)",
- "args" : "6",
- "cmd_help" : "[source IP] [source port] [target IP] [target port] [infection] [original log line]",
- "cmd_example" : "195.113.134.254 2389 10.12.34.166 80 ConfickerC \"195.113.134.254 2389 -> 10.12.34.166 80 (ConfickerC) 2010-11-18_09:59:56 D\"",
- "id" : "sserv-002",
- "category" : "Intrusion.Botnet",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Stroje na následujících IP adresách komunikovaly se známými řídícími servery botnetu (Botnet Drone)",
- "ref" : "https://csirt.cesnet.cz/cs/services/sserv",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "SSERV"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Port[1]",
- "v" : "$2"
- },
- {
- "k" : "Source[1]/Note",
- "v" : "Malware: $5"
- },
- {
- "k" : "Source[1]/Type[1]",
- "v" : "Botnet"
- },
- {
- "k" : "Target[1]/%ipt:$3[1]",
- "v" : "$3"
- },
- {
- "k" : "Target[1]/Port[1]",
- "v" : "$4"
- },
- {
- "k" : "Target[1]/Type[1]",
- "v" : "Botnet"
- },
- {
- "k" : "Target[1]/Type[2]",
- "v" : "CC"
- },
- {
- "k" : "Category[1]",
- "v" : "Intrusion.Botnet"
- },
- {
- "k" : "Description",
- "v" : "Botnet Drone"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$6"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Host $1 connected to $3 and is now part of botnet ($5)"
- }
- ],
- "title" : "Botnet Drone",
- "class" : "Botnet Drone",
- "analyzer" : "SSERV",
- "alias" : "sserv-002"
- },
- "n6-025" : {
- "_id" : "n6-025",
- "label_e" : "Hlášení o strojích, na kterých je nainstalováno zranitelné OpenSSL (Heartbleed Report)",
- "args" : "2",
- "cmd_help" : "[source IP] [original log line]",
- "cmd_example" : "195.113.134.254 \"195.113.134.254 | 2014-04-11_16:13:47 | H\"",
- "id" : "n6-025",
- "category" : "Vulnerable.Open",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Hlášení o strojích, na kterých je nainstalováno zranitelné OpenSSL (Heartbleed Report)",
- "ref" : "https://csirt.cesnet.cz/cs/services/n6",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "N6"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Node[1]/Type[2]",
- "v" : "Recon"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Ref[1]",
- "v" : "urn:cve:CVE-2014-0160"
- },
- {
- "k" : "Category[1]",
- "v" : "Vulnerable.Open"
- },
- {
- "k" : "Description",
- "v" : "Heartbleed Report"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$2"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Host $1 contains Heartbleed vulnerability"
- }
- ],
- "title" : "Heartbleed Report",
- "class" : "Heartbleed Report",
- "analyzer" : "N6",
- "alias" : "n6-025"
- },
- "x2-004" : {
- "_id" : "x2-004",
- "label_e" : "Stroj funguje jako otevřený DNS resolver a může být zneužit pro masivní DDoS útoky (Open DNS Resolver)",
- "args" : "2",
- "cmd_help" : "[source IP] [original log line]",
- "cmd_example" : "195.113.134.254 \"195.113.134.254 | 2013-01-16_06:14:20 | openresolver\"",
- "id" : "x2-004",
- "category" : "Vulnerable.Config",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Stroje na následujících IP adresách fungují jako otevřené DNS resolvery a mohou být zneužity pro masivní DDoS útoky (Open DNS Resolver)",
- "ref" : "https://csirt.cesnet.cz/cs/services/x2",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "X2"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "udp"
- },
- {
- "k" : "Source[1]/Proto[2]",
- "v" : "dns"
- },
- {
- "k" : "Category[1]",
- "v" : "Vulnerable.Config"
- },
- {
- "k" : "Description",
- "v" : "Open DNS Resolver"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$2"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "System $1 is ORR and can be misused to DDoS attacks"
- }
- ],
- "title" : "Open DNS Resolver",
- "class" : "Open DNS Resolver",
- "analyzer" : "X2",
- "alias" : "x2-004"
- },
- "dio-httpd" : {
- "_id" : "dio-httpd",
- "args" : "6",
- "label_e" : "Pokus o zneužití webového serveru prostřednictvím URL",
- "cmd_help" : "[source IP type] [source IP] [source port] [target IP] [target port] [event count]",
- "cmd_example" : "ipv4-addr 195.113.134.254 56 195.113.161.181 56 100",
- "category" : "Attempt.Exploit",
- "id" : "dio-httpd",
- "severity" : "low",
- "enabled" : 1,
- "label_s" : "Stroje na následujících IP adresách se pokusily zneužít webový server prostřednictvím URL",
- "ref" : "",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "Dionaea"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "Honeypot"
- },
- {
- "k" : "Node[1]/Type[2]",
- "v" : "Protocol"
- },
- {
- "k" : "Source[1]/%ipt:$2[1]",
- "v" : "$2"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "tcp"
- },
- {
- "k" : "Source[1]/Proto[2]",
- "v" : "http"
- },
- {
- "k" : "Source[1]/Port[1]",
- "v" : "$3"
- },
- {
- "k" : "Target[1]/%ipt:$4[1]",
- "v" : "$4"
- },
- {
- "k" : "Target[1]/Proto[1]",
- "v" : "tcp"
- },
- {
- "k" : "Target[1]/Proto[2]",
- "v" : "http"
- },
- {
- "k" : "Target[1]/Port[1]",
- "v" : "$5"
- },
- {
- "k" : "Category[1]",
- "v" : "Recon.Scanning"
- },
- {
- "k" : "Category[2]",
- "v" : "Attempt.Exploit"
- },
- {
- "k" : "Description",
- "v" : "URL attack attempt"
- },
- {
- "k" : "ConnCount",
- "v" : "$6"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Remote host tried to open URLs on port $5 from $2:$3"
- }
- ],
- "title" : "URL attack attempt",
- "class" : "URL attack attempt",
- "analyzer" : "Dionaea",
- "alias" : "dio-httpd"
- },
- "x2-001" : {
- "_id" : "x2-001",
- "label_e" : "Hlášení o infikovaných strojích, které jsou součástí botnetů (Bots)",
- "args" : "3",
- "cmd_help" : "[source IP] [malware type] [original log line]",
- "cmd_example" : "195.113.134.254 Torpig \"195.113.134.254 | 2013-01-14_07:34:34 | bots: mwtype Torpig\"",
- "id" : "x2-001",
- "category" : "Intrusion.Botnet",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Hlášení o infikovaných strojích, které jsou součástí botnetů (Bots)",
- "ref" : "https://csirt.cesnet.cz/cs/services/x2",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "X2"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Note",
- "v" : "Malware: $2"
- },
- {
- "k" : "Category[1]",
- "v" : "Intrusion.Botnet"
- },
- {
- "k" : "Description",
- "v" : "Bots"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$3"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "System $1 is part of the $2 botnet"
- }
- ],
- "title" : "Bots",
- "class" : "Bots",
- "analyzer" : "X2",
- "alias" : "x2-001"
- },
- "sserv-003" : {
- "_id" : "sserv-003",
- "label_e" : "Stroj slouží jako proxy pro rozesílání spamu, nebo napadání dalších strojů (Open Proxy)",
- "args" : "3",
- "cmd_help" : "[source IP] [source port] [original log line]",
- "cmd_example" : "195.113.134.254 3128 \"195.113.134.254 3128 (HTTP 1.1 192.168.1.1 (Mikrotik HTTPProxy)) 2012-04-24_21:09:20 O\"",
- "id" : "sserv-003",
- "category" : "Vulnerable",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Stroje na následujících IP adresách jsou infikovány a slouží jako proxy pro rozesílání spamu, nebo napadání dalších strojů (Open Proxy)",
- "ref" : "https://csirt.cesnet.cz/cs/services/sserv",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "SSERV"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Port[1]",
- "v" : "$2"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "tcp"
- },
- {
- "k" : "Source[1]/Proto[2]",
- "v" : "http"
- },
- {
- "k" : "Source[1]/Type[1]",
- "v" : "Proxy"
- },
- {
- "k" : "Category[1]",
- "v" : "Vulnerable"
- },
- {
- "k" : "Description",
- "v" : "Open Proxy"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$3"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Host $1 is compromised and acts as open proxy for botnet, spam etc."
- }
- ],
- "title" : "Open Proxy",
- "class" : "Open Proxy",
- "analyzer" : "SSERV",
- "alias" : "sserv-003"
- },
- "warden-other" : {
- "_id" : "warden-other",
- "label_e" : "Jiny problem",
- "args" : "10",
- "cmd_help" : "[analyzer] [analyzer_class] [ip_category] [src_ip] [proto_name] [proto_num] [tgt_port] [count] [note] [origin]",
- "cmd_example" : "analyzer detector ipv4-addr 195.113.134.254 tcp 6 1234 100 \"Additional note\" warden",
- "category" : "Other",
- "id" : "warden-other",
- "severity" : "low",
- "enabled" : 1,
- "label_s" : "Jiny problem",
- "ref" : "",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "$1"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "$2"
- },
- {
- "k" : "Source[1]/%ipt:$4[1]",
- "v" : "$4"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "$5"
- },
- {
- "k" : "Target[1]/Port[1]",
- "v" : "$7"
- },
- {
- "k" : "Target[1]/Proto[1]",
- "v" : "$5"
- },
- {
- "k" : "Category[1]",
- "v" : "Other"
- },
- {
- "k" : "Description",
- "v" : "Other"
- },
- {
- "k" : "ConnCount",
- "v" : "$8"
- },
- {
- "k" : "Note",
- "v" : "$9"
- },
- {
- "k" : "_CESNET/Origin",
- "v" : "$10"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Remote host $4 performed uncategorizable attack"
- }
- ],
- "title" : "Other",
- "class" : "Other",
- "analyzer" : "",
- "alias" : "warden-other"
- },
- "n6-026" : {
- "_id" : "n6-026",
- "label_e" : "Hlášení o strojích infikovaných malwarem Energetic Bear (Energetic Bear Report)",
- "args" : "2",
- "cmd_help" : "[source IP] [original log line]",
- "cmd_example" : "195.113.134.254 \"195.113.134.254 | 2014-07-22_14:15:31 | e \"",
- "id" : "n6-026",
- "category" : "Intrusion.Botnet",
- "severity" : "high",
- "enabled" : 1,
- "label_s" : "Hlášení o strojích infikovaných malwarem Energetic Bear (Energetic Bear Report)",
- "ref" : "https://csirt.cesnet.cz/cs/services/n6",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "N6"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Category[1]",
- "v" : "Intrusion.Botnet"
- },
- {
- "k" : "Description",
- "v" : "Energetic Bear Report"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$2"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Host $1 is infected with Energetic Bear malware"
- }
- ],
- "title" : "Energetic Bear Report",
- "class" : "Energetic Bear Report",
- "analyzer" : "N6",
- "alias" : "n6-026"
- },
- "warden-copyright" : {
- "_id" : "warden-copyright",
- "args" : "10",
- "label_e" : "Porušování autorských práv",
- "cmd_help" : "[analyzer] [analyzer_class] [ip_category] [src_ip] [proto_name] [proto_num] [tgt_port] [count] [note] [origin]",
- "cmd_example" : "analyzer detector ipv4-addr 195.113.134.254 tcp 6 1234 100 \"Additional note\" warden",
- "category" : "Fraud.Copyright",
- "id" : "warden-copyright",
- "severity" : "low",
- "enabled" : 1,
- "label_s" : "Porušování autorských práv",
- "ref" : "",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "$1"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "$2"
- },
- {
- "k" : "Source[1]/%ipt:$4[1]",
- "v" : "$4"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "$5"
- },
- {
- "k" : "Target[1]/Port[1]",
- "v" : "$7"
- },
- {
- "k" : "Target[1]/Proto[1]",
- "v" : "$5"
- },
- {
- "k" : "Category[1]",
- "v" : "Fraud.Copyright"
- },
- {
- "k" : "Description",
- "v" : "Copyright infringement"
- },
- {
- "k" : "ConnCount",
- "v" : "$8"
- },
- {
- "k" : "Note",
- "v" : "$9"
- },
- {
- "k" : "_CESNET/Origin",
- "v" : "$10"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Remote host $4 infringed copyrights"
- }
- ],
- "title" : "Copyright infringement",
- "class" : "Copyright infringement",
- "analyzer" : "",
- "alias" : "warden-copyright"
- },
- "beekeeper-01" : {
- "_id" : "beekeeper-01",
- "args" : "6",
- "label_e" : "Pokus o útok na sadu SIP honeypotů",
- "cmd_help" : "[source IP] [source port] [target IP] [info] [message count] [cease time]",
- "cmd_example" : "195.113.134.254 5060 195.113.113.150 \"reg-test\" 25 1424426171",
- "id" : "beekeeper-01",
- "category" : "Attempt.Exploit",
- "severity" : "low",
- "enabled" : 1,
- "label_s" : "Hlášení o útocích na sadu SIP honeypotů",
- "ref" : "",
- "description" : "",
- "note" : "",
- "class" : "SIP attack",
- "title" : "SIP attack",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "Beekeeper"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "Protocol"
- },
- {
- "k" : "Node[1]/Type[2]",
- "v" : "Honeypot"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Port[1]",
- "v" : "$2"
- },
- {
- "k" : "Target[1]/%ipt:$3[1]",
- "v" : "$3"
- },
- {
- "k" : "Target[1]/Port[1]",
- "v" : "5060"
- },
- {
- "k" : "Category[1]",
- "v" : "Attempt.Exploit"
- },
- {
- "k" : "Description",
- "v" : "SIP attack classification: $4"
- },
- {
- "k" : "Note",
- "v" : "Remote host tried to run $4 on SIP honeypot $3 port 5060"
- },
- {
- "k" : "ConnCount",
- "v" : "$5"
- },
- {
- "k" : "CeaseTime",
- "v" : "%ts:$6"
- }
- ],
- "analyzer" : "Beekeeper",
- "alias" : "beekeeper-01"
- },
- "warden-botnet_c_c" : {
- "_id" : "warden-botnet_c_c",
- "label_e" : "Stroj byl označen jako pravděpodobný řídící server botnetu (Botnet Command and Control)",
- "args" : "10",
- "cmd_help" : "[analyzer] [analyzer_class] [ip_category] [src_ip] [proto_name] [proto_num] [src_port] [count] [note] [origin]",
- "cmd_example" : "analyzer detector ipv4-addr 195.113.134.254 tcp 6 1234 100 \"Additional note\" warden",
- "category" : "Intrusion.Botnet",
- "id" : "warden-botnet_c_c",
- "severity" : "low",
- "enabled" : 1,
- "label_s" : "Stroje na následujících IP adresách jsou pravděpodobně řídícími servery botnetu (Botnet Command and Control)",
- "ref" : "",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "$1"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "$2"
- },
- {
- "k" : "Source[1]/%ipt:$4[1]",
- "v" : "$4"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "$5"
- },
- {
- "k" : "Target[1]/Port[1]",
- "v" : "$7"
- },
- {
- "k" : "Source/Type[1]",
- "v" : "Botnet"
- },
- {
- "k" : "Source/Type[2]",
- "v" : "CC"
- },
- {
- "k" : "Category[1]",
- "v" : "Intrusion.Botnet"
- },
- {
- "k" : "Description",
- "v" : "Botnet Command and Control"
- },
- {
- "k" : "ConnCount",
- "v" : "$8"
- },
- {
- "k" : "Note",
- "v" : "$9"
- },
- {
- "k" : "_CESNET/Origin",
- "v" : "$10"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Remote host $4 is command & control master machine"
- }
- ],
- "title" : "Botnet Command and Control",
- "class" : "Botnet Command and Control",
- "analyzer" : "",
- "alias" : "warden-botnet_c_c"
- },
- "n6-034" : {
- "_id" : "n6-034",
- "label_e" : "Informace o strojích infikovaných bankovním trojským koněm Geodo (Geodo Trojan Report)",
- "args" : "2",
- "cmd_help" : "[source IP] [original log line]",
- "cmd_example" : "192.0.2.204 \"192.0.2.204 | 2014-12-03_16:17:41 | t\"",
- "id" : "n6-034",
- "category" : "Malware",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Informace o strojích infikovaných bankovním trojským koněm Geodo (Geodo Trojan Report)",
- "ref" : "https://csirt.cesnet.cz/cs/services/n6",
- "description" : "",
- "note" : "",
- "class" : "Geodo Trojan Report",
- "title" : "Geodo Trojan Report",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "N6"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Type[1]",
- "v" : "Malware"
- },
- {
- "k" : "Source[1]/Type[2]",
- "v" : "trojan"
- },
- {
- "k" : "Category[1]",
- "v" : "Malware"
- },
- {
- "k" : "Description",
- "v" : "Geodo Trojan Report"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$2"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Host $1 is infected with banking Geodo Trojan malware"
- }
- ],
- "alias" : "n6-034",
- "analyzer" : "N6"
- },
- "n6-003" : {
- "_id" : "n6-003",
- "label_e" : "Hlášení o strojích, které komunikovaly v rámci sítě P2P trojského koně Zeus (Bot Zeus P2P Report)",
- "args" : "3",
- "cmd_help" : "[source IP] [source port] [original log line]",
- "cmd_example" : "192.0.2.29 22255 \"192.0.2.29 | 22255 | 2014-01-03_07:32:59 | B\"",
- "id" : "n6-003",
- "category" : "Intrusion.Botnet",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Hlášení o strojích, které komunikovaly v rámci sítě P2P trojského koně Zeus (Bot Zeus P2P Report)",
- "ref" : "https://csirt.cesnet.cz/cs/services/n6",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "N6"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Port[1]",
- "v" : "$2"
- },
- {
- "k" : "Category[1]",
- "v" : "Intrusion.Botnet"
- },
- {
- "k" : "Description",
- "v" : "Bot Zeus P2P Report"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$3"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Host $1 is infected with Zeus malware"
- }
- ],
- "title" : "Bot Zeus P2P Report",
- "class" : "Bot Zeus P2P Report",
- "analyzer" : "N6",
- "alias" : "n6-003"
- },
- "n6-006" : {
- "_id" : "n6-006",
- "label_e" : "Hlášení o podezřelé komunikaci strojů, vyvolané několika typy malware, např. Citadel a Virut (CERT PL Sinkhole Report)",
- "args" : "6",
- "cmd_help" : "[source IP] [source port] [target IP] [target port] [malware] [original log line]",
- "cmd_example" : "195.113.134.254 3213 198.51.100.55 80 virut \"195.113.134.254 | 3213 -> 198.51.100.55 | 80 | botnet:virut | 2013-09-19_10:06:19 | E\"",
- "id" : "n6-006",
- "category" : "Intrusion.Botnet",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Hlášení o podezřelé komunikaci strojů, vyvolané několika typy malware, např. Citadel a Virut (CERT PL Sinkhole Report)",
- "ref" : "https://csirt.cesnet.cz/cs/services/n6",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "N6"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Node[1]/Type[2]",
- "v" : "Blackhole"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Port[1]",
- "v" : "$2"
- },
- {
- "k" : "Target[1]/%ipt:$3[1]",
- "v" : "$3"
- },
- {
- "k" : "Target[1]/Port[1]",
- "v" : "$4"
- },
- {
- "k" : "Category[1]",
- "v" : "Intrusion.Botnet"
- },
- {
- "k" : "Description",
- "v" : "CERT PL Sinkhole Report"
- },
- {
- "k" : "Note",
- "v" : "Malware: $5"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$6"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Host $1:$2 connected to $3:$4 and is infected with $5 malware"
- }
- ],
- "title" : "CERT PL Sinkhole Report",
- "class" : "CERT PL Sinkhole Report",
- "analyzer" : "N6",
- "alias" : "n6-006"
- },
- "labrea-002" : {
- "_id" : "labrea-002",
- "label_e" : "Pokus o PING na takové IP adresy, kde nejsou a nikdy nebyly v provozu žádné síťové servery",
- "args" : "5",
- "cmd_help" : "[source IP] [target IP] [event cease time] [event count] [original log line]",
- "cmd_example" : "195.113.134.254 78.00.00.00 1274107160 50 \"1274106860 Responded to a Ping: 195.113.134.254 -> 78.xx.xx.xx\"",
- "id" : "labrea-002",
- "category" : "Recon.Scanning",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Stroje na následujících IP adresách se pokusily o PING na takové IP adresy, kde nejsou a nikdy nebyly v provozu žádné síťové servery",
- "ref" : "",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "LaBrea"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "Connection"
- },
- {
- "k" : "Node[1]/Type[2]",
- "v" : "Tarpit"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Target[1]/%ipt:$2[1]",
- "v" : "$2"
- },
- {
- "k" : "CeaseTime",
- "v" : "$3"
- },
- {
- "k" : "Category[1]",
- "v" : "Recon.Scanning"
- },
- {
- "k" : "Description",
- "v" : "Ping scan"
- },
- {
- "k" : "ConnCount",
- "v" : "$4"
- },
- {
- "k" : "Attach[1]/Type[1]",
- "v" : "Syslog"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$5"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Honeypot received $4 ping request(s) from remote host $1"
- }
- ],
- "title" : "Ping probe",
- "class" : "Ping probe",
- "analyzer" : "LaBrea",
- "alias" : "labrea-002"
- },
- "sserv-010" : {
- "_id" : "sserv-010",
- "args" : "4",
- "label_e" : "Hlášení o strojích poskytujících službu SNMP verze 2, které lze zneužít k masivním útokům typu DDoS (Scan SNMP)",
- "cmd_help" : "[source IP] [source port] [system name] [original log line]",
- "cmd_example" : "195.113.134.254 161 TIS-HPLJ2055 \"195.113.134.254 161 (TIS-HPLJ2055) 2014-03-27_14:58:12 N\"",
- "id" : "sserv-010",
- "category" : "Vulnerable.Config",
- "severity" : "high",
- "enabled" : 1,
- "label_s" : "Hlášení o strojích poskytujících službu SNMP verze 2, které lze zneužít k masivním útokům typu DDoS (Scan SNMP)",
- "ref" : "https://csirt.cesnet.cz/cs/services/sserv",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "SSERV"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Node[1]/Type[2]",
- "v" : "Recon"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Port[1]",
- "v" : "$2"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "udp"
- },
- {
- "k" : "Source[1]/Proto[2]",
- "v" : "snmp"
- },
- {
- "k" : "Source[1]/Note",
- "v" : "System name: $3"
- },
- {
- "k" : "Category[1]",
- "v" : "Vulnerable.Config"
- },
- {
- "k" : "Description",
- "v" : "Scan SNMP"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$4"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "System $3 provides open SNMPv2 and can be misused for massive DDoS attack"
- }
- ],
- "title" : "Scan SNMP",
- "class" : "Scan SNMP",
- "analyzer" : "SSERV",
- "alias" : "sserv-010"
- },
- "n6-010" : {
- "_id" : "n6-010",
- "label_e" : "Hlášení o strojích infikovaných malwarem Citadel (Citadel Sinkhole Report II)",
- "args" : "5",
- "cmd_help" : "[source IP] [method] [host] [target url] [original log line]",
- "cmd_example" : "195.113.134.254 POST infocyber.zz /citdl/newmixplfit/cfgp.php \"195.113.134.254 | POST infocyber.zz /citdl/newmixplfit/cfgp.php | II\"",
- "id" : "n6-010",
- "category" : "Intrusion.Botnet",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Hlášení o strojích infikovaných malwarem Citadel (Citadel Sinkhole Report II)",
- "ref" : "https://csirt.cesnet.cz/cs/services/n6",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "N6"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Node[1]/Type[2]",
- "v" : "Blackhole"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Type[1]",
- "v" : "Botnet"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "tcp"
- },
- {
- "k" : "Source[1]/Proto[2]",
- "v" : "http"
- },
- {
- "k" : "Source[1]/Note",
- "v" : "HTTP method: $2"
- },
- {
- "k" : "Target[1]/URL[1]",
- "v" : "http://$3/$4"
- },
- {
- "k" : "Target[1]/Proto[1]",
- "v" : "tcp"
- },
- {
- "k" : "Target[1]/Proto[2]",
- "v" : "http"
- },
- {
- "k" : "Category[1]",
- "v" : "Intrusion.Botnet"
- },
- {
- "k" : "Description",
- "v" : "Citadel Sinkhole Report II"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$5"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Host $1 connected to $3 ($4) and is infected with Citadel malware"
- }
- ],
- "title" : "Citadel Sinkhole Report II",
- "class" : "Citadel Sinkhole Report II",
- "analyzer" : "N6",
- "alias" : "n6-010"
- },
- "warden-bruteforce" : {
- "_id" : "warden-bruteforce",
- "args" : "10",
- "label_e" : "Hlášení o strojích, které se snažily prolomit heslo hrubou silou (Bruteforce)",
- "cmd_help" : "[analyzer] [analyzer_class] [ip_category] [src_ip] [proto_name] [proto_num] [tgt_port] [count] [note] [origin]",
- "cmd_example" : "analyzer detector ipv4-addr 195.113.134.254 tcp 6 1234 100 \"Additional note\" warden",
- "category" : "Attempt.Login",
- "id" : "warden-bruteforce",
- "severity" : "low",
- "enabled" : 1,
- "label_s" : "Hlášení o strojích, které se snažily prolomit heslo hrubou silou (Bruteforce)",
- "ref" : "",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "$1"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "$2"
- },
- {
- "k" : "Source[1]/%ipt:$4[1]",
- "v" : "$4"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "$5"
- },
- {
- "k" : "Target[1]/Port[1]",
- "v" : "$7"
- },
- {
- "k" : "Target[1]/Proto[1]",
- "v" : "$5"
- },
- {
- "k" : "Category[1]",
- "v" : "Attempt.Login"
- },
- {
- "k" : "Description",
- "v" : "Bruteforce"
- },
- {
- "k" : "ConnCount",
- "v" : "$8"
- },
- {
- "k" : "Note",
- "v" : "$9"
- },
- {
- "k" : "_CESNET/Origin",
- "v" : "$10"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Attack to authentication services from $4"
- }
- ],
- "title" : "Bruteforce",
- "class" : "Bruteforce",
- "analyzer" : "",
- "alias" : "warden-bruteforce"
- },
- "n6-030" : {
- "_id" : "n6-030",
- "args" : "4",
- "label_e" : "Hlášení o strojích zapojených do botnetu Andromeda (Andromeda Report)",
- "cmd_help" : "[source IP] [botnet installation] [last cac communication] [original log line]",
- "cmd_example" : "195.113.134.254 2014-10-30T23:44:56 2014-10-31T08:12:50 \"195.113.134.254 | 2014-10-30T23:44:56 | 2014-10-31T08:12:50 | a\"",
- "id" : "n6-030",
- "category" : "Intrusion.Botnet",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Hlášení o strojích zapojených do botnetu Andromeda (Andromeda Report)",
- "ref" : "https://csirt.cesnet.cz/cs/services/n6",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "N6"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "EventTime",
- "v" : "$2"
- },
- {
- "k" : "CeaseTime",
- "v" : "$3"
- },
- {
- "k" : "Category[1]",
- "v" : "Intrusion.Botnet"
- },
- {
- "k" : "Description",
- "v" : "Andromeda Botnet Report"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$4"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Host $1 is part of Andromeda botnet, last communication with CaC was $3"
- }
- ],
- "title" : "Andromeda Botnet Report",
- "class" : "Andromeda Botnet Report",
- "analyzer" : "N6",
- "alias" : "n6-030"
- },
- "dio-mssqld" : {
- "_id" : "dio-mssqld",
- "label_e" : "Pokus o útok na MSSQL server",
- "args" : "6",
- "cmd_help" : "[source IP type] [source IP] [source port] [target IP] [target port] [event count]",
- "cmd_example" : "ipv4-addr 195.113.134.254 56 195.113.161.181 56 100",
- "category" : "Attempt.Exploit",
- "id" : "dio-mssqld",
- "severity" : "low",
- "enabled" : 1,
- "label_s" : "Stroje na následujících IP adresách se pokusily zaútočit na MSSQL server",
- "ref" : "",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "Dionaea"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "Honeypot"
- },
- {
- "k" : "Node[1]/Type[2]",
- "v" : "Protocol"
- },
- {
- "k" : "Source[1]/%ipt:$2[1]",
- "v" : "$2"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "tcp"
- },
- {
- "k" : "Source[1]/Proto[2]",
- "v" : "ms-sql-s"
- },
- {
- "k" : "Source[1]/Port[1]",
- "v" : "$3"
- },
- {
- "k" : "Target[1]/%ipt:$4[1]",
- "v" : "$4"
- },
- {
- "k" : "Target[1]/Proto[1]",
- "v" : "tcp"
- },
- {
- "k" : "Target[1]/Proto[2]",
- "v" : "sql"
- },
- {
- "k" : "Target[1]/Port[1]",
- "v" : "$5"
- },
- {
- "k" : "Category[1]",
- "v" : "Recon.Scanning"
- },
- {
- "k" : "Category[2]",
- "v" : "Attempt.Exploit"
- },
- {
- "k" : "Description",
- "v" : "SQL query attack attempt"
- },
- {
- "k" : "ConnCount",
- "v" : "$6"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Remote host connected to MSSQL on port $5 from $2:$3"
- }
- ],
- "title" : "MSSQL query attack attempt",
- "class" : "SQL query attack attempt",
- "analyzer" : "Dionaea",
- "alias" : "dio-mssqld"
- },
- "n6-002" : {
- "_id" : "n6-002",
- "args" : "5",
- "label_e" : "Hlášení o strojích, které komunikovaly s řídícími centry botnetů (Bot Report)",
- "cmd_help" : "[source IP] [target name] [request uri] [request method] [original log line]",
- "cmd_example" : "195.113.134.254 hack.org /image.php POST \"195.113.134.254 -> hack.org | /image.php (HTTP/1.0 POST) 2012-12-10_07:32:59 | b\"",
- "id" : "n6-002",
- "category" : "Intrusion.Botnet",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Hlášení o strojích, které komunikovaly s řídícími centry botnetů (Bot Report)",
- "ref" : "https://csirt.cesnet.cz/cs/services/n6",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "N6"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Type[1]",
- "v" : "Botnet"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "tcp"
- },
- {
- "k" : "Source[1]/Proto[2]",
- "v" : "http"
- },
- {
- "k" : "Source[1]/Note",
- "v" : "HTTP method: $4"
- },
- {
- "k" : "Target[1]/URL[1]",
- "v" : "http://$2/$3"
- },
- {
- "k" : "Target[1]/Proto[1]",
- "v" : "tcp"
- },
- {
- "k" : "Target[1]/Proto[2]",
- "v" : "http"
- },
- {
- "k" : "Category[1]",
- "v" : "Intrusion.Botnet"
- },
- {
- "k" : "Description",
- "v" : "Bot Report"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$5"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Host $1 contacted known CaC at $2 ($3)"
- }
- ],
- "title" : "Bot Report",
- "class" : "Bot Report",
- "analyzer" : "N6",
- "alias" : "n6-002"
- },
- "f2b-001" : {
- "_id" : "f2b-001",
- "args" : "3",
- "label_e" : "Pokus o další rozesílání pošty navzdory tomu, že IP adresa je již uvedena na pěti různých blacklistech",
- "cmd_help" : "[blacklisted IP] [blaclist time] [impact]",
- "cmd_example" : "195.113.134.254 3600 \"Host was blacklisted, too many SSH login attempts\"",
- "id" : "f2b-001",
- "category" : "Abusive.Spam",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Pokusy o další rozesílání pošty navzdory tomu, že IP adresy jsou již uvedeny na pěti různých blacklistech",
- "ref" : "",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "Fail2Ban"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "Log"
- },
- {
- "k" : "Node[1]/Type[2]",
- "v" : "Statistical"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Category[1]",
- "v" : "Abusive.Spam"
- },
- {
- "k" : "Description",
- "v" : "Remote login"
- },
- {
- "k" : "Note",
- "v" : "Block duration: $2. $3"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "$3"
- }
- ],
- "title" : "Blacklisted host",
- "class" : "Blacklisted host",
- "analyzer" : "Fail2Ban",
- "alias" : "f2b-001"
- },
- "n6-007" : {
- "_id" : "n6-007",
- "label_e" : "Informace o otevřených DNS resolverech, které se účastnily útoku DDoS a jež detekovala síť Cloudflare (Cloudflare DDoS Open DNS Resolver Report)",
- "args" : "2",
- "cmd_help" : "[source IP] [original log line]",
- "cmd_example" : "195.113.134.254 \"195.113.134.254 | F\"",
- "id" : "n6-007",
- "category" : "Vulnerable.Config",
- "severity" : "high",
- "enabled" : 1,
- "label_s" : "Informace o otevřených DNS resolverech, které se účastnily útoku DDoS a jež detekovala síť Cloudflare (Cloudflare DDoS Open DNS Resolver Report)",
- "ref" : "https://csirt.cesnet.cz/cs/services/n6",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "N6"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Type[1]",
- "v" : "Open"
- },
- {
- "k" : "Source[1]/Type[2]",
- "v" : "Backscatter"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "udp"
- },
- {
- "k" : "Source[1]/Proto[2]",
- "v" : "domain"
- },
- {
- "k" : "Category[1]",
- "v" : "Vulnerable.Config"
- },
- {
- "k" : "Description",
- "v" : "Cloudflare DDoS Open DNS Resolver Report"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$2"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Host $1 is ORR and participated in DDoS attack"
- }
- ],
- "title" : "Cloudflare DDoS Open DNS Resolver Report",
- "class" : "Cloudflare DDoS Open DNS Resolver Report",
- "analyzer" : "N6",
- "alias" : "n6-007"
- },
- "x2-006" : {
- "_id" : "x2-006",
- "label_e" : "Hlášení o strojích, které scanovaly porty počítačů v Internetu - obvykle proto, aby našly určité síťové služby a mohly je poškodit (Scanners)",
- "args" : "4",
- "cmd_help" : "[source IP] [protocol] [port] [original log line]",
- "cmd_example" : "195.113.134.254 tcp 5900 \"195.113.134.254 | 2013-01-17_02:03:18 | scanners: 5900/tcp\"",
- "id" : "x2-006",
- "category" : "Recon.Scanning",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Hlášení o strojích, které scanovaly porty počítačů v Internetu - obvykle proto, aby našly určité síťové služby a mohly je poškodit (Scanners)",
- "ref" : "https://csirt.cesnet.cz/cs/services/x2",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "X2"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Node[1]/Type[2]",
- "v" : "Policy"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "$2"
- },
- {
- "k" : "Source[1]/Proto[2]",
- "v" : "dns"
- },
- {
- "k" : "Source[1]/Port[1]",
- "v" : "$3"
- },
- {
- "k" : "Category[1]",
- "v" : "Recon.Scanning"
- },
- {
- "k" : "Description",
- "v" : "Scanners"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$4"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "System $1 scanned remote port $3"
- }
- ],
- "title" : "Scanners",
- "class" : "Scanners",
- "analyzer" : "X2",
- "alias" : "x2-006"
- },
- "n6-029" : {
- "_id" : "n6-029",
- "args" : "5",
- "label_e" : "Hlášení o strojích infikovaných malwarem Zeus Gameover (Victim Gameover Zeus)",
- "cmd_help" : "[source IP] [source port] [CaC IP] [CaC port] [original log line]",
- "cmd_example" : "195.113.134.254 2973 198.51.100.68 7132 \"195.113.134.254 | 2973 <-> 198.51.100.68 | 7132 | 2014-09-04_16:42:56 | g\"",
- "id" : "n6-029",
- "category" : "Intrusion.Botnet",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Hlášení o strojích infikovaných malwarem Zeus Gameover (Victim Gameover Zeus)",
- "ref" : "https://csirt.cesnet.cz/cs/services/n6",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "N6"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Type[1]",
- "v" : "Malware"
- },
- {
- "k" : "Source[1]/Type[2]",
- "v" : "Botnet"
- },
- {
- "k" : "Source[1]/Type[3]",
- "v" : "CC"
- },
- {
- "k" : "Source[1]/Port[1]",
- "v" : "$2"
- },
- {
- "k" : "Target[1]/%ipt:$3[1]",
- "v" : "$3"
- },
- {
- "k" : "Target[1]/Port[1]",
- "v" : "$4"
- },
- {
- "k" : "Target[1]/Type[1]",
- "v" : "CC"
- },
- {
- "k" : "Target[1]/Type[2]",
- "v" : "Botnet"
- },
- {
- "k" : "Category[1]",
- "v" : "Intrusion.Botnet"
- },
- {
- "k" : "Description",
- "v" : "Victim Gameover Zeus"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$5"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Host $1 is infected with Zeus Gameover malware, it is communicating with C&C at $3 : $4"
- }
- ],
- "title" : "Victim Gameover Zeus",
- "class" : "Victim Gameover Zeus",
- "analyzer" : "N6",
- "alias" : "n6-029"
- },
- "labrea-001" : {
- "_id" : "labrea-001",
- "args" : "7",
- "label_e" : "Pokus o připojení na takové IP adresy, kde nejsou a nikdy nebyly v provozu žádné síťové servery",
- "cmd_help" : "[source IP] [source port] [target IP] [target port] [event cease time] [event count] [original log line]",
- "cmd_example" : "195.113.134.254 6684 78.00.00.00 1433 1356955500 50 \"1274106860 Initial Connect - tarpitting: 195.113.134.254 6684 -> 78.00.00.00 1433\"",
- "id" : "labrea-001",
- "category" : "Recon.Scanning",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Stroje na následujících IP adresách se pokusily o připojení na takové IP adresy, kde nejsou a nikdy nebyly v provozu žádné síťové servery",
- "ref" : "",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "LaBrea"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "Connection"
- },
- {
- "k" : "Node[1]/Type[2]",
- "v" : "Tarpit"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Port[1]",
- "v" : "$2"
- },
- {
- "k" : "Target[1]/%ipt:$3[1]",
- "v" : "$3"
- },
- {
- "k" : "Target[1]/Port[1]",
- "v" : "$4"
- },
- {
- "k" : "CeaseTime",
- "v" : "$5"
- },
- {
- "k" : "Category[1]",
- "v" : "Recon.Scanning"
- },
- {
- "k" : "Description",
- "v" : "Connection attempt"
- },
- {
- "k" : "ConnCount",
- "v" : "$6"
- },
- {
- "k" : "Attach[1]/Type[1]",
- "v" : "Syslog"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$7"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Remote host $1:$2 connected to honeypot to port $4"
- }
- ],
- "title" : "Connection attempt",
- "class" : "Connection attempt",
- "analyzer" : "LaBrea",
- "alias" : "labrea-001"
- },
- "n6-009" : {
- "_id" : "n6-009",
- "label_e" : "Hlášení o strojích infikovaných malwarem Citadel (Citadel Sinkhole Report I)",
- "args" : "5",
- "cmd_help" : "[source IP] [source port] [target IP] [target port] [original log line]",
- "cmd_example" : "195.113.134.254 60741 198.51.100.71 80 \"195.113.134.254 | 60741 -> 198.51.100.71 | 80 | 2013-08-08_21:01:05 | I\"",
- "id" : "n6-009",
- "category" : "Intrusion.Botnet",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Hlášení o strojích infikovaných malwarem Citadel (Citadel Sinkhole Report I)",
- "ref" : "https://csirt.cesnet.cz/cs/services/n6",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "N6"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Node[1]/Type[2]",
- "v" : "Blackhole"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Port[1]",
- "v" : "$2"
- },
- {
- "k" : "Target[1]/%ipt:$3[1]",
- "v" : "$3"
- },
- {
- "k" : "Target[1]/Port[1]",
- "v" : "$4"
- },
- {
- "k" : "Category[1]",
- "v" : "Intrusion.Botnet"
- },
- {
- "k" : "Description",
- "v" : "Citadel Sinkhole Report I"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$5"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Host $1:$2 connected to $3:$4 and is infected with Citadel malware"
- }
- ],
- "title" : "Citadel Sinkhole Report I",
- "class" : "Citadel Sinkhole Report I",
- "analyzer" : "N6",
- "alias" : "n6-009"
- },
- "orr-001" : {
- "_id" : "orr-001",
- "label_e" : "Stroj funguje jako otevřený DNS resolver a může být zneužit pro masivní DDoS útoky (Open DNS Resolver)",
- "args" : "2",
- "cmd_help" : "[source IP] [original log line]",
- "cmd_example" : "195.113.134.254 \"openresolvers|195.113.134.254|2852|2012-04-01 18:46:55||CESNET2 CESNET,z.s.p.o.\"",
- "id" : "orr-001",
- "category" : "Vulnerable.Config",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Stroje na následujících IP adresách fungují jako otevřené DNS resolvery a mohou být zneužity pro masivní DDoS útoky (Open DNS Resolver)",
- "ref" : "https://csirt.cesnet.cz/cs/services/orr",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "ORR"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Type[1]",
- "v" : "Backscatter"
- },
- {
- "k" : "Category[1]",
- "v" : "Vulnerable.Config"
- },
- {
- "k" : "Description",
- "v" : "Open DNS Resolver"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$2"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Host $1 is ORR can be misused to DDoS attack"
- }
- ],
- "title" : "Open DNS Resolver",
- "class" : "Open DNS Resolver",
- "analyzer" : "ORR",
- "alias" : "orr-001"
- },
- "x2-002" : {
- "_id" : "x2-002",
- "args" : "3",
- "label_e" : "Hlášení o strojích, které se snažily prolomit heslo hrubou silou (Bruteforce)",
- "cmd_help" : "[source IP] [service] [original log line]",
- "cmd_example" : "195.113.134.254 ssh \"195.113.134.254 | 2013-06-03_12:25:35 | bruteforce: ssh\"",
- "id" : "x2-002",
- "category" : "Attempt.Login",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Hlášení o strojích, které se snažily prolomit heslo hrubou silou (Bruteforce)",
- "ref" : "https://csirt.cesnet.cz/cs/services/x2",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "X2"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "$2"
- },
- {
- "k" : "Category[1]",
- "v" : "Attempt.Login"
- },
- {
- "k" : "Description",
- "v" : "Bruteforce"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$3"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "System $1 attempted to bruteforce $2"
- }
- ],
- "title" : "Bruteforce",
- "class" : "Bruteforce",
- "analyzer" : "X2",
- "alias" : "x2-002"
- },
- "n6-001" : {
- "_id" : "n6-001",
- "label_e" : "Hlášení o podezřelém síťovém provozu v síti CESNET2 (Arakis Report)",
- "args" : "6",
- "cmd_help" : "[source IP] [source port] [target IP] [target port] [event count] [original log line]",
- "cmd_example" : "195.113.134.254 7123 198.51.100.12 445 63 \"195.113.134.254 | 7123 -> 198.51.100.12 | 445 (TCP) 2013-04-04_17:26:55 | 63 | A\"",
- "category" : "Intrusion.Botnet",
- "id" : "n6-001",
- "severity" : "low",
- "enabled" : 1,
- "label_s" : "Hlášení o podezřelém síťovém provozu v síti CESNET2 (Arakis Report)",
- "ref" : "https://csirt.cesnet.cz/cs/services/n6",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "N6"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Port[1]",
- "v" : "$2"
- },
- {
- "k" : "Target[1]/%ipt:$3[1]",
- "v" : "$3"
- },
- {
- "k" : "Target[1]/Port[1]",
- "v" : "$4"
- },
- {
- "k" : "Category[1]",
- "v" : "Intrusion.Botnet"
- },
- {
- "k" : "Description",
- "v" : "Arakis Report"
- },
- {
- "k" : "ConnCount",
- "v" : "$5"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$6"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Suspicious network activity from $1:$2 to $3:$4 ($5 times)"
- }
- ],
- "title" : "Arakis Report",
- "class" : "Arakis Report",
- "analyzer" : "N6",
- "alias" : "n6-001"
- },
- "n6-021" : {
- "_id" : "n6-021",
- "label_e" : "Hlášení o strojích infikovaných malwarem Virut (Virut Report)",
- "args" : "5",
- "cmd_help" : "[source IP] [source port] [target IP] [target port] [original log line]",
- "cmd_example" : "195.113.134.254 1883 198.51.100.111 80 \"195.113.134.254 | 1883 -> 198.51.100.111 | 80 | 2013-01-21_22:40:08 | V\"",
- "id" : "n6-021",
- "category" : "Intrusion.Botnet",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Hlášení o strojích infikovaných malwarem Virut (Virut Report)",
- "ref" : "https://csirt.cesnet.cz/cs/services/n6",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "N6"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Type[1]",
- "v" : "Malware"
- },
- {
- "k" : "Source[1]/Type[2]",
- "v" : "Botnet"
- },
- {
- "k" : "Source[1]/Port[1]",
- "v" : "$2"
- },
- {
- "k" : "Target[1]/%ipt:$3[1]",
- "v" : "$3"
- },
- {
- "k" : "Target[1]/Port[1]",
- "v" : "$4"
- },
- {
- "k" : "Category[1]",
- "v" : "Intrusion.Botnet"
- },
- {
- "k" : "Description",
- "v" : "Virut Report"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$5"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Host $1:$2 connected to $3:$4 and is infected with Virut malware"
- }
- ],
- "title" : "Virut Report",
- "class" : "Virut Report",
- "analyzer" : "N6",
- "alias" : "n6-021"
- },
- "sserv-006" : {
- "_id" : "sserv-006",
- "label_e" : "Stroj buď přímo rozesílal spam, nebo byla jeho IP adresa obsažena v URL v těle spamu (Spam URL)",
- "args" : "4",
- "cmd_help" : "[source IP in URL] [source IP] [URL] [original log line]",
- "cmd_example" : "195.113.134.254 192.0.2.1 hXXp://www.example.com/f.asp?the=9872 \"195.113.134.254 (192.0.2.1) -> hXXp://www.example.com/f.asp?the=9872 2010-11-19_02:13:30 U\"",
- "category" : "Abusive.Spam",
- "id" : "sserv-006",
- "severity" : "low",
- "enabled" : 1,
- "label_s" : "Stroje na následujících IP adresách buď přímo rozesílaly spam, nebo byla jejich adresa obsažena v URL v těle spamu (Spam URL)",
- "ref" : "https://csirt.cesnet.cz/cs/services/sserv",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "SSERV"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Node[1]/Type[2]",
- "v" : "Data"
- },
- {
- "k" : "Description",
- "v" : "Spam URL"
- },
- {
- "k" : "Category[1]",
- "v" : "Abusive.Spam"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "tcp"
- },
- {
- "k" : "Source[1]/Proto[2]",
- "v" : "www"
- },
- {
- "k" : "Source[1]/URL[1]",
- "v" : "$3"
- },
- {
- "k" : "Source[1]/Type[1]",
- "v" : "Spam"
- },
- {
- "k" : "Source[2]/%ipt:$2[1]",
- "v" : "$2"
- },
- {
- "k" : "Source[2]/Type[1]",
- "v" : "OriginSpam"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$4"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Host $1 was contained in spam URL $3, which was sent by $2"
- }
- ],
- "title" : "Spam URL",
- "class" : "Spam URL",
- "analyzer" : "SSERV",
- "alias" : "sserv-006"
- },
- "warden-portscan" : {
- "_id" : "warden-portscan",
- "args" : "10",
- "label_e" : "Skenování portů vzdáleného stroje",
- "cmd_help" : "[analyzer] [analyzer_class] [ip_category] [src_ip] [proto_name] [proto_num] [tgt_port] [count] [note] [origin]",
- "cmd_example" : "analyzer detector ipv4-addr 195.113.134.254 tcp 6 1234 100 \"Additional note\" warden",
- "category" : "Recon.Scanning",
- "id" : "warden-portscan",
- "severity" : "low",
- "enabled" : 1,
- "label_s" : "Skenování portů vzdáleného stroje",
- "ref" : "",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "$1"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "$2"
- },
- {
- "k" : "Source[1]/%ipt:$4[1]",
- "v" : "$4"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "$5"
- },
- {
- "k" : "Target[1]/Port[1]",
- "v" : "$7"
- },
- {
- "k" : "Target[1]/Proto[1]",
- "v" : "$5"
- },
- {
- "k" : "Category[1]",
- "v" : "Recon.Scanning"
- },
- {
- "k" : "Description",
- "v" : "Portscan"
- },
- {
- "k" : "ConnCount",
- "v" : "$8"
- },
- {
- "k" : "Note",
- "v" : "$9"
- },
- {
- "k" : "_CESNET/Origin",
- "v" : "$10"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Remote host scanned port from $4"
- }
- ],
- "title" : "Portscan",
- "class" : "Portscan",
- "analyzer" : "",
- "alias" : "warden-portscan"
- },
- "sserv-017" : {
- "_id" : "sserv-017",
- "label_e" : "Hlášení o serverech, na kterých je služba Intelligent Platform Management Interface dostupná z veřejného internetu (Scan IPMI)",
- "args" : "3",
- "cmd_help" : "[source IP] [source port] [original log line]",
- "cmd_example" : "195.113.134.254 623 \"195.113.134.254 623 2.0 N Y Y Y N default enabled enabled Y Y N 2014-06-27_17:04:59 I\"",
- "id" : "sserv-017",
- "category" : "Vulnerable.Config",
- "severity" : "high",
- "enabled" : 1,
- "label_s" : "Hlášení o serverech, na kterých je služba Intelligent Platform Management Interface dostupná z veřejného internetu (Scan IPMI)",
- "ref" : "https://csirt.cesnet.cz/cs/services/sserv",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "SSERV"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Node[1]/Type[2]",
- "v" : "Recon"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Port[1]",
- "v" : "$2"
- },
- {
- "k" : "Category[1]",
- "v" : "Vulnerable.Config"
- },
- {
- "k" : "Description",
- "v" : "Scan IPMI"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$3"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "System provides open Intelligent Platform Management Interface service"
- }
- ],
- "title" : "Scan IPMI",
- "class" : "Scan IPMI",
- "analyzer" : "SSERV",
- "alias" : "sserv-017"
- },
- "n6-020" : {
- "_id" : "n6-020",
- "label_e" : "Informace o zkompromitovaných počítačích a URL, na nichž mají externí uživatelé dostupný Shell Account (Shell Account Report)",
- "args" : "3",
- "cmd_help" : "[source IP] [source url] [original log line]",
- "cmd_example" : "195.113.134.254 hXXp://pc.example.zz/wp-content/themes/./cache/deadbeef.php \"195.113.134.254 | hXXp://pc.example.zz/wp-content/themes/./cache/deadbeef.php | S\"",
- "id" : "n6-020",
- "category" : "Intrusion.AppCompromise",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Informace o zkompromitovaných počítačích a URL, na nichž mají externí uživatelé dostupný Shell Account (Shell Account Report)",
- "ref" : "https://csirt.cesnet.cz/cs/services/n6",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "N6"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "tcp"
- },
- {
- "k" : "Source[1]/Proto[2]",
- "v" : "http"
- },
- {
- "k" : "Source[1]/URL[1]",
- "v" : "$2"
- },
- {
- "k" : "Category[1]",
- "v" : "Intrusion.AppCompromise"
- },
- {
- "k" : "Description",
- "v" : "Shell Account Report"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$3"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Host $1 provides shell access on $2"
- }
- ],
- "title" : "Shell Account Report",
- "class" : "Shell Account Report",
- "analyzer" : "N6",
- "alias" : "n6-020"
- },
- "x2-007" : {
- "_id" : "x2-007",
- "args" : "2",
- "label_e" : "Hlášení o infikovaných strojích, které rozesílají nevyžádanou hromadnou poštu a které detekoval Composite Blocking List (Spam)",
- "cmd_help" : "[source IP] [original log line]",
- "cmd_example" : "195.113.134.254 \"195.113.134.254 | 2013-01-17_13:02:06 | spam: cbl\"",
- "category" : "Abusive.Spam",
- "id" : "x2-007",
- "severity" : "low",
- "enabled" : 1,
- "label_s" : "Hlášení o infikovaných strojích, které rozesílají nevyžádanou hromadnou poštu a které detekoval Composite Blocking List (Spam)",
- "ref" : "https://csirt.cesnet.cz/cs/services/x2",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "X2"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Node[1]/Type[2]",
- "v" : "Data"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Type[1]",
- "v" : "OriginSpam"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "tcp"
- },
- {
- "k" : "Category[1]",
- "v" : "Abusive.Spam"
- },
- {
- "k" : "Description",
- "v" : "Spam"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$2"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "System $1 was sending spam"
- }
- ],
- "title" : "Spam",
- "class" : "Spam",
- "analyzer" : "X2",
- "alias" : "x2-007"
- },
- "n6-013" : {
- "_id" : "n6-013",
- "label_e" : "Hlášení o otevřených NTP serverech, které lze zneužít k útokům typu DDoS (Open NTP Report)",
- "args" : "2",
- "cmd_help" : "[source IP] [original log line]",
- "cmd_example" : "195.113.134.254 \"195.113.134.254 | N\"",
- "id" : "n6-013",
- "category" : "Vulnerable.Config",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Hlášení o otevřených NTP serverech, které lze zneužít k útokům typu DDoS (Open NTP Report)",
- "ref" : "https://csirt.cesnet.cz/cs/services/n6",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "N6"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Type[1]",
- "v" : "Open"
- },
- {
- "k" : "Source[1]/Type[2]",
- "v" : "Backscatter"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "udp"
- },
- {
- "k" : "Source[1]/Proto[2]",
- "v" : "ntp"
- },
- {
- "k" : "Category[1]",
- "v" : "Vulnerable.Config"
- },
- {
- "k" : "Description",
- "v" : "Open NTP Report"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$2"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Host $1 can be misused to DDoS attack"
- }
- ],
- "title" : "Open NTP Report",
- "class" : "Open NTP Report",
- "analyzer" : "N6",
- "alias" : "n6-013"
- },
- "dio-epmapper" : {
- "_id" : "dio-epmapper",
- "label_e" : "Pokus o zneužití EPMAPPER exploitu",
- "args" : "6",
- "cmd_help" : "[source IP type] [source IP] [source port] [target IP] [target port] [event count]",
- "cmd_example" : "ipv4-addr 195.113.134.254 56 195.113.161.181 56 100",
- "category" : "Attempt.Exploit",
- "id" : "dio-epmapper",
- "severity" : "low",
- "enabled" : 1,
- "label_s" : "Stroje na následujících IP adresách se pokusily zneužít EPMAPPER exploit",
- "ref" : "",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "Dionaea"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "Honeypot"
- },
- {
- "k" : "Node[1]/Type[2]",
- "v" : "Protocol"
- },
- {
- "k" : "Source[1]/%ipt:$2[1]",
- "v" : "$2"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "tcp"
- },
- {
- "k" : "Source[1]/Proto[2]",
- "v" : "epmap"
- },
- {
- "k" : "Source[1]/Port[1]",
- "v" : "$3"
- },
- {
- "k" : "Target[1]/%ipt:$4[1]",
- "v" : "$4"
- },
- {
- "k" : "Target[1]/Proto[1]",
- "v" : "tcp"
- },
- {
- "k" : "Target[1]/Proto[2]",
- "v" : "epmap"
- },
- {
- "k" : "Target[1]/Port[1]",
- "v" : "$5"
- },
- {
- "k" : "Category[1]",
- "v" : "Recon.Scanning"
- },
- {
- "k" : "Category[2]",
- "v" : "Attempt.Exploit"
- },
- {
- "k" : "Description",
- "v" : "EPMAPPER exploitation attempt"
- },
- {
- "k" : "ConnCount",
- "v" : "$6"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Remote host tried to call EPMAPPER on port $5 from $2:$3"
- }
- ],
- "title" : "EPMAPPER exploitation attempt",
- "class" : "EPMAPPER exploitation attempt",
- "analyzer" : "Dionaea",
- "alias" : "dio-epmapper"
- },
- "n6-035" : {
- "_id" : "n6-035",
- "args" : "2",
- "label_e" : "Informace o strojich v siti CESNET2 infikovanych bankovnim malwarem Rovnix",
- "cmd_help" : "[src ip] [original log line]",
- "cmd_example" : "195.113.134.254 \"195.113.134.254 | 2014-12-11_19:20:21 | x\"",
- "id" : "n6-035",
- "category" : "Malware",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Informace o strojich v siti CESNET2 infikovanych bankovnim malwarem Rovnix",
- "ref" : "https://csirt.cesnet.cz/cs/services/n6",
- "description" : "",
- "note" : "",
- "class" : "Rovnix Report",
- "title" : "Rovnix Report",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "N6"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Type[1]",
- "v" : "Malware"
- },
- {
- "k" : "Source[1]/Type[2]",
- "v" : "trojan"
- },
- {
- "k" : "Category[1]",
- "v" : "Malware"
- },
- {
- "k" : "Description",
- "v" : "Rovnix Report"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$2"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Host $1 is infected with banking malware Rownix"
- }
- ],
- "alias" : "n6-035",
- "analyzer" : "N6"
- },
- "warden-malware" : {
- "_id" : "warden-malware",
- "args" : "10",
- "label_e" : "Stroj je pravděpodobně infikován malware",
- "cmd_help" : "[analyzer] [analyzer_class] [ip_category] [src_ip] [proto_name] [proto_num] [tgt_port] [count] [note] [origin]",
- "cmd_example" : "analyzer detector ipv4-addr 195.113.134.254 tcp 6 1234 100 \"Additional note\" warden",
- "category" : "Malware",
- "id" : "warden-malware",
- "severity" : "low",
- "enabled" : 1,
- "label_s" : "Stroje na následujících IP adresách jsou pravděpodobně infikovány malware",
- "ref" : "",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "$1"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "$2"
- },
- {
- "k" : "Source[1]/%ipt:$4[1]",
- "v" : "$4"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "$5"
- },
- {
- "k" : "Target[1]/Port[1]",
- "v" : "$7"
- },
- {
- "k" : "Target[1]/Proto[1]",
- "v" : "$5"
- },
- {
- "k" : "Source/Type[1]",
- "v" : "Malware"
- },
- {
- "k" : "Category[1]",
- "v" : "Malware"
- },
- {
- "k" : "Description",
- "v" : "Malware"
- },
- {
- "k" : "ConnCount",
- "v" : "$8"
- },
- {
- "k" : "Note",
- "v" : "$9"
- },
- {
- "k" : "_CESNET/Origin",
- "v" : "$10"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Remote host $4 tried to upload malware"
- }
- ],
- "title" : "Malware",
- "class" : "Malware",
- "analyzer" : "",
- "alias" : "warden-malware"
- },
- "uceprot-002" : {
- "_id" : "uceprot-002",
- "label_e" : "Stroj rozesila spam (Spam Report)",
- "args" : "3",
- "cmd_help" : "[source IP] [remove time] [original log line]",
- "cmd_example" : "195.113.134.254 2012-05-03_15:00 \"195.113.134.254 | 2012-04-26_12:11:09 | 2012-05-03_15:00 | S\"",
- "category" : "Abusive.Spam",
- "id" : "uceprot-002",
- "severity" : "low",
- "enabled" : 1,
- "label_s" : "Stroje na nasledujicich IP adresach rozesilaly spam (Spam Report)",
- "ref" : "https://csirt.cesnet.cz/cs/services/uceprot",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "UCEPROT"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Node[1]/Type[2]",
- "v" : "Data"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "tcp"
- },
- {
- "k" : "Category[1]",
- "v" : "Abusive.Spam"
- },
- {
- "k" : "Description",
- "v" : "Spam Report"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$3"
- },
- {
- "k" : "Attach[2]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[2]/Note",
- "v" : "Remove time"
- },
- {
- "k" : "Attach[2]/Content",
- "v" : "$2"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "System $1 was sending spam"
- }
- ],
- "title" : "Spam Report",
- "class" : "Spam Report",
- "analyzer" : "UCEPROT",
- "alias" : "uceprot-002"
- },
- "kippo-001" : {
- "_id" : "kippo-001",
- "label_e" : "Pokus o neoprávněné připojeni k SSH serveru",
- "args" : "6",
- "cmd_help" : "[source IP] [target IP] [target user] [completion] [impact] [event count]",
- "cmd_example" : "195.113.134.254 192.168.0.2 root failed \"Someone tried to login as root from 195.113.134.254\" 5",
- "id" : "kippo-001",
- "category" : "Attempt.Login",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Stroje na následujících IP adresách se pokusily o neoprávněné připojení k SSH serveru",
- "ref" : "",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "Kippo"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "Honeypot"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Target[1]/%ipt:$2[1]",
- "v" : "$2"
- },
- {
- "k" : "Category[1]",
- "v" : "Attempt.Login"
- },
- {
- "k" : "Description",
- "v" : "Remote login"
- },
- {
- "k" : "Note",
- "v" : "Completion: $4. $5"
- },
- {
- "k" : "ConnCount",
- "v" : "$6"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "$5"
- }
- ],
- "title" : "Remote login",
- "class" : "Remote login",
- "analyzer" : "Kippo",
- "alias" : "kippo-login"
- },
- "sserv-007" : {
- "_id" : "sserv-007",
- "args" : "3",
- "label_e" : "Na tento stroj se pokoušel připojit malware analyzovaný v laboratorních podmínkách (Sandbox URL)",
- "cmd_help" : "[source IP] [url] [original log line]",
- "cmd_example" : "195.113.134.254 hXXp://195.113.134.254/~skots0am/grabber/index.php \"195.113.134.254 hXXp://195.113.134.254/~skots0am/grabber/index.php GET X\"",
- "category" : "Anomaly.Traffic",
- "id" : "sserv-007",
- "severity" : "low",
- "enabled" : 1,
- "label_s" : "Na stroje na následujících IP adresách se pokoušel připojit malware analyzovaný v laboratorních podmínkách (Sandbox URL)",
- "ref" : "https://csirt.cesnet.cz/cs/services/sserv",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "SSERV"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Description",
- "v" : "Sandbox URL"
- },
- {
- "k" : "Category[1]",
- "v" : "Anomaly.Traffic"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/URL[1]",
- "v" : "$2"
- },
- {
- "k" : "Source[1]/Type[1]",
- "v" : "OriginSandbox"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "tcp"
- },
- {
- "k" : "Source[1]/Proto[2]",
- "v" : "www"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$3"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Malware in sandbox attemted to connect to host $1 to URL $2"
- }
- ],
- "title" : "Sandbox URL",
- "class" : "Sandbox URL",
- "analyzer" : "SSERV",
- "alias" : "sserv-007"
- },
- "n6-032" : {
- "_id" : "n6-032",
- "args" : "2",
- "label_e" : "Hlášení o strojích infikovaných malwarem Darkhotel (Darkhotel Report)",
- "cmd_help" : "[source IP] [original log line]",
- "cmd_example" : "195.113.134.254 \"195.113.134.254 | 2014-11-19_10:31:23 | d\"",
- "id" : "n6-032",
- "category" : "Intrusion.Botnet",
- "severity" : "high",
- "enabled" : 1,
- "label_s" : "Hlášení o strojích infikovaných malwarem Darkhotel (Darkhotel Report)",
- "ref" : "https://csirt.cesnet.cz/cs/services/n6",
- "description" : "",
- "note" : "",
- "class" : "Darkhotel Report",
- "title" : "Darkhotel Report",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "N6"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Type[1]",
- "v" : "Malware"
- },
- {
- "k" : "Source[1]/Type[2]",
- "v" : "Botnet"
- },
- {
- "k" : "Category[1]",
- "v" : "Intrusion.Botnet"
- },
- {
- "k" : "Description",
- "v" : "Darkhotel Report"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$2"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Host $1 is infected with Darkhotel malware"
- }
- ],
- "analyzer" : "N6",
- "alias" : "n6-032"
- },
- "n6-012" : {
- "_id" : "n6-012",
- "label_e" : "Hlášení o strojích poskytujících malware přes URL (Malurl Report)",
- "args" : "3",
- "cmd_help" : "[source IP] [source url] [original log line]",
- "cmd_example" : "195.113.134.254 hXXp://www.example.net/index.php?text=1234 \"195.113.134.254 | hXXp://www.example.net/index.php?text=1234 | M\"",
- "id" : "n6-012",
- "category" : "Malware",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Hlášení o strojích poskytujících malware přes URL (Malurl Report)",
- "ref" : "https://csirt.cesnet.cz/cs/services/n6",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "N6"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Type[1]",
- "v" : "Malware"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "tcp"
- },
- {
- "k" : "Source[1]/Proto[2]",
- "v" : "http"
- },
- {
- "k" : "Source[1]/URL[1]",
- "v" : "$2"
- },
- {
- "k" : "Category[1]",
- "v" : "Malware"
- },
- {
- "k" : "Description",
- "v" : "Malurl Report"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$3"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Host $1 contains malware at $2"
- }
- ],
- "title" : "Malurl Report",
- "class" : "Malurl Report",
- "analyzer" : "N6",
- "alias" : "n6-012"
- },
- "n6-028" : {
- "_id" : "n6-028",
- "args" : "4",
- "label_e" : "Hlášení o strojích infikovaných malwarem Zeus (Victim Zeus Report)",
- "cmd_help" : "[source IP] [source url] [method] [original log line]",
- "cmd_example" : "195.113.134.254 /wp-admin/gate.php POST \"195.113.134.254 | /wp-admin/gate.php (HTTP/1.1 POST) 2014-07-24_12:30:21 | v\"",
- "id" : "n6-028",
- "category" : "Intrusion.Botnet",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Hlášení o strojích infikovaných malwarem Zeus (Victim Zeus Report)",
- "ref" : "https://csirt.cesnet.cz/cs/services/n6",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "N6"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Type[1]",
- "v" : "Malware"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "tcp"
- },
- {
- "k" : "Source[1]/Proto[2]",
- "v" : "http"
- },
- {
- "k" : "Source[1]/URL[1]",
- "v" : "$2"
- },
- {
- "k" : "Source[1]/Note",
- "v" : "HTTP method: $3"
- },
- {
- "k" : "Category[1]",
- "v" : "Intrusion.Botnet"
- },
- {
- "k" : "Description",
- "v" : "Victim Zeus Report"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$4"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Host $1 provides malicious URL $2 and is infected with Zeus malware"
- }
- ],
- "title" : "Victim Zeus Report",
- "class" : "Victim Zeus Report",
- "analyzer" : "N6",
- "alias" : "n6-028"
- },
- "warden-dos" : {
- "_id" : "warden-dos",
- "args" : "10",
- "label_e" : "Stroj se pokusil o utok typu (D)DoS",
- "cmd_help" : "[analyzer] [analyzer_class] [ip_category] [src_ip] [proto_name] [proto_num] [tgt_port] [count] [note] [origin]",
- "cmd_example" : "analyzer detector ipv4-addr 195.113.134.254 tcp 6 1234 100 \"Additional note\" warden",
- "category" : "Availability.DDoS",
- "id" : "warden-dos",
- "severity" : "low",
- "enabled" : 1,
- "label_s" : "Stroje na nasledujicich IP adresach se pokusily o utoky typu (D)DoS",
- "ref" : "",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "$1"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "$2"
- },
- {
- "k" : "Source[1]/%ipt:$4[1]",
- "v" : "$4"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "$5"
- },
- {
- "k" : "Target[1]/Port[1]",
- "v" : "$7"
- },
- {
- "k" : "Target[1]/Proto[1]",
- "v" : "$5"
- },
- {
- "k" : "Category[1]",
- "v" : "Availability.DDoS"
- },
- {
- "k" : "Description",
- "v" : "(D)DoS"
- },
- {
- "k" : "ConnCount",
- "v" : "$8"
- },
- {
- "k" : "Note",
- "v" : "$9"
- },
- {
- "k" : "_CESNET/Origin",
- "v" : "$10"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Remote host $4 tried (D)DoS attack"
- }
- ],
- "title" : "(D)DoS",
- "class" : "(D)DoS",
- "analyzer" : "",
- "alias" : "warden-dos"
- },
- "sserv-009" : {
- "_id" : "sserv-009",
- "label_e" : "Hlášení o strojích poskytujících službu UDP Character Generator, které lze zneužít k útokům typu DDoS (Scan CHARGEN)",
- "args" : "3",
- "cmd_help" : "[source IP] [source port] [original log line]",
- "cmd_example" : "195.113.134.254 19 \"195.113.134.254 (19) 2014-03-27_13:58:51 G\"",
- "id" : "sserv-009",
- "category" : "Vulnerable.Config",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Hlášení o strojích poskytujících službu UDP Character Generator, které lze zneužít k útokům typu DDoS (Scan CHARGEN)",
- "ref" : "https://csirt.cesnet.cz/cs/services/sserv",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "SSERV"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Node[1]/Type[2]",
- "v" : "Recon"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Port[1]",
- "v" : "$2"
- },
- {
- "k" : "Source[1]/Type[1]",
- "v" : "Backscatter"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "udp"
- },
- {
- "k" : "Source[1]/Proto[2]",
- "v" : "chargen"
- },
- {
- "k" : "Category[1]",
- "v" : "Vulnerable.Config"
- },
- {
- "k" : "Description",
- "v" : "Scan CHARGEN"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$3"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "System provides CHARGEN service and can be misused for massive DDoS attack"
- }
- ],
- "title" : "Scan CHARGEN",
- "class" : "Scan CHARGEN",
- "analyzer" : "SSERV",
- "alias" : "sserv-009"
- },
- "n6-023" : {
- "_id" : "n6-023",
- "label_e" : "Hlášení o strojích infikovaných trojským koněm Zeus (Zeus Report)",
- "args" : "3",
- "cmd_help" : "[source IP] [source port] [original log line]",
- "cmd_example" : "195.113.134.254 26147 \"195.113.134.254 | 26147 (UDP) 2012-07-16_07:09:37 | z\"",
- "id" : "n6-023",
- "category" : "Intrusion.Botnet",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Hlášení o strojích infikovaných trojským koněm Zeus (Zeus Report)",
- "ref" : "https://csirt.cesnet.cz/cs/services/n6",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "N6"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Type[1]",
- "v" : "Malware"
- },
- {
- "k" : "Source[1]/Type[2]",
- "v" : "Botnet"
- },
- {
- "k" : "Source[1]/Port[1]",
- "v" : "$2"
- },
- {
- "k" : "Category[1]",
- "v" : "Intrusion.Botnet"
- },
- {
- "k" : "Description",
- "v" : "Zeus Report"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$3"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Host $1 contains Zeus trojan"
- }
- ],
- "title" : "Zeus Report",
- "class" : "Zeus Report",
- "analyzer" : "N6",
- "alias" : "n6-023"
- },
- "sserv-008" : {
- "_id" : "sserv-008",
- "args" : "3",
- "label_e" : "Hlášení o strojích, které se připojily k HTTP serverům projektu Shadowserver zřízeným na adresách, jichž měly používat zločinné domény; tyto stroje uvedly v poli Referer URL, které odkazuje na Váš stroj (Sinkhole HTTP Referer Report)",
- "cmd_help" : "[source IP] [infection] [original log line]",
- "cmd_example" : "195.113.134.254 downadup \"195.113.134.254 (downadup) 2014-03-12_19:52:34 F\"",
- "category" : "Intrusion.Botnet",
- "id" : "sserv-008",
- "severity" : "low",
- "enabled" : 1,
- "label_s" : "Hlášení o strojích, které se připojily k HTTP serverům projektu Shadowserver zřízeným na adresách, jichž měly používat zločinné domény; tyto stroje uvedly v poli Referer URL, které odkazuje na Váš stroj (Sinkhole HTTP Referer Report)",
- "ref" : "https://csirt.cesnet.cz/cs/services/sserv",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "SSERV"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Node[1]/Type[2]",
- "v" : "Blackhole"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Type[1]",
- "v" : "OriginReferer"
- },
- {
- "k" : "Source[1]/Note",
- "v" : "Malware: $2"
- },
- {
- "k" : "Category[1]",
- "v" : "Intrusion.Botnet"
- },
- {
- "k" : "Description",
- "v" : "Sinkhole HTTP Referer Report"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$3"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "System $1 was found in referer when honeypot was accessed, possibly infected with $2"
- }
- ],
- "title" : "Sinkhole HTTP Referer Report",
- "class" : "Sinkhole HTTP Referer Report",
- "analyzer" : "SSERV",
- "alias" : "sserv-008"
- },
- "dio-smbd" : {
- "_id" : "dio-smbd",
- "args" : "6",
- "label_e" : "Pokus o zneužití SMB exploitu",
- "cmd_help" : "[source IP type] [source IP] [source port] [target IP] [target port] [event count]",
- "cmd_example" : "ipv4-addr 195.113.134.254 56 195.113.161.181 56 100",
- "category" : "Attempt.Exploit",
- "id" : "dio-smbd",
- "severity" : "low",
- "enabled" : 1,
- "label_s" : "Stroje na následujících IP adresách se pokusily zneužít SMB exploit",
- "ref" : "",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "Dionaea"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "Honeypot"
- },
- {
- "k" : "Node[1]/Type[2]",
- "v" : "Protocol"
- },
- {
- "k" : "Source[1]/%ipt:$2[1]",
- "v" : "$2"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "tcp"
- },
- {
- "k" : "Source[1]/Proto[2]",
- "v" : "smb"
- },
- {
- "k" : "Source[1]/Port[1]",
- "v" : "$3"
- },
- {
- "k" : "Target[1]/%ipt:$4[1]",
- "v" : "$4"
- },
- {
- "k" : "Target[1]/Proto[1]",
- "v" : "tcp"
- },
- {
- "k" : "Target[1]/Proto[2]",
- "v" : "smb"
- },
- {
- "k" : "Target[1]/Port[1]",
- "v" : "$5"
- },
- {
- "k" : "Category[1]",
- "v" : "Recon.Scanning"
- },
- {
- "k" : "Category[2]",
- "v" : "Attempt.Exploit"
- },
- {
- "k" : "Description",
- "v" : "SMB exploitation attempt"
- },
- {
- "k" : "ConnCount",
- "v" : "$6"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Remote host tried to call SMB on port $5 from $2:$3"
- }
- ],
- "title" : "SMB exploitation attempt",
- "class" : "SMB exploitation attempt",
- "analyzer" : "Dionaea",
- "alias" : "dio-smbd"
- },
- "warden-phishing" : {
- "_id" : "warden-phishing",
- "label_e" : "Stroj je zapojen do phishingoveho utoku",
- "args" : "10",
- "cmd_help" : "[analyzer] [analyzer_class] [ip_category] [src_ip] [proto_name] [proto_num] [tgt_port] [count] [note] [origin]",
- "cmd_example" : "analyzer detector ipv4-addr 195.113.134.254 tcp 6 1234 100 \"Additional note\" warden",
- "category" : "Fraud.Phishing",
- "id" : "warden-phishing",
- "severity" : "low",
- "enabled" : 1,
- "label_s" : "Stroje na nasledujicich IP adresach jsou zapojeny do phishingoveho utoku",
- "ref" : "",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "$1"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "$2"
- },
- {
- "k" : "Source[1]/%ipt:$4[1]",
- "v" : "$4"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "$5"
- },
- {
- "k" : "Target[1]/Port[1]",
- "v" : "$7"
- },
- {
- "k" : "Target[1]/Proto[1]",
- "v" : "$5"
- },
- {
- "k" : "Category[1]",
- "v" : "Fraud.Phishing"
- },
- {
- "k" : "Description",
- "v" : "Phishing"
- },
- {
- "k" : "ConnCount",
- "v" : "$8"
- },
- {
- "k" : "Note",
- "v" : "$9"
- },
- {
- "k" : "_CESNET/Origin",
- "v" : "$10"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Remote host $4 tried to scan user to revealing personal information"
- }
- ],
- "title" : "Phishing",
- "class" : "Phishing",
- "analyzer" : "",
- "alias" : "warden-phishing"
- },
- "n6-014" : {
- "_id" : "n6-014",
- "label_e" : "Hlášení o strojích komunikujících v rámci botnetu Zeroaccess (Zeroaccess Report)",
- "args" : "2",
- "cmd_help" : "[source IP] [original log line]",
- "cmd_example" : "195.113.134.254 \"195.113.134.254 (2013-08-18_12:51:31) 2013-11-14_17:59:42 | o\"",
- "id" : "n6-014",
- "category" : "Intrusion.Botnet",
- "severity" : "medium",
- "enabled" : 1,
- "label_s" : "Hlášení o strojích komunikujících v rámci botnetu Zeroaccess (Zeroaccess Report)",
- "ref" : "https://csirt.cesnet.cz/cs/services/n6",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "N6"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Category[1]",
- "v" : "Intrusion.Botnet"
- },
- {
- "k" : "Description",
- "v" : "Zeroaccess Report"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$2"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "Host $1 is part of the Zeroaccess botnet"
- }
- ],
- "title" : "Zeroaccess Report",
- "class" : "Zeroaccess Report",
- "analyzer" : "N6",
- "alias" : "n6-014"
- },
- "sserv-016" : {
- "_id" : "sserv-016",
- "label_e" : "Hlášení o otevřených NTP serverech, které lze zneužít k ještě masivnějším útokům typu DDoS prostřednictvím dotazů typu Mode 7 (Scan NTPMONITOR)",
- "args" : "3",
- "cmd_help" : "[source IP] [source port] [original log line]",
- "cmd_example" : "195.113.134.254 123 \"195.113.134.254 | 123 (100,44000) 2014-03-27_14:03:16 | t\"",
- "id" : "sserv-016",
- "category" : "Vulnerable.Config",
- "severity" : "high",
- "enabled" : 1,
- "label_s" : "Hlášení o otevřených NTP serverech, které lze zneužít k ještě masivnějším útokům typu DDoS prostřednictvím dotazů typu Mode 7 (Scan NTPMONITOR)",
- "ref" : "https://csirt.cesnet.cz/cs/services/sserv",
- "description" : "",
- "note" : "",
- "rules_idea" : [
- {
- "k" : "Node[1]/SW[1]",
- "v" : "SSERV"
- },
- {
- "k" : "Node[1]/Type[1]",
- "v" : "External"
- },
- {
- "k" : "Node[1]/Type[2]",
- "v" : "Recon"
- },
- {
- "k" : "Source[1]/%ipt:$1[1]",
- "v" : "$1"
- },
- {
- "k" : "Source[1]/Port[1]",
- "v" : "$2"
- },
- {
- "k" : "Source[1]/Proto[1]",
- "v" : "udp"
- },
- {
- "k" : "Category[1]",
- "v" : "Vulnerable.Config"
- },
- {
- "k" : "Description",
- "v" : "Scan NTPMONITOR"
- },
- {
- "k" : "Attach[1]/ContentType",
- "v" : "text/plain"
- },
- {
- "k" : "Attach[1]/Note",
- "v" : "Original info"
- },
- {
- "k" : "Attach[1]/Content",
- "v" : "$3"
- },
- {
- "k" : "_CESNET/Impact",
- "v" : "System provides open NTP service and can be misused for massive DDoS attack"
- }
- ],
- "title" : "Scan NTPMONITOR",
- "class" : "Scan NTPMONITOR",
- "analyzer" : "SSERV",
- "alias" : "sserv-016"
- }
- }
-}
diff --git a/lib_perl/tests/unit/spool/schema-msgtmplts.json b/lib_perl/tests/unit/spool/schema-msgtmplts.json
deleted file mode 100644
index 93af36c..0000000
--- a/lib_perl/tests/unit/spool/schema-msgtmplts.json
+++ /dev/null
@@ -1,118 +0,0 @@
-{
- "$schema": "http://json-schema.org/draft-04/schema#",
- "description": "Message templates schema",
- "type": "object",
- "properties": {
- "version": {
- "description": "Template file version",
- "type": "number"
- },
- "timestamp": {
- "description": "Export timestamp",
- "type": "number"
- },
- "description": {
- "description": "Template file version",
- "type": "string"
- },
- "templates": {
- "description": "Template list",
- "type": "object",
- "additionalProperties": {
- "description": "Template definition",
- "type": "object",
- "properties": {
- "_id": {
- "description": "Template unique identifier",
- "type": "string"
- },
- "id": {
- "description": "Template unique identifier",
- "type": "string"
- },
- "title": {
- "description": "Template title",
- "type": "string"
- },
- "alias": {
- "description": "Template alias",
- "type": "string"
- },
- "label_e": {
- "description": "Event label for extra reports",
- "type": "string"
- },
- "label_s": {
- "description": "Event label for summary reports",
- "type": "string"
- },
- "analyzer": {
- "description": "Name of the event analyzer",
- "type": "string"
- },
- "category": {
- "description": "Event categorization",
- "type": "string"
- },
- "class": {
- "description": "Event classification",
- "type": "string"
- },
- "severity": {
- "description": "Event severity",
- "enum": [ "low", "medium", "high", "critical" ]
- },
- "description": {
- "description": "Event description",
- "type": "string"
- },
- "note": {
- "description": "Additional event notes",
- "type": "string"
- },
- "ref": {
- "description": "Event references and more information",
- "type": "string"
- },
- "args": {
- "description": "Number of template arguments",
- "type": "number"
- },
- "rules_idea": {
- "description": "Event schema rules",
- "type": "array",
- "items": {
- "type": "object",
- "properties": {
- "k": {
- "type": "string"
- },
- "v": {
- "type": "string"
- }
- },
- "additionalProperties": false
- }
- },
- "cmd_help": {
- "description": "Command help",
- "type": "string"
- },
- "cmd_example": {
- "description": "Example command",
- "type": "string"
- },
- "enabled": {
- "description": "Enable/disable event",
- "type": "integer"
- },
- "additionalProperties": false
- },
- "required": ["title","alias"],
- "additionalProperties": false
- }
- }
- },
- "required": ["version","templates"],
- "additionalProperties": false
-}
diff --git a/lib_perl/tests/unit/t/Mentat.Handyman.t b/lib_perl/tests/unit/t/Mentat.Handyman.t
deleted file mode 100644
index 83deb8a..0000000
--- a/lib_perl/tests/unit/t/Mentat.Handyman.t
+++ /dev/null
@@ -1,83 +0,0 @@
-#!/usr/bin/perl -T
-
-use strict;
-use warnings;
-
-#*******************************************************************************
-# Mentat::Handyman module/class tests
-#
-# Author: Jan Mach, jan.mach@cesnet.cz
-# Version: 0.1
-# Purpose:
-#
-#*******************************************************************************
-
-use Data::Dumper;
-#use Smart::Comments;
-
-use Test::More tests => 10;
-
-# First test if the module correctly compiles
-BEGIN {
- use vars qw($TESTED_CLASS);
- $TESTED_CLASS = 'Mentat::Handyman';
-
- use_ok('Tester');
- use_ok('Config::JSON');
- use_ok('Mentat::Message::Builder::IDEA');
- use_ok('Mentat::Message::Validator::IDEA');
- use_ok($TESTED_CLASS);
- }
-
-# Debug output explicit ON switch
-#Tester::DEBUG_ON();
-#Tester::DEBUG_ON(10);
-
-# Debug output explicit OFF switch
-#Tester::DEBUG_OFF();
-
-# User should know, which version is beeing tested (just for sure)
-diag("$TESTED_CLASS version: " . $Mentat::Handyman::VERSION) if Tester::D();
-
-# Prepare builder configurations
-my $BUILDER_CONFIG = {
- 'name' => 'somehost.domain',
- 'type' => 'Honeypot',
- 'sw' => 'DetectionSW',
- 'note' => 'Note for this detection node',
- };
-
-# Now attempt to create a class instance and check it
-my $instance = $TESTED_CLASS->new(template_file => './spool/msgtmplts.json',
- temp_folder => './spool',
- pickup_folder => './spool',
- cache_folder => './spool',
- #schema_file => '../../../schema/idea.schema',
- template_schema_file => './spool/schema-msgtmplts.json',
- user => 'mentat',
- builder_config => $BUILDER_CONFIG,
- strict => 1,
- test_mode => 1);
-isa_ok($instance, $TESTED_CLASS);
-
-# View the created instance
-diag("Instance dump 01: " . Dumper($instance)) if Tester::D();
-
-# Attempt to generate the IDEA message according to the template
-my $mentat_messageA = $instance->generate('kippo-001', {'detect_time' => 1356955200}, '12.34.56.78', "192.168.0.2", "root", "failed", "Someone tried to login as root from 12.34.56.78", 5);
-isa_ok($mentat_messageA, 'Mentat::Message::IDEA');
-diag("Instance dump 02: " . $mentat_messageA->to_string(1)) if Tester::D();
-
-my $mentat_messageB = $instance->generate('warden-phishing', {'detect_time' => 1356955200}, 'analyzer', 'detector', 'ipv4-addr', '192.168.0.1', 'tcp', '6', '1234', '100', "Additional note", "warden");
-isa_ok($mentat_messageB, 'Mentat::Message::IDEA');
-diag("Instance dump 02: " . $mentat_messageB->to_string(1)) if Tester::D();
-
-# Attempt to store the IDEA message to the file
-my ($rvB, $filenameB) = $instance->store_to_file($mentat_messageB);
-is($rvB, 1, "Generate to file '$filenameB'");
-unlink($filenameB) if -f $filenameB;
-
-# Attempt to generate the IDEA message according to the template and store it to the file
-my ($rvC, $filenameC) = $instance->generate_to_file('kippo-001', {'detect_time' => 1356955200}, '12.34.56.78', "192.168.0.2", "root", "failed", "Someone tried to login as root from 12.34.56.78", 5);
-is($rvC, 1, "Generate to file '$filenameC'");
-unlink($filenameC) if -f $filenameC;
diff --git a/lib_perl/tests/unit/t/Mentat.MPath.Parser.t b/lib_perl/tests/unit/t/Mentat.MPath.Parser.t
deleted file mode 100644
index 460712c..0000000
--- a/lib_perl/tests/unit/t/Mentat.MPath.Parser.t
+++ /dev/null
@@ -1,142 +0,0 @@
-#!/usr/bin/perl -T
-
-use strict;
-use warnings;
-
-#*******************************************************************************
-# Mentat::MPath::Parser class tests
-#
-# Author: Jan Mach, jan.mach@cesnet.cz
-# Version: 0.1
-# Purpose:
-# Comments:
-#*******************************************************************************
-
-use Data::Dumper;
-#use Smart::Comments;
-
-use Test::More tests => 21;
-
-# First test if the module correctly compiles
-BEGIN {
- use vars qw($TESTED_CLASS);
- $TESTED_CLASS = 'Mentat::MPath::Parser';
-
- use_ok('Tester');
- use_ok($TESTED_CLASS);
- }
-
-# Debug output explicit ON switch
-#Tester::DEBUG_ON();
-
-# Debug output explicit OFF switch
-#Tester::DEBUG_OFF();
-
-# User should know, which version is beeing tested (just for sure)
-diag("$TESTED_CLASS version: " . $Template::Module::VERSION) if Tester::D();
-
-# Now attempt to create a class instance and check it
-my $instance = $TESTED_CLASS->new();
-isa_ok($instance, $TESTED_CLASS);
-
-# View the created instance
-diag("Instance dump 01: " . Dumper($instance)) if Tester::D();
-
-# Verify the instance is empty
-is(Dumper($instance),
-'$VAR1 = bless( {}, \'Mentat::MPath::Parser\' );
-',
-"Instance print test 01");
-
-# Test Mentat message path
-my $message_path = 'Alert/Target[1]/Node/Address/@category';
-
-# Expected result
-my $expected_result = [
- [
- 'Alert',
- 'elem',
- undef,
- 'Target[1]/Node/Address/@category',
- ],
- [
- 'Target',
- 'elem',
- 1,
- 'Node/Address/@category',
- ],
- [
- 'Node',
- 'elem',
- undef,
- 'Address/@category',
- ],
- [
- 'Address',
- 'elem',
- undef,
- '@category',
- ],
- [
- 'category',
- 'attr',
- undef,
- undef,
- ]
- ];
-
-
-# Result storage variables
-my ( $name, $type, $index, $rest, $xpath);
-
-# Check the error handling
-eval {
- ($name, $type, $index, $rest) = Data::Path::Parser->parse_next_chunk('');
-};
-if($@) { like($@, qr/Data::Path::Parser::parse_next_chunk: undefined next data path node/, "Error test 02"); } else { fail("Error test 02"); }
-eval {
- ($name, $type, $index, $rest) = Data::Path::Parser->parse_next_chunk('Alert9]/Target/Node/Address/@category');
-};
-if($@) { like($@, qr/Data::Path::Parser::parse_next_chunk: invalid Mentat message node: 'Alert9]'/, "Error test 03"); } else { fail("Error test 03"); }
-eval {
- ($name, $type, $index, $rest) = Data::Path::Parser->parse_next_chunk('Target[0]/Node/Address/@category');
-};
-if($@) { like($@, qr/Data::Path::Parser::parse_next_chunk: invalid index value '0', index starts at '1'/, "Error test 03"); } else { fail("Error test 04"); }
-eval {
- ($name, $type, $index, $rest) = Data::Path::Parser->parse_next_chunk('@category[2]');
-};
-if($@) { like($@, qr/Data::Path::Parser::parse_next_chunk: atribute node '\@category\[2\]' must have only one instance/, "Error test 04"); } else { fail("Error test 05"); }
-eval {
- ($name, $type, $index, $rest) = Data::Path::Parser->parse_next_chunk('@category/test');
-};
-if($@) { like($@, qr/Data::Path::Parser::parse_next_chunk: atribute node '\@category' may not contain any child nodes/, "Error test 05"); } else { fail("Error test 06"); }
-
-# Parse the data path chunk by chunk
-my @result;
-$rest = $message_path;
-do {
- ($name, $type, $index, $rest) = Data::Path::Parser->parse_next_chunk($rest);
- push(@result, [$name, $type, $index, $rest]);
-} while ($rest);
-is_deeply(\@result, $expected_result, 'Parse test 01');
-
-# Parse the whole Mentat message path in one step
-my @chunks = Data::Path::Parser->parse($message_path);
-is_deeply(\@chunks, $expected_result, 'Parse test 02');
-
-# Check the catching variant of parse method
-my @chunks2 = Data::Path::Parser->parse_quiet($message_path);
-is_deeply(\@chunks2, $expected_result, 'Parse test 03');
-is(Data::Path::Parser->parse_quiet('Alert9]/Target/Node/Address/@category'), undef, 'Parse test 04');
-
-# Check the join
-is(Data::Path::Parser->join('Alert/Target/Node/Address', '@category'), 'Alert/Target/Node/Address/@category', 'Join test 01');
-is(Data::Path::Parser->join('Alert/Target', 'Node', 2), 'Alert/Target/Node[2]', 'Join test 01');
-
-# Check the validation
-is(Data::Path::Parser->validate($message_path), 1, 'Validation test 01');
-is(Data::Path::Parser->validate(''), 0, 'Validation test 02');
-is(Data::Path::Parser->validate('Alert9]/Target/Node/Address/@category'), 0, 'Validation test 03');
-is(Data::Path::Parser->validate('Alert/Target/Node/Address/@category[1]'), 0, 'Validation test 04');
-is(Data::Path::Parser->validate('Alert/Target/Node/Address/@category/test'), 0, 'Validation test 05');
-is(Data::Path::Parser->validate('Alert/Target[0]/Node/Address/@category'), 0, 'Validation test 06');
diff --git a/lib_perl/tests/unit/t/Mentat.Message.Builder.IDEA.t b/lib_perl/tests/unit/t/Mentat.Message.Builder.IDEA.t
deleted file mode 100644
index bfb57fa..0000000
--- a/lib_perl/tests/unit/t/Mentat.Message.Builder.IDEA.t
+++ /dev/null
@@ -1,133 +0,0 @@
-#!/usr/bin/perl -T
-
-use strict;
-use warnings;
-
-#*******************************************************************************
-# Mentat::Message::Builder::IDEA class tests
-#
-# Author: Jan Mach, jan.mach@cesnet.cz
-# Version: 0.1
-# Purpose:
-# Comments:
-#*******************************************************************************
-
-use Data::Dumper;
-#use Smart::Comments;
-
-use Test::More tests => 37;
-
-# First test if the module correctly compiles
-BEGIN {
- use vars qw($TESTED_CLASS);
- $TESTED_CLASS = 'Mentat::Message::Builder::IDEA';
-
- use_ok('Tester');
- use_ok($TESTED_CLASS);
- }
-
-# Debug output explicit ON switch
-#Tester::DEBUG_ON();
-
-# Debug output explicit OFF switch
-#Tester::DEBUG_OFF();
-
-# User should know, which version is beeing tested (just for sure)
-diag("$TESTED_CLASS version: " . $Mentat::Message::Builder::IDEA::VERSION) if Tester::D();
-
-# Prepare message configurations
-my $builder_config = {
- 'name' => 'tld.domain.node',
- 'type' => 'kippo,honeypot',
- 'sw' => 'kippo',
- 'note' => 'Some note',
- };
-my $message_config = {
- 'detect_time' => 1356955200,
- '1' => '127.0.0.1',
- '2' => '127.0.0.2',
- '3' => 'root',
- '4' => 'failed',
- '5' => 10,
- };
-
-# IDEA message creation using rules
-my $mpath_rules = [
- ['EventTime','%ts:$detect_time'],
- ['ConnCount','$5'],
- ['Node[1]/SW','Kippo'],
- ['Node[1]/Tags[1]','Network'],
- ['Node[1]/Tags[2]','Honeypot'],
- ['Node[1]/Tags[3]','Kippo'],
- ['Source[1]/%ipt:$1[1]','$1'],
- ['Target[1]/%ipt:$2[1]','$2'],
- ['Target[1]/Port[1]','22'],
- ['Category[1]','Intrusion'],
- ['Completion','$4'],
- ['Description','User $3 $4 login from $1'],
- ['Note','Remote login via SSH'],
- ];
-
-# Now attempt to create a class instance and check it
-my $instance = $TESTED_CLASS->new($builder_config);
-isa_ok($instance, $TESTED_CLASS);
-
-# View the created instance
-diag("Instance dump 01: " . Dumper($instance)) if Tester::D();
-
-# Try to build first IDEA message
-my $message1 = $instance->build(rules => $mpath_rules,
- name_args => $message_config);
-
-#open(my $hnd, ">./data/alert01.idea") or croak ((caller(0))[3] . ": cannot open file './data/alert01.idea' to store Mentat message for writing");
-#print $hnd $message1->to_string();
-#close($hnd);
-#print Dumper($message1);
-
-# Verify the builded message
-# Retrieve some values
-is($message1->path_value('DetectTime'), '2012-12-31 12:00:00Z', 'Get node value test A01');
-is($message1->path_value('EventTime'), '2012-12-31 12:00:00Z', 'Get node value test A02');
-is($message1->path_value('Node[1]/SW'), 'Kippo', 'Get node value test A03');
-is($message1->path_value('Node[1]/Tags[1]'), 'Network', 'Get node value test A04');
-is($message1->path_value('Node[1]/Tags[2]'), 'Honeypot', 'Get node value test A05');
-is($message1->path_value('Node[1]/Tags[3]'), 'Kippo', 'Get node value test A06');
-is($message1->path_value('Source[1]/IP4[1]'), '127.0.0.1', 'Get node value test A07');
-is($message1->path_value('Target[1]/IP4[1]'), '127.0.0.2', 'Get node value test A08');
-is($message1->path_value('Target[1]/Port[1]'), '22', 'Get node value test A09');
-is($message1->path_value('Category'), 'Intrusion', 'Get node value test A10');
-is($message1->path_value('Description'), 'User root failed login from 127.0.0.1', 'Get node value test A11');
-is($message1->path_value('Note'), 'Remote login via SSH', 'Get node value test A12');
-is($message1->path_value('Node/Name'), 'tld.domain.node', 'Get node value test A13');
-is($message1->path_value('Node[1]/Type[1]'), 'kippo', 'Get node value test A14');
-is($message1->path_value('Node[1]/Type[2]'), 'honeypot', 'Get node value test A15');
-is($message1->path_value('Node/SW'), 'Kippo', 'Get node value test A16');
-is($message1->path_value('Node/Note'), 'Some note', 'Get node value test A17');
-
-diag("Message 01:" . $message1->to_string(1) . "\n") if Tester::D();
-
-# Try to build second IDEA message quietly
-my $message2 = $instance->build_quiet(rules => $mpath_rules,
- name_args => $message_config);
-
-# Verify the builded message
-# Retrieve some values
-is($message2->path_value('DetectTime'), '2012-12-31 12:00:00Z', 'Get node value test A01');
-is($message2->path_value('EventTime'), '2012-12-31 12:00:00Z', 'Get node value test A02');
-is($message2->path_value('Node[1]/SW'), 'Kippo', 'Get node value test A03');
-is($message2->path_value('Node[1]/Tags[1]'), 'Network', 'Get node value test A04');
-is($message2->path_value('Node[1]/Tags[2]'), 'Honeypot', 'Get node value test A05');
-is($message2->path_value('Node[1]/Tags[3]'), 'Kippo', 'Get node value test A06');
-is($message2->path_value('Source[1]/IP4[1]'), '127.0.0.1', 'Get node value test A07');
-is($message2->path_value('Target[1]/IP4[1]'), '127.0.0.2', 'Get node value test A08');
-is($message2->path_value('Target[1]/Port[1]'), '22', 'Get node value test A09');
-is($message2->path_value('Category'), 'Intrusion', 'Get node value test A10');
-is($message2->path_value('Description'), 'User root failed login from 127.0.0.1', 'Get node value test A11');
-is($message2->path_value('Note'), 'Remote login via SSH', 'Get node value test A12');
-is($message2->path_value('Node/Name'), 'tld.domain.node', 'Get node value test A13');
-is($message2->path_value('Node[1]/Type[1]'), 'kippo', 'Get node value test A14');
-is($message2->path_value('Node[1]/Type[2]'), 'honeypot', 'Get node value test A15');
-is($message2->path_value('Node/SW'), 'Kippo', 'Get node value test A16');
-is($message2->path_value('Node/Note'), 'Some note', 'Get node value test A17');
-
-diag("Message 02:" . $message2->to_string(1) . "\n") if Tester::D();
diff --git a/lib_perl/tests/unit/t/Mentat.Message.Builder.t b/lib_perl/tests/unit/t/Mentat.Message.Builder.t
deleted file mode 100644
index 1ca6432..0000000
--- a/lib_perl/tests/unit/t/Mentat.Message.Builder.t
+++ /dev/null
@@ -1,180 +0,0 @@
-#!/usr/bin/perl -T
-
-use strict;
-use warnings;
-
-#*******************************************************************************
-# Mentat::Message::Builder class tests
-#
-# Author: Jan Mach, jan.mach@cesnet.cz
-# Version: 0.1
-# Purpose:
-# Comments:
-#*******************************************************************************
-
-use Data::Dumper;
-#use Smart::Comments;
-
-use Test::More tests => 13;
-
-# First test if the module correctly compiles
-BEGIN {
- use vars qw($TESTED_CLASS);
- $TESTED_CLASS = 'Mentat::Message::Builder';
-
- use_ok('Tester');
- use_ok($TESTED_CLASS);
- }
-
-# Debug output explicit ON switch
-#Tester::DEBUG_ON();
-
-# Debug output explicit OFF switch
-#Tester::DEBUG_OFF();
-
-# User should know, which version is beeing tested (just for sure)
-diag("$TESTED_CLASS version: " . $Mentat::Message::Builder::VERSION) if Tester::D();
-
-#-------------------------------------------------------------------------------
-
-# Test build rules
-my $rulesA = [
- ['Alert/$1', '$v1'],
- ['Alert/$2', '$v2'],
- ['Alert/$v3', '$3'],
- ['Alert/$v4', '$4'],
- ['Alert/$x', '$vx'],
- ];
-
-# Test variables
-my $hash_variablesA = {
- 'v1' => 'AAA1',
- 'v2' => 'AAA2',
- 'v3' => 'AAA3',
- 'v4' => 'AAA4',
- };
-my $array_variablesA = [
- 'x=UUUU', 'BBB1', 'vx=VVVV', 'BBB2', 'BBB3', 'BBB4'
- ];
-
-# Expected result
-my $expectedA = [
- ['Alert/BBB1', 'AAA1'],
- ['Alert/BBB2', 'AAA2'],
- ['Alert/AAA3', 'BBB3'],
- ['Alert/AAA4', 'BBB4'],
- ['Alert/UUUU', 'VVVV'],
- ];
-
-# Fill in the rules
-my $resultA = Mentat::Message::Builder->fill_in_rules($rulesA, $hash_variablesA, $array_variablesA);
-is_deeply($resultA, $expectedA, 'Fill in rules test A1');
-
-#-------------------------------------------------------------------------------
-
-my $rules2 = [
- ['CreateTime', '%ts'],
- ['DetectTime', '%ts:$1'],
- ['ID', '%id'],
- ];
-
-# Test variables
-my $array_variables2 = [
- '1416400968'
- ];
-
-# Fill in the rules
-my $result2 = $TESTED_CLASS->fill_in_rules($rules2, {}, $array_variables2);
-isnt($result2->[0]->[1], '%ts', "Macro test 01");
-is($result2->[1]->[1], '2014-11-19T12:42:48Z', "Macro test 02");
-isnt($result2->[2]->[1], '%id', "Macro test 03");
-
-is_deeply([$TESTED_CLASS->parse_command_args('78.88.62.212 50 "1274106860 Initial Connect"')], ['78.88.62.212', '50', "1274106860 Initial Connect"], "Parse args test 01");
-
-#-------------------------------------------------------------------------------
-
-# Test build rules with undefined argument
-my $rulesB = [
- ['Alert/$1', '$v1'],
- ['Alert/$2', '$v2'],
- ['Alert/$v3', '$3'],
- ['Alert/$v4', '$4'],
- ['Alert/$x', '$vx'],
- ['Alert/$y', '$5'],
- ];
-
-# Test variables
-my $hash_variablesB = {
- 'v1' => 'AAA1',
- 'v2' => 'AAA2',
- 'v3' => 'AAA3',
- 'v4' => 'AAA4',
- };
-my $array_variablesB = [
- 'x=UUUU', 'BBB1', 'vx=VVVV', 'BBB2', undef, 'BBB4', 0, 'y=WWWW'
- ];
-
-# Expected result
-my $expectedB = [
- ['Alert/BBB1', 'AAA1'],
- ['Alert/BBB2', 'AAA2'],
- ['Alert/AAA4', 'BBB4'],
- ['Alert/UUUU', 'VVVV'],
- ['Alert/WWWW', 0],
- ];
-
-# Fill in the rules
-my $resultB = Mentat::Message::Builder->fill_in_rules($rulesB, $hash_variablesB, $array_variablesB, 1);
-is_deeply($resultB, $expectedB, 'Fill in rules test B1');
-
-#-------------------------------------------------------------------------------
-
-# Test build rules
-my $rulesC = [
- ['Alert/$1', '$v1'],
- ['Alert/$2', '$v2'],
- ['Alert/$v3', '$3'],
- ['Alert/$v4', '$4'],
- ['Alert/$x', '$vx'],
- ];
-
-# Test variables
-my $hash_variablesC = {
- 'v1' => 'AAA1',
- 'v2' => 'AAA2',
- 'v3' => 'AAA3',
- 'v4' => 'AAA4',
- };
-my $array_variablesC = [
- 'x=UUUU', 'BBB1', 'vx=VVVV', 'BBB2', 'BBB3', 'BBB4'
- ];
-
-# Expected result
-my $expectedC = [
- ['Alert/BBB1', 'AAA1'],
- ['Alert/BBB2', 'AAA2'],
- ['Alert/AAA3', 'BBB3'],
- ['Alert/AAA4', 'BBB4'],
- ['Alert/UUUU', 'VVVV'],
- ];
-
-# Fill in the rules one by one
-my ($i, $key, $val);
-for ($i=0; $i<@$rulesC; $i++){
- ($key, $val) = Mentat::Message::Builder->fill_in_rule($rulesC->[$i]->[0], $rulesC->[$i]->[1], $hash_variablesC, $array_variablesC);
- is_deeply([$key, $val], $expectedC->[$i], 'Fill in rules test C'.($i+1));
-}
-
-#-------------------------------------------------------------------------------
-
-diag("ID01: ".Mentat::Message::Builder->_macro_id()) if Tester::D();
-diag("ID02: ".Mentat::Message::Builder->_macro_id()) if Tester::D();
-diag("ID03: ".Mentat::Message::Builder->_macro_id()) if Tester::D();
-diag("ID04: ".Mentat::Message::Builder->_macro_id()) if Tester::D();
-diag("ID05: ".Mentat::Message::Builder->_macro_id()) if Tester::D();
-
-diag("IDS01: ".Mentat::Message::Builder->_macro_ids()) if Tester::D();
-diag("IDS02: ".Mentat::Message::Builder->_macro_ids()) if Tester::D();
-diag("IDS03: ".Mentat::Message::Builder->_macro_ids()) if Tester::D();
-diag("IDS04: ".Mentat::Message::Builder->_macro_ids()) if Tester::D();
-diag("IDS05: ".Mentat::Message::Builder->_macro_ids()) if Tester::D();
diff --git a/lib_perl/tests/unit/t/Mentat.Message.Factory.t b/lib_perl/tests/unit/t/Mentat.Message.Factory.t
deleted file mode 100644
index 2c0ad49..0000000
--- a/lib_perl/tests/unit/t/Mentat.Message.Factory.t
+++ /dev/null
@@ -1,68 +0,0 @@
-#!/usr/bin/perl -T
-
-use strict;
-use warnings;
-
-#*******************************************************************************
-# Mentat::Message::Factory class tests
-#
-# Author: Jan Mach, jan.mach@cesnet.cz
-# Version: 0.1
-# Purpose:
-# Comments:
-#*******************************************************************************
-
-use Data::Dumper;
-#use Smart::Comments;
-
-use Test::More tests => 6;
-
-# First test if the module correctly compiles
-BEGIN {
- use vars qw($TESTED_CLASS);
- $TESTED_CLASS = 'Mentat::Message::Factory';
-
- use_ok('Tester');
- use_ok('Mentat::Message::IDEA');
- use_ok($TESTED_CLASS);
- }
-
-# Debug output explicit ON switch
-#Tester::DEBUG_ON();
-
-# Debug output explicit OFF switch
-#Tester::DEBUG_OFF();
-
-# User should know, which version is beeing tested (just for sure)
-diag("$TESTED_CLASS version: " . $Mentat::Message::Factory::VERSION) if Tester::D();
-
-
-# Check IDEA message creation from file
-my $idea1 = Mentat::Message::Factory->from_file('./spool/alert01.idea');
-isa_ok($idea1, 'Mentat::Message::IDEA');
-diag("Instance print A01: " . $idea1->to_string(1) . "\n") if Tester::D();
-#is($idea1->to_string(), '{"Target":[{"Email":["innocent@example.com"],"Type":["Backscatter"],"Spoofed":1},{"IP4":["10.2.2.2"],"Anonymised":1}],"Format":"IDEA0","Note":"Synthetic example","Attach":[{"FileName":["killemall"],"Size":46,"Hash":["sha1:0c4a38c3569f0cc632e74f4c"],"Type":["malware"],"Handle":"att1","Ref":["Trojan-Spy:W32/FinSpy.A"]}],"DetectTime":"2012-11-03 10:00:00Z","Source":[{"Netname":["ripe:IANA-CBLK-RESERVED1"],"IP4":["195.113.144.194","192.168.0.253"],"Attach":["att1"],"URL":["http://example.com/cgi-bin/killemall"],"Type":["Phishing"]}],"ConnCount":20,"EventTime":"2012-11-03 07:36:00Z","ID":"4390fc3f-c753-4a3e-bc83-1b44f24baf75","Confidence":1,"WinEndTime":"2012-11-03 10:00:00Z","CeaseTime":"2012-11-03 09:55:00Z","WinStartTime":"2012-11-03 05:00:00Z","CreateTime":"2012-11-03 10:02:00Z","Category":["Phishing"],"Node":[{"AggrWin":"12:59:00","SW":["Kippo"],"Name":"buldocek","Type":["Network","Honeypot","Kippo"]}],"Ref":["cve:CVE-1234-5678"]}', "Instance print test A01");
-
-
-# Check IDEA message creation using rules
-my $idea_rules = [
- ['Node[1]/SW[1]', 'Kippo'],
- ['Node[1]/Type[1]', 'Honeypot'],
- ['Source[1]/IP4[1]', '192.168.0.1'],
- ['Target[1]/IP4[1]', '192.168.0.2'],
- ['Category[1]', 'Attempt.Login'],
- ['Description', 'Remote login'],
- ['Note', 'Completion: failed. Someone tried to login as root from 192.168.0.1'],
- ['ConnCount', '5'],
- ['_CESNET/Impact', 'Someone tried to login as root from 192.168.0.1'],
-];
-my $idea2 = Mentat::Message::Factory->from_rules($idea_rules, 'idea');
-isa_ok($idea2, 'Mentat::Message::IDEA');
-diag("Instance print A02: " . $idea2->to_string(1) . "\n") if Tester::D();
-#is($idea2->to_string(), '{"Note":"Completion: failed. Someone tried to login as root from 192.168.0.1","Description":"Remote login","Target":[{"IP4":["192.168.0.2"]}],"ConnCount":5,"Category":["Attempt.Login"],"Node":[{"SW":["Kippo"],"Type":["Honeypot"]}],"Source":[{"IP4":["192.168.0.1"]}],"_CESNET":{"Impact":"Someone tried to login as root from 192.168.0.1"},"Format":"IDEA0"}', "Instance print test A02");
-
-# Check IDEA message creation from file
-my $idea3 = Mentat::Message::Factory->from_file('./spool/alert02.idea');
-isa_ok($idea1, 'Mentat::Message::IDEA');
-diag("Instance print A03: " . $idea1->to_string(1) . "\n") if Tester::D();
-#is($idea1->to_string(), '{"Target":[{"Email":["innocent@example.com"],"Type":["Backscatter"],"Spoofed":1},{"IP4":["10.2.2.2"],"Anonymised":1}],"Format":"IDEA0","Note":"Synthetic example","Attach":[{"FileName":["killemall"],"Size":46,"Hash":["sha1:0c4a38c3569f0cc632e74f4c"],"Type":["malware"],"Handle":"att1","Ref":["Trojan-Spy:W32/FinSpy.A"]}],"DetectTime":"2012-11-03 10:00:00Z","Source":[{"Netname":["ripe:IANA-CBLK-RESERVED1"],"IP4":["195.113.144.194","192.168.0.253"],"Attach":["att1"],"URL":["http://example.com/cgi-bin/killemall"],"Type":["Phishing"]}],"ConnCount":20,"EventTime":"2012-11-03 07:36:00Z","ID":"4390fc3f-c753-4a3e-bc83-1b44f24baf75","Confidence":1,"WinEndTime":"2012-11-03 10:00:00Z","CeaseTime":"2012-11-03 09:55:00Z","WinStartTime":"2012-11-03 05:00:00Z","CreateTime":"2012-11-03 10:02:00Z","Category":["Phishing"],"Node":[{"AggrWin":"12:59:00","SW":["Kippo"],"Name":"buldocek","Type":["Network","Honeypot","Kippo"]}],"Ref":["cve:CVE-1234-5678"]}', "Instance print test A01");
diff --git a/lib_perl/tests/unit/t/Mentat.Message.IDEA.t b/lib_perl/tests/unit/t/Mentat.Message.IDEA.t
deleted file mode 100644
index 5936f2a..0000000
--- a/lib_perl/tests/unit/t/Mentat.Message.IDEA.t
+++ /dev/null
@@ -1,295 +0,0 @@
-#!/usr/bin/perl -T
-
-use strict;
-use warnings;
-
-#*******************************************************************************
-# Mentat::Message::IDEA class tests
-#
-# Author: Jan Mach, jan.mach@cesnet.cz
-# Version: 0.1
-# Purpose:
-# Comments:
-#*******************************************************************************
-
-use Data::Dumper;
-#use Smart::Comments;
-
-use Test::More tests => 156;
-
-# First test if the module correctly compiles
-BEGIN {
- use vars qw($TESTED_CLASS);
- $TESTED_CLASS = 'Mentat::Message::IDEA';
-
- use_ok('Tester');
- use_ok('Mentat::Message');
- use_ok('Value::Convertor');
- use_ok('Value::IP');
- use_ok('Value::Timestamp');
- use_ok('Value::Period');
- use_ok('Mentat::MPath::Parser');
- use_ok($TESTED_CLASS);
- }
-
-# Debug output explicit ON switch
-#Tester::DEBUG_ON();
-
-# Debug output explicit OFF switch
-#Tester::DEBUG_OFF();
-
-# User should know, which version is beeing tested (just for sure)
-diag("$TESTED_CLASS version: " . $Mentat::Message::IDEA::VERSION) if Tester::D();
-
-# Now attempt to create a class instance and check it
-my $instance = $TESTED_CLASS->new();
-isa_ok($instance, $TESTED_CLASS);
-
-# View the created instance
-diag("Instance dump 01: " . Dumper($instance)) if Tester::D();
-is($instance->to_string(1),
-'{
- "Format" : "IDEA0"
-}
-', "Instance dump test 01");
-is($instance == {"Format" => "IDEA0"}, 1, "Instance equality test 01");
-
-# Check existence of some nodes
-is($instance->path_node_exists('Format'), 1, 'Existence test 01');
-is($instance->path_node_exists('Node/Name'), 0, 'Existence test 02');
-is($instance->path_node_exists('Category'), 0, 'Existence test 03');
-
-my @MESSAGE_RULES = (
- ["Format", "IDEA0"],
- ["ID", "2E4A3926-B1B9-41E3-89AE-B6B474EB0A54"],
- ["DetectTime", "2014-03-22T10:12:31Z"],
- ["Category[1]", "Recon.Scanning"],
- ["ConnCount", 633],
- ["Description", "EPMAPPER exploitation attempt"],
- ["Ref[1]", "cve:CVE-2003-0605"],
- ["Source[1]/IP4[1]", "93.184.216.119"],
- ["Source[1]/Proto[1]", "tcp"],
- ["Source[1]/Proto[2]", "epmap"],
- ["Source[1]/Port[1]", "24508"],
- ["Target[1]/Proto[1]", "tcp"],
- ["Target[1]/Proto[2]", "epmap"],
- ["Target[1]/Port[1]", "135"],
- ["Node[1]/Name", "warden-receiver"],
- ["Node[1]/Realm", "cesnet.cz"],
- ["Node[1]/Tags[1]", "Warden"],
- ["Node[1]/SW", "warden-receiver"],
- ["Node[2]/Name", "kippo-honey"],
- ["Node[2]/Realm", "cesnet.cz"],
- ["Node[2]/Tags[1]", "Protocol"],
- ["Node[2]/Tags[2]", "Honeypot"],
- ["Node[2]/SW", "Kippo"],
- ["Node[2]/AggrWin", "00:05:00"],
-);
-my %MESSAGE_RULES_H = map { $_->[0] => 1 } @MESSAGE_RULES;
-
-# Create some message structure
-foreach my $rule (@MESSAGE_RULES) {
- $instance->path_node_set(@$rule);
-}
-
-my $expected = {
- "Format" => "IDEA0",
- "ID" => "2E4A3926-B1B9-41E3-89AE-B6B474EB0A54",
- "Description" => "EPMAPPER exploitation attempt",
- "Category" => ["Recon.Scanning"],
- "DetectTime" => "2014-03-22 10:12:31Z",
- "Ref" => ["cve:CVE-2003-0605"],
- "ConnCount" => 633,
- "Source" => [
- {
- "Proto" => [
- "tcp",
- "epmap"
- ],
- "Port" => ["24508"],
- "IP4" => ["93.184.216.119"],
- }
- ],
- "Target" => [
- {
- "Port" => ["135"],
- "Proto" => [
- "tcp",
- "epmap"
- ]
- }
- ],
- "Node" => [
- {
- "SW" => "warden-receiver",
- "Realm" => "cesnet.cz",
- "Tags" => [
- "Warden"
- ],
- "Name" => "warden-receiver"
- },
- {
- "SW" => "Kippo",
- "AggrWin" => "00:05:00",
- "Realm" => "cesnet.cz",
- "Tags" => [
- "Protocol",
- "Honeypot"
- ],
- "Name" => "kippo-honey"
- }
- ],
-};
-my $expected2 = [
- {
- "Proto" => [
- "tcp",
- "epmap"
- ],
- "Port" => ["24508"],
- "IP4" => ["93.184.216.119"],
- }
-];
-
-# View the message structure
-diag("Instance dump 02: " . Dumper($instance)) if Tester::D();
-is_deeply($instance->hash(), $expected, "Instance dump test 02");
-is($instance == $expected, 0, "Instance equality test 02");
-
-is_deeply($instance->path_values('Source'), $expected2, "Instance partial get test 01");
-
-diag("'Source/IP4' result: " . Dumper($instance->path_nodes('Source/IP4'))) if Tester::D();
-diag("'Target' result: " . Dumper($instance->path_nodes('Target'))) if Tester::D();
-diag("'Node' result: " . Dumper($instance->path_values('Node'))) if Tester::D();
-
-#my $nodes = $instance->path_nodes('Source/IP4');
-#foreach my $n (@$nodes) {
-# $$n = 'xx.xx.xx.xx';
-#}
-#diag("Instance dump XX: " . Dumper($instance)) if Tester::D();
-
-# Test simple iteration
-my ($mpath, $value, $node, $i);
-($mpath, $value) = $instance->iterate();
-$i = 0;
-do {
- ++$i;
- diag("ITERATE A: $mpath => $value") if Tester::D();
- is($MESSAGE_RULES_H{$mpath}, 1, "Iteration test A1 $i");
- ($mpath, $value) = $instance->iterate();
-} while $mpath;
-
-# Test iteration in "NODE" mode (returns references, so you may change the values)
-($mpath, $node) = $instance->iterate(undef,1);
-$i = 0;
-do {
- ++$i;
- diag("ITERATE B: $mpath => $node") if Tester::D();
- #$$node = 'test'; # Alter the current value to new one
- is($MESSAGE_RULES_H{$mpath}, 1, "Iteration test B1 $i");
- isnt(ref $node, '', "Iteration test B2 $i");
- ($mpath, $node) = $instance->iterate(undef,1);
-} while $mpath;
-
-# Check the changes made in previous step
-($mpath, $value) = $instance->iterate();
-do {
- ++$i;
- diag("ITERATE C: $mpath => $value") if Tester::D();
- is($MESSAGE_RULES_H{$mpath}, 1, "Iteration test C1 $i");
- ($mpath, $value) = $instance->iterate();
-} while $mpath;
-
-# Suply the MPath pattern to iterate only over certain nodes
-($mpath, $value) = $instance->iterate('Proto');
-do {
- diag("ITERATE D: $mpath => $value") if Tester::D();
- is($MESSAGE_RULES_H{$mpath}, 1, "Iteration test D1 $i");
- is($mpath =~ /Proto/, 1, "Iteration test D2 $i");
- ($mpath, $value) = $instance->iterate('Proto');
-} while $mpath;
-
-# These calls should now yield 1
-is($instance->path_node_exists('Format'), 1, 'Existence test 04');
-is($instance->path_node_exists('Node/Name'), 1, 'Existence test 05');
-is($instance->path_node_exists('Category'), 1, 'Existence test 06');
-
-# Determine the message ID
-is($instance->id(), '2E4A3926-B1B9-41E3-89AE-B6B474EB0A54', 'Get message ID test');
-
-# Retrieve some values
-is($instance->path_value('Node/Name'), 'warden-receiver', 'Get node value test 01');
-is($instance->path_value('Category'), 'Recon.Scanning', 'Get node value test 02');
-is($instance->path_value('Node[2]/Name'), 'kippo-honey', 'Get node value test 03');
-is($instance->path_value('Node[#]/Name'), 'kippo-honey', 'Get node value test 04');
-is($instance->path_value('Node[#]/SW'), 'Kippo', 'Get node value test 05');
-is_deeply($instance->path_values('Node[#]/SW'), ['Kippo'], 'Get node value test 06');
-
-# Retrieve multiple values
-is_deeply($instance->path_values('Node/Tags'), ['Warden','Protocol', 'Honeypot'], 'Get multiple node values test 01');
-
-# Change some values
-$instance->path_value_set('Node/Name', 'warden-receiver-updated');
-$instance->path_value_set('Category[1]', 'Recon.Scanning-updated');
-
-# Verify the values are new
-is($instance->path_value('Node/Name'), 'warden-receiver-updated', 'Get node value test 06');
-is($instance->path_value('Category'), 'Recon.Scanning-updated', 'Get node value test 07');
-
-# View the message structure
-diag("Instance dump 03: " . Dumper($instance)) if Tester::D();
-
-# Delete some nodes
-$instance->path_node_delete('Node/Name');
-$instance->path_node_delete('Category[1]');
-
-# Verify the nodes are gone
-is($instance->path_node_exists('Node/Name'), 0, 'Existence test 07');
-is($instance->path_node_exists('Category'), 0, 'Existence test 08');
-
-# Fumble with list nodes a bit
-$instance->path_node_delete('Category');
-$instance->path_node_set('Category', 'Recon.Scanning');
-is($instance->path_node_exists('Category'), 1, 'Existence test 09');
-is($instance->path_node_exists('Category[1]'), 0, 'Existence test 10');
-is_deeply($instance->path_values('Category'), ['Recon.Scanning'], 'Get values test 01');
-# Check auto conversion from scalar value to list of values by adding value to list
-# Also check the '*' list operator
-$instance->path_node_set('Category[*]', 'Login.Attempt');
-is($instance->path_node_exists('Category[1]'), 1, 'Existence test 11');
-is($instance->path_node_exists('Category[2]'), 1, 'Existence test 12');
-is($instance->path_node_exists('Category[3]'), 0, 'Existence test 13');
-is_deeply($instance->path_values('Category'), ['Recon.Scanning','Login.Attempt'], 'Get values test 02');
-# Check the '#' operator
-$instance->path_node_set('Category[#]', 'Test');
-is($instance->path_node_exists('Category[1]'), 1, 'Existence test 14');
-is($instance->path_node_exists('Category[2]'), 1, 'Existence test 15');
-is($instance->path_node_exists('Category[3]'), 0, 'Existence test 16');
-is_deeply($instance->path_values('Category'), ['Recon.Scanning','Test'], 'Get values test 03');
-$instance->path_node_delete('Category');
-is($instance->path_node_exists('Category'), 0, 'Existence test 17');
-is($instance->path_node_exists('Category[1]'), 0, 'Existence test 18');
-is($instance->path_node_exists('Category[2]'), 0, 'Existence test 19');
-is($instance->path_node_exists('Category[3]'), 0, 'Existence test 20');
-
-# View the message structure
-diag("Instance dump 04: " . Dumper($instance)) if Tester::D();
-
-# Test the message serialization and deserialization
-my $serialization = $instance->serialize();
-my $instance2 = $TESTED_CLASS->unserialize($serialization);
-
-# View the message structure after deserialization
-diag("Instance dump 05: " . Dumper($instance2)) if Tester::D();
-is($instance == $instance2, 1, "Instance equality test 03");
-is($instance eq $instance2, 1, "Instance equality test 04");
-
-# More equality tests
-my $instance3 = $TESTED_CLASS->new();
-my $instance4 = $TESTED_CLASS->new();
-is($instance3 == $instance4, 1, "Instance equality test 05");
-is($instance3 eq $instance4, 1, "Instance equality test 06");
-
-# Check loading from file
-my $instance5 = $TESTED_CLASS->from_file('./spool/alert01.idea');
-isa_ok($instance5, $TESTED_CLASS);
diff --git a/lib_perl/tests/unit/t/Mentat.Message.Validator.IDEA.t b/lib_perl/tests/unit/t/Mentat.Message.Validator.IDEA.t
deleted file mode 100644
index 1475e49..0000000
--- a/lib_perl/tests/unit/t/Mentat.Message.Validator.IDEA.t
+++ /dev/null
@@ -1,52 +0,0 @@
-#!/usr/bin/perl -T
-
-use strict;
-use warnings;
-
-#*******************************************************************************
-# Mentat::Message::Validator::IDEA class tests
-#
-# Author: Jan Mach, jan.mach@cesnet.cz
-# Version: 0.1
-# Purpose:
-# Comments:
-#*******************************************************************************
-
-use Data::Dumper;
-#use Smart::Comments;
-
-use Test::More tests => 8;
-
-# First test if the module correctly compiles
-BEGIN {
- use vars qw($TESTED_CLASS);
- $TESTED_CLASS = 'Mentat::Message::Validator::IDEA';
-
- use_ok('Tester');
- use_ok('Mentat::Message::Validator');
- use_ok('JSON::Schema::Validator');
- use_ok($TESTED_CLASS);
- use_ok('Mentat::Message::Factory');
- }
-
-# Debug output explicit ON switch
-#Tester::DEBUG_ON();
-
-# Debug output explicit OFF switch
-#Tester::DEBUG_OFF();
-
-# User should know, which version is beeing tested (just for sure)
-diag("$TESTED_CLASS version: " . $Mentat::Message::Validator::IDEA::VERSION) if Tester::D();
-diag("Mentat::Message::Factory version: " . $Mentat::Message::Factory::VERSION) if Tester::D();
-
-# Now attempt to create a class instance and check it
-my $instance = $TESTED_CLASS->new('../../../schema/idea.schema');
-isa_ok($instance, $TESTED_CLASS);
-
-# View the created instance
-diag("Instance dump 01: " . Dumper($instance)) if Tester::D();
-
-# Check the validations
-my $idea = Mentat::Message::Factory->from_file('./spool/alert01.idea');
-is($instance->validate_s($idea), '', 'Validation test 01');
-is($instance->validate_b($idea), 0, 'Validation test 02');
diff --git a/lib_perl/tests/unit/t/Mentat.Message.Validator.t b/lib_perl/tests/unit/t/Mentat.Message.Validator.t
deleted file mode 100644
index c63d051..0000000
--- a/lib_perl/tests/unit/t/Mentat.Message.Validator.t
+++ /dev/null
@@ -1,43 +0,0 @@
-#!/usr/bin/perl -T
-
-use strict;
-use warnings;
-
-#*******************************************************************************
-# Mentat::Message::Validator class tests
-#
-# Author: Jan Mach, jan.mach@cesnet.cz
-# Version: 0.1
-# Purpose:
-# Comments:
-#*******************************************************************************
-
-use Data::Dumper;
-#use Smart::Comments;
-
-use Test::More tests => 2;
-
-# First test if the module correctly compiles
-BEGIN {
- use vars qw($TESTED_CLASS);
- $TESTED_CLASS = 'Mentat::Message::Validator';
-
- use_ok('Tester');
- use_ok($TESTED_CLASS);
- }
-
-# Debug output explicit ON switch
-#Tester::DEBUG_ON();
-
-# Debug output explicit OFF switch
-#Tester::DEBUG_OFF();
-
-# User should know, which version is beeing tested (just for sure)
-diag("$TESTED_CLASS version: " . $Mentat::Message::Validator::VERSION) if Tester::D();
-
-# Now attempt to create a class instance and check it
-#my $instance = $TESTED_CLASS->new();
-#isa_ok($instance, $TESTED_CLASS);
-
-# View the created instance
-#diag("Instance dump 01: " . Dumper($instance)) if Tester::D();
diff --git a/lib_perl/tests/unit/t/Mentat.Message.Value.IDEA.t b/lib_perl/tests/unit/t/Mentat.Message.Value.IDEA.t
deleted file mode 100644
index 5db416b..0000000
--- a/lib_perl/tests/unit/t/Mentat.Message.Value.IDEA.t
+++ /dev/null
@@ -1,43 +0,0 @@
-#!/usr/bin/perl -T
-
-use strict;
-use warnings;
-
-#*******************************************************************************
-# Mentat::Message::Value::IDEA module/class tests
-#
-# Author: Jan Mach, jan.mach@cesnet.cz
-# Version: 0.1
-# Purpose:
-#
-#*******************************************************************************
-
-use Data::Dumper;
-#use Smart::Comments;
-
-use Test::More tests => 2;
-
-# First test if the module correctly compiles
-BEGIN {
- use vars qw($TESTED_CLASS);
- $TESTED_CLASS = 'Mentat::Message::Value::IDEA';
-
- use_ok('Tester');
- use_ok($TESTED_CLASS);
- }
-
-# Debug output explicit ON switch
-#Tester::DEBUG_ON();
-
-# Debug output explicit OFF switch
-#Tester::DEBUG_OFF();
-
-# User should know, which version is beeing tested (just for sure)
-diag("$TESTED_CLASS version: " . $Mentat::Message::Value::IDEA::VERSION) if Tester::D();
-
-# Now attempt to create a class instance and check it
-#my $instance = $TESTED_CLASS->new();
-#isa_ok($instance, $TESTED_CLASS);
-
-# View the created instance
-#diag("Instance dump 01: " . Dumper($instance)) if Tester::D();
diff --git a/lib_perl/tests/unit/t/Mentat.Message.Value.t b/lib_perl/tests/unit/t/Mentat.Message.Value.t
deleted file mode 100644
index d5d286a..0000000
--- a/lib_perl/tests/unit/t/Mentat.Message.Value.t
+++ /dev/null
@@ -1,43 +0,0 @@
-#!/usr/bin/perl -T
-
-use strict;
-use warnings;
-
-#*******************************************************************************
-# Mentat::Message::Value module/class tests
-#
-# Author: Jan Mach, jan.mach@cesnet.cz
-# Version: 0.1
-# Purpose:
-#
-#*******************************************************************************
-
-use Data::Dumper;
-#use Smart::Comments;
-
-use Test::More tests => 2;
-
-# First test if the module correctly compiles
-BEGIN {
- use vars qw($TESTED_CLASS);
- $TESTED_CLASS = 'Mentat::Message::Value';
-
- use_ok('Tester');
- use_ok($TESTED_CLASS);
- }
-
-# Debug output explicit ON switch
-#Tester::DEBUG_ON();
-
-# Debug output explicit OFF switch
-#Tester::DEBUG_OFF();
-
-# User should know, which version is beeing tested (just for sure)
-diag("$TESTED_CLASS version: " . $Mentat::Message::Value::VERSION) if Tester::D();
-
-# Now attempt to create a class instance and check it
-#my $instance = $TESTED_CLASS->new();
-#isa_ok($instance, $TESTED_CLASS);
-
-# View the created instance
-#diag("Instance dump 01: " . Dumper($instance)) if Tester::D();
diff --git a/lib_perl/tests/unit/t/Mentat.Message.t b/lib_perl/tests/unit/t/Mentat.Message.t
deleted file mode 100644
index 5db0cfd..0000000
--- a/lib_perl/tests/unit/t/Mentat.Message.t
+++ /dev/null
@@ -1,43 +0,0 @@
-#!/usr/bin/perl -T
-
-use strict;
-use warnings;
-
-#*******************************************************************************
-# Mentat::Message class tests
-#
-# Author: Jan Mach, jan.mach@cesnet.cz
-# Version: 0.1
-# Purpose:
-# Comments:
-#*******************************************************************************
-
-use Data::Dumper;
-#use Smart::Comments;
-
-use Test::More tests => 2;
-
-# First test if the module correctly compiles
-BEGIN {
- use vars qw($TESTED_CLASS);
- $TESTED_CLASS = 'Mentat::Message';
-
- use_ok('Tester');
- use_ok($TESTED_CLASS);
- }
-
-# Debug output explicit ON switch
-#Tester::DEBUG_ON();
-
-# Debug output explicit OFF switch
-#Tester::DEBUG_OFF();
-
-# User should know, which version is beeing tested (just for sure)
-diag("$TESTED_CLASS version: " . $Mentat::Message::VERSION) if Tester::D();
-
-# Now attempt to create a class instance and check it
-#my $instance = $TESTED_CLASS->new();
-#isa_ok($instance, $TESTED_CLASS);
-
-# View the created instance
-#diag("Instance dump 01: " . Dumper($instance)) if Tester::D();
diff --git a/lib_perl/tests/unit/t/Value.Convertor.t b/lib_perl/tests/unit/t/Value.Convertor.t
deleted file mode 100644
index dbc7c0c..0000000
--- a/lib_perl/tests/unit/t/Value.Convertor.t
+++ /dev/null
@@ -1,797 +0,0 @@
-#!/usr/bin/perl -T
-
-use strict;
-use warnings;
-
-#*******************************************************************************
-# Value::Convertor module/class tests
-#
-# Author: Jan Mach, jan.mach@cesnet.cz
-# Version: 0.1
-# Purpose:
-#
-#*******************************************************************************
-
-use Data::Dumper;
-#use Smart::Comments;
-
-use Test::More tests => 7951;
-
-use Math::BigInt;
-
-# First test if the module correctly compiles
-BEGIN {
- use vars qw($TESTED_CLASS);
- $TESTED_CLASS = 'Value::Convertor';
-
- use_ok('Tester');
- use_ok($TESTED_CLASS);
- }
-
-# Debug output explicit ON switch
-#Tester::DEBUG_ON();
-
-# Debug output explicit OFF switch
-#Tester::DEBUG_OFF();
-
-# User should know, which version is beeing tested (just for sure)
-diag("$TESTED_CLASS version: " . $Value::Convertor::VERSION) if Tester::D();
-
-#-------------------------------------------------------------------------------
-# Define tests
-#-------------------------------------------------------------------------------
-
-# IPv4 addresses to be tested
-my %IPV4s = (
- 'A' => {
- 'str' => '195.113.144.194',
- 'hexstr' => 'C37190C2',
- 'int' => 3278999746,
- },
- 'B' => {
- 'str' => '0.0.0.0',
- 'hexstr' => '00000000',
- 'int' => 0,
- },
- 'C' => {
- 'str' => '255.255.255.255',
- 'hexstr' => 'FFFFFFFF',
- 'int' => 4294967295,
- },
- 'D' => {
- 'str' => '192.168.0.0',
- 'hexstr' => 'C0A80000',
- 'int' => 3232235520,
- },
- 'E' => {
- 'str' => '192.168.0.255',
- 'hexstr' => 'C0A800FF',
- 'int' => 3232235775,
- },
- 'F' => {
- 'str' => '255.255.255.0',
- 'hexstr' => 'FFFFFF00',
- 'int' => 4294967040,
- },
- );
-
-# IPv6 addresses to be tested
-my %IPV6s;
-{
-use bigint;
-%IPV6s = (
- 'A' => {
- 'str' => '2001:718:1:1::2',
- 'strlng' => '2001:0718:0001:0001:0000:0000:0000:0002',
- 'hexstr' => '20010718000100010000000000000002',
- 'bigint' => 42540632040320177608853785003998314498,
- },
- 'B' => {
- 'str' => '::1',
- 'strlng' => '0000:0000:0000:0000:0000:0000:0000:0001',
- 'hexstr' => '00000000000000000000000000000001',
- 'bigint' => 1,
- },
- 'C' => {
- 'str' => '::',
- 'strlng' => '0000:0000:0000:0000:0000:0000:0000:0000',
- 'hexstr' => '00000000000000000000000000000000',
- 'bigint' => 0,
- },
- 'D' => {
- 'str' => 'FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF',
- 'strlng' => 'FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF',
- 'hexstr' => 'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF',
- 'bigint' => 340282366920938463463374607431768211455,
- },
- 'E' => {
- 'str' => '2001:718:1:1::9',
- 'strlng' => '2001:0718:0001:0001:0000:0000:0000:0009',
- 'hexstr' => '20010718000100010000000000000009',
- 'bigint' => 42540632040320177608853785003998314505,
- },
- );
-}
-
-# MAC addresses to be tested
-my %MACs;
-{
-use bigint;
-%MACs = (
- 'A' => {
- 'str' => '00:1F:1F:50:76:29',
- 'hexstr' => '001F1F507629',
- 'bigint' => 133669353001,
- },
- 'B' => {
- 'str' => '00:00:00:00:00:00',
- 'hexstr' => '000000000000',
- 'bigint' => 0,
- },
- 'C' => {
- 'str' => 'FF:FF:FF:FF:FF:FF',
- 'hexstr' => 'FFFFFFFFFFFF',
- 'bigint' => 281474976710655,
- },
- );
-}
-
-my $TIME_ZONE = DateTime::TimeZone->new(name => 'local');
-my $TIME_ZONE_OFFSET = DateTime->now(time_zone => $TIME_ZONE)->offset();
-
-# Timestamps to be tested
-my %TSs = (
- 'A' => {
- 'str_utc' => '2013-05-28 08:34:46Z', # UTC timestamp string
- 'str_lcl' => '2013-05-28 10:34:46', # Local timezone timestamp string
- 'unixs' => 1369730086, # Unix timestamp
- 'unixs_l' => 1369730086 + $TIME_ZONE_OFFSET, # Unix timestamp for local time
- 'ntps' => '0xd54eeaa6.0x0', # NTP timestamp
- 'ntps_i' => 3578718886, # NTP timestamp in decimal form
- 'ubi' => Math::BigInt->new(5882945923717267456), # Unix timestamp in bigint form
- 'nbi' => Math::BigInt->new(15370480576947552256), # NTP timestamp in bigint form
- 'uints' => [1369730086,0], # Unix timestamp as two integers
- 'nints' => [3578718886,0], # NTP timestamp as two integers
- },
- 'B' => {
- 'str_utc' => '2013-04-18 10:28:37Z',
- 'str_lcl' => '2013-04-18 12:28:37',
- 'unixs' => 1366280917,
- 'unixs_l' => 1366280917 + $TIME_ZONE_OFFSET,
- 'ntps' => '0xd51a4955.0x0',
- 'ntps_i' => 3575269717,
- 'ubi' => Math::BigInt->new(5868131855663890432),
- 'nbi' => Math::BigInt->new(15355666508894175232),
- 'uints' => [1366280917,0],
- 'nints' => [3575269717,0],
- },
- 'C' => {
- 'str_utc' => '2013-05-28 11:58:14Z',
- 'str_lcl' => '2013-05-28 13:58:14',
- 'unixs' => 1369742294,
- 'unixs_l' => 1369742294 + $TIME_ZONE_OFFSET,
- 'ntps' => '0xd54f1a56.0x0',
- 'ntps_i' => 3578731094,
- 'ubi' => Math::BigInt->new(5882998356678017024),
- 'nbi' => Math::BigInt->new(15370533009908301824),
- 'uints' => [1369742294,0],
- 'nints' => [3578731094,0],
- },
- );
-
-# Datetime strings for detection tests
-my @DTsA = (
- ['2013-02-03 14:55', Math::BigInt->new(15328259390570496000)],
- ['2013-02-03T14:55', Math::BigInt->new(15328259390570496000)],
- ['2013-02-03 14:55Z', Math::BigInt->new(15328274852452761600)],
- ['2013-02-03T14:55Z', Math::BigInt->new(15328274852452761600)],
- ['2013-02-03 14:55:12', Math::BigInt->new(15328259442110103552)],
- ['2013-02-03T14:55:12', Math::BigInt->new(15328259442110103552)],
- ['2013-02-03 14:55:12Z', Math::BigInt->new(15328274903992369152)],
- ['2013-02-03T14:55:12Z', Math::BigInt->new(15328274903992369152)],
- ['2013-02-03 14:55+0100', Math::BigInt->new(15328259390570496000)],
- ['2013-02-03T14:55+0100', Math::BigInt->new(15328259390570496000)],
- ['2013-02-03 14:55:12+0100', Math::BigInt->new(15328259442110103552)],
- ['2013-02-03T14:55:12+0100', Math::BigInt->new(15328259442110103552)],
- ['2013-02-03 14:55-0100', Math::BigInt->new(15328290314335027200)],
- ['2013-02-03T14:55-0100', Math::BigInt->new(15328290314335027200)],
- ['2013-02-03 14:55:12-0100', Math::BigInt->new(15328290365874634752)],
- ['2013-02-03T14:55:12-0100', Math::BigInt->new(15328290365874634752)],
- );
-my @DTsB = (
- ['2013-02-03 18:55', Math::BigInt->new(15328321238099558400)],
- ['2013-02-03T18:55', Math::BigInt->new(15328321238099558400)],
- ['2013-02-03 18:55Z', Math::BigInt->new(15328336699981824000)],
- ['2013-02-03T18:55Z', Math::BigInt->new(15328336699981824000)],
- ['2013-02-03 18:55:12', Math::BigInt->new(15328321289639165952)],
- ['2013-02-03T18:55:12', Math::BigInt->new(15328321289639165952)],
- ['2013-02-03 18:55:12Z', Math::BigInt->new(15328336751521431552)],
- ['2013-02-03T18:55:12Z', Math::BigInt->new(15328336751521431552)],
- ['2013-02-03 18:55+0100', Math::BigInt->new(15328321238099558400)],
- ['2013-02-03T18:55+0100', Math::BigInt->new(15328321238099558400)],
- ['2013-02-03 18:55:12+0100', Math::BigInt->new(15328321289639165952)],
- ['2013-02-03T18:55:12+0100', Math::BigInt->new(15328321289639165952)],
- ['2013-02-03 18:55-0100', Math::BigInt->new(15328352161864089600)],
- ['2013-02-03T18:55-0100', Math::BigInt->new(15328352161864089600)],
- ['2013-02-03 18:55:12-0100', Math::BigInt->new(15328352213403697152)],
- ['2013-02-03T18:55:12-0100', Math::BigInt->new(15328352213403697152)],
- );
-
-#-------------------------------------------------------------------------------
-# Test the object (instance) interface
-#-------------------------------------------------------------------------------
-
-# Now attempt to create a class instance and check it
-my $instance = $TESTED_CLASS->new();
-isa_ok($instance, $TESTED_CLASS);
-
-# View the created instance
-diag("Instance dump 01: " . Dumper($instance)) if Tester::D();
-
-my %TESTS = ('I' => $instance, 'C' => $TESTED_CLASS);
-foreach my $T (sort keys %TESTS)
-{
- my $invocant = $TESTS{$T};
-
- ##
- # Test the helper methods
- ##
-
- is($invocant->_zero_pad('test',10,1), 'test000000', 'Test "'.$T.'" "_zero_pad" 01');
- is($invocant->_zero_pad('test',10), '000000test', 'Test "'.$T.'" "_zero_pad" 02');
-
- is($invocant->_zero_pad_n('test',2), 'test', 'Test "'.$T.'" "_zero_pad_n" 01');
- is($invocant->_zero_pad_n('test',2,1), 'test', 'Test "'.$T.'" "_zero_pad_n" 02');
- is($invocant->_zero_pad_n('test2',2,1), 'test20', 'Test "'.$T.'" "_zero_pad_n" 03');
- is($invocant->_zero_pad_n('test2',2), '0test2', 'Test "'.$T.'" "_zero_pad_n" 04');
- is($invocant->_zero_pad_n('test2',4,1), 'test2000', 'Test "'.$T.'" "_zero_pad_n" 05');
- is($invocant->_zero_pad_n('test2',4), '000test2', 'Test "'.$T.'" "_zero_pad_n" 06');
- is($invocant->_zero_pad_n('test',5,1), 'test0', 'Test "'.$T.'" "_zero_pad_n" 07');
- is($invocant->_zero_pad_n('test',5), '0test', 'Test "'.$T.'" "_zero_pad_n" 08');
- is($invocant->_zero_pad_n('test',10,1), 'test000000', 'Test "'.$T.'" "_zero_pad_n" 09');
- is($invocant->_zero_pad_n('test',10), '000000test', 'Test "'.$T.'" "_zero_pad_n" 10');
-
- ##
- # Test the general conversions
- ##
-
- is($invocant->anything_to_samething('test'), 'test', 'Test "'.$T.'" "anything_to_samething" A01');
- is($invocant->anything_to_int('555'), 555, 'Test "'.$T.'" "anything_to_int" A01');
- is($invocant->anything_to_string(555), '555', 'Test "'.$T.'" "anything_to_string" A01');
-
- is($invocant->hexstr_to_binstr('a'), '00001010', 'Test "'.$T.'" "hexstr"-"binstr" pair 01');
- is($invocant->binstr_to_hexstr('1010'), '0A', 'Test "'.$T.'" "hexstr"-"binstr" pair 02');
- is($invocant->hexstr_to_binstr('0'), '00000000', 'Test "'.$T.'" "hexstr"-"binstr" pair 03');
- is($invocant->binstr_to_hexstr('0000'), '00', 'Test "'.$T.'" "hexstr"-"binstr" pair 04');
- is($invocant->hexstr_to_binstr('f'), '00001111', 'Test "'.$T.'" "hexstr"-"binstr" pair 05');
- is($invocant->binstr_to_hexstr('1111'), '0F', 'Test "'.$T.'" "hexstr"-"binstr" pair 06');
- is($invocant->hexstr_to_binstr('ab'), '10101011', 'Test "'.$T.'" "hexstr"-"binstr" pair 07');
- is($invocant->binstr_to_hexstr('10101011'), 'AB', 'Test "'.$T.'" "hexstr"-"binstr" pair 08');
- is($invocant->hexstr_to_binstr('00'), '00000000', 'Test "'.$T.'" "hexstr"-"binstr" pair 09');
- is($invocant->binstr_to_hexstr('00000000'), '00', 'Test "'.$T.'" "hexstr"-"binstr" pair 10');
- is($invocant->hexstr_to_binstr('ff'), '11111111', 'Test "'.$T.'" "hexstr"-"binstr" pair 11');
- is($invocant->binstr_to_hexstr('11111111'), 'FF', 'Test "'.$T.'" "hexstr"-"binstr" pair 12');
- is($invocant->binstr_to_hexstr($invocant->hexstr_to_binstr('abcd')), 'ABCD', 'Test "'.$T.'" "hexstr"-"binstr" pair 13');
- is($invocant->hexstr_to_binstr($invocant->binstr_to_hexstr('1010101111001101')), '1010101111001101', 'Test "'.$T.'" "hexstr"-"binstr" pair 14');
- is($invocant->binstr_to_hexstr($invocant->hexstr_to_binstr('0000')), '0000', 'Test "'.$T.'" "hexstr"-"binstr" pair 15');
- is($invocant->hexstr_to_binstr($invocant->binstr_to_hexstr('0000000000000000')), '0000000000000000', 'Test "'.$T.'" "hexstr"-"binstr" pair 16');
- is($invocant->binstr_to_hexstr($invocant->hexstr_to_binstr('ffff')), 'FFFF', 'Test "'.$T.'" "hexstr"-"binstr" pair 17');
- is($invocant->hexstr_to_binstr($invocant->binstr_to_hexstr('1111111111111111')), '1111111111111111', 'Test "'.$T.'" "hexstr"-"binstr" pair 18');
-
- {
- use bigint;
- is($invocant->hexstr_to_bigint('c37190c2'), 3278999746, 'Test "'.$T.'" "hexstr"-"bigint" pair 01');
- is($invocant->bigint_to_hexstr(3278999746), 'C37190C2', 'Test "'.$T.'" "hexstr"-"bigint" pair 02');
- is($invocant->bigint_to_hexstr($invocant->hexstr_to_bigint('c37190c2')), 'C37190C2', 'Test "'.$T.'" "hexstr"-"bigint" pair 03');
- is($invocant->hexstr_to_bigint($invocant->bigint_to_hexstr(3278999746)), 3278999746, 'Test "'.$T.'" "hexstr"-"bigint" pair 04');
- is($invocant->hexstr_to_bigint('00000000'), 0, 'Test "'.$T.'" "hexstr"-"bigint" pair 05');
- is($invocant->bigint_to_hexstr(0), '0', 'Test "'.$T.'" "hexstr"-"bigint" pair 06');
- is($invocant->bigint_to_hexstr(0, 8), '00000000', 'Test "'.$T.'" "hexstr"-"bigint" pair 07');
- is($invocant->bigint_to_hexstr($invocant->hexstr_to_bigint('00000000')), '0', 'Test "'.$T.'" "hexstr"-"bigint" pair 08');
- is($invocant->bigint_to_hexstr($invocant->hexstr_to_bigint('00000000'),8), '00000000', 'Test "'.$T.'" "hexstr"-"bigint" pair 09');
- is($invocant->hexstr_to_bigint($invocant->bigint_to_hexstr(0)), 0, 'Test "'.$T.'" "hexstr"-"bigint" pair 10');
- is($invocant->hexstr_to_bigint('ffffffff'), 4294967295, 'Test "'.$T.'" "hexstr"-"bigint" pair 11');
- is($invocant->bigint_to_hexstr(4294967295), 'FFFFFFFF', 'Test "'.$T.'" "hexstr"-"bigint" pair 12');
- is($invocant->bigint_to_hexstr($invocant->hexstr_to_bigint('ffffffff')), 'FFFFFFFF', 'Test "'.$T.'" "hexstr"-"bigint" pair 13');
- is($invocant->hexstr_to_bigint($invocant->bigint_to_hexstr(4294967295)), 4294967295, 'Test "'.$T.'" "hexstr"-"bigint" pair 14');
- is($invocant->hexstr_to_bigint('001f1f507629'), 133669353001, 'Test "'.$T.'" "hexstr"-"bigint" pair 15');
- is($invocant->bigint_to_hexstr(133669353001), '1F1F507629', 'Test "'.$T.'" "hexstr"-"bigint" pair 16');
- is($invocant->bigint_to_hexstr($invocant->hexstr_to_bigint('001f1f507629')), '1F1F507629', 'Test "'.$T.'" "hexstr"-"bigint" pair 17');
- is($invocant->hexstr_to_bigint($invocant->bigint_to_hexstr(133669353001)), 133669353001, 'Test "'.$T.'" "hexstr"-"bigint" pair 18');
- is($invocant->hexstr_to_bigint('000000000000'), 0, 'Test "'.$T.'" "hexstr"-"bigint" pair 19');
- is($invocant->bigint_to_hexstr(0), '0', 'Test "'.$T.'" "hexstr"-"bigint" pair 20');
- is($invocant->bigint_to_hexstr(0, 10), '0000000000', 'Test "'.$T.'" "hexstr"-"bigint" pair 21');
- is($invocant->bigint_to_hexstr($invocant->hexstr_to_bigint('000000000000')), '0', 'Test "'.$T.'" "hexstr"-"bigint" pair 22');
- is($invocant->bigint_to_hexstr($invocant->hexstr_to_bigint('000000000000'), 10), '0000000000', 'Test "'.$T.'" "hexstr"-"bigint" pair 23');
- is($invocant->hexstr_to_bigint($invocant->bigint_to_hexstr(0)), 0, 'Test "'.$T.'" "hexstr"-"bigint" pair 24');
- is($invocant->hexstr_to_bigint('ffffffffffff'), 281474976710655, 'Test "'.$T.'" "hexstr"-"bigint" pair 25');
- is($invocant->bigint_to_hexstr(281474976710655), 'FFFFFFFFFFFF', 'Test "'.$T.'" "hexstr"-"bigint" pair 26');
- is($invocant->bigint_to_hexstr($invocant->hexstr_to_bigint('ffffffffffff')), 'FFFFFFFFFFFF', 'Test "'.$T.'" "hexstr"-"bigint" pair 27');
- is($invocant->hexstr_to_bigint($invocant->bigint_to_hexstr(281474976710655)), 281474976710655, 'Test "'.$T.'" "hexstr"-"bigint" pair 28');
- is($invocant->hexstr_to_bigint('20010718000100010000000000000002'), 42540632040320177608853785003998314498, 'Test "'.$T.'" "hexstr"-"bigint" pair 29');
- is($invocant->bigint_to_hexstr(42540632040320177608853785003998314498), '20010718000100010000000000000002', 'Test "'.$T.'" "hexstr"-"bigint" pair 30');
- is($invocant->bigint_to_hexstr($invocant->hexstr_to_bigint('20010718000100010000000000000002')), '20010718000100010000000000000002', 'Test "'.$T.'" "hexstr"-"bigint" pair 31');
- is($invocant->hexstr_to_bigint($invocant->bigint_to_hexstr(42540632040320177608853785003998314498)), 42540632040320177608853785003998314498, 'Test "'.$T.'" "hexstr"-"bigint" pair 32');
- is($invocant->hexstr_to_bigint('00000000000000000000000000000000'), 0, 'Test "'.$T.'" "hexstr"-"bigint" pair 33');
- is($invocant->bigint_to_hexstr(0), '0', 'Test "'.$T.'" "hexstr"-"bigint" pair 34');
- is($invocant->bigint_to_hexstr(0, 32), '00000000000000000000000000000000', 'Test "'.$T.'" "hexstr"-"bigint" pair 35');
- is($invocant->bigint_to_hexstr($invocant->hexstr_to_bigint('00000000000000000000000000000000')), 0, 'Test "'.$T.'" "hexstr"-"bigint" pair 36');
- is($invocant->bigint_to_hexstr($invocant->hexstr_to_bigint('00000000000000000000000000000000'), 32), '00000000000000000000000000000000', 'Test "'.$T.'" "hexstr"-"bigint" pair 37');
- is($invocant->hexstr_to_bigint($invocant->bigint_to_hexstr(0)), 0, 'Test "'.$T.'" "hexstr"-"bigint" pair 38');
- is($invocant->hexstr_to_bigint('ffffffffffffffffffffffffffffffff'), 340282366920938463463374607431768211455, 'Test "'.$T.'" "hexstr"-"bigint" pair 39');
- is($invocant->bigint_to_hexstr(340282366920938463463374607431768211455), 'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF', 'Test "'.$T.'" "hexstr"-"bigint" pair 40');
- is($invocant->bigint_to_hexstr($invocant->hexstr_to_bigint('ffffffffffffffffffffffffffffffff')), 'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF', 'Test "'.$T.'" "hexstr"-"bigint" pair 41');
- is($invocant->hexstr_to_bigint($invocant->bigint_to_hexstr(340282366920938463463374607431768211455)), 340282366920938463463374607431768211455, 'Test "'.$T.'" "hexstr"-"bigint" pair 42');
- }
-
- is($invocant->bin_to_hexstr($invocant->hexstr_to_bin('a')), '0A', 'Test "'.$T.'" "hexstr"-"bin" pair 01');
- is($invocant->bin_to_hexstr($invocant->hexstr_to_bin('0')), '00', 'Test "'.$T.'" "hexstr"-"bin" pair 02');
- is($invocant->bin_to_hexstr($invocant->hexstr_to_bin('f')), '0F', 'Test "'.$T.'" "hexstr"-"bin" pair 03');
- is($invocant->bin_to_hexstr($invocant->hexstr_to_bin('ab')), 'AB', 'Test "'.$T.'" "hexstr"-"bin" pair 04');
- is($invocant->bin_to_hexstr($invocant->hexstr_to_bin('00')), '00', 'Test "'.$T.'" "hexstr"-"bin" pair 05');
- is($invocant->bin_to_hexstr($invocant->hexstr_to_bin('ff')), 'FF', 'Test "'.$T.'" "hexstr"-"bin" pair 06');
- is($invocant->bin_to_hexstr($invocant->hexstr_to_bin('abcd')), 'ABCD', 'Test "'.$T.'" "hexstr"-"bin" pair 07');
- is($invocant->bin_to_hexstr($invocant->hexstr_to_bin('0000')), '0000', 'Test "'.$T.'" "hexstr"-"bin" pair 08');
- is($invocant->bin_to_hexstr($invocant->hexstr_to_bin('ffff')), 'FFFF', 'Test "'.$T.'" "hexstr"-"bin" pair 09');
- is($invocant->bin_to_hexstr($invocant->hexstr_to_bin('abcdef')), 'ABCDEF', 'Test "'.$T.'" "hexstr"-"bin" pair 10');
- is($invocant->bin_to_hexstr($invocant->hexstr_to_bin('000000')), '000000', 'Test "'.$T.'" "hexstr"-"bin" pair 11');
- is($invocant->bin_to_hexstr($invocant->hexstr_to_bin('ffffff')), 'FFFFFF', 'Test "'.$T.'" "hexstr"-"bin" pair 12');
-
- is($invocant->bin_to_binstr($invocant->binstr_to_bin('1')), '00000001', 'Test "'.$T.'" "binstr"-"bin" pair 01');
- is($invocant->bin_to_binstr($invocant->binstr_to_bin('0')), '00000000', 'Test "'.$T.'" "binstr"-"bin" pair 02');
- is($invocant->bin_to_binstr($invocant->binstr_to_bin('10')), '00000010', 'Test "'.$T.'" "binstr"-"bin" pair 03');
- is($invocant->bin_to_binstr($invocant->binstr_to_bin('00')), '00000000', 'Test "'.$T.'" "binstr"-"bin" pair 04');
- is($invocant->bin_to_binstr($invocant->binstr_to_bin('11')), '00000011', 'Test "'.$T.'" "binstr"-"bin" pair 05');
- is($invocant->bin_to_binstr($invocant->binstr_to_bin('1010')), '00001010', 'Test "'.$T.'" "binstr"-"bin" pair 06');
- is($invocant->bin_to_binstr($invocant->binstr_to_bin('0000')), '00000000', 'Test "'.$T.'" "binstr"-"bin" pair 07');
- is($invocant->bin_to_binstr($invocant->binstr_to_bin('1111')), '00001111', 'Test "'.$T.'" "binstr"-"bin" pair 08');
- is($invocant->bin_to_binstr($invocant->binstr_to_bin('10101010')), '10101010', 'Test "'.$T.'" "binstr"-"bin" pair 09');
- is($invocant->bin_to_binstr($invocant->binstr_to_bin('00000000')), '00000000', 'Test "'.$T.'" "binstr"-"bin" pair 10');
- is($invocant->bin_to_binstr($invocant->binstr_to_bin('11111111')), '11111111', 'Test "'.$T.'" "binstr"-"bin" pair 11');
-
- {
- use bigint;
- is($invocant->bin_to_bigint($invocant->bigint_to_bin(3278999746)), 3278999746, 'Test "'.$T.'" "bigint"-"bin" pair 01');
- is($invocant->bin_to_bigint($invocant->bigint_to_bin(281474976710655)), 281474976710655, 'Test "'.$T.'" "bigint"-"bin" pair 02');
- is($invocant->bin_to_bigint($invocant->bigint_to_bin(42540632040320177608853785003998314498)), 42540632040320177608853785003998314498, 'Test "'.$T.'" "bigint"-"bin" pair 03');
- }
-
- ##
- # Test the IPv4 conversions
- ##
-
- foreach my $IP (sort keys(%IPV4s))
- {
- is($invocant->ipv4str_to_int($IPV4s{$IP}->{'str'}), $IPV4s{$IP}->{'int'}, 'Test "'.$T.':'.$IP.':" "ipv4str"-"int" pair 01');
- is($invocant->int_to_ipv4str($IPV4s{$IP}->{'int'}), $IPV4s{$IP}->{'str'}, 'Test "'.$T.':'.$IP.':" "ipv4str"-"int" pair 02');
- is($invocant->int_to_ipv4str($invocant->ipv4str_to_int($IPV4s{$IP}->{'str'})), $IPV4s{$IP}->{'str'}, 'Test "'.$T.':'.$IP.':" "ipv4str"-"int" pair 03');
- is($invocant->ipv4str_to_int($invocant->int_to_ipv4str($IPV4s{$IP}->{'int'})), $IPV4s{$IP}->{'int'}, 'Test "'.$T.':'.$IP.':" "ipv4str"-"int" pair 04');
-
- is($invocant->ipv4hex_to_int($IPV4s{$IP}->{'hexstr'}), $IPV4s{$IP}->{'int'}, 'Test "'.$T.':'.$IP.':" "ipv4hex"-"int" pair 01');
- is($invocant->int_to_ipv4hex($IPV4s{$IP}->{'int'}), $IPV4s{$IP}->{'hexstr'}, 'Test "'.$T.':'.$IP.':" "ipv4hex"-"int" pair 02');
- is($invocant->int_to_ipv4hex($invocant->ipv4hex_to_int($IPV4s{$IP}->{'hexstr'})), $IPV4s{$IP}->{'hexstr'}, 'Test "'.$T.':'.$IP.':" "ipv4hex"-"int" pair 03');
- is($invocant->ipv4hex_to_int($invocant->int_to_ipv4hex($IPV4s{$IP}->{'int'})), $IPV4s{$IP}->{'int'}, 'Test "'.$T.':'.$IP.':" "ipv4hex"-"int" pair 04');
-
- is($invocant->bin_to_ipv4str($invocant->ipv4str_to_bin($IPV4s{$IP}->{'str'})), $IPV4s{$IP}->{'str'}, 'Test "'.$T.':'.$IP.':" "ipv4str"-"bin" pair 01');
-
- is($invocant->bin_to_ipv4hex($invocant->ipv4hex_to_bin($IPV4s{$IP}->{'hexstr'})), $IPV4s{$IP}->{'hexstr'}, 'Test "'.$T.':'.$IP.':" "ipv4hex"-"bin" pair 01');
-
- is($invocant->bin_to_ipv4int($invocant->ipv4int_to_bin($IPV4s{$IP}->{'int'})), $IPV4s{$IP}->{'int'}, 'Test "'.$T.':'.$IP.':" "ipv4int"-"bin" pair 01');
-
- is_deeply([$invocant->detect_ipv4($IPV4s{$IP}->{'str'})], ['IPV4ADDR_STRING',$IPV4s{$IP}->{'str'}], 'Test "'.$T.':'.$IP.':" "detect_ipv4" 01');
- is_deeply([$invocant->detect_ipv4($IPV4s{$IP}->{'hexstr'})], ['IPV4ADDR_HEXSTR',$IPV4s{$IP}->{'hexstr'}], 'Test "'.$T.':'.$IP.':" "detect_ipv4" 02');
- is_deeply([$invocant->detect_ipv4('0x' . $IPV4s{$IP}->{'hexstr'})], ['IPV4ADDR_HEXSTR',$IPV4s{$IP}->{'hexstr'}], 'Test "'.$T.':'.$IP.':" "detect_ipv4" 03');
- is_deeply([$invocant->detect_ipv4($IPV4s{$IP}->{'int'})], ['IPV4ADDR_INTEGER',$IPV4s{$IP}->{'int'}], 'Test "'.$T.':'.$IP.':" "detect_ipv4" 04');
-
- is($invocant->detect_ipv6($IPV4s{$IP}->{'str'}), undef, 'Test "'.$T.':'.$IP.':" "detect_ipv6" 01');
- is($invocant->detect_ipv6($IPV4s{$IP}->{'hexstr'}), undef, 'Test "'.$T.':'.$IP.':" "detect_ipv6" 02');
- is($invocant->detect_ipv6('0x' . $IPV4s{$IP}->{'hexstr'}), undef, 'Test "'.$T.':'.$IP.':" "detect_ipv6" 03');
- is_deeply([$invocant->detect_ipv6($IPV4s{$IP}->{'int'})], ['IPV6ADDR_INTEGER',$IPV4s{$IP}->{'int'}], 'Test "'.$T.':'.$IP.':" "detect_ipv6" 04');
-
- is_deeply([$invocant->detect_ip($IPV4s{$IP}->{'str'})], ['IPV4ADDR_STRING',$IPV4s{$IP}->{'str'}], 'Test "'.$T.':'.$IP.':" "detect_ip" 01');
- is_deeply([$invocant->detect_ip($IPV4s{$IP}->{'hexstr'})], ['IPV4ADDR_HEXSTR',$IPV4s{$IP}->{'hexstr'}], 'Test "'.$T.':'.$IP.':" "detect_ip" 02');
- is_deeply([$invocant->detect_ip('0x' . $IPV4s{$IP}->{'hexstr'})], ['IPV4ADDR_HEXSTR',$IPV4s{$IP}->{'hexstr'}], 'Test "'.$T.':'.$IP.':" "detect_ip" 03');
- is_deeply([$invocant->detect_ip($IPV4s{$IP}->{'int'})], ['IPV4ADDR_INTEGER',$IPV4s{$IP}->{'int'}], 'Test "'.$T.':'.$IP.':" "detect_ip" 04');
-
- is_deeply([$invocant->ipv4_to_int($IPV4s{$IP}->{'str'})], ['IPV4ADDR_STRING',$IPV4s{$IP}->{'int'}], 'Test "'.$T.':'.$IP.':" "ipv4_to_int" 01');
- is_deeply([$invocant->ipv4_to_int($IPV4s{$IP}->{'hexstr'})], ['IPV4ADDR_HEXSTR',$IPV4s{$IP}->{'int'}], 'Test "'.$T.':'.$IP.':" "ipv4_to_int" 02');
- is_deeply([$invocant->ipv4_to_int($IPV4s{$IP}->{'int'})], ['IPV4ADDR_INTEGER',$IPV4s{$IP}->{'int'}], 'Test "'.$T.':'.$IP.':" "ipv4_to_int" 03');
-
- is_deeply([$invocant->ipv4_to_bin($IPV4s{$IP}->{'str'})], ['IPV4ADDR_STRING',$invocant->ipv4hex_to_bin($IPV4s{$IP}->{'hexstr'})], 'Test "'.$T.':'.$IP.':" "ipv4_to_bin" 01');
- is_deeply([$invocant->ipv4_to_bin($IPV4s{$IP}->{'hexstr'})], ['IPV4ADDR_HEXSTR',$invocant->ipv4hex_to_bin($IPV4s{$IP}->{'hexstr'})], 'Test "'.$T.':'.$IP.':" "ipv4_to_bin" 02');
- is_deeply([$invocant->ipv4_to_bin($IPV4s{$IP}->{'int'})], ['IPV4ADDR_INTEGER',$invocant->ipv4hex_to_bin($IPV4s{$IP}->{'hexstr'})], 'Test "'.$T.':'.$IP.':" "ipv4_to_bin" 03');
-
- is_deeply([$invocant->ip_to_int($IPV4s{$IP}->{'str'})], ['IPV4ADDR_STRING',$IPV4s{$IP}->{'int'}], 'Test "'.$T.':'.$IP.':" "ip_to_int" 01');
- is_deeply([$invocant->ip_to_int($IPV4s{$IP}->{'hexstr'})], ['IPV4ADDR_HEXSTR',$IPV4s{$IP}->{'int'}], 'Test "'.$T.':'.$IP.':" "ip_to_int" 02');
- is_deeply([$invocant->ip_to_int($IPV4s{$IP}->{'int'})], ['IPV4ADDR_INTEGER',$IPV4s{$IP}->{'int'}], 'Test "'.$T.':'.$IP.':" "ip_to_int" 03');
-
- is_deeply([$invocant->ip_to_bin($IPV4s{$IP}->{'str'})], ['IPV4ADDR_STRING',$invocant->ipv4hex_to_bin($IPV4s{$IP}->{'hexstr'})], 'Test "'.$T.':'.$IP.':" "ip_to_bin" 01');
- is_deeply([$invocant->ip_to_bin($IPV4s{$IP}->{'hexstr'})], ['IPV4ADDR_HEXSTR',$invocant->ipv4hex_to_bin($IPV4s{$IP}->{'hexstr'})], 'Test "'.$T.':'.$IP.':" "ip_to_bin" 02');
- is_deeply([$invocant->ip_to_bin($IPV4s{$IP}->{'int'})], ['IPV4ADDR_INTEGER',$invocant->ipv4hex_to_bin($IPV4s{$IP}->{'hexstr'})], 'Test "'.$T.':'.$IP.':" "ip_to_bin" 03');
- }
-
- is_deeply([$invocant->ipv4cidr_to_ints($IPV4s{'D'}->{'str'}.'/24')], [$IPV4s{'D'}->{'int'}, $IPV4s{'E'}->{'int'}], 'Test "'.$T.'" "ipv4cidr_to_ints" 01');
- is_deeply([$invocant->ipv4cidr_to_ints($IPV4s{'D'}->{'str'},'24')], [$IPV4s{'D'}->{'int'}, $IPV4s{'E'}->{'int'}], 'Test "'.$T.'" "ipv4cidr_to_ints" 02');
-
- is_deeply([$invocant->ipv4cidr_to_bins($IPV4s{'D'}->{'str'}.'/24')], [$invocant->ipv4str_to_bin($IPV4s{'D'}->{'str'}), $invocant->ipv4str_to_bin($IPV4s{'E'}->{'str'})], 'Test "'.$T.'" "ipv4cidr_to_bins" 01');
- is_deeply([$invocant->ipv4cidr_to_bins($IPV4s{'D'}->{'str'},'24')], [$invocant->ipv4str_to_bin($IPV4s{'D'}->{'str'}), $invocant->ipv4str_to_bin($IPV4s{'E'}->{'str'})], 'Test "'.$T.'" "ipv4cidr_to_bins" 02');
-
- is_deeply([$invocant->ipv4netm_to_ints($IPV4s{'D'}->{'str'}.'/'.$IPV4s{'F'}->{'str'})], [$IPV4s{'D'}->{'int'}, $IPV4s{'E'}->{'int'}], 'Test "'.$T.'" "ipv4netm_to_ints" 01');
- is_deeply([$invocant->ipv4netm_to_ints($IPV4s{'D'}->{'str'},$IPV4s{'F'}->{'str'})], [$IPV4s{'D'}->{'int'}, $IPV4s{'E'}->{'int'}], 'Test "'.$T.'" "ipv4netm_to_ints" 02');
-
- is_deeply([$invocant->ipv4netm_to_bins($IPV4s{'D'}->{'str'}.'/'.$IPV4s{'F'}->{'str'})], [$invocant->ipv4str_to_bin($IPV4s{'D'}->{'str'}), $invocant->ipv4str_to_bin($IPV4s{'E'}->{'str'})], 'Test "'.$T.'" "ipv4netm_to_bins" 01');
- is_deeply([$invocant->ipv4netm_to_bins($IPV4s{'D'}->{'str'},$IPV4s{'F'}->{'str'})], [$invocant->ipv4str_to_bin($IPV4s{'D'}->{'str'}), $invocant->ipv4str_to_bin($IPV4s{'E'}->{'str'})], 'Test "'.$T.'" "ipv4netm_to_bins" 02');
-
- is_deeply([$invocant->ipv4rngstr_to_ints($IPV4s{'D'}->{'str'}.'-'.$IPV4s{'E'}->{'str'})], [$IPV4s{'D'}->{'int'}, $IPV4s{'E'}->{'int'}], 'Test "'.$T.'" "ipv4rngstr_to_ints" 01');
- is_deeply([$invocant->ipv4rngstr_to_ints($IPV4s{'D'}->{'str'}.'..'.$IPV4s{'E'}->{'str'})], [$IPV4s{'D'}->{'int'}, $IPV4s{'E'}->{'int'}], 'Test "'.$T.'" "ipv4rngstr_to_ints" 02');
- is_deeply([$invocant->ipv4rngstr_to_ints($IPV4s{'D'}->{'str'}.' - '.$IPV4s{'E'}->{'str'})], [$IPV4s{'D'}->{'int'}, $IPV4s{'E'}->{'int'}], 'Test "'.$T.'" "ipv4rngstr_to_ints" 03');
- is_deeply([$invocant->ipv4rngstr_to_ints($IPV4s{'D'}->{'str'}.' .. '.$IPV4s{'E'}->{'str'})], [$IPV4s{'D'}->{'int'}, $IPV4s{'E'}->{'int'}], 'Test "'.$T.'" "ipv4rngstr_to_ints" 04');
- is_deeply([$invocant->ipv4rngstr_to_ints($IPV4s{'D'}->{'str'},$IPV4s{'E'}->{'str'})], [$IPV4s{'D'}->{'int'}, $IPV4s{'E'}->{'int'}], 'Test "'.$T.'" "ipv4rngstr_to_ints" 05');
-
- is_deeply([$invocant->ipv4rngstr_to_bins($IPV4s{'D'}->{'str'}.'-'.$IPV4s{'E'}->{'str'})], [$invocant->ipv4str_to_bin($IPV4s{'D'}->{'str'}), $invocant->ipv4str_to_bin($IPV4s{'E'}->{'str'})], 'Test "'.$T.'" "ipv4rngstr_to_bins" 01');
- is_deeply([$invocant->ipv4rngstr_to_bins($IPV4s{'D'}->{'str'}.'..'.$IPV4s{'E'}->{'str'})], [$invocant->ipv4str_to_bin($IPV4s{'D'}->{'str'}), $invocant->ipv4str_to_bin($IPV4s{'E'}->{'str'})], 'Test "'.$T.'" "ipv4rngstr_to_bins" 02');
- is_deeply([$invocant->ipv4rngstr_to_bins($IPV4s{'D'}->{'str'}.' - '.$IPV4s{'E'}->{'str'})], [$invocant->ipv4str_to_bin($IPV4s{'D'}->{'str'}), $invocant->ipv4str_to_bin($IPV4s{'E'}->{'str'})], 'Test "'.$T.'" "ipv4rngstr_to_bins" 03');
- is_deeply([$invocant->ipv4rngstr_to_bins($IPV4s{'D'}->{'str'}.' .. '.$IPV4s{'E'}->{'str'})], [$invocant->ipv4str_to_bin($IPV4s{'D'}->{'str'}), $invocant->ipv4str_to_bin($IPV4s{'E'}->{'str'})], 'Test "'.$T.'" "ipv4rngstr_to_bins" 04');
- is_deeply([$invocant->ipv4rngstr_to_bins($IPV4s{'D'}->{'str'},$IPV4s{'E'}->{'str'})], [$invocant->ipv4str_to_bin($IPV4s{'D'}->{'str'}), $invocant->ipv4str_to_bin($IPV4s{'E'}->{'str'})], 'Test "'.$T.'" "ipv4rngstr_to_bins" 05');
-
- is($invocant->ints_to_ipv4cidr($IPV4s{'D'}->{'int'}, $IPV4s{'E'}->{'int'}), $IPV4s{'D'}->{'str'}.'/24', 'Test "'.$T.'" "ints_to_ipv4cidr" 01');
-
- is($invocant->ints_to_ipv4netm($IPV4s{'D'}->{'int'}, $IPV4s{'E'}->{'int'}), $IPV4s{'D'}->{'str'}.'/'.$IPV4s{'F'}->{'str'}, 'Test "'.$T.'" "ints_to_ipv4netm" 01');
-
- is($invocant->ints_to_ipv4rngstr($IPV4s{'D'}->{'int'}, $IPV4s{'E'}->{'int'}), $IPV4s{'D'}->{'str'}.'..'.$IPV4s{'E'}->{'str'}, 'Test "'.$T.'" "ints_to_ipv4rngstr" 01');
-
- ##
- # Test the IPv6 conversions
- ##
-
- foreach my $IP (sort keys(%IPV6s))
- {
- is($invocant->ipv6_expand($IPV6s{$IP}->{'str'}), $IPV6s{$IP}->{'strlng'}, 'Test "'.$T.':'.$IP.':" "ipv6_expand"-"ipv6_collapse" pair 01');
- is($invocant->ipv6_collapse($IPV6s{$IP}->{'strlng'}), $IPV6s{$IP}->{'str'}, 'Test "'.$T.':'.$IP.':" "ipv6_expand"-"ipv6_collapse" pair 02');
- is($invocant->ipv6_collapse($invocant->ipv6_expand($IPV6s{$IP}->{'str'})), $IPV6s{$IP}->{'str'}, 'Test "'.$T.':'.$IP.':" "ipv6_expand"-"ipv6_collapse" pair 03');
- is($invocant->ipv6_expand($invocant->ipv6_collapse($IPV6s{$IP}->{'strlng'})), $IPV6s{$IP}->{'strlng'}, 'Test "'.$T.':'.$IP.':" "ipv6_expand"-"ipv6_collapse" pair 04');
-
- is($invocant->ipv6str_to_hexstr($IPV6s{$IP}->{'str'}), $IPV6s{$IP}->{'hexstr'}, 'Test "'.$T.':'.$IP.':" "ipv6str"-"hexstr" pair 01');
- is($invocant->hexstr_to_ipv6str($IPV6s{$IP}->{'hexstr'}), $IPV6s{$IP}->{'str'}, 'Test "'.$T.':'.$IP.':" "ipv6str"-"hexstr" pair 02');
- is($invocant->hexstr_to_ipv6str($invocant->ipv6str_to_hexstr($IPV6s{$IP}->{'str'})), $IPV6s{$IP}->{'str'}, 'Test "'.$T.':'.$IP.':" "ipv6str"-"hexstr" pair 03');
- is($invocant->ipv6str_to_hexstr($invocant->hexstr_to_ipv6str($IPV6s{$IP}->{'hexstr'})), $IPV6s{$IP}->{'hexstr'}, 'Test "'.$T.':'.$IP.':" "ipv6str"-"hexstr" pair 04');
- is($invocant->ipv6str_to_hexstr($IPV6s{$IP}->{'strlng'}), $IPV6s{$IP}->{'hexstr'}, 'Test "'.$T.':'.$IP.':" "ipv6str"-"hexstr" pair 05');
- is($invocant->hexstr_to_ipv6str($invocant->ipv6str_to_hexstr($IPV6s{$IP}->{'strlng'})), $IPV6s{$IP}->{'str'}, 'Test "'.$T.':'.$IP.':" "ipv6str"-"hexstr" pair 06');
-
- is($invocant->bin_to_ipv6str($invocant->ipv6str_to_bin($IPV6s{$IP}->{'str'})), $IPV6s{$IP}->{'str'}, 'Test "'.$T.':'.$IP.':" "ipv6str"-"bin" pair 01');
- is($invocant->bin_to_ipv6str($invocant->ipv6str_to_bin($IPV6s{$IP}->{'strlng'})), $IPV6s{$IP}->{'str'}, 'Test "'.$T.':'.$IP.':" "ipv6str"-"bin" pair 02');
-
- is($invocant->ipv6str_to_bigint($IPV6s{$IP}->{'str'}), $IPV6s{$IP}->{'bigint'}, 'Test "'.$T.':'.$IP.':" "ipv6str"-"bigint" pair 01');
- is($invocant->bigint_to_ipv6str($IPV6s{$IP}->{'bigint'}), $IPV6s{$IP}->{'str'}, 'Test "'.$T.':'.$IP.':" "ipv6str"-"bigint" pair 02');
- is($invocant->bigint_to_ipv6str($invocant->ipv6str_to_bigint($IPV6s{$IP}->{'str'})), $IPV6s{$IP}->{'str'}, 'Test "'.$T.':'.$IP.':" "ipv6str"-"bigint" pair 03');
- is($invocant->ipv6str_to_bigint($invocant->bigint_to_ipv6str($IPV6s{$IP}->{'bigint'})), $IPV6s{$IP}->{'bigint'}, 'Test "'.$T.':'.$IP.':" "ipv6str"-"bigint" pair 04');
- is($invocant->ipv6str_to_bigint($IPV6s{$IP}->{'strlng'}), $IPV6s{$IP}->{'bigint'}, 'Test "'.$T.':'.$IP.':" "ipv6str"-"bigint" pair 05');
- is($invocant->bigint_to_ipv6str($invocant->ipv6str_to_bigint($IPV6s{$IP}->{'strlng'})), $IPV6s{$IP}->{'str'}, 'Test "'.$T.':'.$IP.':" "ipv6str"-"bigint" pair 06');
-
- is_deeply([$invocant->detect_ipv6($IPV6s{$IP}->{'str'})], ['IPV6ADDR_STRING',$IPV6s{$IP}->{'str'}], 'Test "'.$T.':'.$IP.':" "detect_ipv6" 01');
- is_deeply([$invocant->detect_ipv6($IPV6s{$IP}->{'strlng'})], ['IPV6ADDR_STRING',$IPV6s{$IP}->{'strlng'}], 'Test "'.$T.':'.$IP.':" "detect_ipv6" 02');
- is_deeply([$invocant->detect_ipv6($IPV6s{$IP}->{'hexstr'})], ['IPV6ADDR_HEXSTR',$IPV6s{$IP}->{'hexstr'}], 'Test "'.$T.':'.$IP.':" "detect_ipv6" 03');
- is_deeply([$invocant->detect_ipv6($IPV6s{$IP}->{'bigint'})], ['IPV6ADDR_INTEGER',$IPV6s{$IP}->{'bigint'}], 'Test "'.$T.':'.$IP.':" "detect_ipv6" 04');
-
- is_deeply([$invocant->detect_ip($IPV6s{$IP}->{'str'})], ['IPV6ADDR_STRING',$IPV6s{$IP}->{'str'}], 'Test "'.$T.':'.$IP.':" "detect_ip" 01');
- is_deeply([$invocant->detect_ip($IPV6s{$IP}->{'strlng'})], ['IPV6ADDR_STRING',$IPV6s{$IP}->{'strlng'}], 'Test "'.$T.':'.$IP.':" "detect_ip" 02');
- is_deeply([$invocant->detect_ip($IPV6s{$IP}->{'hexstr'})], ['IPV6ADDR_HEXSTR',$IPV6s{$IP}->{'hexstr'}], 'Test "'.$T.':'.$IP.':" "detect_ip" 03');
- #is_deeply([$invocant->detect_ip($IPV6s{$IP}->{'bigint'})], ['IPV4ADDR_INTEGER',$IPV6s{$IP}->{'bigint'}], 'Test "'.$T.':'.$IP.':" "detect_ip" 04');
-
- is_deeply([$invocant->ipv6_to_bigint($IPV6s{$IP}->{'str'})], ['IPV6ADDR_STRING',$IPV6s{$IP}->{'bigint'}], 'Test "'.$T.':'.$IP.':" "ipv6_to_bigint" 01');
- is_deeply([$invocant->ipv6_to_bigint($IPV6s{$IP}->{'strlng'})], ['IPV6ADDR_STRING',$IPV6s{$IP}->{'bigint'}], 'Test "'.$T.':'.$IP.':" "ipv6_to_bigint" 02');
- is_deeply([$invocant->ipv6_to_bigint($IPV6s{$IP}->{'hexstr'})], ['IPV6ADDR_HEXSTR',$IPV6s{$IP}->{'bigint'}], 'Test "'.$T.':'.$IP.':" "ipv6_to_bigint" 03');
- is_deeply([$invocant->ipv6_to_bigint($IPV6s{$IP}->{'bigint'})], ['IPV6ADDR_INTEGER',$IPV6s{$IP}->{'bigint'}], 'Test "'.$T.':'.$IP.':" "ipv6_to_bigint" 04');
-
- is_deeply([$invocant->ipv6_to_bin($IPV6s{$IP}->{'str'})], ['IPV6ADDR_STRING',$invocant->ipv6str_to_bin($IPV6s{$IP}->{'str'})], 'Test "'.$T.':'.$IP.':" "ipv6_to_bin" 01');
- is_deeply([$invocant->ipv6_to_bin($IPV6s{$IP}->{'strlng'})], ['IPV6ADDR_STRING',$invocant->ipv6str_to_bin($IPV6s{$IP}->{'str'})], 'Test "'.$T.':'.$IP.':" "ipv6_to_bin" 02');
- is_deeply([$invocant->ipv6_to_bin($IPV6s{$IP}->{'hexstr'})], ['IPV6ADDR_HEXSTR',$invocant->ipv6str_to_bin($IPV6s{$IP}->{'str'})], 'Test "'.$T.':'.$IP.':" "ipv6_to_bin" 03');
- #is_deeply([$invocant->ipv6_to_bin($IPV6s{$IP}->{'bigint'})], ['IPV6ADDR_INTEGER',$invocant->ipv6str_to_bin($IPV6s{$IP}->{'str'})], 'Test "'.$T.':'.$IP.':" "ipv6_to_bin" 04');
-
- is_deeply([$invocant->ip_to_int($IPV6s{$IP}->{'str'})], ['IPV6ADDR_STRING',$IPV6s{$IP}->{'bigint'}], 'Test "'.$T.':'.$IP.':" "ip_to_int" 01');
- is_deeply([$invocant->ip_to_int($IPV6s{$IP}->{'strlng'})], ['IPV6ADDR_STRING',$IPV6s{$IP}->{'bigint'}], 'Test "'.$T.':'.$IP.':" "ip_to_int" 02');
- is_deeply([$invocant->ip_to_int($IPV6s{$IP}->{'hexstr'})], ['IPV6ADDR_HEXSTR',$IPV6s{$IP}->{'bigint'}], 'Test "'.$T.':'.$IP.':" "ip_to_int" 03');
- #is_deeply([$invocant->ip_to_int($IPV6s{$IP}->{'bigint'})], ['IPV6ADDR_INTEGER',$IPV6s{$IP}->{'bigint'}], 'Test "'.$T.':'.$IP.':" "ip_to_bigint" 04');
-
- is_deeply([$invocant->ip_to_bin($IPV6s{$IP}->{'str'})], ['IPV6ADDR_STRING',$invocant->ipv6str_to_bin($IPV6s{$IP}->{'str'})], 'Test "'.$T.':'.$IP.':" "ip_to_bin" 01');
- is_deeply([$invocant->ip_to_bin($IPV6s{$IP}->{'strlng'})], ['IPV6ADDR_STRING',$invocant->ipv6str_to_bin($IPV6s{$IP}->{'str'})], 'Test "'.$T.':'.$IP.':" "ip_to_bin" 02');
- is_deeply([$invocant->ip_to_bin($IPV6s{$IP}->{'hexstr'})], ['IPV6ADDR_HEXSTR',$invocant->ipv6str_to_bin($IPV6s{$IP}->{'str'})], 'Test "'.$T.':'.$IP.':" "ip_to_bin" 03');
- #is_deeply([$invocant->ip_to_bin($IPV6s{$IP}->{'bigint'})], ['IPV6ADDR_INTEGER',$invocant->ipv6str_to_bin($IPV6s{$IP}->{'str'})], 'Test "'.$T.':'.$IP.':" "ip_to_bin" 04');
- }
-
- ##
- # Test the IP address detections and general conversions for CIDR subnets and ranges
- ##
-
- is_deeply([$invocant->detect_ipv4($IPV4s{'A'}->{'str'}.'/32')], ['IPV4CIDR_STRING',$IPV4s{'A'}->{'str'},32], 'Test "'.$T.'" "detect_ipv4" 01');
- is_deeply([$invocant->detect_ipv4($IPV4s{'D'}->{'str'}.'-'.$IPV4s{'E'}->{'str'})], ['IPV4RNG_STRING',$IPV4s{'D'}->{'str'}, $IPV4s{'E'}->{'str'}], 'Test "'.$T.'" "detect_ipv4" 02');
- is_deeply([$invocant->detect_ipv4($IPV4s{'D'}->{'hexstr'}.'-'.$IPV4s{'E'}->{'hexstr'})], ['IPV4RNG_HEXSTR',$IPV4s{'D'}->{'hexstr'},$IPV4s{'E'}->{'hexstr'}], 'Test "'.$T.'" "detect_ipv4" 03');
- is_deeply([$invocant->detect_ipv4($IPV4s{'D'}->{'int'}.'-'.$IPV4s{'E'}->{'int'})], ['IPV4RNG_INTEGER',$IPV4s{'D'}->{'int'},$IPV4s{'E'}->{'int'}], 'Test "'.$T.'" "detect_ipv4" 04');
- is_deeply([$invocant->detect_ipv4($IPV4s{'D'}->{'str'}.'..'.$IPV4s{'E'}->{'str'})], ['IPV4RNG_STRING',$IPV4s{'D'}->{'str'}, $IPV4s{'E'}->{'str'}], 'Test "'.$T.'" "detect_ipv4" 05');
- is_deeply([$invocant->detect_ipv4($IPV4s{'D'}->{'hexstr'}.'..'.$IPV4s{'E'}->{'hexstr'})], ['IPV4RNG_HEXSTR',$IPV4s{'D'}->{'hexstr'},$IPV4s{'E'}->{'hexstr'}], 'Test "'.$T.'" "detect_ipv4" 06');
- is_deeply([$invocant->detect_ipv4($IPV4s{'D'}->{'int'}.'..'.$IPV4s{'E'}->{'int'})], ['IPV4RNG_INTEGER',$IPV4s{'D'}->{'int'},$IPV4s{'E'}->{'int'}], 'Test "'.$T.'" "detect_ipv4" 07');
- is_deeply([$invocant->detect_ipv4($IPV4s{'D'}->{'str'}.' - '.$IPV4s{'E'}->{'str'})], ['IPV4RNG_STRING',$IPV4s{'D'}->{'str'}, $IPV4s{'E'}->{'str'}], 'Test "'.$T.'" "detect_ipv4" 08');
- is_deeply([$invocant->detect_ipv4($IPV4s{'D'}->{'hexstr'}.' - '.$IPV4s{'E'}->{'hexstr'})], ['IPV4RNG_HEXSTR',$IPV4s{'D'}->{'hexstr'},$IPV4s{'E'}->{'hexstr'}], 'Test "'.$T.'" "detect_ipv4" 09');
- is_deeply([$invocant->detect_ipv4($IPV4s{'D'}->{'int'}.' - '.$IPV4s{'E'}->{'int'})], ['IPV4RNG_INTEGER',$IPV4s{'D'}->{'int'},$IPV4s{'E'}->{'int'}], 'Test "'.$T.'" "detect_ipv4" 10');
- is_deeply([$invocant->detect_ipv4($IPV4s{'D'}->{'str'}.' .. '.$IPV4s{'E'}->{'str'})], ['IPV4RNG_STRING',$IPV4s{'D'}->{'str'}, $IPV4s{'E'}->{'str'}], 'Test "'.$T.'" "detect_ipv4" 11');
- is_deeply([$invocant->detect_ipv4($IPV4s{'D'}->{'hexstr'}.' .. '.$IPV4s{'E'}->{'hexstr'})], ['IPV4RNG_HEXSTR',$IPV4s{'D'}->{'hexstr'},$IPV4s{'E'}->{'hexstr'}], 'Test "'.$T.'" "detect_ipv4" 12');
- is_deeply([$invocant->detect_ipv4($IPV4s{'D'}->{'int'}.' .. '.$IPV4s{'E'}->{'int'})], ['IPV4RNG_INTEGER',$IPV4s{'D'}->{'int'},$IPV4s{'E'}->{'int'}], 'Test "'.$T.'" "detect_ipv4" 13');
-
- is($invocant->detect_ipv4($IPV6s{'A'}->{'str'}), undef, 'Test "'.$T.'" "detect_ipv4" 14');
- is($invocant->detect_ipv4($IPV6s{'A'}->{'hexstr'}), undef, 'Test "'.$T.'" "detect_ipv4" 15');
- is($invocant->detect_ipv4($IPV6s{'A'}->{'bigint'}), undef, 'Test "'.$T.'" "detect_ipv4" 16');
-
- is($invocant->detect_ipv4($IPV6s{'A'}->{'str'}.'/64'), undef, 'Test "'.$T.'" "detect_ipv4" 15');
- is($invocant->detect_ipv4($IPV6s{'A'}->{'str'}."-".$IPV6s{'E'}->{'str'}), undef, 'Test "'.$T.'" "detect_ipv4" 16');
- is($invocant->detect_ipv4($IPV6s{'A'}->{'hexstr'}."-".$IPV6s{'E'}->{'hexstr'}), undef, 'Test "'.$T.'" "detect_ipv4" 17');
- is($invocant->detect_ipv4($IPV6s{'A'}->{'bigint'}."-".$IPV6s{'E'}->{'bigint'}), undef, 'Test "'.$T.'" "detect_ipv4" 18');
-
- is($invocant->detect_ipv6($IPV4s{'A'}->{'str'}), undef, 'Test "'.$T.'" "detect_ipv6" 01');
- is($invocant->detect_ipv6($IPV4s{'A'}->{'hexstr'}), undef, 'Test "'.$T.'" "detect_ipv6" 02');
- is_deeply([$invocant->detect_ipv6($IPV4s{'A'}->{'int'})], ['IPV6ADDR_INTEGER',$IPV4s{'A'}->{'int'}], 'Test "'.$T.'" "detect_ipv6" 04');
-
- is($invocant->detect_ipv6($IPV4s{'A'}->{'str'}.'/32'), undef, 'Test "'.$T.'" "detect_ipv6" 05');
- is($invocant->detect_ipv6($IPV4s{'D'}->{'str'}.'-'.$IPV4s{'E'}->{'str'}), undef, 'Test "'.$T.'" "detect_ipv6" 06');
- is($invocant->detect_ipv6($IPV4s{'D'}->{'hexstr'}.'-'.$IPV4s{'E'}->{'hexstr'}), undef, 'Test "'.$T.'" "detect_ipv6" 07');
- is_deeply([$invocant->detect_ipv6($IPV4s{'D'}->{'int'}.'-'.$IPV4s{'E'}->{'int'})], ['IPV6RNG_INTEGER',$IPV4s{'D'}->{'int'},$IPV4s{'E'}->{'int'}], 'Test "'.$T.'" "detect_ipv6" 09');
-
- is_deeply([$invocant->detect_ipv6($IPV6s{'A'}->{'str'}.'/64')], ['IPV6CIDR_STRING',$IPV6s{'A'}->{'str'},'64'], 'Test "'.$T.'" "detect_ipv6" 10');
- is_deeply([$invocant->detect_ipv6($IPV6s{'A'}->{'str'}."-".$IPV6s{'E'}->{'str'})], ['IPV6RNG_STRING',$IPV6s{'A'}->{'str'},$IPV6s{'E'}->{'str'}], 'Test "'.$T.'" "detect_ipv6" 11');
- is_deeply([$invocant->detect_ipv6($IPV6s{'A'}->{'hexstr'}."-".$IPV6s{'E'}->{'hexstr'})], ['IPV6RNG_HEXSTR',$IPV6s{'A'}->{'hexstr'},$IPV6s{'E'}->{'hexstr'}], 'Test "'.$T.'" "detect_ipv6" 12');
- is_deeply([$invocant->detect_ipv6($IPV6s{'A'}->{'bigint'}."-".$IPV6s{'E'}->{'bigint'})], ['IPV6RNG_INTEGER',$IPV6s{'A'}->{'bigint'},$IPV6s{'E'}->{'bigint'}], 'Test "'.$T.'" "detect_ipv6" 13');
- is_deeply([$invocant->detect_ipv6($IPV6s{'A'}->{'str'}."..".$IPV6s{'E'}->{'str'})], ['IPV6RNG_STRING',$IPV6s{'A'}->{'str'},$IPV6s{'E'}->{'str'}], 'Test "'.$T.'" "detect_ipv6" 14');
- is_deeply([$invocant->detect_ipv6($IPV6s{'A'}->{'hexstr'}."..".$IPV6s{'E'}->{'hexstr'})], ['IPV6RNG_HEXSTR',$IPV6s{'A'}->{'hexstr'},$IPV6s{'E'}->{'hexstr'}], 'Test "'.$T.'" "detect_ipv6" 15');
- is_deeply([$invocant->detect_ipv6($IPV6s{'A'}->{'bigint'}."..".$IPV6s{'E'}->{'bigint'})], ['IPV6RNG_INTEGER',$IPV6s{'A'}->{'bigint'},$IPV6s{'E'}->{'bigint'}], 'Test "'.$T.'" "detect_ipv6" 16');
- is_deeply([$invocant->detect_ipv6($IPV6s{'A'}->{'str'}." - ".$IPV6s{'E'}->{'str'})], ['IPV6RNG_STRING',$IPV6s{'A'}->{'str'},$IPV6s{'E'}->{'str'}], 'Test "'.$T.'" "detect_ipv6" 17');
- is_deeply([$invocant->detect_ipv6($IPV6s{'A'}->{'hexstr'}." - ".$IPV6s{'E'}->{'hexstr'})], ['IPV6RNG_HEXSTR',$IPV6s{'A'}->{'hexstr'},$IPV6s{'E'}->{'hexstr'}], 'Test "'.$T.'" "detect_ipv6" 18');
- is_deeply([$invocant->detect_ipv6($IPV6s{'A'}->{'bigint'}." - ".$IPV6s{'E'}->{'bigint'})], ['IPV6RNG_INTEGER',$IPV6s{'A'}->{'bigint'},$IPV6s{'E'}->{'bigint'}], 'Test "'.$T.'" "detect_ipv6" 19');
- is_deeply([$invocant->detect_ipv6($IPV6s{'A'}->{'str'}." .. ".$IPV6s{'E'}->{'str'})], ['IPV6RNG_STRING',$IPV6s{'A'}->{'str'},$IPV6s{'E'}->{'str'}], 'Test "'.$T.'" "detect_ipv6" 20');
- is_deeply([$invocant->detect_ipv6($IPV6s{'A'}->{'hexstr'}." .. ".$IPV6s{'E'}->{'hexstr'})], ['IPV6RNG_HEXSTR',$IPV6s{'A'}->{'hexstr'},$IPV6s{'E'}->{'hexstr'}], 'Test "'.$T.'" "detect_ipv6" 21');
- is_deeply([$invocant->detect_ipv6($IPV6s{'A'}->{'bigint'}." .. ".$IPV6s{'E'}->{'bigint'})], ['IPV6RNG_INTEGER',$IPV6s{'A'}->{'bigint'},$IPV6s{'E'}->{'bigint'}], 'Test "'.$T.'" "detect_ipv6" 22');
-
- is_deeply([$invocant->detect_ip($IPV4s{'A'}->{'str'})], ['IPV4ADDR_STRING',$IPV4s{'A'}->{'str'}], 'Test "'.$T.'" "detect_ip" 01');
- is_deeply([$invocant->detect_ip($IPV4s{'A'}->{'hexstr'})], ['IPV4ADDR_HEXSTR',$IPV4s{'A'}->{'hexstr'}], 'Test "'.$T.'" "detect_ip" 02');
- is_deeply([$invocant->detect_ip($IPV4s{'A'}->{'int'})], ['IPV4ADDR_INTEGER',$IPV4s{'A'}->{'int'}], 'Test "'.$T.'" "detect_ip" 03');
-
- is_deeply([$invocant->detect_ip($IPV4s{'A'}->{'str'}.'/32')], ['IPV4CIDR_STRING',$IPV4s{'A'}->{'str'},32], 'Test "'.$T.'" "detect_ip" 04');
- is_deeply([$invocant->detect_ip($IPV4s{'D'}->{'str'}.'-'.$IPV4s{'E'}->{'str'})], ['IPV4RNG_STRING',$IPV4s{'D'}->{'str'}, $IPV4s{'E'}->{'str'}], 'Test "'.$T.'" "detect_ip" 05');
- is_deeply([$invocant->detect_ip($IPV4s{'D'}->{'hexstr'}.'-'.$IPV4s{'E'}->{'hexstr'})], ['IPV4RNG_HEXSTR',$IPV4s{'D'}->{'hexstr'},$IPV4s{'E'}->{'hexstr'}], 'Test "'.$T.'" "detect_ip" 06');
- is_deeply([$invocant->detect_ip($IPV4s{'D'}->{'int'}.'-'.$IPV4s{'E'}->{'int'})], ['IPV4RNG_INTEGER',$IPV4s{'D'}->{'int'},$IPV4s{'E'}->{'int'}], 'Test "'.$T.'" "detect_ip" 07');
- is_deeply([$invocant->detect_ip($IPV4s{'D'}->{'str'}.'..'.$IPV4s{'E'}->{'str'})], ['IPV4RNG_STRING',$IPV4s{'D'}->{'str'}, $IPV4s{'E'}->{'str'}], 'Test "'.$T.'" "detect_ip" 08');
- is_deeply([$invocant->detect_ip($IPV4s{'D'}->{'hexstr'}.'..'.$IPV4s{'E'}->{'hexstr'})], ['IPV4RNG_HEXSTR',$IPV4s{'D'}->{'hexstr'},$IPV4s{'E'}->{'hexstr'}], 'Test "'.$T.'" "detect_ip" 09');
- is_deeply([$invocant->detect_ip($IPV4s{'D'}->{'int'}.'..'.$IPV4s{'E'}->{'int'})], ['IPV4RNG_INTEGER',$IPV4s{'D'}->{'int'},$IPV4s{'E'}->{'int'}], 'Test "'.$T.'" "detect_ip" 10');
- is_deeply([$invocant->detect_ip($IPV4s{'D'}->{'str'}.' - '.$IPV4s{'E'}->{'str'})], ['IPV4RNG_STRING',$IPV4s{'D'}->{'str'}, $IPV4s{'E'}->{'str'}], 'Test "'.$T.'" "detect_ip" 11');
- is_deeply([$invocant->detect_ip($IPV4s{'D'}->{'hexstr'}.' - '.$IPV4s{'E'}->{'hexstr'})], ['IPV4RNG_HEXSTR',$IPV4s{'D'}->{'hexstr'},$IPV4s{'E'}->{'hexstr'}], 'Test "'.$T.'" "detect_ip" 12');
- is_deeply([$invocant->detect_ip($IPV4s{'D'}->{'int'}.' - '.$IPV4s{'E'}->{'int'})], ['IPV4RNG_INTEGER',$IPV4s{'D'}->{'int'},$IPV4s{'E'}->{'int'}], 'Test "'.$T.'" "detect_ip" 13');
- is_deeply([$invocant->detect_ip($IPV4s{'D'}->{'str'}.' .. '.$IPV4s{'E'}->{'str'})], ['IPV4RNG_STRING',$IPV4s{'D'}->{'str'}, $IPV4s{'E'}->{'str'}], 'Test "'.$T.'" "detect_ip" 14');
- is_deeply([$invocant->detect_ip($IPV4s{'D'}->{'hexstr'}.' .. '.$IPV4s{'E'}->{'hexstr'})], ['IPV4RNG_HEXSTR',$IPV4s{'D'}->{'hexstr'},$IPV4s{'E'}->{'hexstr'}], 'Test "'.$T.'" "detect_ip" 15');
- is_deeply([$invocant->detect_ip($IPV4s{'D'}->{'int'}.' .. '.$IPV4s{'E'}->{'int'})], ['IPV4RNG_INTEGER',$IPV4s{'D'}->{'int'},$IPV4s{'E'}->{'int'}], 'Test "'.$T.'" "detect_ip" 16');
-
- is_deeply([$invocant->detect_ip($IPV6s{'A'}->{'str'})], ['IPV6ADDR_STRING',$IPV6s{'A'}->{'str'}], 'Test "'.$T.'" "detect_ip" 17');
- is_deeply([$invocant->detect_ip($IPV6s{'A'}->{'hexstr'})], ['IPV6ADDR_HEXSTR',$IPV6s{'A'}->{'hexstr'}], 'Test "'.$T.'" "detect_ip" 18');
- is_deeply([$invocant->detect_ip($IPV6s{'A'}->{'bigint'})], ['IPV6ADDR_INTEGER',$IPV6s{'A'}->{'bigint'}], 'Test "'.$T.'" "detect_ip" 19');
-
- is_deeply([$invocant->detect_ip($IPV6s{'A'}->{'str'}.'/64')], ['IPV6CIDR_STRING',$IPV6s{'A'}->{'str'},'64'], 'Test "'.$T.'" "detect_ip" 20');
- is_deeply([$invocant->detect_ip($IPV6s{'A'}->{'str'}."-".$IPV6s{'E'}->{'str'})], ['IPV6RNG_STRING',$IPV6s{'A'}->{'str'},$IPV6s{'E'}->{'str'}], 'Test "'.$T.'" "detect_ip" 21');
- is_deeply([$invocant->detect_ip($IPV6s{'A'}->{'hexstr'}."-".$IPV6s{'E'}->{'hexstr'})], ['IPV6RNG_HEXSTR',$IPV6s{'A'}->{'hexstr'},$IPV6s{'E'}->{'hexstr'}], 'Test "'.$T.'" "detect_ip" 22');
- is_deeply([$invocant->detect_ip($IPV6s{'A'}->{'bigint'}."-".$IPV6s{'E'}->{'bigint'})], ['IPV6RNG_INTEGER',$IPV6s{'A'}->{'bigint'},$IPV6s{'E'}->{'bigint'}], 'Test "'.$T.'" "detect_ip" 23');
- is_deeply([$invocant->detect_ip($IPV6s{'A'}->{'str'}."..".$IPV6s{'E'}->{'str'})], ['IPV6RNG_STRING',$IPV6s{'A'}->{'str'},$IPV6s{'E'}->{'str'}], 'Test "'.$T.'" "detect_ip" 24');
- is_deeply([$invocant->detect_ip($IPV6s{'A'}->{'hexstr'}."..".$IPV6s{'E'}->{'hexstr'})], ['IPV6RNG_HEXSTR',$IPV6s{'A'}->{'hexstr'},$IPV6s{'E'}->{'hexstr'}], 'Test "'.$T.'" "detect_ip" 25');
- is_deeply([$invocant->detect_ip($IPV6s{'A'}->{'bigint'}."..".$IPV6s{'E'}->{'bigint'})], ['IPV6RNG_INTEGER',$IPV6s{'A'}->{'bigint'},$IPV6s{'E'}->{'bigint'}], 'Test "'.$T.'" "detect_ip" 26');
- is_deeply([$invocant->detect_ip($IPV6s{'A'}->{'str'}." - ".$IPV6s{'E'}->{'str'})], ['IPV6RNG_STRING',$IPV6s{'A'}->{'str'},$IPV6s{'E'}->{'str'}], 'Test "'.$T.'" "detect_ip" 27');
- is_deeply([$invocant->detect_ip($IPV6s{'A'}->{'hexstr'}." - ".$IPV6s{'E'}->{'hexstr'})], ['IPV6RNG_HEXSTR',$IPV6s{'A'}->{'hexstr'},$IPV6s{'E'}->{'hexstr'}], 'Test "'.$T.'" "detect_ip" 28');
- is_deeply([$invocant->detect_ip($IPV6s{'A'}->{'bigint'}." - ".$IPV6s{'E'}->{'bigint'})], ['IPV6RNG_INTEGER',$IPV6s{'A'}->{'bigint'},$IPV6s{'E'}->{'bigint'}], 'Test "'.$T.'" "detect_ip" 29');
- is_deeply([$invocant->detect_ip($IPV6s{'A'}->{'str'}." .. ".$IPV6s{'E'}->{'str'})], ['IPV6RNG_STRING',$IPV6s{'A'}->{'str'},$IPV6s{'E'}->{'str'}], 'Test "'.$T.'" "detect_ip" 30');
- is_deeply([$invocant->detect_ip($IPV6s{'A'}->{'hexstr'}." .. ".$IPV6s{'E'}->{'hexstr'})], ['IPV6RNG_HEXSTR',$IPV6s{'A'}->{'hexstr'},$IPV6s{'E'}->{'hexstr'}], 'Test "'.$T.'" "detect_ip" 31');
- is_deeply([$invocant->detect_ip($IPV6s{'A'}->{'bigint'}." .. ".$IPV6s{'E'}->{'bigint'})], ['IPV6RNG_INTEGER',$IPV6s{'A'}->{'bigint'},$IPV6s{'E'}->{'bigint'}], 'Test "'.$T.'" "detect_ip" 32');
-
- is_deeply([$invocant->ipv4_to_int($IPV4s{'D'}->{'str'}.'/24')], ['IPV4CIDR_STRING',$IPV4s{'D'}->{'int'},$IPV4s{'E'}->{'int'}], 'Test "'.$T.'" "ipv4_to_int" 01');
- is_deeply([$invocant->ipv4_to_int($IPV4s{'D'}->{'str'}.'-'.$IPV4s{'E'}->{'str'})], ['IPV4RNG_STRING',$IPV4s{'D'}->{'int'},$IPV4s{'E'}->{'int'}], 'Test "'.$T.'" "ipv4_to_int" 02');
-
- is_deeply([$invocant->ipv4_to_bin($IPV4s{'D'}->{'str'}.'/24')], ['IPV4CIDR_STRING',$invocant->ipv4str_to_bin($IPV4s{'D'}->{'str'}), $invocant->ipv4str_to_bin($IPV4s{'E'}->{'str'})], 'Test "'.$T.'" "ipv4_to_bin" 01');
- is_deeply([$invocant->ipv4_to_bin($IPV4s{'D'}->{'str'}.'-'.$IPV4s{'E'}->{'str'})], ['IPV4RNG_STRING',$invocant->ipv4str_to_bin($IPV4s{'D'}->{'str'}), $invocant->ipv4str_to_bin($IPV4s{'E'}->{'str'})], 'Test "'.$T.'" "ipv4_to_bin" 02');
-
- #is_deeply([$invocant->ipv6_to_int($IPV4s{'D'}->{'str'}.'/24')], ['IPV4CIDR_STRING',$IPV4s{'D'}->{'int'},$IPV4s{'E'}->{'int'}], 'Test "'.$T.'" "ipv4_to_int" 01');
- #is_deeply([$invocant->ipv6_to_int($IPV4s{'D'}->{'str'}.'-'.$IPV4s{'E'}->{'str'})], ['IPV4RNG_STRING',$IPV4s{'D'}->{'int'},$IPV4s{'E'}->{'int'}], 'Test "'.$T.'" "ipv4_to_int" 02');
-
- #is_deeply([$invocant->ipv6_to_bin($IPV4s{'D'}->{'str'}.'/24')], ['IPV4CIDR_STRING',$invocant->ipv4str_to_bin($IPV4s{'D'}->{'str'}), $invocant->ipv4str_to_bin($IPV4s{'E'}->{'str'})], 'Test "'.$T.'" "ipv4_to_bin" 01');
- #is_deeply([$invocant->ipv6_to_bin($IPV4s{'D'}->{'str'}.'-'.$IPV4s{'E'}->{'str'})], ['IPV4RNG_STRING',$invocant->ipv4str_to_bin($IPV4s{'D'}->{'str'}), $invocant->ipv4str_to_bin($IPV4s{'E'}->{'str'})], 'Test "'.$T.'" "ipv4_to_bin" 02');
-
- is_deeply([$invocant->ip_to_int($IPV4s{'D'}->{'str'}.'/24')], ['IPV4CIDR_STRING',$IPV4s{'D'}->{'int'},$IPV4s{'E'}->{'int'}], 'Test "'.$T.'" "ipv4_to_int" 01');
- is_deeply([$invocant->ip_to_int($IPV4s{'D'}->{'str'}.'-'.$IPV4s{'E'}->{'str'})], ['IPV4RNG_STRING',$IPV4s{'D'}->{'int'},$IPV4s{'E'}->{'int'}], 'Test "'.$T.'" "ipv4_to_int" 02');
-
- is_deeply([$invocant->ip_to_bin($IPV4s{'D'}->{'str'}.'/24')], ['IPV4CIDR_STRING',$invocant->ipv4str_to_bin($IPV4s{'D'}->{'str'}), $invocant->ipv4str_to_bin($IPV4s{'E'}->{'str'})], 'Test "'.$T.'" "ipv4_to_bin" 01');
- is_deeply([$invocant->ip_to_bin($IPV4s{'D'}->{'str'}.'-'.$IPV4s{'E'}->{'str'})], ['IPV4RNG_STRING',$invocant->ipv4str_to_bin($IPV4s{'D'}->{'str'}), $invocant->ipv4str_to_bin($IPV4s{'E'}->{'str'})], 'Test "'.$T.'" "ipv4_to_bin" 02');
-
- is($invocant->ipv4_anonymize($IPV4s{'A'}->{'str'},0), '195.113.144.194', 'Test "'.$T.'" "ipv4_anonymize" 01');
- is($invocant->ipv4_anonymize($IPV4s{'A'}->{'str'},1), '195.113.144.0', 'Test "'.$T.'" "ipv4_anonymize" 02');
- is($invocant->ipv4_anonymize($IPV4s{'A'}->{'str'},2), '195.113.0.0', 'Test "'.$T.'" "ipv4_anonymize" 03');
- is($invocant->ipv4_anonymize($IPV4s{'A'}->{'str'},3), '195.0.0.0', 'Test "'.$T.'" "ipv4_anonymize" 04');
- is($invocant->ipv4_anonymize($IPV4s{'A'}->{'str'},4), '0.0.0.0', 'Test "'.$T.'" "ipv4_anonymize" 05');
- is($invocant->ipv4_anonymize($IPV4s{'A'}->{'str'}), '195.113.144.0', 'Test "'.$T.'" "ipv4_anonymize" 06');
-
- is($invocant->ipv4str_to_int('foobar'), undef, 'Failure test "'.$T.'" "ipv4str_to_int" 01');
- is($invocant->ipv4str_to_int(0), undef, 'Failure test "'.$T.'" "ipv4str_to_int" 02');
-
- ##
- # Test the MAC conversions
- ##
-
- foreach my $MAC (sort keys(%MACs))
- {
- is($invocant->macstr_to_hexstr($MACs{$MAC}->{'str'}), $MACs{$MAC}->{'hexstr'}, 'Test "'.$T.':'.$MAC.'" "macstr"-"hexstr" pair 01');
- is($invocant->hexstr_to_macstr($MACs{$MAC}->{'hexstr'}), $MACs{$MAC}->{'str'}, 'Test "'.$T.':'.$MAC.'" "macstr"-"hexstr" pair 02');
- is($invocant->hexstr_to_macstr($invocant->macstr_to_hexstr($MACs{$MAC}->{'str'})), $MACs{$MAC}->{'str'}, 'Test "'.$T.':'.$MAC.'" "macstr"-"hexstr" pair 03');
- is($invocant->macstr_to_hexstr($invocant->hexstr_to_macstr($MACs{$MAC}->{'hexstr'})), $MACs{$MAC}->{'hexstr'}, 'Test "'.$T.':'.$MAC.'" "macstr"-"hexstr" pair 04');
-
- is($invocant->bin_to_macstr($invocant->macstr_to_bin($MACs{$MAC}->{'str'})), $MACs{$MAC}->{'str'}, 'Test "'.$T.':'.$MAC.'" "macstr"-"binary" pair 01');
-
- is($invocant->macstr_to_bigint($MACs{$MAC}->{'str'}), $MACs{$MAC}->{'bigint'}, 'Test "'.$T.':'.$MAC.'" "macstr"-"bigint" pair 01');
- is($invocant->bigint_to_macstr($MACs{$MAC}->{'bigint'}), $MACs{$MAC}->{'str'}, 'Test "'.$T.':'.$MAC.'" "macstr"-"bigint" pair 02');
- is($invocant->bigint_to_macstr($invocant->macstr_to_bigint($MACs{$MAC}->{'str'})), $MACs{$MAC}->{'str'}, 'Test "'.$T.':'.$MAC.'" "macstr"-"bigint" pair 03');
- is($invocant->macstr_to_bigint($invocant->bigint_to_macstr($MACs{$MAC}->{'bigint'})), $MACs{$MAC}->{'bigint'}, 'Test "'.$T.':'.$MAC.'" "macstr"-"bigint" pair 04');
- }
-
- ##
- # Test the time and date conversions
- ##
-
- foreach my $TS (sort keys(%TSs))
- {
- is($invocant->ntps_to_nbi($TSs{$TS}->{'ntps'}), $TSs{$TS}->{'nbi'}, 'Test "'.$T.':'.$TS.'" "ntps"-"nbi" pair 01');
- is($invocant->nbi_to_ntps($TSs{$TS}->{'nbi'}), $TSs{$TS}->{'ntps'}, 'Test "'.$T.':'.$TS.'" "ntps"-"nbi" pair 02');
- is($invocant->nbi_to_ntps($invocant->ntps_to_nbi($TSs{$TS}->{'ntps'})), $TSs{$TS}->{'ntps'}, 'Test "'.$T.':'.$TS.'" "ntps"-"nbi" pair 03');
- is($invocant->ntps_to_nbi($invocant->nbi_to_ntps($TSs{$TS}->{'nbi'})), $TSs{$TS}->{'nbi'}, 'Test "'.$T.':'.$TS.'" "ntps"-"nbi" pair 04');
-
- is($invocant->unixs_to_ubi($TSs{$TS}->{'unixs'}), $TSs{$TS}->{'ubi'}, 'Test "'.$T.':'.$TS.'" "unixs"-"ubi" pair 01');
- is($invocant->ubi_to_unixs($TSs{$TS}->{'ubi'}), $TSs{$TS}->{'unixs'}, 'Test "'.$T.':'.$TS.'" "unixs"-"ubi" pair 02');
- is($invocant->ubi_to_unixs($invocant->unixs_to_ubi($TSs{$TS}->{'unixs'})), $TSs{$TS}->{'unixs'}, 'Test "'.$T.':'.$TS.'" "unixs"-"ubi" pair 03');
- is($invocant->unixs_to_ubi($invocant->ubi_to_unixs($TSs{$TS}->{'ubi'})), $TSs{$TS}->{'ubi'}, 'Test "'.$T.':'.$TS.'" "unixs"-"ubi" pair 04');
-
- is($invocant->unixs_to_nbi($TSs{$TS}->{'unixs'}), $TSs{$TS}->{'nbi'}, 'Test "'.$T.':'.$TS.'" "unixs"-"nbi" pair 01');
- is($invocant->nbi_to_unixs($TSs{$TS}->{'nbi'}), $TSs{$TS}->{'unixs'}, 'Test "'.$T.':'.$TS.'" "unixs"-"nbi" pair 02');
- is($invocant->nbi_to_unixs($invocant->unixs_to_nbi($TSs{$TS}->{'unixs'})), $TSs{$TS}->{'unixs'}, 'Test "'.$T.':'.$TS.'" "unixs"-"nbi" pair 03');
- is($invocant->unixs_to_nbi($invocant->nbi_to_unixs($TSs{$TS}->{'nbi'})), $TSs{$TS}->{'nbi'}, 'Test "'.$T.':'.$TS.'" "unixs"-"nbi" pair 04');
-
- is_deeply($invocant->ntps_to_ints($TSs{$TS}->{'ntps'}), $TSs{$TS}->{'nints'}, 'Test "'.$T.':'.$TS.'" "ntps"-"ints" pair 01');
- is($invocant->ints_to_ntps($TSs{$TS}->{'nints'}), $TSs{$TS}->{'ntps'}, 'Test "'.$T.':'.$TS.'" "ntps"-"ints" pair 02');
- is($invocant->ints_to_ntps($invocant->ntps_to_ints($TSs{$TS}->{'ntps'})), $TSs{$TS}->{'ntps'}, 'Test "'.$T.':'.$TS.'" "ntps"-"ints" pair 03');
- is_deeply($invocant->ntps_to_ints($invocant->ints_to_ntps($TSs{$TS}->{'nints'})), $TSs{$TS}->{'nints'}, 'Test "'.$T.':'.$TS.'" "ntps"-"ints" pair 04');
-
- is_deeply($invocant->unixs_to_ints($TSs{$TS}->{'unixs'}), $TSs{$TS}->{'uints'}, 'Test "'.$T.':'.$TS.'" "unixs"-"ints" pair 01');
- is($invocant->ints_to_unixs($TSs{$TS}->{'uints'}), $TSs{$TS}->{'unixs'}, 'Test "'.$T.':'.$TS.'" "unixs"-"ints" pair 02');
- is($invocant->ints_to_unixs($invocant->unixs_to_ints($TSs{$TS}->{'unixs'})), $TSs{$TS}->{'unixs'}, 'Test "'.$T.':'.$TS.'" "unixs"-"ints" pair 03');
- is_deeply($invocant->unixs_to_ints($invocant->ints_to_unixs($TSs{$TS}->{'uints'})), $TSs{$TS}->{'uints'}, 'Test "'.$T.':'.$TS.'" "unixs"-"ints" pair 04');
-
- is($invocant->ntpe_to_unixe($TSs{$TS}->{'ntps_i'}), $TSs{$TS}->{'unixs'}, 'Test "'.$T.':'.$TS.'" "ntpe"-"unixe" pair 01');
- is($invocant->unixe_to_ntpe($TSs{$TS}->{'unixs'}), $TSs{$TS}->{'ntps_i'}, 'Test "'.$T.':'.$TS.'" "ntpe"-"unixe" pair 02');
- is($invocant->unixe_to_ntpe($invocant->ntpe_to_unixe($TSs{$TS}->{'ntps_i'})), $TSs{$TS}->{'ntps_i'}, 'Test "'.$T.':'.$TS.'" "ntpe"-"unixe" pair 03');
- is($invocant->ntpe_to_unixe($invocant->unixe_to_ntpe($TSs{$TS}->{'unixs'})), $TSs{$TS}->{'unixs'}, 'Test "'.$T.':'.$TS.'" "ntpe"-"unixe" pair 04');
-
- is($invocant->ntpe_to_unixe_b($TSs{$TS}->{'nbi'}), $TSs{$TS}->{'ubi'}, 'Test "'.$T.':'.$TS.'" "ntpe_b"-"unixe_b" pair 01');
- is($invocant->unixe_to_ntpe_b($TSs{$TS}->{'ubi'}), $TSs{$TS}->{'nbi'}, 'Test "'.$T.':'.$TS.'" "ntpe_b"-"unixe_b" pair 02');
- is($invocant->unixe_to_ntpe_b($invocant->ntpe_to_unixe_b($TSs{$TS}->{'nbi'})), $TSs{$TS}->{'nbi'}, 'Test "'.$T.':'.$TS.'" "ntpe_b"-"unixe_b" pair 03');
- is($invocant->ntpe_to_unixe_b($invocant->unixe_to_ntpe_b($TSs{$TS}->{'ubi'})), $TSs{$TS}->{'ubi'}, 'Test "'.$T.':'.$TS.'" "ntpe_b"-"unixe_b" pair 04');
-
- is($invocant->local_to_utc($TSs{$TS}->{'unixs_l'}), $TSs{$TS}->{'unixs'}, 'Test "'.$T.':'.$TS.'" "local"-"utc" pair A01');
- is($invocant->utc_to_local($TSs{$TS}->{'unixs'}), $TSs{$TS}->{'unixs_l'}, 'Test "'.$T.':'.$TS.'" "local"-"utc" pair A02');
- is($invocant->utc_to_local($invocant->local_to_utc($TSs{$TS}->{'unixs_l'})), $TSs{$TS}->{'unixs_l'}, 'Test "'.$T.':'.$TS.'" "local"-"utc" pair A03');
- is($invocant->local_to_utc($invocant->utc_to_local($TSs{$TS}->{'unixs'})), $TSs{$TS}->{'unixs'}, 'Test "'.$T.':'.$TS.'" "local"-"utc" pair A04');
-
- is($invocant->unixs_to_datestr($TSs{$TS}->{'unixs'}), $TSs{$TS}->{'str_utc'}, 'Test "'.$T.':'.$TS.'" "unix"-"datestr" pair 01');
- is($invocant->unixs_to_datestr($TSs{$TS}->{'unixs'},1), $TSs{$TS}->{'str_lcl'}, 'Test "'.$T.':'.$TS.'" "unix"-"datestr" pair 02');
- is($invocant->datestr_to_unixs($TSs{$TS}->{'str_utc'}), $TSs{$TS}->{'unixs'}, 'Test "'.$T.':'.$TS.'" "unix"-"datestr" pair 03');
- is($invocant->datestr_to_unixs($TSs{$TS}->{'str_utc'},1), $TSs{$TS}->{'unixs'}, 'Test "'.$T.':'.$TS.'" "unix"-"datestr" pair 04');
- is($invocant->datestr_to_unixs($invocant->unixs_to_datestr($TSs{$TS}->{'unixs'})), $TSs{$TS}->{'unixs'}, 'Test "'.$T.':'.$TS.'" "unix"-"datestr" pair 05');
- is($invocant->unixs_to_datestr($invocant->datestr_to_unixs($TSs{$TS}->{'str_utc'})), $TSs{$TS}->{'str_utc'}, 'Test "'.$T.':'.$TS.'" "unix"-"datestr" pair 06');
-
- is($invocant->ntps_to_datestr($TSs{$TS}->{'ntps'}), $TSs{$TS}->{'str_utc'}, 'Test "'.$T.':'.$TS.'" "ntps_to_datestr" 01');
- is($invocant->ntps_to_datestr($TSs{$TS}->{'ntps'},1), $TSs{$TS}->{'str_lcl'}, 'Test "'.$T.':'.$TS.'" "ntps_to_datestr" 02');
-
- is($invocant->datestr_to_ubi($TSs{$TS}->{'str_utc'}), $TSs{$TS}->{'ubi'}, 'Test "'.$T.':'.$TS.'" "datestr"-"ubi" pair 01');
- is($invocant->ubi_to_datestr($TSs{$TS}->{'ubi'}), $TSs{$TS}->{'str_utc'}, 'Test "'.$T.':'.$TS.'" "datestr"-"ubi" pair 02');
- is($invocant->ubi_to_datestr($TSs{$TS}->{'ubi'},1), $TSs{$TS}->{'str_lcl'}, 'Test "'.$T.':'.$TS.'" "datestr"-"ubi" pair 03');
- is($invocant->ubi_to_datestr($invocant->datestr_to_ubi($TSs{$TS}->{'str_utc'})), $TSs{$TS}->{'str_utc'}, 'Test "'.$T.':'.$TS.'" "datestr"-"ubi" pair 04');
- is($invocant->datestr_to_ubi($invocant->ubi_to_datestr($TSs{$TS}->{'ubi'})), $TSs{$TS}->{'ubi'}, 'Test "'.$T.':'.$TS.'" "datestr"-"ubi" pair 05');
- is($invocant->datestr_to_ubi($invocant->ubi_to_datestr($TSs{$TS}->{'ubi'},1)), $TSs{$TS}->{'ubi'}, 'Test "'.$T.':'.$TS.'" "datestr"-"ubi" pair 06');
-
- is($invocant->datestr_to_nbi($TSs{$TS}->{'str_utc'}), $TSs{$TS}->{'nbi'}, 'Test "'.$T.':'.$TS.'" "datestr"-"nbi" pair 01');
- is($invocant->nbi_to_datestr($TSs{$TS}->{'nbi'}), $TSs{$TS}->{'str_utc'}, 'Test "'.$T.':'.$TS.'" "datestr"-"nbi" pair 02');
- is($invocant->nbi_to_datestr($TSs{$TS}->{'nbi'},1), $TSs{$TS}->{'str_lcl'}, 'Test "'.$T.':'.$TS.'" "datestr"-"nbi" pair 03');
- is($invocant->nbi_to_datestr($invocant->datestr_to_nbi($TSs{$TS}->{'str_utc'})), $TSs{$TS}->{'str_utc'}, 'Test "'.$T.':'.$TS.'" "datestr"-"nbi" pair 04');
- is($invocant->datestr_to_nbi($invocant->nbi_to_datestr($TSs{$TS}->{'nbi'})), $TSs{$TS}->{'nbi'}, 'Test "'.$T.':'.$TS.'" "datestr"-"nbi" pair 05');
- is($invocant->datestr_to_nbi($invocant->nbi_to_datestr($TSs{$TS}->{'nbi'},1)), $TSs{$TS}->{'nbi'}, 'Test "'.$T.':'.$TS.'" "datestr"-"nbi" pair 06');
-
- is_deeply([$invocant->detect_datetime($TSs{$TS}->{'str_utc'})], ['TS_DATETIME',$TSs{$TS}->{'str_utc'}], 'Test "'.$T.':'.$TS.'" "detect_datetime" 01');
- is_deeply([$invocant->detect_datetime($TSs{$TS}->{'ntps'})], ['TS_NTPSTAMP',$TSs{$TS}->{'ntps'}], 'Test "'.$T.':'.$TS.'" "detect_datetime" 02');
- is_deeply([$invocant->detect_datetime($TSs{$TS}->{'unixs'})], ['TS_UNIXSTAMP',$TSs{$TS}->{'unixs'}], 'Test "'.$T.':'.$TS.'" "detect_datetime" 03');
-
- is_deeply([$invocant->datetime_to_nbi($TSs{$TS}->{'str_utc'})], ['TS_DATETIME',$TSs{$TS}->{'nbi'}], 'Test "'.$T.':'.$TS.'" "datetime_to_nbi" 01');
- is_deeply([$invocant->datetime_to_nbi($TSs{$TS}->{'ntps'})], ['TS_NTPSTAMP',$TSs{$TS}->{'nbi'}], 'Test "'.$T.':'.$TS.'" "datetime_to_nbi" 02');
- is_deeply([$invocant->datetime_to_nbi($TSs{$TS}->{'unixs'})], ['TS_UNIXSTAMP',$TSs{$TS}->{'nbi'}], 'Test "'.$T.':'.$TS.'" "datetime_to_nbi" 03');
- }
-
- # Test the timestamp string detection and conversion
- foreach my $DT (@DTsA)
- {
- is_deeply([$invocant->detect_datetime($DT->[0])], ['TS_DATETIME',$DT->[0]], 'Test "'.$T.':'.$DT->[0].'" detect_datetime"');
- is_deeply([$invocant->datetime_to_nbi($DT->[0])], ['TS_DATETIME',$DT->[1]], 'Test "'.$T.':'.$DT->[0].'" "datetime_to_nbi"');
- }
- foreach my $DT (@DTsB)
- {
- is_deeply([$invocant->detect_datetime($DT->[0])], ['TS_DATETIME',$DT->[0]], 'Test "'.$T.':'.$DT->[0].'" detect_datetime"');
- is_deeply([$invocant->datetime_to_nbi($DT->[0])], ['TS_DATETIME',$DT->[1]], 'Test "'.$T.':'.$DT->[0].'" "datetime_to_nbi"');
- }
- # Test the direct period string conversion
- foreach my $DTa (@DTsA)
- {
- foreach my $DTb (@DTsB)
- {
- is_deeply([$invocant->periodstr_to_nbis($DTa->[0].'-'.$DTb->[0])], [$DTa->[1],$DTb->[1]], 'Test "'.$T.':'.$DTa->[0].'-'.$DTb->[0].'" periodstr_to_nbis"');
- is_deeply([$invocant->periodstr_to_nbis($DTa->[0].'..'.$DTb->[0])], [$DTa->[1],$DTb->[1]], 'Test "'.$T.':'.$DTa->[0].'-'.$DTb->[0].'" periodstr_to_nbis"');
- is_deeply([$invocant->periodstr_to_nbis($DTa->[0].' - '.$DTb->[0])], [$DTa->[1],$DTb->[1]], 'Test "'.$T.':'.$DTa->[0].'-'.$DTb->[0].'" periodstr_to_nbis"');
- is_deeply([$invocant->periodstr_to_nbis($DTa->[0].' .. '.$DTb->[0])], [$DTa->[1],$DTb->[1]], 'Test "'.$T.':'.$DTa->[0].'-'.$DTb->[0].'" periodstr_to_nbis"');
- }
- }
-
- # Test the time period string detection
- foreach my $DTa (@DTsA)
- {
- foreach my $DTb (@DTsB)
- {
- is_deeply([$invocant->detect_datetime($DTa->[0].'-'.$DTb->[0])], ['TS_PERIOD',$DTa->[0],$DTb->[0]], 'Test "'.$T.':'.$DTa->[0].'-'.$DTb->[0].'" detect_datetime"');
- is_deeply([$invocant->detect_datetime($DTa->[0].'..'.$DTb->[0])], ['TS_PERIOD',$DTa->[0],$DTb->[0]], 'Test "'.$T.':'.$DTa->[0].'..'.$DTb->[0].'" detect_datetime"');
- is_deeply([$invocant->detect_datetime($DTa->[0].' - '.$DTb->[0])], ['TS_PERIOD',$DTa->[0],$DTb->[0]], 'Test "'.$T.':'.$DTa->[0].' - '.$DTb->[0].'" detect_datetime"');
- is_deeply([$invocant->detect_datetime($DTa->[0].' .. '.$DTb->[0])], ['TS_PERIOD',$DTa->[0],$DTb->[0]], 'Test "'.$T.':'.$DTa->[0].' .. '.$DTb->[0].'" detect_datetime"');
- is_deeply([$invocant->datetime_to_nbi($DTa->[0].'-'.$DTb->[0])], ['TS_PERIOD',$DTa->[1],$DTb->[1]], 'Test "'.$T.':'.$DTa->[0].'-'.$DTb->[0].'" datetime_to_nbi"');
- is_deeply([$invocant->datetime_to_nbi($DTa->[0].'..'.$DTb->[0])], ['TS_PERIOD',$DTa->[1],$DTb->[1]], 'Test "'.$T.':'.$DTa->[0].'..'.$DTb->[0].'" datetime_to_nbi"');
- is_deeply([$invocant->datetime_to_nbi($DTa->[0].' - '.$DTb->[0])], ['TS_PERIOD',$DTa->[1],$DTb->[1]], 'Test "'.$T.':'.$DTa->[0].' - '.$DTb->[0].'" datetime_to_nbi"');
- is_deeply([$invocant->datetime_to_nbi($DTa->[0].' .. '.$DTb->[0])], ['TS_PERIOD',$DTa->[1],$DTb->[1]], 'Test "'.$T.':'.$DTa->[0].' .. '.$DTb->[0].'" datetime_to_nbi"');
- }
- }
-
- is($invocant->ntpe_to_unixe($invocant->ubi_to_unixs($invocant->unixs_to_ubi($invocant->unixe_to_ntpe(1366280917)))), 1366280917, 'Test "'.$T.'" BADASS 01');
-
- ##
- # Test the duration conversions
- ##
-
- is($invocant->duration_to_string(1.3568), '1.3568s', 'Test duration_to_string "'.$T.':01');
- is($invocant->duration_to_string(12.3568), '12.3568s', 'Test duration_to_string "'.$T.':02');
- is($invocant->duration_to_string(112.3568), '1m 52s', 'Test duration_to_string "'.$T.':03');
- is($invocant->duration_to_string(1112.3568), '18m 32s', 'Test duration_to_string "'.$T.':04');
- is($invocant->duration_to_string(11112.3568), '3h 5m 12s', 'Test duration_to_string "'.$T.':05');
- is($invocant->duration_to_string(111112.3568), '1d 6h 51m 52s', 'Test duration_to_string "'.$T.':06');
- is($invocant->duration_to_string(1111112.3568), '12d 20h 38m 32s', 'Test duration_to_string "'.$T.':07');
- is($invocant->duration_to_string(11111112.3568), '128d 14h 25m 12s', 'Test duration_to_string "'.$T.':08');
- is($invocant->duration_to_string(111111112.3568), '1286d 11m 52s', 'Test duration_to_string "'.$T.':09');
- is($invocant->duration_to_string(1111111112.3568), '12860d 1h 58m 32s', 'Test duration_to_string "'.$T.':10');
-
- is($invocant->string_to_duration('1.3568s'), 1.3568, 'Test string_to_duration "'.$T.':01');
- is($invocant->string_to_duration('12.3568s'), 12.3568, 'Test string_to_duration "'.$T.':02');
- is($invocant->string_to_duration('1m 52s'), 112, 'Test string_to_duration "'.$T.':03');
- is($invocant->string_to_duration('18m 32s'), 1112, 'Test string_to_duration "'.$T.':04');
- is($invocant->string_to_duration('3h 5m 12s'), 11112, 'Test string_to_duration "'.$T.':05');
- is($invocant->string_to_duration('1d 6h 51m 52s'), 111112, 'Test string_to_duration "'.$T.':06');
- is($invocant->string_to_duration('12d 20h 38m 32s'), 1111112, 'Test string_to_duration "'.$T.':07');
- is($invocant->string_to_duration('128d 14h 25m 12s'), 11111112, 'Test string_to_duration "'.$T.':08');
- is($invocant->string_to_duration('1286d 11m 52s'), 111111112, 'Test string_to_duration "'.$T.':09');
- is($invocant->string_to_duration('12860d 1h 58m 32s'), 1111111112, 'Test string_to_duration "'.$T.':10');
-
- ##
- # Test the array conversions
- ##
-
- is_deeply($invocant->list_to_array('1,2,3,4'), [1,2,3,4], 'Test "'.$T.'" "list"-"array" pair A01');
- is($invocant->array_to_list([1,2,3,4]), '1,2,3,4', 'Test "'.$T.'" "list"-"array" pair A02');
-
- ##
- # Test the IPv6 CIDR conversions
- ##
-
- is($invocant->bigints_to_ipv6cidr($invocant->ipv6cidr_to_bigints("::1/128")), "::1/128", 'Test "'.$T.'" "ipv6cidr"-"bigints" pair A01');
- is($invocant->bigints_to_ipv6cidr($invocant->ipv6cidr_to_bigints("2001:718:1:6::/64")), "2001:718:1:6::/64", 'Test "'.$T.'" "ipv6cidr"-"bigints" pair A02');
-
- is($invocant->bins_to_ipv6cidr($invocant->ipv6cidr_to_bins("::1/128")), "::1/128", 'Test "'.$T.'" "ipv6cidr"-"bins" pair A01');
- is($invocant->bins_to_ipv6cidr($invocant->ipv6cidr_to_bins("2001:718:1:6::/64")), "2001:718:1:6::/64", 'Test "'.$T.'" "ipv6cidr"-"bins" pair A02');
-}
diff --git a/lib_perl/tests/unit/t/Value.Duration.t b/lib_perl/tests/unit/t/Value.Duration.t
deleted file mode 100644
index 833e8e1..0000000
--- a/lib_perl/tests/unit/t/Value.Duration.t
+++ /dev/null
@@ -1,137 +0,0 @@
-#!/usr/bin/perl -T
-
-use strict;
-use warnings;
-
-#*******************************************************************************
-# Value::Duration module/class tests
-#
-# Author: Jan Mach, jan.mach@cesnet.cz
-# Version: 0.1
-# Purpose:
-#
-#*******************************************************************************
-
-use Data::Dumper;
-#use Smart::Comments;
-
-use Test::More tests => 70;
-
-# First test if the module correctly compiles
-BEGIN {
- use vars qw($TESTED_CLASS);
- $TESTED_CLASS = 'Value::Duration';
-
- use_ok('Tester');
- use_ok('Value::Convertor');
- use_ok($TESTED_CLASS);
- }
-
-# Debug output explicit ON switch
-#Tester::DEBUG_ON();
-
-# Debug output explicit OFF switch
-#Tester::DEBUG_OFF();
-
-# User should know, which version is beeing tested (just for sure)
-diag("$TESTED_CLASS version: " . $Value::Duration::VERSION) if Tester::D();
-
-# Now attempt to create a class instance and check it
-my $instance1 = $TESTED_CLASS->new('1w 5d 20h 38m 32s');
-isa_ok($instance1, $TESTED_CLASS);
-
-# View the created instance
-diag("Instance dump 01: " . Dumper($instance1)) if Tester::D();
-
-#-------------------------------------------------------------------------------
-# The object internally uses Value::Convertor::datetime_to_nbi conversion, so we should
-# test that it accepts all possible value types:
-my %TSs = (
- 'A' => {
- 'str' => '12.3568s',
- 'num' => 12.3568,
- },
- 'B' => {
- 'str' => '1d 6h 51m 52s',
- 'num' => 111112,
- },
- );
-
-my $instance_a = $TESTED_CLASS->new($TSs{'A'}->{'str'});
-my $instance_b = $TESTED_CLASS->new($TSs{'B'}->{'num'});
-
-isa_ok($instance_a, $TESTED_CLASS);
-is($instance_a->to_numeric(), $TSs{'A'}->{'num'}, "Instance 'A':a test 01");
-is($instance_a->to_string(), $TSs{'A'}->{'str'}, "Instance 'A':a test 02");
-is($instance_a->TO_JSON(), $TSs{'A'}->{'str'}, "Instance 'A':a test 03");
-is("$instance_a", $TSs{'A'}->{'str'}, "Instance 'A':a test 04");
-
-isa_ok($instance_b, $TESTED_CLASS);
-is($instance_b->to_numeric(), $TSs{'B'}->{'num'}, "Instance 'B':b test 01");
-is($instance_b->to_string(), $TSs{'B'}->{'str'}, "Instance 'B':b test 02");
-is($instance_b->TO_JSON(), $TSs{'B'}->{'str'}, "Instance 'B':b test 03");
-is("$instance_b", $TSs{'B'}->{'str'}, "Instance 'B':b test 04");
-
-
-#-------------------------------------------------------------------------------
-# Test the comparison functions
-
-is($instance_a < $instance_b, 1, 'Comparison test 01');
-is($instance_a > $instance_b, '', 'Comparison test 02');
-is($instance_a <= $instance_b, 1, 'Comparison test 03');
-is($instance_a >= $instance_b, '', 'Comparison test 04');
-is($instance_a == $instance_b, '', 'Comparison test 05');
-is($instance_a != $instance_b, 1, 'Comparison test 06');
-is($instance_a <=> $instance_b, -1, 'Comparison test 07');
-is($instance_a lt $instance_b, 1, 'Comparison test 08');
-is($instance_a gt $instance_b, '', 'Comparison test 09');
-is($instance_a le $instance_b, 1, 'Comparison test 10');
-is($instance_a ge $instance_b, '', 'Comparison test 11');
-is($instance_a eq $instance_b, '', 'Comparison test 12');
-is($instance_a ne $instance_b, 1, 'Comparison test 13');
-is($instance_a cmp $instance_b, -1, 'Comparison test 14');
-
-is($instance_b < $instance_a, '', 'Comparison test 15');
-is($instance_b > $instance_a, 1, 'Comparison test 16');
-is($instance_b <= $instance_a, '', 'Comparison test 17');
-is($instance_b >= $instance_a, 1, 'Comparison test 18');
-is($instance_b == $instance_a, '', 'Comparison test 19');
-is($instance_b != $instance_a, 1, 'Comparison test 20');
-is($instance_b <=> $instance_a, 1, 'Comparison test 21');
-is($instance_b lt $instance_a, '', 'Comparison test 22');
-is($instance_b gt $instance_a, 1, 'Comparison test 23');
-is($instance_b le $instance_a, '', 'Comparison test 24');
-is($instance_b ge $instance_a, 1, 'Comparison test 25');
-is($instance_b eq $instance_a, '', 'Comparison test 26');
-is($instance_b ne $instance_a, 1, 'Comparison test 27');
-is($instance_b cmp $instance_a, 1, 'Comparison test 28');
-
-is($instance_b < '1d 6h 50m 52s', '', 'Comparison test 29');
-is($instance_b > '1d 6h 50m 52s', 1, 'Comparison test 30');
-is($instance_b <= '1d 6h 50m 52s', '', 'Comparison test 31');
-is($instance_b >= '1d 6h 50m 52s', 1, 'Comparison test 32');
-is($instance_b == '1d 6h 50m 52s', '', 'Comparison test 33');
-is($instance_b != '1d 6h 50m 52s', 1, 'Comparison test 34');
-is($instance_b <=> '1d 6h 50m 52s', 1, 'Comparison test 35');
-is($instance_b lt '1d 6h 50m 52s', '', 'Comparison test 36');
-is($instance_b gt '1d 6h 50m 52s', 1, 'Comparison test 37');
-is($instance_b le '1d 6h 50m 52s', '', 'Comparison test 38');
-is($instance_b ge '1d 6h 50m 52s', 1, 'Comparison test 39');
-is($instance_b eq '1d 6h 50m 52s', '', 'Comparison test 40');
-is($instance_b ne '1d 6h 50m 52s', 1, 'Comparison test 41');
-is($instance_b cmp '1d 6h 50m 52s', 1, 'Comparison test 42');
-
-is('1d 6h 50m 52s' < $instance_b, 1, 'Comparison test 43');
-is('1d 6h 50m 52s' > $instance_b, '', 'Comparison test 44');
-is('1d 6h 50m 52s' <= $instance_b, 1, 'Comparison test 45');
-is('1d 6h 50m 52s' >= $instance_b, '', 'Comparison test 45');
-is('1d 6h 50m 52s' == $instance_b, '', 'Comparison test 47');
-is('1d 6h 50m 52s' != $instance_b, 1, 'Comparison test 48');
-is('1d 6h 50m 52s' <=> $instance_b, -1, 'Comparison test 49');
-is('1d 6h 50m 52s' lt $instance_b, 1, 'Comparison test 50');
-is('1d 6h 50m 52s' gt $instance_b, '', 'Comparison test 51');
-is('1d 6h 50m 52s' le $instance_b, 1, 'Comparison test 52');
-is('1d 6h 50m 52s' ge $instance_b, '', 'Comparison test 53');
-is('1d 6h 50m 52s' eq $instance_b, '', 'Comparison test 54');
-is('1d 6h 50m 52s' ne $instance_b, 1, 'Comparison test 55');
-is('1d 6h 50m 52s' cmp $instance_b, -1, 'Comparison test 56');
diff --git a/lib_perl/tests/unit/t/Value.IP.t b/lib_perl/tests/unit/t/Value.IP.t
deleted file mode 100644
index 49468a5..0000000
--- a/lib_perl/tests/unit/t/Value.IP.t
+++ /dev/null
@@ -1,80 +0,0 @@
-#!/usr/bin/perl -T
-
-use strict;
-use warnings;
-
-#*******************************************************************************
-# Value::IP module/class tests
-#
-# Author: Jan Mach, jan.mach@cesnet.cz
-# Version: 0.1
-# Purpose:
-#
-#*******************************************************************************
-
-use Data::Dumper;
-#use Smart::Comments;
-
-use Test::More tests => 47;
-
-# First test if the module correctly compiles
-BEGIN {
- use vars qw($TESTED_CLASS);
- $TESTED_CLASS = 'Value::IP';
-
- use_ok('Tester');
- use_ok('Value::Convertor');
- use_ok($TESTED_CLASS);
- }
-
-# Debug output explicit ON switch
-#Tester::DEBUG_ON();
-
-# Debug output explicit OFF switch
-#Tester::DEBUG_OFF();
-
-# User should know, which version is beeing tested (just for sure)
-diag("$TESTED_CLASS version: " . $Value::IP::VERSION) if Tester::D();
-
-# Define all IP addresses to be tested
-my @IPS = (
- ['195.113.144.194', 'Value::IPv4ADDR', '195.113.144.194'],
- ['C37190C2', 'Value::IPv4ADDR', '195.113.144.194'],
- [3278999746, 'Value::IPv4ADDR', '195.113.144.194'],
- ['195.113.144.194/32', 'Value::IPv4CIDR', '195.113.144.194/32'],
- ['195.113.144.194-195.113.144.244', 'Value::IPv4RNG', '195.113.144.194..195.113.144.244'],
- ['195.113.144.194..195.113.144.244', 'Value::IPv4RNG', '195.113.144.194..195.113.144.244'],
- ['195.113.144.194 - 195.113.144.244', 'Value::IPv4RNG', '195.113.144.194..195.113.144.244'],
- ['195.113.144.194 .. 195.113.144.244', 'Value::IPv4RNG', '195.113.144.194..195.113.144.244'],
- ['192.168.0.0/255.255.255.0', 'Value::IPv4NETM', '192.168.0.0/255.255.255.0'],
- ['2001:718:1:1::2', 'Value::IPv6ADDR', '2001:718:1:1::2'],
- );
-
-my $instance;
-foreach my $IP (@IPS)
-{
- $instance = $TESTED_CLASS->new($IP->[0]);
- isa_ok($instance, $IP->[1]);
- is($instance->to_string(), $IP->[2], "Instance $IP->[0] test 01");
- is($instance->TO_JSON(), $IP->[2], "Instance $IP->[0] test 02");
- is("$instance", $IP->[2], "Instance $IP->[0] test 03");
-
- diag("Instance $IP->[1] dump: " . Dumper($instance)) if Tester::D();
-}
-
-$instance = $TESTED_CLASS->new('195.113.144.194');
-my $t1 = Value::Convertor->ip_to_int('195.113.144.194');
-my $t2 = Value::Convertor->ip_to_bin('195.113.144.194');
-is(Value::Convertor->ip_to_int($instance), $t1, 'Convertor conversion test 01');
-is(Value::Convertor->ip_to_bin($instance), $t2, 'Convertor conversion test 02');
-
-# Perform some comparison tests
-my @CTESTS = (
- ['195.113.144.194', '195.113.144.194'],
- ['195.113.144.194', '195.113.144.0/24'],
-);
-for my $tc (@CTESTS) {
- my $ic1 = $TESTED_CLASS->new($tc->[0]);
- my $ic2 = $TESTED_CLASS->new($tc->[1]);
- ok($ic1 == $ic2, "Comparison '$tc->[0]' == '$tc->[1]'")
-}
diff --git a/lib_perl/tests/unit/t/Value.IPv4ADDR.t b/lib_perl/tests/unit/t/Value.IPv4ADDR.t
deleted file mode 100644
index 52de75a..0000000
--- a/lib_perl/tests/unit/t/Value.IPv4ADDR.t
+++ /dev/null
@@ -1,184 +0,0 @@
-#!/usr/bin/perl -T
-
-use strict;
-use warnings;
-
-#*******************************************************************************
-# Value::IPv4ADDR module/class tests
-#
-# Author: Jan Mach, jan.mach@cesnet.cz
-# Version: 0.1
-# Purpose:
-#
-#*******************************************************************************
-
-use Data::Dumper;
-#use Smart::Comments;
-
-use Test::More tests => 159;
-
-# First test if the module correctly compiles
-BEGIN {
- use vars qw($TESTED_CLASS);
- $TESTED_CLASS = 'Value::IPv4ADDR';
-
- use_ok('Tester');
- use_ok('Value::Convertor');
- use_ok($TESTED_CLASS);
- }
-
-# Debug output explicit ON switch
-#Tester::DEBUG_ON();
-
-# Debug output explicit OFF switch
-#Tester::DEBUG_OFF();
-
-# User should know, which version is beeing tested (just for sure)
-diag("$TESTED_CLASS version: " . $Value::IPv4ADDR::VERSION) if Tester::D();
-
-#-------------------------------------------------------------------------------
-# The object internally uses Value::Convertor::ipv4_to_int conversion, so we should
-# test that it accepts all possible value types:
-my %IPV4s = (
- 'A' => {
- 'str' => '195.113.144.194',
- 'hexstr' => 'C37190C2',
- 'int' => 3278999746,
- },
- 'B' => {
- 'str' => '0.0.0.0',
- 'hexstr' => '00000000',
- 'int' => 0,
- },
- 'C' => {
- 'str' => '255.255.255.255',
- 'hexstr' => 'FFFFFFFF',
- 'int' => 4294967295,
- },
- 'D' => {
- 'str' => '192.168.0.0',
- 'hexstr' => 'C0A80000',
- 'int' => 3232235520,
- },
- 'E' => {
- 'str' => '192.168.0.255',
- 'hexstr' => 'C0A800FF',
- 'int' => 3232235775,
- },
- 'F' => {
- 'str' => '255.255.255.0',
- 'hexstr' => 'FFFFFF00',
- 'int' => 4294967040,
- },
- );
-
-my $instance_a;
-my $instance_b;
-my $instance_c;
-foreach my $IP (sort keys(%IPV4s))
-{
- $instance_a = $TESTED_CLASS->new($IPV4s{$IP}->{'str'});
- isa_ok($instance_a, $TESTED_CLASS);
- is($instance_a->to_numeric(), $IPV4s{$IP}->{'int'}, "Instance $IP:a test 01");
- is($instance_a->to_string(), $IPV4s{$IP}->{'str'}, "Instance $IP:a test 02");
- is($instance_a->TO_JSON(), $IPV4s{$IP}->{'str'}, "Instance $IP:a test 03");
- is("$instance_a", $IPV4s{$IP}->{'str'}, "Instance $IP:a test 04");
-
- $instance_b = $TESTED_CLASS->new($IPV4s{$IP}->{'hexstr'});
- isa_ok($instance_b, $TESTED_CLASS);
- is($instance_b->to_numeric(), $IPV4s{$IP}->{'int'}, "Instance $IP:b test 01");
- is($instance_b->to_string(), $IPV4s{$IP}->{'str'}, "Instance $IP:b test 02");
- is($instance_b->TO_JSON(), $IPV4s{$IP}->{'str'}, "Instance $IP:b test 03");
- is("$instance_b", $IPV4s{$IP}->{'str'}, "Instance $IP:b test 04");
-
- $instance_c = $TESTED_CLASS->new($IPV4s{$IP}->{'int'});
- isa_ok($instance_c, $TESTED_CLASS);
- is($instance_c->to_numeric(), $IPV4s{$IP}->{'int'}, "Instance $IP:c test 01");
- is($instance_c->to_string(), $IPV4s{$IP}->{'str'}, "Instance $IP:c test 02");
- is($instance_c->TO_JSON(), $IPV4s{$IP}->{'str'}, "Instance $IP:c test 03");
- is("$instance_c", $IPV4s{$IP}->{'str'}, "Instance $IP:c test 04");
-}
-
-#-------------------------------------------------------------------------------
-# Create couple of other instances and test the comparison functions
-my $instance1 = $TESTED_CLASS->new('195.113.144.194');
-isa_ok($instance1, $TESTED_CLASS);
-
-# View the created instance
-diag("Instance dump 01: " . Dumper($instance1)) if Tester::D();
-
-is($instance1->to_numeric(), 3278999746, 'Instance 1 test 01');
-is($instance1->to_string(), '195.113.144.194', 'Instance 1 test 02');
-is($instance1->TO_JSON(), '195.113.144.194', 'Instance 1 test 03');
-is("$instance1", '195.113.144.194', 'Instance 1 test 04');
-
-my $instance2 = $TESTED_CLASS->new('195.113.144.244');
-isa_ok($instance2, $TESTED_CLASS);
-
-# View the created instance
-diag("Instance dump 02: " . Dumper($instance2)) if Tester::D();
-
-is($instance2->to_numeric(), 3278999796, 'Instance 2 test 01');
-is($instance2->to_string(), '195.113.144.244', 'Instance 2 test 02');
-is($instance2->TO_JSON(), '195.113.144.244', 'Instance 2 test 03');
-is("$instance2", '195.113.144.244', 'Instance 2 test 04');
-
-is($instance1 < $instance2, 1, 'Comparison test 01');
-is($instance1 > $instance2, '', 'Comparison test 02');
-is($instance1 <= $instance2, 1, 'Comparison test 03');
-is($instance1 >= $instance2, '', 'Comparison test 04');
-is($instance1 == $instance2, '', 'Comparison test 05');
-is($instance1 != $instance2, 1, 'Comparison test 06');
-is($instance1 <=> $instance2, -1, 'Comparison test 07');
-is($instance1 lt $instance2, 1, 'Comparison test 08');
-is($instance1 gt $instance2, '', 'Comparison test 09');
-is($instance1 le $instance2, 1, 'Comparison test 10');
-is($instance1 ge $instance2, '', 'Comparison test 11');
-is($instance1 eq $instance2, '', 'Comparison test 12');
-is($instance1 ne $instance2, 1, 'Comparison test 13');
-is($instance1 cmp $instance2, -1, 'Comparison test 14');
-
-is($instance2 < $instance1, '', 'Comparison test 15');
-is($instance2 > $instance1, 1, 'Comparison test 16');
-is($instance2 <= $instance1, '', 'Comparison test 17');
-is($instance2 >= $instance1, 1, 'Comparison test 18');
-is($instance2 == $instance1, '', 'Comparison test 19');
-is($instance2 != $instance1, 1, 'Comparison test 20');
-is($instance2 <=> $instance1, 1, 'Comparison test 21');
-is($instance2 lt $instance1, '', 'Comparison test 22');
-is($instance2 gt $instance1, 1, 'Comparison test 23');
-is($instance2 le $instance1, '', 'Comparison test 24');
-is($instance2 ge $instance1, 1, 'Comparison test 25');
-is($instance2 eq $instance1, '', 'Comparison test 26');
-is($instance2 ne $instance1, 1, 'Comparison test 27');
-is($instance2 cmp $instance1, 1, 'Comparison test 28');
-
-is($instance2 < 3278999746, '', 'Comparison test 29');
-is($instance2 > '195.113.144.194', 1, 'Comparison test 30');
-is($instance2 <= 'c37190c2', '', 'Comparison test 31');
-is($instance2 >= '195.113.144.194', 1, 'Comparison test 32');
-is($instance2 == 3278999746, '', 'Comparison test 33');
-is($instance2 != '195.113.144.194', 1, 'Comparison test 34');
-is($instance2 <=> 'c37190c2', 1, 'Comparison test 35');
-is($instance2 lt '195.113.144.194', '', 'Comparison test 36');
-is($instance2 gt 3278999746, 1, 'Comparison test 37');
-is($instance2 le '195.113.144.194', '', 'Comparison test 38');
-is($instance2 ge 'c37190c2', 1, 'Comparison test 39');
-is($instance2 eq '195.113.144.194', '', 'Comparison test 40');
-is($instance2 ne 3278999746, 1, 'Comparison test 41');
-is($instance2 cmp '195.113.144.194', 1, 'Comparison test 42');
-
-is(3278999746 < $instance2, 1, 'Comparison test 43');
-is('195.113.144.194' > $instance2, '', 'Comparison test 44');
-is('c37190c2' <= $instance2, 1, 'Comparison test 45');
-is('195.113.144.194' >= $instance2, '', 'Comparison test 45');
-is(3278999746 == $instance2, '', 'Comparison test 47');
-is('195.113.144.194' != $instance2, 1, 'Comparison test 48');
-is('c37190c2' <=> $instance2, -1, 'Comparison test 49');
-is('195.113.144.194' lt $instance2, 1, 'Comparison test 50');
-is(3278999746 gt $instance2, '', 'Comparison test 51');
-is('195.113.144.194' le $instance2, 1, 'Comparison test 52');
-is('c37190c2' ge $instance2, '', 'Comparison test 53');
-is('195.113.144.194' eq $instance2, '', 'Comparison test 54');
-is(3278999746 ne $instance2, 1, 'Comparison test 55');
-is('195.113.144.194' cmp $instance2, -1, 'Comparison test 56');
diff --git a/lib_perl/tests/unit/t/Value.IPv4CIDR.t b/lib_perl/tests/unit/t/Value.IPv4CIDR.t
deleted file mode 100644
index 60eea7d..0000000
--- a/lib_perl/tests/unit/t/Value.IPv4CIDR.t
+++ /dev/null
@@ -1,99 +0,0 @@
-#!/usr/bin/perl -T
-
-use strict;
-use warnings;
-
-#*******************************************************************************
-# Value::IPv4CIDR module/class tests
-#
-# Author: Jan Mach, jan.mach@cesnet.cz
-# Version: 0.1
-# Purpose:
-#
-#*******************************************************************************
-
-use Data::Dumper;
-#use Smart::Comments;
-
-use Test::More tests => 38;
-
-# First test if the module correctly compiles
-BEGIN {
- use vars qw($TESTED_CLASS);
- $TESTED_CLASS = 'Value::IPv4CIDR';
-
- use_ok('Tester');
- use_ok('Value::Convertor');
- use_ok($TESTED_CLASS);
- use_ok('Value::IPv4ADDR');
- }
-
-# Debug output explicit ON switch
-#Tester::DEBUG_ON();
-
-# Debug output explicit OFF switch
-#Tester::DEBUG_OFF();
-
-# User should know, which version is beeing tested (just for sure)
-diag("$TESTED_CLASS version: " . $Value::IPv4CIDR::VERSION) if Tester::D();
-
-# Now attempt to create a class instance and check it
-my $instance1 = $TESTED_CLASS->new('195.113.144.194');
-isa_ok($instance1, $TESTED_CLASS);
-
-# View the created instance
-diag("Instance dump 01: " . Dumper($instance1)) if Tester::D();
-
-is_deeply([$instance1->to_numeric()], [3278999746,3278999746], 'Instance 1 test 01');
-is($instance1->to_string(), '195.113.144.194/32', 'Instance 1 test 02');
-is($instance1->TO_JSON(), '195.113.144.194/32', 'Instance 1 test 03');
-is("$instance1", '195.113.144.194/32', 'Instance 1 test 04');
-
-my $instance2 = $TESTED_CLASS->new('195.113.144.244/32');
-isa_ok($instance2, $TESTED_CLASS);
-
-# View the created instance
-diag("Instance dump 02: " . Dumper($instance2)) if Tester::D();
-
-is_deeply([$instance2->to_numeric()], [3278999796,3278999796], 'Instance 2 test 01');
-is($instance2->to_string(), '195.113.144.244/32', 'Instance 2 test 02');
-is($instance2->TO_JSON(), '195.113.144.244/32', 'Instance 2 test 03');
-is("$instance2", '195.113.144.244/32', 'Instance 2 test 04');
-
-my $instance3 = $TESTED_CLASS->new('192.168.0.0/24');
-isa_ok($instance3, $TESTED_CLASS);
-
-# View the created instance
-diag("Instance dump 03: " . Dumper($instance3)) if Tester::D();
-
-is_deeply([$instance3->to_numeric()], [3232235520,3232235775], 'Instance 3 test 01');
-is($instance3->to_string(), '192.168.0.0/24', 'Instance 3 test 02');
-is($instance3->TO_JSON(), '192.168.0.0/24', 'Instance 3 test 03');
-is("$instance3", '192.168.0.0/24', 'Instance 3 test 04');
-
-is($instance3 == '192.168.0.1', 1, 'Comparison test 01');
-is($instance3 == '192.168.1.1', '', 'Comparison test 02');
-is($instance3 != '192.168.0.1', '', 'Comparison test 03');
-is($instance3 != '192.168.1.1', 1, 'Comparison test 04');
-
-is('192.168.0.1' == $instance3, 1, 'Comparison test 05');
-is('192.168.1.1' == $instance3, '', 'Comparison test 06');
-is('192.168.0.1' != $instance3, '', 'Comparison test 07');
-is('192.168.1.1' != $instance3, 1, 'Comparison test 08');
-
-is($instance3 < '192.168.0.1/32', '', 'Comparison test 09');
-is($instance3 <= '192.168.0.1/32', '', 'Comparison test 10');
-is($instance3 > '192.168.0.1/32', 1, 'Comparison test 11');
-is($instance3 >= '192.168.0.1/32', 1, 'Comparison test 12');
-
-is('192.168.0.1/32' < $instance3, 1, 'Comparison test 11');
-is('192.168.0.1/32' <= $instance3, 1, 'Comparison test 12');
-is('192.168.0.1/32' > $instance3, '', 'Comparison test 13');
-is('192.168.0.1/32' >= $instance3, '', 'Comparison test 14');
-
-my $instancex = $TESTED_CLASS->new('78.128.160.0/19');
-is($instancex == '78.128.186.125', 1, 'Comparison test 15');
-
-my $instancey = Value::IPv4ADDR->new('78.128.186.125');
-is($instancex == $instancey, 1, 'Comparison test 16');
-is($instancey == $instancex, 1, 'Comparison test 17');
diff --git a/lib_perl/tests/unit/t/Value.IPv4NETM.t b/lib_perl/tests/unit/t/Value.IPv4NETM.t
deleted file mode 100644
index 0d17605..0000000
--- a/lib_perl/tests/unit/t/Value.IPv4NETM.t
+++ /dev/null
@@ -1,81 +0,0 @@
-#!/usr/bin/perl -T
-
-use strict;
-use warnings;
-
-#*******************************************************************************
-# Value::IPv4NETM module/class tests
-#
-# Author: Jan Mach, jan.mach@cesnet.cz
-# Version: 0.1
-# Purpose:
-#
-#*******************************************************************************
-
-use Data::Dumper;
-#use Smart::Comments;
-
-use Test::More tests => 29;
-
-# First test if the module correctly compiles
-BEGIN {
- use vars qw($TESTED_CLASS);
- $TESTED_CLASS = 'Value::IPv4NETM';
-
- use_ok('Tester');
- use_ok('Value::Convertor');
- use_ok($TESTED_CLASS);
- }
-
-# Debug output explicit ON switch
-#Tester::DEBUG_ON();
-
-# Debug output explicit OFF switch
-#Tester::DEBUG_OFF();
-
-# User should know, which version is beeing tested (just for sure)
-diag("$TESTED_CLASS version: " . $Value::IPv4NETM::VERSION) if Tester::D();
-
-# Now attempt to create a class instance and check it
-my $instance1 = $TESTED_CLASS->new('192.168.0.0/255.255.255.0');
-isa_ok($instance1, $TESTED_CLASS);
-
-# View the created instance
-diag("Instance dump 01: " . Dumper($instance1)) if Tester::D();
-
-is_deeply([$instance1->to_numeric()], [3232235520,3232235775], 'Instance 1 test 01');
-is($instance1->to_string(), '192.168.0.0/255.255.255.0', 'Instance 1 test 02');
-is($instance1->TO_JSON(), '192.168.0.0/255.255.255.0', 'Instance 1 test 03');
-is("$instance1", '192.168.0.0/255.255.255.0', 'Instance 1 test 04');
-
-# Now attempt to create a class instance and check it
-my $instance2 = $TESTED_CLASS->new('192.168.1.0/255.255.255.0');
-isa_ok($instance2, $TESTED_CLASS);
-
-# View the created instance
-diag("Instance dump 02: " . Dumper($instance2)) if Tester::D();
-
-is_deeply([$instance2->to_numeric()], [3232235776,3232236031], 'Instance 1 test 01');
-is($instance2->to_string(), '192.168.1.0/255.255.255.0', 'Instance 1 test 02');
-is($instance2->TO_JSON(), '192.168.1.0/255.255.255.0', 'Instance 1 test 03');
-is("$instance2", '192.168.1.0/255.255.255.0', 'Instance 1 test 04');
-
-is($instance1 == '192.168.0.1', 1, 'Comparison test 01');
-is($instance1 == '192.168.1.1', '', 'Comparison test 02');
-is($instance1 != '192.168.0.1', '', 'Comparison test 03');
-is($instance1 != '192.168.1.1', 1, 'Comparison test 04');
-
-is('192.168.0.1' == $instance1, 1, 'Comparison test 05');
-is('192.168.1.1' == $instance1, '', 'Comparison test 06');
-is('192.168.0.1' != $instance1, '', 'Comparison test 07');
-is('192.168.1.1' != $instance1, 1, 'Comparison test 08');
-
-is($instance1 < '192.168.0.1/32', '', 'Comparison test 09');
-is($instance1 <= '192.168.0.1/32', '', 'Comparison test 10');
-is($instance1 > '192.168.0.1/32', 1, 'Comparison test 11');
-is($instance1 >= '192.168.0.1/32', 1, 'Comparison test 12');
-
-is('192.168.0.1/32' < $instance1, 1, 'Comparison test 11');
-is('192.168.0.1/32' <= $instance1, 1, 'Comparison test 12');
-is('192.168.0.1/32' > $instance1, '', 'Comparison test 13');
-is('192.168.0.1/32' >= $instance1, '', 'Comparison test 14');
diff --git a/lib_perl/tests/unit/t/Value.IPv4RNG.t b/lib_perl/tests/unit/t/Value.IPv4RNG.t
deleted file mode 100644
index a805656..0000000
--- a/lib_perl/tests/unit/t/Value.IPv4RNG.t
+++ /dev/null
@@ -1,91 +0,0 @@
-#!/usr/bin/perl -T
-
-use strict;
-use warnings;
-
-#*******************************************************************************
-# Value::IPv4RNG module/class tests
-#
-# Author: Jan Mach, jan.mach@cesnet.cz
-# Version: 0.1
-# Purpose:
-#
-#*******************************************************************************
-
-use Data::Dumper;
-#use Smart::Comments;
-
-use Test::More tests => 34;
-
-# First test if the module correctly compiles
-BEGIN {
- use vars qw($TESTED_CLASS);
- $TESTED_CLASS = 'Value::IPv4RNG';
-
- use_ok('Tester');
- use_ok('Value::Convertor');
- use_ok($TESTED_CLASS);
- }
-
-# Debug output explicit ON switch
-#Tester::DEBUG_ON();
-
-# Debug output explicit OFF switch
-#Tester::DEBUG_OFF();
-
-# User should know, which version is beeing tested (just for sure)
-diag("$TESTED_CLASS version: " . $Value::IPv4RNG::VERSION) if Tester::D();
-
-# Now attempt to create a class instance and check it
-my $instance1 = $TESTED_CLASS->new('195.113.144.194');
-isa_ok($instance1, $TESTED_CLASS);
-
-# View the created instance
-diag("Instance dump 01: " . Dumper($instance1)) if Tester::D();
-
-is_deeply([$instance1->to_numeric()], [3278999746,3278999746], 'Instance 1 test 01');
-is($instance1->to_string(), '195.113.144.194..195.113.144.194', 'Instance 1 test 02');
-is($instance1->TO_JSON(), '195.113.144.194..195.113.144.194', 'Instance 1 test 03');
-is("$instance1", '195.113.144.194..195.113.144.194', 'Instance 1 test 04');
-
-my $instance2 = $TESTED_CLASS->new('195.113.144.244/32');
-isa_ok($instance2, $TESTED_CLASS);
-
-# View the created instance
-diag("Instance dump 02: " . Dumper($instance2)) if Tester::D();
-
-is_deeply([$instance2->to_numeric()], [3278999796,3278999796], 'Instance 2 test 01');
-is($instance2->to_string(), '195.113.144.244..195.113.144.244', 'Instance 2 test 02');
-is($instance2->TO_JSON(), '195.113.144.244..195.113.144.244', 'Instance 2 test 03');
-is("$instance2", '195.113.144.244..195.113.144.244', 'Instance 2 test 04');
-
-my $instance3 = $TESTED_CLASS->new('192.168.0.0/24');
-isa_ok($instance3, $TESTED_CLASS);
-
-# View the created instance
-diag("Instance dump 03: " . Dumper($instance3)) if Tester::D();
-
-is_deeply([$instance3->to_numeric()], [3232235520,3232235775], 'Instance 3 test 01');
-is($instance3->to_string(), '192.168.0.0..192.168.0.255', 'Instance 3 test 02');
-is($instance3->TO_JSON(), '192.168.0.0..192.168.0.255', 'Instance 3 test 03');
-is("$instance3", '192.168.0.0..192.168.0.255', 'Instance 3 test 04');
-
-is($instance3 == '192.168.0.1', 1, 'Comparison test 01');
-is($instance3 == '192.168.1.1', '', 'Comparison test 02');
-is($instance3 != '192.168.0.1', '', 'Comparison test 03');
-is($instance3 != '192.168.1.1', 1, 'Comparison test 04');
-
-is('192.168.0.1' == $instance3, 1, 'Comparison test 05');
-is('192.168.1.1' == $instance3, '', 'Comparison test 06');
-is('192.168.0.1' != $instance3, '', 'Comparison test 07');
-is('192.168.1.1' != $instance3, 1, 'Comparison test 08');
-
-is($instance3 < '192.168.0.1/32', '', 'Comparison test 09');
-is($instance3 <= '192.168.0.1/32', '', 'Comparison test 10');
-is($instance3 > '192.168.0.1/32', 1, 'Comparison test 11');
-is($instance3 >= '192.168.0.1/32', 1, 'Comparison test 12');
-
-is('192.168.0.1/32' < $instance3, 1, 'Comparison test 13');
-is('192.168.0.1/32' <= $instance3, 1, 'Comparison test 14');
-is('192.168.0.1/32' > $instance3, '', 'Comparison test 15');
-is('192.168.0.1/32' >= $instance3, '', 'Comparison test 16');
diff --git a/lib_perl/tests/unit/t/Value.IPv6ADDR.t b/lib_perl/tests/unit/t/Value.IPv6ADDR.t
deleted file mode 100644
index 3835b0d..0000000
--- a/lib_perl/tests/unit/t/Value.IPv6ADDR.t
+++ /dev/null
@@ -1,127 +0,0 @@
-#!/usr/bin/perl -T
-
-use strict;
-use warnings;
-
-#*******************************************************************************
-# Value::IPv6ADDR module/class tests
-#
-# Author: Jan Mach, jan.mach@cesnet.cz
-# Version: 0.1
-# Purpose:
-#
-#*******************************************************************************
-
-use Data::Dumper;
-#use Smart::Comments;
-
-use Test::More tests => 69;
-
-# First test if the module correctly compiles
-BEGIN {
- use vars qw($TESTED_CLASS);
- $TESTED_CLASS = 'Value::IPv6ADDR';
-
- use_ok('Tester');
- use_ok('Value::Convertor');
- use_ok($TESTED_CLASS);
- }
-
-# Debug output explicit ON switch
-#Tester::DEBUG_ON();
-
-# Debug output explicit OFF switch
-#Tester::DEBUG_OFF();
-
-# User should know, which version is beeing tested (just for sure)
-diag("$TESTED_CLASS version: " . $Value::IPv6ADDR::VERSION) if Tester::D();
-
-# Now attempt to create a class instance and check it
-my $instance1 = $TESTED_CLASS->new('2001:718:1:1::2');
-isa_ok($instance1, $TESTED_CLASS);
-
-# View the created instance
-diag("Instance dump 01: " . Dumper($instance1)) if Tester::D();
-
-{
-use bigint;
-is($instance1->to_numeric(), 42540632040320177608853785003998314498, 'Instance 1 test 01');
-is($instance1->to_string(), '2001:718:1:1::2', 'Instance 1 test 02');
-is($instance1->TO_JSON(), '2001:718:1:1::2', 'Instance 1 test 03');
-is("$instance1", '2001:718:1:1::2', 'Instance 1 test 04');
-}
-
-# Now attempt to create a class instance and check it
-my $instance2 = $TESTED_CLASS->new('2001:718:1:1::55:5');
-isa_ok($instance2, $TESTED_CLASS);
-
-# View the created instance
-diag("Instance dump 02: " . Dumper($instance2)) if Tester::D();
-
-{
-use bigint;
-is($instance2->to_numeric(), 42540632040320177608853785004003885061, 'Instance 2 test 01');
-is($instance2->to_string(), '2001:718:1:1::55:5', 'Instance 2 test 02');
-is($instance2->TO_JSON(), '2001:718:1:1::55:5', 'Instance 2 test 03');
-is("$instance2", '2001:718:1:1::55:5', 'Instance 2 test 04');
-}
-
-is($instance1 < $instance2, 1, 'Comparison test 01');
-is($instance1 > $instance2, '', 'Comparison test 02');
-is($instance1 <= $instance2, 1, 'Comparison test 03');
-is($instance1 >= $instance2, '', 'Comparison test 04');
-is($instance1 == $instance2, '', 'Comparison test 05');
-is($instance1 != $instance2, 1, 'Comparison test 06');
-is($instance1 <=> $instance2, -1, 'Comparison test 07');
-is($instance1 lt $instance2, 1, 'Comparison test 08');
-is($instance1 gt $instance2, '', 'Comparison test 09');
-is($instance1 le $instance2, 1, 'Comparison test 10');
-is($instance1 ge $instance2, '', 'Comparison test 11');
-is($instance1 eq $instance2, '', 'Comparison test 12');
-is($instance1 ne $instance2, 1, 'Comparison test 13');
-is($instance1 cmp $instance2, -1, 'Comparison test 14');
-
-is($instance2 < $instance1, '', 'Comparison test 15');
-is($instance2 > $instance1, 1, 'Comparison test 16');
-is($instance2 <= $instance1, '', 'Comparison test 17');
-is($instance2 >= $instance1, 1, 'Comparison test 18');
-is($instance2 == $instance1, '', 'Comparison test 19');
-is($instance2 != $instance1, 1, 'Comparison test 20');
-is($instance2 <=> $instance1, 1, 'Comparison test 21');
-is($instance2 lt $instance1, '', 'Comparison test 22');
-is($instance2 gt $instance1, 1, 'Comparison test 23');
-is($instance2 le $instance1, '', 'Comparison test 24');
-is($instance2 ge $instance1, 1, 'Comparison test 25');
-is($instance2 eq $instance1, '', 'Comparison test 26');
-is($instance2 ne $instance1, 1, 'Comparison test 27');
-is($instance2 cmp $instance1, 1, 'Comparison test 28');
-
-is($instance2 < '2001:718:1:1::2', '', 'Comparison test 29');
-is($instance2 > '2001:718:1:1::2', 1, 'Comparison test 30');
-is($instance2 <= '2001:718:1:1::2', '', 'Comparison test 31');
-is($instance2 >= '2001:718:1:1::2', 1, 'Comparison test 32');
-is($instance2 == '2001:718:1:1::2', '', 'Comparison test 33');
-is($instance2 != '2001:718:1:1::2', 1, 'Comparison test 34');
-is($instance2 <=> '2001:718:1:1::2', 1, 'Comparison test 35');
-is($instance2 lt '2001:718:1:1::2', '', 'Comparison test 36');
-is($instance2 gt '2001:718:1:1::2', 1, 'Comparison test 37');
-is($instance2 le '2001:718:1:1::2', '', 'Comparison test 38');
-is($instance2 ge '2001:718:1:1::2', 1, 'Comparison test 39');
-is($instance2 eq '2001:718:1:1::2', '', 'Comparison test 40');
-is($instance2 ne '2001:718:1:1::2', 1, 'Comparison test 41');
-is($instance2 cmp '2001:718:1:1::2', 1, 'Comparison test 42');
-
-is('2001:718:1:1::2' < $instance2, 1, 'Comparison test 43');
-is('2001:718:1:1::2' > $instance2, '', 'Comparison test 44');
-is('2001:718:1:1::2' <= $instance2, 1, 'Comparison test 45');
-is('2001:718:1:1::2' >= $instance2, '', 'Comparison test 45');
-is('2001:718:1:1::2' == $instance2, '', 'Comparison test 47');
-is('2001:718:1:1::2' != $instance2, 1, 'Comparison test 48');
-is('2001:718:1:1::2' <=> $instance2, -1, 'Comparison test 49');
-is('2001:718:1:1::2' lt $instance2, 1, 'Comparison test 50');
-is('2001:718:1:1::2' gt $instance2, '', 'Comparison test 51');
-is('2001:718:1:1::2' le $instance2, 1, 'Comparison test 52');
-is('2001:718:1:1::2' ge $instance2, '', 'Comparison test 53');
-is('2001:718:1:1::2' eq $instance2, '', 'Comparison test 54');
-is('2001:718:1:1::2' ne $instance2, 1, 'Comparison test 55');
-is('2001:718:1:1::2' cmp $instance2, -1, 'Comparison test 56');
diff --git a/lib_perl/tests/unit/t/Value.Period.t b/lib_perl/tests/unit/t/Value.Period.t
deleted file mode 100644
index eb80918..0000000
--- a/lib_perl/tests/unit/t/Value.Period.t
+++ /dev/null
@@ -1,138 +0,0 @@
-#!/usr/bin/perl -T
-
-use strict;
-use warnings;
-
-#*******************************************************************************
-# Value::Period module/class tests
-#
-# Author: Jan Mach, jan.mach@cesnet.cz
-# Version: 0.1
-# Purpose:
-#
-#*******************************************************************************
-
-use Data::Dumper;
-#use Smart::Comments;
-
-use Test::More tests => 2072;
-
-# First test if the module correctly compiles
-BEGIN {
- use vars qw($TESTED_CLASS);
- $TESTED_CLASS = 'Value::Period';
-
- use_ok('Tester');
- use_ok('Value::Convertor');
- use_ok($TESTED_CLASS);
- }
-
-# Debug output explicit ON switch
-#Tester::DEBUG_ON();
-
-# Debug output explicit OFF switch
-#Tester::DEBUG_OFF();
-
-# User should know, which version is beeing tested (just for sure)
-diag("$TESTED_CLASS version: " . $Value::Period::VERSION) if Tester::D();
-
-#-------------------------------------------------------------------------------
-# Datetime strings for time period tests
-my @DTsA = (
- ['2013-02-03 14:55', Math::BigInt->new(15328259390570496000)],
- ['2013-02-03T14:55', Math::BigInt->new(15328259390570496000)],
- ['2013-02-03 14:55Z', Math::BigInt->new(15328274852452761600)],
- ['2013-02-03T14:55Z', Math::BigInt->new(15328274852452761600)],
- ['2013-02-03 14:55:12', Math::BigInt->new(15328259442110103552)],
- ['2013-02-03T14:55:12', Math::BigInt->new(15328259442110103552)],
- ['2013-02-03 14:55:12Z', Math::BigInt->new(15328274903992369152)],
- ['2013-02-03T14:55:12Z', Math::BigInt->new(15328274903992369152)],
- ['2013-02-03 14:55+0100', Math::BigInt->new(15328259390570496000)],
- ['2013-02-03T14:55+0100', Math::BigInt->new(15328259390570496000)],
- ['2013-02-03 14:55:12+0100', Math::BigInt->new(15328259442110103552)],
- ['2013-02-03T14:55:12+0100', Math::BigInt->new(15328259442110103552)],
- ['2013-02-03 14:55-0100', Math::BigInt->new(15328290314335027200)],
- ['2013-02-03T14:55-0100', Math::BigInt->new(15328290314335027200)],
- ['2013-02-03 14:55:12-0100', Math::BigInt->new(15328290365874634752)],
- ['2013-02-03T14:55:12-0100', Math::BigInt->new(15328290365874634752)],
- );
-my @DTsB = (
- ['2013-02-03 18:55', Math::BigInt->new(15328321238099558400)],
- ['2013-02-03T18:55', Math::BigInt->new(15328321238099558400)],
- ['2013-02-03 18:55Z', Math::BigInt->new(15328336699981824000)],
- ['2013-02-03T18:55Z', Math::BigInt->new(15328336699981824000)],
- ['2013-02-03 18:55:12', Math::BigInt->new(15328321289639165952)],
- ['2013-02-03T18:55:12', Math::BigInt->new(15328321289639165952)],
- ['2013-02-03 18:55:12Z', Math::BigInt->new(15328336751521431552)],
- ['2013-02-03T18:55:12Z', Math::BigInt->new(15328336751521431552)],
- ['2013-02-03 18:55+0100', Math::BigInt->new(15328321238099558400)],
- ['2013-02-03T18:55+0100', Math::BigInt->new(15328321238099558400)],
- ['2013-02-03 18:55:12+0100', Math::BigInt->new(15328321289639165952)],
- ['2013-02-03T18:55:12+0100', Math::BigInt->new(15328321289639165952)],
- ['2013-02-03 18:55-0100', Math::BigInt->new(15328352161864089600)],
- ['2013-02-03T18:55-0100', Math::BigInt->new(15328352161864089600)],
- ['2013-02-03 18:55:12-0100', Math::BigInt->new(15328352213403697152)],
- ['2013-02-03T18:55:12-0100', Math::BigInt->new(15328352213403697152)],
- );
-
-# Test the time period string detection
-my ($instance_a, $instance_b, $instance_c, $instance_d);
-foreach my $DTa (@DTsA)
-{
- foreach my $DTb (@DTsB)
- {
- $instance_a = $TESTED_CLASS->new($DTa->[0].'-'.$DTb->[0]);
- isa_ok($instance_a, $TESTED_CLASS);
- is_deeply([$instance_a->to_numeric()], [$DTa->[1],$DTb->[1]], "Instance $DTa->[0]..$DTb->[0]:a test");
-
- $instance_b = $TESTED_CLASS->new($DTa->[0].'..'.$DTb->[0]);
- isa_ok($instance_b, $TESTED_CLASS);
- is_deeply([$instance_b->to_numeric()], [$DTa->[1],$DTb->[1]], "Instance $DTa->[0]..$DTb->[0]:a test");
-
- $instance_c = $TESTED_CLASS->new($DTa->[0].' - '.$DTb->[0]);
- isa_ok($instance_c, $TESTED_CLASS);
- is_deeply([$instance_c->to_numeric()], [$DTa->[1],$DTb->[1]], "Instance $DTa->[0]..$DTb->[0]:a test");
-
- $instance_d = $TESTED_CLASS->new($DTa->[0].' .. '.$DTb->[0]);
- isa_ok($instance_d, $TESTED_CLASS);
- is_deeply([$instance_d->to_numeric()], [$DTa->[1],$DTb->[1]], "Instance $DTa->[0]..$DTb->[0]:a test");
- }
-}
-
-#-------------------------------------------------------------------------------
-# Create couple of other instances and test the comparison functions
-
-# Now attempt to create a class instance and check it
-my $instance1 = $TESTED_CLASS->new('2013-04-18T08:28:37Z..2013-04-18T10:28:37Z');
-isa_ok($instance1, $TESTED_CLASS);
-
-# View the created instance
-diag("Instance dump 01: " . Dumper($instance1)) if Tester::D();
-
-{
-use bigint;
-is_deeply([$instance1->to_numeric()], [15355635585129644032,15355666508894175232], 'Instance 1 test 01');
-is($instance1->to_string(), '2013-04-18 08:28:37Z..2013-04-18 10:28:37Z', 'Instance 1 test 02');
-is($instance1->TO_JSON(), '2013-04-18 08:28:37Z..2013-04-18 10:28:37Z', 'Instance 1 test 03');
-is("$instance1", '2013-04-18 08:28:37Z..2013-04-18 10:28:37Z', 'Instance 1 test 04');
-}
-
-is($instance1 == '2013-04-18T08:28:37Z', 1, 'Comparison test 01');
-is($instance1 == '2013-04-18T18:28:37Z', '', 'Comparison test 02');
-is($instance1 != '2013-04-18T08:28:37Z', '', 'Comparison test 03');
-is($instance1 != '2013-04-18T18:28:37Z', 1, 'Comparison test 04');
-
-is('2013-04-18T08:28:37Z' == $instance1, 1, 'Comparison test 05');
-is('2013-04-18T18:28:37Z' == $instance1, '', 'Comparison test 06');
-is('2013-04-18T08:28:37Z' != $instance1, '', 'Comparison test 07');
-is('2013-04-18T18:28:37Z' != $instance1, 1, 'Comparison test 08');
-
-is($instance1 < '2013-04-18T08:28:37Z', '', 'Comparison test 09');
-is($instance1 <= '2013-04-18T08:28:37Z', 1, 'Comparison test 10');
-is($instance1 > '2013-04-18T08:28:37Z', '', 'Comparison test 11');
-is($instance1 >= '2013-04-18T08:28:37Z', 1, 'Comparison test 12');
-
-is('2013-04-18T08:28:37Z' < $instance1, '', 'Comparison test 13');
-is('2013-04-18T08:28:37Z' <= $instance1, 1, 'Comparison test 14');
-is('2013-04-18T08:28:37Z' > $instance1, '', 'Comparison test 15');
-is('2013-04-18T08:28:37Z' >= $instance1, 1, 'Comparison test 16');
diff --git a/lib_perl/tests/unit/t/Value.Range.t b/lib_perl/tests/unit/t/Value.Range.t
deleted file mode 100644
index c251ec6..0000000
--- a/lib_perl/tests/unit/t/Value.Range.t
+++ /dev/null
@@ -1,242 +0,0 @@
-#!/usr/bin/perl -T
-
-use strict;
-use warnings;
-
-#*******************************************************************************
-# Value::Range module/class tests
-#
-# Author: Jan Mach, jan.mach@cesnet.cz
-# Version: 0.1
-# Purpose:
-#
-#*******************************************************************************
-
-use Data::Dumper;
-#use Smart::Comments;
-
-use Test::More tests => 167;
-
-# First test if the module correctly compiles
-BEGIN {
- use vars qw($TESTED_CLASS);
- $TESTED_CLASS = 'Value::Range';
-
- use_ok('Tester');
- use_ok($TESTED_CLASS);
- }
-
-# Debug output explicit ON switch
-#Tester::DEBUG_ON();
-
-# Debug output explicit OFF switch
-#Tester::DEBUG_OFF();
-
-# User should know, which version is beeing tested (just for sure)
-diag("$TESTED_CLASS version: " . $Value::Range::VERSION) if Tester::D();
-
-# Now attempt to create a class instance and check it
-my $instance1 = $TESTED_CLASS->new(500,1000);
-isa_ok($instance1, $TESTED_CLASS);
-
-# View the created instance
-diag("Instance dump 01: " . Dumper($instance1)) if Tester::D();
-
-is_deeply([$instance1->to_numeric()], [500,1000], 'Instance 1 test 01');
-is($instance1->to_string(), "500-1000", 'Instance 1 test 02');
-is($instance1->TO_JSON(), "500-1000", 'Instance 1 test 03');
-is("$instance1", "500-1000", 'Instance 1 test 04');
-
-my $instance2 = $TESTED_CLASS->new(5000,10000);
-isa_ok($instance2, $TESTED_CLASS);
-
-# View the created instance
-diag("Instance dump 02: " . Dumper($instance2)) if Tester::D();
-
-is_deeply([$instance2->to_numeric()], [5000,10000], 'Instance 2 test 01');
-is($instance2->to_string(), "5000-10000", 'Instance 2 test 02');
-is($instance2->TO_JSON(), "5000-10000", 'Instance 2 test 03');
-is("$instance2", "5000-10000", 'Instance 2 test 04');
-
-my $instance3 = $TESTED_CLASS->new('6000-8000');
-isa_ok($instance3, $TESTED_CLASS);
-
-# View the created instance
-diag("Instance dump 03: " . Dumper($instance3)) if Tester::D();
-
-is_deeply([$instance3->to_numeric()], [6000,8000], 'Instance 3 test 01');
-is($instance3->to_string(), "6000-8000", 'Instance 3 test 02');
-is($instance3->TO_JSON(), "6000-8000", 'Instance 3 test 03');
-is("$instance3", "6000-8000", 'Instance 3 test 04');
-
-my $instance4 = $TESTED_CLASS->new(4000,11000);
-isa_ok($instance4, $TESTED_CLASS);
-
-# View the created instance
-diag("Instance dump 04: " . Dumper($instance4)) if Tester::D();
-
-is_deeply([$instance4->to_numeric()], [4000,11000], 'Instance 4 test 01');
-is($instance4->to_string(), "4000-11000", 'Instance 4 test 02');
-is($instance4->TO_JSON(), "4000-11000", 'Instance 4 test 03');
-is("$instance4", "4000-11000", 'Instance 4 test 04');
-
-my $instance5 = $TESTED_CLASS->new(4000);
-isa_ok($instance5, $TESTED_CLASS);
-
-# View the created instance
-diag("Instance dump 05: " . Dumper($instance4)) if Tester::D();
-
-is_deeply([$instance5->to_numeric()], [4000,4000], 'Instance 5 test 01');
-is($instance5->to_string(), "4000-4000", 'Instance 5 test 02');
-is($instance5->TO_JSON(), "4000-4000", 'Instance 5 test 03');
-is("$instance5", "4000-4000", 'Instance 5 test 04');
-
-is($instance1 < $instance2, '', 'Comparison test 001');
-is($instance1 lt $instance2, '', 'Comparison test 002');
-is($instance1 > $instance2, 1, 'Comparison test 003');
-is($instance1 gt $instance2, 1, 'Comparison test 004');
-is($instance1 <= $instance2, '', 'Comparison test 005');
-is($instance1 le $instance2, '', 'Comparison test 006');
-is($instance1 >= $instance2, 1, 'Comparison test 007');
-is($instance1 ge $instance2, 1, 'Comparison test 008');
-is($instance1 == $instance2, '', 'Comparison test 009');
-is($instance1 eq $instance2, '', 'Comparison test 010');
-is($instance1 != $instance2, 1, 'Comparison test 011');
-is($instance1 ne $instance2, 1, 'Comparison test 012');
-is($instance1 <=> $instance2, 1, 'Comparison test 013');
-is($instance1 cmp $instance2, 1, 'Comparison test 014');
-
-is($instance3 < $instance2, 1, 'Comparison test 015');
-is($instance3 lt $instance2, 1, 'Comparison test 016');
-is($instance3 > $instance2, '', 'Comparison test 017');
-is($instance3 gt $instance2, '', 'Comparison test 018');
-is($instance3 <= $instance2, 1, 'Comparison test 019');
-is($instance3 le $instance2, 1, 'Comparison test 020');
-is($instance3 >= $instance2, '', 'Comparison test 021');
-is($instance3 ge $instance2, '', 'Comparison test 022');
-is($instance3 == $instance2, '', 'Comparison test 023');
-is($instance3 eq $instance2, '', 'Comparison test 024');
-is($instance3 != $instance2, 1, 'Comparison test 025');
-is($instance3 ne $instance2, 1, 'Comparison test 026');
-is($instance3 <=> $instance2, -1, 'Comparison test 027');
-is($instance3 cmp $instance2, -1, 'Comparison test 028');
-
-is($instance2 < 5000, '', 'Comparison test 029');
-is($instance2 > 5000, '', 'Comparison test 030');
-is($instance2 <= 5000, 1, 'Comparison test 031');
-is($instance2 >= 5000, 1, 'Comparison test 032');
-is($instance2 == 5000, 1, 'Comparison test 033');
-is($instance2 != 5000, '', 'Comparison test 034');
-is($instance2 <=> 5000, 0, 'Comparison test 035');
-is($instance2 lt 5000, '', 'Comparison test 036');
-is($instance2 gt 5000, '', 'Comparison test 037');
-is($instance2 le 5000, 1, 'Comparison test 038');
-is($instance2 ge 5000, 1, 'Comparison test 039');
-is($instance2 eq 5000, 1, 'Comparison test 040');
-is($instance2 ne 5000, '', 'Comparison test 041');
-is($instance2 cmp 5000, 0, 'Comparison test 042');
-
-is($instance2 < 1000, '', 'Comparison test 043');
-is($instance2 > 1000, 1, 'Comparison test 044');
-is($instance2 <= 1000, '', 'Comparison test 045');
-is($instance2 >= 1000, 1, 'Comparison test 046');
-is($instance2 == 1000, '', 'Comparison test 047');
-is($instance2 != 1000, 1, 'Comparison test 048');
-is($instance2 <=> 1000, 1, 'Comparison test 049');
-is($instance2 lt 1000, '', 'Comparison test 050');
-is($instance2 gt 1000, 1, 'Comparison test 051');
-is($instance2 le 1000, '', 'Comparison test 052');
-is($instance2 ge 1000, 1, 'Comparison test 053');
-is($instance2 eq 1000, '', 'Comparison test 054');
-is($instance2 ne 1000, 1, 'Comparison test 055');
-is($instance2 cmp 1000, 1, 'Comparison test 056');
-
-is($instance2 < 50000, '', 'Comparison test 057');
-is($instance2 > 50000, 1, 'Comparison test 058');
-is($instance2 <= 50000, '', 'Comparison test 059');
-is($instance2 >= 50000, 1, 'Comparison test 060');
-is($instance2 == 50000, '', 'Comparison test 061');
-is($instance2 != 50000, 1, 'Comparison test 062');
-is($instance2 <=> 50000, 1, 'Comparison test 063');
-is($instance2 lt 50000, '', 'Comparison test 064');
-is($instance2 gt 50000, 1, 'Comparison test 065');
-is($instance2 le 50000, '', 'Comparison test 066');
-is($instance2 ge 50000, 1, 'Comparison test 067');
-is($instance2 eq 50000, '', 'Comparison test 068');
-is($instance2 ne 50000, 1, 'Comparison test 069');
-is($instance2 cmp 50000, 1, 'Comparison test 070');
-
-is($instance2 < 7000, '', 'Comparison test 071');
-is($instance2 > 7000, '', 'Comparison test 072');
-is($instance2 <= 7000, 1, 'Comparison test 073');
-is($instance2 >= 7000, 1, 'Comparison test 074');
-is($instance2 == 7000, 1, 'Comparison test 075');
-is($instance2 != 7000, '', 'Comparison test 076');
-is($instance2 <=> 7000, 0, 'Comparison test 077');
-is($instance2 lt 7000, '', 'Comparison test 078');
-is($instance2 gt 7000, '', 'Comparison test 079');
-is($instance2 le 7000, 1, 'Comparison test 080');
-is($instance2 ge 7000, 1, 'Comparison test 081');
-is($instance2 eq 7000, 1, 'Comparison test 082');
-is($instance2 ne 7000, '', 'Comparison test 083');
-is($instance2 cmp 7000, 0, 'Comparison test 084');
-
-is(5000 < $instance2, '', 'Comparison test 085');
-is(5000 > $instance2, '', 'Comparison test 086');
-is(5000 <= $instance2, 1, 'Comparison test 087');
-is(5000 >= $instance2, 1, 'Comparison test 088');
-is(5000 == $instance2, 1, 'Comparison test 089');
-is(5000 != $instance2, '', 'Comparison test 090');
-is(5000 <=> $instance2, 0, 'Comparison test 091');
-is(5000 lt $instance2, '', 'Comparison test 092');
-is(5000 gt $instance2, '', 'Comparison test 093');
-is(5000 le $instance2, 1, 'Comparison test 094');
-is(5000 ge $instance2, 1, 'Comparison test 095');
-is(5000 eq $instance2, 1, 'Comparison test 096');
-is(5000 ne $instance2, '', 'Comparison test 097');
-is(5000 cmp $instance2, 0, 'Comparison test 098');
-
-is(1000 < $instance2, '', 'Comparison test 099');
-is(1000 > $instance2, 1, 'Comparison test 100');
-is(1000 <= $instance2, '', 'Comparison test 101');
-is(1000 >= $instance2, 1, 'Comparison test 102');
-is(1000 == $instance2, '', 'Comparison test 103');
-is(1000 != $instance2, 1, 'Comparison test 104');
-is(1000 <=> $instance2, 1, 'Comparison test 105');
-is(1000 lt $instance2, '', 'Comparison test 106');
-is(1000 gt $instance2, 1, 'Comparison test 107');
-is(1000 le $instance2, '', 'Comparison test 108');
-is(1000 ge $instance2, 1, 'Comparison test 109');
-is(1000 eq $instance2, '', 'Comparison test 110');
-is(1000 ne $instance2, 1, 'Comparison test 111');
-is(1000 cmp $instance2, 1, 'Comparison test 112');
-
-is(50000 < $instance2, '', 'Comparison test 113');
-is(50000 > $instance2, 1, 'Comparison test 114');
-is(50000 <= $instance2, '', 'Comparison test 115');
-is(50000 >= $instance2, 1, 'Comparison test 116');
-is(50000 == $instance2, '', 'Comparison test 117');
-is(50000 != $instance2, 1, 'Comparison test 118');
-is(50000 <=> $instance2, 1, 'Comparison test 119');
-is(50000 lt $instance2, '', 'Comparison test 120');
-is(50000 gt $instance2, 1, 'Comparison test 121');
-is(50000 le $instance2, '', 'Comparison test 122');
-is(50000 ge $instance2, 1, 'Comparison test 123');
-is(50000 eq $instance2, '', 'Comparison test 124');
-is(50000 ne $instance2, 1, 'Comparison test 125');
-is(50000 cmp $instance2, 1, 'Comparison test 126');
-
-is(7000 < $instance2, '', 'Comparison test 127');
-is(7000 > $instance2, '', 'Comparison test 128');
-is(7000 <= $instance2, 1, 'Comparison test 129');
-is(7000 >= $instance2, 1, 'Comparison test 130');
-is(7000 == $instance2, 1, 'Comparison test 131');
-is(7000 != $instance2, '', 'Comparison test 132');
-is(7000 <=> $instance2, 0, 'Comparison test 133');
-is(7000 lt $instance2, '', 'Comparison test 134');
-is(7000 gt $instance2, '', 'Comparison test 135');
-is(7000 le $instance2, 1, 'Comparison test 136');
-is(7000 ge $instance2, 1, 'Comparison test 137');
-is(7000 eq $instance2, 1, 'Comparison test 138');
-is(7000 ne $instance2, '', 'Comparison test 139');
-is(7000 cmp $instance2, 0, 'Comparison test 140');
diff --git a/lib_perl/tests/unit/t/Value.Single.t b/lib_perl/tests/unit/t/Value.Single.t
deleted file mode 100644
index 422ddbd..0000000
--- a/lib_perl/tests/unit/t/Value.Single.t
+++ /dev/null
@@ -1,119 +0,0 @@
-#!/usr/bin/perl -T
-
-use strict;
-use warnings;
-
-#*******************************************************************************
-# Value::Single module/class tests
-#
-# Author: Jan Mach, jan.mach@cesnet.cz
-# Version: 0.1
-# Purpose:
-#
-#*******************************************************************************
-
-use Data::Dumper;
-#use Smart::Comments;
-
-use Test::More tests => 68;
-
-# First test if the module correctly compiles
-BEGIN {
- use vars qw($TESTED_CLASS);
- $TESTED_CLASS = 'Value::Single';
-
- use_ok('Tester');
- use_ok($TESTED_CLASS);
- }
-
-# Debug output explicit ON switch
-#Tester::DEBUG_ON();
-
-# Debug output explicit OFF switch
-#Tester::DEBUG_OFF();
-
-# User should know, which version is beeing tested (just for sure)
-diag("$TESTED_CLASS version: " . $Value::Single::VERSION) if Tester::D();
-
-# Now attempt to create a class instance and check it
-my $instance1 = $TESTED_CLASS->new(500);
-isa_ok($instance1, $TESTED_CLASS);
-
-# View the created instance
-diag("Instance dump 01: " . Dumper($instance1)) if Tester::D();
-
-is($instance1->to_numeric(), 500, 'Instance 1 test 01');
-is($instance1->to_string(), 500, 'Instance 1 test 02');
-is($instance1->TO_JSON(), 500, 'Instance 1 test 03');
-is("$instance1", 500, 'Instance 1 test 04');
-
-my $instance2 = $TESTED_CLASS->new(5000);
-isa_ok($instance2, $TESTED_CLASS);
-
-# View the created instance
-diag("Instance dump 02: " . Dumper($instance2)) if Tester::D();
-
-is($instance2->to_numeric(), 5000, 'Instance 2 test 01');
-is($instance2->to_string(), 5000, 'Instance 2 test 02');
-is($instance2->TO_JSON(), 5000, 'Instance 2 test 03');
-is("$instance2", 5000, 'Instance 2 test 04');
-
-is($instance1 < $instance2, 1, 'Comparison test 01');
-is($instance1 > $instance2, '', 'Comparison test 02');
-is($instance1 <= $instance2, 1, 'Comparison test 03');
-is($instance1 >= $instance2, '', 'Comparison test 04');
-is($instance1 == $instance2, '', 'Comparison test 05');
-is($instance1 != $instance2, 1, 'Comparison test 06');
-is($instance1 <=> $instance2, -1, 'Comparison test 07');
-is($instance1 lt $instance2, 1, 'Comparison test 08');
-is($instance1 gt $instance2, '', 'Comparison test 09');
-is($instance1 le $instance2, 1, 'Comparison test 10');
-is($instance1 ge $instance2, '', 'Comparison test 11');
-is($instance1 eq $instance2, '', 'Comparison test 12');
-is($instance1 ne $instance2, 1, 'Comparison test 13');
-is($instance1 cmp $instance2, -1, 'Comparison test 14');
-
-is($instance2 < $instance1, '', 'Comparison test 15');
-is($instance2 > $instance1, 1, 'Comparison test 16');
-is($instance2 <= $instance1, '', 'Comparison test 17');
-is($instance2 >= $instance1, 1, 'Comparison test 18');
-is($instance2 == $instance1, '', 'Comparison test 19');
-is($instance2 != $instance1, 1, 'Comparison test 20');
-is($instance2 <=> $instance1, 1, 'Comparison test 21');
-is($instance2 lt $instance1, '', 'Comparison test 22');
-is($instance2 gt $instance1, 1, 'Comparison test 23');
-is($instance2 le $instance1, '', 'Comparison test 24');
-is($instance2 ge $instance1, 1, 'Comparison test 25');
-is($instance2 eq $instance1, '', 'Comparison test 26');
-is($instance2 ne $instance1, 1, 'Comparison test 27');
-is($instance2 cmp $instance1, 1, 'Comparison test 28');
-
-is($instance2 < 500, '', 'Comparison test 29');
-is($instance2 > 500, 1, 'Comparison test 30');
-is($instance2 <= 500, '', 'Comparison test 31');
-is($instance2 >= 500, 1, 'Comparison test 32');
-is($instance2 == 500, '', 'Comparison test 33');
-is($instance2 != 500, 1, 'Comparison test 34');
-is($instance2 <=> 500, 1, 'Comparison test 35');
-is($instance2 lt 500, '', 'Comparison test 36');
-is($instance2 gt 500, 1, 'Comparison test 37');
-is($instance2 le 500, '', 'Comparison test 38');
-is($instance2 ge 500, 1, 'Comparison test 39');
-is($instance2 eq 500, '', 'Comparison test 40');
-is($instance2 ne 500, 1, 'Comparison test 41');
-is($instance2 cmp 500, 1, 'Comparison test 42');
-
-is(500 < $instance2, 1, 'Comparison test 43');
-is(500 > $instance2, '', 'Comparison test 44');
-is(500 <= $instance2, 1, 'Comparison test 45');
-is(500 >= $instance2, '', 'Comparison test 45');
-is(500 == $instance2, '', 'Comparison test 47');
-is(500 != $instance2, 1, 'Comparison test 48');
-is(500 <=> $instance2, -1, 'Comparison test 49');
-is(500 lt $instance2, 1, 'Comparison test 50');
-is(500 gt $instance2, '', 'Comparison test 51');
-is(500 le $instance2, 1, 'Comparison test 52');
-is(500 ge $instance2, '', 'Comparison test 53');
-is(500 eq $instance2, '', 'Comparison test 54');
-is(500 ne $instance2, 1, 'Comparison test 55');
-is(500 cmp $instance2, -1, 'Comparison test 56');
diff --git a/lib_perl/tests/unit/t/Value.Tempus.t b/lib_perl/tests/unit/t/Value.Tempus.t
deleted file mode 100644
index 6309665..0000000
--- a/lib_perl/tests/unit/t/Value.Tempus.t
+++ /dev/null
@@ -1,64 +0,0 @@
-#!/usr/bin/perl -T
-
-use strict;
-use warnings;
-
-#*******************************************************************************
-# Value::Tempus module/class tests
-#
-# Author: Jan Mach, jan.mach@cesnet.cz
-# Version: 0.1
-# Purpose:
-#
-#*******************************************************************************
-
-use Data::Dumper;
-#use Smart::Comments;
-
-use Test::More tests => 32;
-
-# First test if the module correctly compiles
-BEGIN {
- use vars qw($TESTED_CLASS);
- $TESTED_CLASS = 'Value::Tempus';
-
- use_ok('Tester');
- use_ok('Value::Convertor');
- use_ok($TESTED_CLASS);
- }
-
-# Debug output explicit ON switch
-#Tester::DEBUG_ON();
-
-# Debug output explicit OFF switch
-#Tester::DEBUG_OFF();
-
-# User should know, which version is beeing tested (just for sure)
-diag("$TESTED_CLASS version: " . $Value::Tempus::VERSION) if Tester::D();
-
-# Define all IP addresses to be tested
-my @TSS = (
- ['2013-05-28 08:34:46Z', 'Value::Timestamp', '2013-05-28 08:34:46Z'],
- [1369730086, 'Value::Timestamp', '2013-05-28 08:34:46Z'],
- ['0xd54eeaa6.0x0', 'Value::Timestamp', '2013-05-28 08:34:46Z'],
- ['2013-05-28 08:34:46Z-2013-05-28 18:34:46Z', 'Value::Period', '2013-05-28 08:34:46Z..2013-05-28 18:34:46Z'],
- ['2013-05-28 08:34:46Z..2013-05-28 18:34:46Z', 'Value::Period', '2013-05-28 08:34:46Z..2013-05-28 18:34:46Z'],
- ['2013-05-28 08:34:46Z - 2013-05-28 18:34:46Z', 'Value::Period', '2013-05-28 08:34:46Z..2013-05-28 18:34:46Z'],
- ['2013-05-28 08:34:46Z .. 2013-05-28 18:34:46Z', 'Value::Period', '2013-05-28 08:34:46Z..2013-05-28 18:34:46Z'],
- );
-
-my $instance;
-foreach my $TS (@TSS)
-{
- $instance = $TESTED_CLASS->new($TS->[0]);
- isa_ok($instance, $TS->[1]);
- is($instance->to_string(), $TS->[2], "Instance $TS->[0] test 01");
- is($instance->TO_JSON(), $TS->[2], "Instance $TS->[0] test 02");
- is("$instance", $TS->[2], "Instance $TS->[0] test 03");
-
- diag("Instance $TS->[1] dump: " . Dumper($instance)) if Tester::D();
-}
-
-$instance = $TESTED_CLASS->new('2013-05-28 08:34:46Z');
-my $t1 = Value::Convertor->datetime_to_nbi('2013-05-28 08:34:46Z');
-is(Value::Convertor->datetime_to_nbi($instance), $t1, 'Convertor conversion test 01');
diff --git a/lib_perl/tests/unit/t/Value.Timestamp.t b/lib_perl/tests/unit/t/Value.Timestamp.t
deleted file mode 100644
index e5431f9..0000000
--- a/lib_perl/tests/unit/t/Value.Timestamp.t
+++ /dev/null
@@ -1,209 +0,0 @@
-#!/usr/bin/perl -T
-
-use strict;
-use warnings;
-
-#*******************************************************************************
-# Value::Timestamp module/class tests
-#
-# Author: Jan Mach, jan.mach@cesnet.cz
-# Version: 0.1
-# Purpose:
-#
-#*******************************************************************************
-
-use Data::Dumper;
-#use Smart::Comments;
-
-use Test::More tests => 146;
-
-# First test if the module correctly compiles
-BEGIN {
- use vars qw($TESTED_CLASS);
- $TESTED_CLASS = 'Value::Timestamp';
-
- use_ok('Tester');
- use_ok('Value::Convertor');
- use_ok($TESTED_CLASS);
- }
-
-# Debug output explicit ON switch
-#Tester::DEBUG_ON();
-
-# Debug output explicit OFF switch
-#Tester::DEBUG_OFF();
-
-# User should know, which version is beeing tested (just for sure)
-diag("$TESTED_CLASS version: " . $Value::Timestamp::VERSION) if Tester::D();
-
-# Now attempt to create a class instance and check it
-my $instance1 = $TESTED_CLASS->new('2013-04-18T08:28:37Z');
-isa_ok($instance1, $TESTED_CLASS);
-
-# View the created instance
-diag("Instance dump 01: " . Dumper($instance1)) if Tester::D();
-
-#-------------------------------------------------------------------------------
-# The object internally uses Value::Convertor::datetime_to_nbi conversion, so we should
-# test that it accepts all possible value types:
-my %TSs = (
- 'A' => {
- 'str' => '2013-05-28 08:34:46Z', # UTC timestamp string
- 'unixs' => 1369730086, # Unix timestamp
- 'ntps' => '0xd54eeaa6.0x0', # NTP timestamp
- 'nbi' => Math::BigInt->new(15370480576947552256), # NTP timestamp in bigint form
- },
- 'B' => {
- 'str' => '2013-04-18 10:28:37Z',
- 'unixs' => 1366280917,
- 'ntps' => '0xd51a4955.0x0',
- 'nbi' => Math::BigInt->new(15355666508894175232),
- },
- 'C' => {
- 'str' => '2013-05-28 11:58:14Z',
- 'unixs' => 1369742294,
- 'ntps' => '0xd54f1a56.0x0',
- 'nbi' => Math::BigInt->new(15370533009908301824),
- },
- );
-
-my $instance_a;
-my $instance_b;
-my $instance_c;
-foreach my $TS (sort keys(%TSs))
-{
- $instance_a = $TESTED_CLASS->new($TSs{$TS}->{'str'});
- isa_ok($instance_a, $TESTED_CLASS);
- is($instance_a->to_numeric(), $TSs{$TS}->{'nbi'}, "Instance $TS:a test 01");
- is($instance_a->to_string(), $TSs{$TS}->{'str'}, "Instance $TS:a test 02");
- is($instance_a->TO_JSON(), $TSs{$TS}->{'str'}, "Instance $TS:a test 03");
- is("$instance_a", $TSs{$TS}->{'str'}, "Instance $TS:a test 04");
-
- $instance_b = $TESTED_CLASS->new($TSs{$TS}->{'unixs'});
- isa_ok($instance_b, $TESTED_CLASS);
- is($instance_b->to_numeric(), $TSs{$TS}->{'nbi'}, "Instance $TS:b test 01");
- is($instance_b->to_string(), $TSs{$TS}->{'str'}, "Instance $TS:b test 02");
- is($instance_b->TO_JSON(), $TSs{$TS}->{'str'}, "Instance $TS:b test 03");
- is("$instance_b", $TSs{$TS}->{'str'}, "Instance $TS:b test 04");
-
- $instance_c = $TESTED_CLASS->new($TSs{$TS}->{'ntps'});
- isa_ok($instance_c, $TESTED_CLASS);
- is($instance_c->to_numeric(), $TSs{$TS}->{'nbi'}, "Instance $TS:c test 01");
- is($instance_c->to_string(), $TSs{$TS}->{'str'}, "Instance $TS:c test 02");
- is($instance_c->TO_JSON(), $TSs{$TS}->{'str'}, "Instance $TS:c test 03");
- is("$instance_c", $TSs{$TS}->{'str'}, "Instance $TS:c test 04");
-}
-
-#-------------------------------------------------------------------------------
-# Check all possible ways of specifying the datetime string
-my @DTs = (
- ['2013-02-03 14:55', Math::BigInt->new(15328259390570496000)],
- ['2013-02-03T14:55', Math::BigInt->new(15328259390570496000)],
- ['2013-02-03 14:55Z', Math::BigInt->new(15328274852452761600)],
- ['2013-02-03T14:55Z', Math::BigInt->new(15328274852452761600)],
- ['2013-02-03 14:55:12', Math::BigInt->new(15328259442110103552)],
- ['2013-02-03T14:55:12', Math::BigInt->new(15328259442110103552)],
- ['2013-02-03 14:55:12Z', Math::BigInt->new(15328274903992369152)],
- ['2013-02-03T14:55:12Z', Math::BigInt->new(15328274903992369152)],
- ['2013-02-03 14:55+0100', Math::BigInt->new(15328259390570496000)],
- ['2013-02-03T14:55+0100', Math::BigInt->new(15328259390570496000)],
- ['2013-02-03 14:55:12+0100', Math::BigInt->new(15328259442110103552)],
- ['2013-02-03T14:55:12+0100', Math::BigInt->new(15328259442110103552)],
- ['2013-02-03 14:55-0100', Math::BigInt->new(15328290314335027200)],
- ['2013-02-03T14:55-0100', Math::BigInt->new(15328290314335027200)],
- ['2013-02-03 14:55:12-0100', Math::BigInt->new(15328290365874634752)],
- ['2013-02-03T14:55:12-0100', Math::BigInt->new(15328290365874634752)],
- );
-
-my $instance;
-foreach my $DT (@DTs)
-{
- $instance = $TESTED_CLASS->new($DT->[0]);
- isa_ok($instance, $TESTED_CLASS);
- is($instance->to_numeric(), $DT->[1], "Instance $DT->[1] test");
-}
-
-#-------------------------------------------------------------------------------
-# Create couple of other instances and test the comparison functions
-{
-use bigint;
-is($instance1->to_numeric(), 15355635585129644032, 'Instance 1 test 01');
-is($instance1->to_string(), '2013-04-18 08:28:37Z', 'Instance 1 test 02');
-is($instance1->TO_JSON(), '2013-04-18 08:28:37Z', 'Instance 1 test 03');
-is("$instance1", '2013-04-18 08:28:37Z', 'Instance 1 test 04');
-}
-
-# Now attempt to create a class instance and check it
-my $instance2 = $TESTED_CLASS->new('2013-04-18 10:28:37Z');
-isa_ok($instance2, $TESTED_CLASS);
-
-# View the created instance
-diag("Instance dump 02: " . Dumper($instance2)) if Tester::D();
-
-{
-use bigint;
-is($instance2->to_numeric(), 15355666508894175232, 'Instance 2 test 01');
-is($instance2->to_string(), '2013-04-18 10:28:37Z', 'Instance 2 test 02');
-is($instance2->TO_JSON(), '2013-04-18 10:28:37Z', 'Instance 2 test 03');
-is("$instance2", '2013-04-18 10:28:37Z', 'Instance 2 test 04');
-}
-
-is($instance1 < $instance2, 1, 'Comparison test 01');
-is($instance1 > $instance2, '', 'Comparison test 02');
-is($instance1 <= $instance2, 1, 'Comparison test 03');
-is($instance1 >= $instance2, '', 'Comparison test 04');
-is($instance1 == $instance2, '', 'Comparison test 05');
-is($instance1 != $instance2, 1, 'Comparison test 06');
-is($instance1 <=> $instance2, -1, 'Comparison test 07');
-is($instance1 lt $instance2, 1, 'Comparison test 08');
-is($instance1 gt $instance2, '', 'Comparison test 09');
-is($instance1 le $instance2, 1, 'Comparison test 10');
-is($instance1 ge $instance2, '', 'Comparison test 11');
-is($instance1 eq $instance2, '', 'Comparison test 12');
-is($instance1 ne $instance2, 1, 'Comparison test 13');
-is($instance1 cmp $instance2, -1, 'Comparison test 14');
-
-is($instance2 < $instance1, '', 'Comparison test 15');
-is($instance2 > $instance1, 1, 'Comparison test 16');
-is($instance2 <= $instance1, '', 'Comparison test 17');
-is($instance2 >= $instance1, 1, 'Comparison test 18');
-is($instance2 == $instance1, '', 'Comparison test 19');
-is($instance2 != $instance1, 1, 'Comparison test 20');
-is($instance2 <=> $instance1, 1, 'Comparison test 21');
-is($instance2 lt $instance1, '', 'Comparison test 22');
-is($instance2 gt $instance1, 1, 'Comparison test 23');
-is($instance2 le $instance1, '', 'Comparison test 24');
-is($instance2 ge $instance1, 1, 'Comparison test 25');
-is($instance2 eq $instance1, '', 'Comparison test 26');
-is($instance2 ne $instance1, 1, 'Comparison test 27');
-is($instance2 cmp $instance1, 1, 'Comparison test 28');
-
-is($instance2 < '2013-04-18T08:28:37Z', '', 'Comparison test 29');
-is($instance2 > '2013-04-18T08:28:37Z', 1, 'Comparison test 30');
-is($instance2 <= '2013-04-18T08:28:37Z', '', 'Comparison test 31');
-is($instance2 >= '2013-04-18T08:28:37Z', 1, 'Comparison test 32');
-is($instance2 == '2013-04-18T08:28:37Z', '', 'Comparison test 33');
-is($instance2 != '2013-04-18T08:28:37Z', 1, 'Comparison test 34');
-is($instance2 <=> '2013-04-18T08:28:37Z', 1, 'Comparison test 35');
-is($instance2 lt '2013-04-18T08:28:37Z', '', 'Comparison test 36');
-is($instance2 gt '2013-04-18T08:28:37Z', 1, 'Comparison test 37');
-is($instance2 le '2013-04-18T08:28:37Z', '', 'Comparison test 38');
-is($instance2 ge '2013-04-18T08:28:37Z', 1, 'Comparison test 39');
-is($instance2 eq '2013-04-18T08:28:37Z', '', 'Comparison test 40');
-is($instance2 ne '2013-04-18T08:28:37Z', 1, 'Comparison test 41');
-is($instance2 cmp '2013-04-18T08:28:37Z', 1, 'Comparison test 42');
-
-is('2013-04-18T08:28:37Z' < $instance2, 1, 'Comparison test 43');
-is('2013-04-18T08:28:37Z' > $instance2, '', 'Comparison test 44');
-is('2013-04-18T08:28:37Z' <= $instance2, 1, 'Comparison test 45');
-is('2013-04-18T08:28:37Z' >= $instance2, '', 'Comparison test 45');
-is('2013-04-18T08:28:37Z' == $instance2, '', 'Comparison test 47');
-is('2013-04-18T08:28:37Z' != $instance2, 1, 'Comparison test 48');
-is('2013-04-18T08:28:37Z' <=> $instance2, -1, 'Comparison test 49');
-is('2013-04-18T08:28:37Z' lt $instance2, 1, 'Comparison test 50');
-is('2013-04-18T08:28:37Z' gt $instance2, '', 'Comparison test 51');
-is('2013-04-18T08:28:37Z' le $instance2, 1, 'Comparison test 52');
-is('2013-04-18T08:28:37Z' ge $instance2, '', 'Comparison test 53');
-is('2013-04-18T08:28:37Z' eq $instance2, '', 'Comparison test 54');
-is('2013-04-18T08:28:37Z' ne $instance2, 1, 'Comparison test 55');
-is('2013-04-18T08:28:37Z' cmp $instance2, -1, 'Comparison test 56');
diff --git a/lib_perl/tests/unit/test b/lib_perl/tests/unit/test
deleted file mode 100755
index 896c25f..0000000
--- a/lib_perl/tests/unit/test
+++ /dev/null
@@ -1,23 +0,0 @@
-#!/bin/bash
-
-#*******************************************************************************
-# CTTT LAUNCHER SCRIPT
-#*******************************************************************************
-
-# Try to find the cttt tool in system
-CTTT=`/usr/bin/which cttt`
-# Try to autodetect the cttt location
-if [ "X$CTTT" != "X" ] ; then
- $CTTT $@
-# Check system package location
-elif [ -x "/usr/local/bin/cttt" ] ; then
- /usr/local/bin/cttt $@
-# It might be installed from TAR package
-elif [ -x "/opt/libcesnet-toolkit-perl/bin/cttt" ] ; then
- /opt/libcesnet-toolkit-perl/bin/cttt $@
-# Or we might be in development environment
-elif [ -x "../../bin/cttt" ] ; then
- ../../bin/cttt $@
-else
- echo "ERROR: cttt utility script was not found on the system" 1>&2
-fi
diff --git a/lib_perl/tests/unit/test.conf b/lib_perl/tests/unit/test.conf
deleted file mode 100644
index 0faf073..0000000
--- a/lib_perl/tests/unit/test.conf
+++ /dev/null
@@ -1,37 +0,0 @@
-{
- "name": "libidea",
-
- "tests": [
- ["Value::Convertor", "t/Value.Convertor.t"],
-
- ["Value::Single", "t/Value.Single.t"],
- ["Value::IPv4ADDR", "t/Value.IPv4ADDR.t"],
- ["Value::IPv6ADDR", "t/Value.IPv6ADDR.t"],
- ["Value::Timestamp", "t/Value.Timestamp.t"],
- ["Value::Duration", "t/Value.Duration.t"],
- ["Value::Range", "t/Value.Range.t"],
- ["Value::IPv4CIDR", "t/Value.IPv4CIDR.t"],
- ["Value::IPv4NETM", "t/Value.IPv4NETM.t"],
- ["Value::IPv4RNG", "t/Value.IPv4RNG.t"],
- ["Value::Period", "t/Value.Period.t"],
- ["Value::IP", "t/Value.IP.t"],
- ["Value::Tempus", "t/Value.Tempus.t"],
-
- ["Mentat::MPath::Parser", "t/Mentat.MPath.Parser.t"],
-
- ["Mentat::Message::Value", "t/Mentat.Message.Value.t"],
- ["Mentat::Message::Value::IDEA", "t/Mentat.Message.Value.IDEA.t"],
-
- ["Mentat::Message", "t/Mentat.Message.t"],
- ["Mentat::Message::IDEA", "t/Mentat.Message.IDEA.t"],
-
- ["Mentat::Message::Factory", "t/Mentat.Message.Factory.t"],
- ["Mentat::Message::Builder", "t/Mentat.Message.Builder.t"],
- ["Mentat::Message::Builder::IDEA", "t/Mentat.Message.Builder.IDEA.t"],
-
- ["Mentat::Message::Validator", "t/Mentat.Message.Validator.t"],
- ["Mentat::Message::Validator::IDEA", "t/Mentat.Message.Validator.IDEA.t"],
-
- ["Mentat::Handyman", "t/Mentat.Handyman.t"]
- ]
-}
diff --git a/lib_python/lib/ipranges/LICENSE b/lib_python/lib/ipranges/LICENSE
deleted file mode 100644
index 3b58557..0000000
--- a/lib_python/lib/ipranges/LICENSE
+++ /dev/null
@@ -1,13 +0,0 @@
-Copyright (c) 2016, CESNET, z. s. p. o.
-
-Permission to use, copy, modify, and/or distribute this software for any
-purpose with or without fee is hereby granted, provided that the above
-copyright notice and this permission notice appear in all copies.
-
-THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
-WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
-MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
-ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
-WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
-ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
-OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
\ No newline at end of file
diff --git a/lib_python/lib/ipranges/Makefile b/lib_python/lib/ipranges/Makefile
deleted file mode 100644
index fa28678..0000000
--- a/lib_python/lib/ipranges/Makefile
+++ /dev/null
@@ -1,62 +0,0 @@
-#-------------------------------------------------------------------------------
-# Copyright (c) since 2016, CESNET, z. s. p. o.
-# Authors: Pavel Kácha <pavel.kacha@cesnet.cz>
-# Jan Mach <jan.mach@cesnet.cz>
-# Use of this source is governed by an ISC license, see LICENSE file.
-#-------------------------------------------------------------------------------
-
-all: archive bdist deploy
-
-build: archive bdist
-
-help:
- $(info List of possible make targets:)
- $(info )
- $(info * all: archive previous packages, build new distribution and deploy to PyPI [default])
- $(info * build: archive previous packages and build new distribution)
- $(info * test: run unit tests)
- $(info * archive: archive previous packages)
- $(info * bdist: build new distribution)
- $(info * install: install distribution on local machine)
- $(info * deploy: deploy to PyPI)
- $(info )
-
-# Perform unit tests
-test: FORCE
- $(info Testing source code)
- nosetests
-
-# Move old distribution files to archive directory
-archive: FORCE
- $(info Checking if dist archivation is needed)
- @if ! [ `ls dist/ipranges* | wc -l` = "0" ]; then\
- echo "Moving old distribution files to local archive";\
- mv -f dist/ipranges* archive;\
- fi
-
-# Build various Python package distributions
-bdist:
- $(info Building distributions)
-
- # Build and upload (insecure)
- #python3 setup.py sdist bdist_wheel upload
-
- # Build only
- python3 setup.py sdist bdist_wheel --universal
-
-# Perform installation from local files for both Python 2 and 3
-install: FORCE
- $(info Local installation)
- pip install dist/ipranges*.whl
- pip3 install dist/ipranges*.whl
-
-# Deploy latest packages to PyPI
-deploy: FORCE
- $(info PyPI deployment)
-
- # Secure upload with Twine
- twine upload dist/ipranges*
-
-# Empty rule as dependency wil force make to always perform target
-# Source: https://www.gnu.org/software/make/manual/html_node/Force-Targets.html
-FORCE:
diff --git a/lib_python/lib/ipranges/README.rst b/lib_python/lib/ipranges/README.rst
deleted file mode 100644
index 95a313a..0000000
--- a/lib_python/lib/ipranges/README.rst
+++ /dev/null
@@ -1,8 +0,0 @@
-ipranges
-================================================================================
-
-Python 2 and 3 compatible library for working with IPv4 and IPv6 addressess in
-many notations (sible IP, CIDR, range).
-
-This README file is work in progress, for more information please visit home page
-at https://idea.cesnet.cz/en/index.
diff --git a/lib_python/lib/ipranges/archive/.gitignore b/lib_python/lib/ipranges/archive/.gitignore
deleted file mode 100644
index 5e7d273..0000000
--- a/lib_python/lib/ipranges/archive/.gitignore
+++ /dev/null
@@ -1,4 +0,0 @@
-# Ignore everything in this directory
-*
-# Except this file
-!.gitignore
diff --git a/lib_python/lib/ipranges/dist/.gitignore b/lib_python/lib/ipranges/dist/.gitignore
deleted file mode 100644
index 5e7d273..0000000
--- a/lib_python/lib/ipranges/dist/.gitignore
+++ /dev/null
@@ -1,4 +0,0 @@
-# Ignore everything in this directory
-*
-# Except this file
-!.gitignore
diff --git a/lib_python/lib/ipranges/ipranges.py b/lib_python/lib/ipranges/ipranges.py
deleted file mode 100644
index c366071..0000000
--- a/lib_python/lib/ipranges/ipranges.py
+++ /dev/null
@@ -1,267 +0,0 @@
-#!/usr/bin/python
-# -*- coding: utf-8 -*-
-#
-# Copyright (c) 2016, CESNET, z. s. p. o.
-# Use of this source is governed by an ISC license, see LICENSE file.
-
-__version__ = '0.1.7'
-__author__ = 'Pavel Kácha <pavel.kacha@cesnet.cz>'
-
-import socket
-import struct
-import numbers
-
-try:
- basestring
-except NameError:
- basestring = str
-
-class Range(object):
- __slots__ = ()
-
- single = int
-
- def __len__(self):
- return self.high() - self.low() + 1
-
- def __eq__(self, other):
- return (self.low() == other.low() and self.high() == other.high())
-
- def __ne__(self, other):
- return not self.__eq__(other)
-
- def __contains__(self, other):
- return (self.low() <= other.low() and self.high() >= other.high())
-
- def __iter__(self):
- for i in range(self.low(), self.high()+1):
- yield self.util.single(i)
-
- def __getitem__(self, key):
- if isinstance(key, slice):
- return (self.util.single(self.low() + i) for i in range(*key.indices(len(self))))
- else:
- if key < 0:
- idx = self.high() + key + 1
- else:
- idx = self.low() + key
- if self.low() <= idx <= self.high():
- return self.util.single(idx)
- else:
- raise IndexError
-
- def __repr__(self):
- return "%s('%s')" % (type(self).__name__, str(self))
-
-
-class IPBase(Range):
- __slots__ = ()
-
- def __init__(self, s):
- if isinstance(s, basestring):
- rng = self._from_str(s)
- elif isinstance(s, IPBase):
- rng = self._from_range(s)
- else:
- rng = self._from_val(s)
- self._assign(rng)
-
- def cidr_split(self):
- lo, hi = self.low(), self.high()
- lo, hi = min(lo, hi), max(lo, hi)
- while lo<=hi:
- lower_bits = (~lo & (lo-1)).bit_length()
- size = hi - lo + 1
- size_bits = size.bit_length() - 1
- bits = min(lower_bits, size_bits)
- yield self.util.net((lo, self.util.bit_length-bits))
- lo += 1 << bits
-
- def _from_val(self, v):
- try:
- a, b = v
- return int(a), int(b)
- except Exception:
- raise ValueError("Two value tuple expected, got %s" % v)
-
-
-class IPRangeBase(IPBase):
- __slots__ = ("lo", "hi")
-
- def _from_range(self, r):
- return (r.low(), r.high())
-
- def _from_str(self, s):
- try:
- ip1, ip2 = s.split("-")
- return (self.util.from_str(ip1), self.util.from_str(ip2))
- except Exception:
- raise ValueError("Wrong range format: %s" % s)
-
- def _assign(self, v):
- self.lo = min(v)
- self.hi = max(v)
-
- def low(self): return self.lo
-
- def high(self): return self.hi
-
- def __str__(self):
- return "%s-%s" % (self.util.to_str(self.lo), self.util.to_str(self.hi))
-
-
-class IPNetBase(IPBase):
- __slots__ = ("base", "cidr", "mask")
-
- def _from_range(self, r):
- lo = r.low()
- mask = len(r) - 1
- if (len(r) & mask) or (lo & mask):
- raise ValueError("%s is not a proper network prefix" % r)
- return lo, self.util.bit_length - mask.bit_length()
-
- def _from_str(self, s):
- try:
- net, cidr = s.split("/")
- base = self.util.from_str(net)
- cidr = int(cidr)
- return base, cidr
- except Exception:
- raise ValueError("Wrong network format: %s" % s)
-
- def _assign(self, v):
- self.base, self.cidr = v
- self.mask = (self.util.full_mask << (self.util.bit_length - self.cidr)) & self.util.full_mask
-
- def low(self): return self.base & self.mask
-
- def high(self): return self.base | (self.mask ^ self.util.full_mask)
-
- def __str__(self):
- return "%s/%i" % (self.util.to_str(self.base), self.cidr)
-
-
-class IPAddrBase(IPBase):
- __slots__ = ("ip")
-
- def _from_range(self, r):
- if len(r)!=1:
- raise ValueError("Unable to convert network %s to one ip address" % r)
- return r.low()
-
- def _from_str(self, s): return self.util.from_str(s)
-
- def _from_val(self, r):
- try:
- return int(r)
- except Exception:
- raise ValueError("Integer expected as IP")
-
- def _assign(self, v): self.ip = v
-
- def __str__(self): return self.util.to_str(self.ip)
-
- def __int__(self): return self.ip
-
- def low(self): return self.ip
-
- def high(self): return self.ip
-
-
-class IP4Util(object):
- __slots__ = ()
-
- bit_length = 32
- full_mask = 2**bit_length-1
-
- @staticmethod
- def from_str(s):
- try:
- return struct.unpack("!L", socket.inet_pton(socket.AF_INET, s))[0]
- except Exception:
- raise ValueError("Wrong IPv4 address format: %s" % s)
-
- @staticmethod
- def to_str(i):
- try:
- return socket.inet_ntop(socket.AF_INET, struct.pack('!L', i))
- except Exception:
- raise ValueError("Unable to convert to IPv6 address: %s" % i)
-
-
-class IP6Util(object):
- __slots__ = ()
-
- bit_length = 128
- full_mask = 2**bit_length-1
-
- @staticmethod
- def from_str(s):
- try:
- hi, lo = struct.unpack("!QQ", socket.inet_pton(socket.AF_INET6, s))
- return hi << 64 | lo
- except Exception:
- raise ValueError("Wrong IPv6 address format: %s" % s)
-
- @staticmethod
- def to_str(i):
- try:
- hi = i >> 64
- lo = i & 0xFFFFFFFFFFFFFFFF
- return socket.inet_ntop(socket.AF_INET6, struct.pack('!QQ', hi, lo))
- except Exception:
- raise ValueError("Unable to convert to IPv6 address: %s" % i)
-
-
-class IP4(IPAddrBase):
- __slots__ = ()
- util = IP4Util
-
-class IP6(IPAddrBase):
- __slots__ = ()
- util = IP6Util
-
-class IP4Range(IPRangeBase):
- __slots__ = ()
- util = IP4Util
-
-class IP6Range(IPRangeBase):
- __slots__ = ()
- util = IP6Util
-
-class IP4Net(IPNetBase):
- __slots__ = ()
- util = IP4Util
-
-class IP6Net(IPNetBase):
- __slots__ = ()
- util = IP6Util
-
-IP4Util.single = IP4
-IP6Util.single = IP6
-IP4Util.net = IP4Net
-IP6Util.net = IP6Net
-
-def from_str(s):
- for t in IP4Net, IP4Range, IP4, IP6Net, IP6Range, IP6:
- try:
- return t(s)
- except ValueError:
- pass
- raise ValueError("%s does not appear as IP address, network or range string" % s)
-
-def from_str_v4(s):
- for t in IP4Net, IP4Range, IP4:
- try:
- return t(s)
- except ValueError:
- pass
- raise ValueError("%s does not appear as IPv4 address, network or range string" % s)
-
-def from_str_v6(s):
- for t in IP6Net, IP6Range, IP6:
- try:
- return t(s)
- except ValueError:
- pass
- raise ValueError("%s does not appear as IPv6 address, network or range string" % s)
diff --git a/lib_python/lib/ipranges/setup.py b/lib_python/lib/ipranges/setup.py
deleted file mode 100644
index 6c6abe0..0000000
--- a/lib_python/lib/ipranges/setup.py
+++ /dev/null
@@ -1,47 +0,0 @@
-#!/usr/bin/python3
-# -*- coding: utf-8 -*-
-#-------------------------------------------------------------------------------
-# Copyright (c) since 2016, CESNET, z. s. p. o.
-# Authors: Pavel Kácha <pavel.kacha@cesnet.cz>
-# Jan Mach <jan.mach@cesnet.cz>
-# Use of this source is governed by an ISC license, see LICENSE file.
-#-------------------------------------------------------------------------------
-
-# Resources:
-# https://packaging.python.org/en/latest/
-# http://python-packaging-user-guide.readthedocs.io/distributing/
-
-# Always prefer setuptools over distutils
-from setuptools import setup, find_packages
-# To use a consistent encoding
-from codecs import open
-from os import path
-
-here = path.abspath(path.dirname(__file__))
-
-# Get the long description from the README file
-with open(path.join(here, 'README.rst'), encoding='utf-8') as f:
- long_description = f.read()
-
-setup(
- name = 'ipranges',
- version = '0.1.7',
- description = 'Python library for working with IP addressess.',
- long_description = long_description,
- classifiers = [
- 'Development Status :: 4 - Beta',
- 'License :: OSI Approved :: ISC License (ISCL)',
- 'Programming Language :: Python',
- ],
- keywords = 'library',
- url = 'https://homeproj.cesnet.cz/git/idea.git',
- author = 'Pavel Kacha',
- author_email = 'pavel.kacha@cesnet.cz',
- license = 'ISC',
- py_modules = ['ipranges'],
- test_suite = 'nose.collector',
- tests_require = [
- 'nose'
- ],
- zip_safe = True
-)
diff --git a/lib_python/lib/ipranges/test_ipranges.py b/lib_python/lib/ipranges/test_ipranges.py
deleted file mode 100755
index 90b4b05..0000000
--- a/lib_python/lib/ipranges/test_ipranges.py
+++ /dev/null
@@ -1,272 +0,0 @@
-#!/usr/bin/python
-# -*- coding: utf-8 -*-
-#
-# Copyright (c) 2016, CESNET, z. s. p. o.
-# Use of this source is governed by an ISC license, see LICENSE file.
-
-import unittest
-from ipranges import IP4, IP6, IP4Range, IP6Range, IP4Net, IP6Net, from_str
-
-class TestIPRange(unittest.TestCase):
-
- def testIP4(self):
- for ip in ["0.0.0.0", "192.0.2.100", "255.255.255.255"]:
- self.assertEqual(str(IP4(ip)), ip)
-
- def testIP4Fail(self):
- for ip in ["", "-", "/", "0", "123", "1.2.3.4.5"]:
- with self.assertRaises(ValueError):
- IP4(ip)
-
- def testIP6(self):
- for ip in ["::", "2001:db8:220:1:248:1893:25c8:1946", "ffff:ffff:ffff:ffff:ffff:ffff:ffff:ffff"]:
- self.assertEqual(str(IP6(ip)), ip)
-
- def testIP6Fail(self):
- for ip in ["", "-", "/", "0", "123", "1:2::3::"]:
- with self.assertRaises(ValueError):
- IP6(ip)
-
- def testIP4Range(self):
- for r in ["0.0.0.0-255.255.255.255", "192.0.2.64-192.0.2.127", "192.0.2.5-192.0.2.5"]:
- self.assertEqual(str(IP4Range(r)), r)
-
- def testIP4RangeFail(self):
- for r in ["", "0.0.0.0", "asdf"]:
- with self.assertRaises(ValueError):
- IP4Range(r)
-
- def testIP4RangeFail2(self):
- for r in ["192.0.2.64-", "-192.0.2.5", "-"]:
- with self.assertRaises(ValueError):
- IP4Range(r)
-
- def testIP6Range(self):
- for r in ["::-ffff:ffff:ffff:ffff:ffff:ffff:ffff:ffff", "2001:db8:220:1:248:1893:25c8:1946-2001:db8:230:1:248:1893:25c8:1946", "2001:db8:230::25c8:1946-2001:db8:230::25c8:1946"]:
- self.assertEqual(str(IP6Range(r)), r)
-
- def testIP6RangeFail(self):
- for r in ["", "::", "asdf"]:
- with self.assertRaises(ValueError):
- IP6Range(r)
-
- def testIP6RangeFail2(self):
- for r in ["2001:db8:220:1:248:1893:25c8:1946-", "-2001:db8:220:1:248:1893:25c8:1946", "-"]:
- with self.assertRaises(ValueError):
- IP6Range(r)
-
- def testIP4Net(self):
- for n in ["0.0.0.0/0", "192.0.2.64/26", "192.0.2.5/32"]:
- self.assertEqual(str(IP4Net(n)), n)
-
- def testIP4NetFail(self):
- for r in ["", "0.0.0.0", "asdf", "192.0.2.64/", "192.0.2.64/?"]:
- with self.assertRaises(ValueError):
- IP4Net(r)
-
- def testIP4NetFail2(self):
- for r in ["/26", "/"]:
- with self.assertRaises(ValueError):
- IP4Net(r)
-
- def testIP6Net(self):
- for n in ["::/0", "2001:db8:220:1::/64", "2001:db8:230::25c8:1946/32"]:
- self.assertEqual(str(IP6Net(n)), n)
-
- def testIP6NetFail(self):
- for r in ["", "0.0.0.0", "asdf", "2001:db8:220:1::/", "2001:db8:220:1::/?"]:
- with self.assertRaises(ValueError):
- IP6Net(r)
-
- def testIP6NetFail2(self):
- for r in ["/26", "/"]:
- with self.assertRaises(ValueError):
- IP6Net(r)
-
- def test4SameNetRange(self):
- net1 = IP4Net("192.0.2.64/26")
- net2 = IP4Range("192.0.2.64-192.0.2.127")
- self.assertTrue(net1 == net2)
- self.assertFalse(net1 != net2)
-
- def test4SameOne(self):
- ip1 = IP4Net("192.0.2.65/32")
- ip2 = IP4Range("192.0.2.65-192.0.2.65")
- ip3 = IP4("192.0.2.65")
- self.assertTrue(ip1 == ip2)
- self.assertTrue(ip2 == ip3)
- self.assertTrue(ip1 == ip3)
- self.assertFalse(ip1 != ip2)
- self.assertFalse(ip2 != ip3)
- self.assertFalse(ip1 != ip3)
-
- def test6SameNetRange(self):
- net1 = IP6Net("2001:db8:220:1::/64")
- net2 = IP6Range("2001:db8:220:1::-2001:db8:220:1:ffff:ffff:ffff:ffff")
- self.assertTrue(net1 == net2)
- self.assertFalse(net1 != net2)
-
- def test6SameOne(self):
- ip1 = IP6Net("2001:db8:220:1:248:1893:25c8:1946/128")
- ip2 = IP6Range("2001:db8:220:1:248:1893:25c8:1946-2001:db8:220:1:248:1893:25c8:1946")
- ip3 = IP6("2001:db8:220:1:248:1893:25c8:1946")
- self.assertTrue(ip1 == ip2)
- self.assertTrue(ip2 == ip3)
- self.assertTrue(ip1 == ip3)
- self.assertFalse(ip1 != ip2)
- self.assertFalse(ip2 != ip3)
- self.assertFalse(ip1 != ip3)
-
- def test4Contains(self):
- self.assertTrue(IP4Net("192.0.2.64/28") in IP4Net("192.0.2.64/26"))
- self.assertTrue(IP4Net("192.0.2.64/28") in IP4Range("192.0.2.64-192.0.2.127"))
- self.assertTrue(IP4Net("192.0.2.65/32") in IP4("192.0.2.65"))
-
- self.assertTrue(IP4Range("192.0.2.65-192.0.2.126") in IP4Range("192.0.2.64-192.0.2.127"))
- self.assertTrue(IP4Range("192.0.2.65-192.0.2.126") in IP4Net("192.0.2.64/26"))
- self.assertTrue(IP4Range("192.0.2.65-192.0.2.65") in IP4("192.0.2.65"))
-
- self.assertTrue(IP4("192.0.2.65") in IP4Range("192.0.2.64-192.0.2.127"))
- self.assertTrue(IP4("192.0.2.65") in IP4Net("192.0.2.64/26"))
- self.assertTrue(IP4("192.0.2.65") in IP4("192.0.2.65"))
-
- def test6Contains(self):
- self.assertTrue(IP6Net("2001:db8:220:1::/64") in IP6Net("2001:db8:220:1::/64"))
- self.assertTrue(IP6Net("2001:db8:220:1::/64") in IP6Range("2001:db8:220:1::-2001:db8:220:1:ffff:ffff:ffff:ffff"))
- self.assertTrue(IP6Net("2001:db8:220:1:248:1893:25c8:1946/128") in IP6("2001:db8:220:1:248:1893:25c8:1946"))
-
- self.assertTrue(IP6Range("2001:db8:220:1::-2001:db8:220:1:ffff:ffff:ffff:ffff") in IP6Range("2001:db8:220:1::-2001:db8:220:1:ffff:ffff:ffff:ffff"))
- self.assertTrue(IP6Range("2001:db8:220:1::-2001:db8:220:1:ffff:ffff:ffff:ffff") in IP6Net("2001:db8:220:1::/64"))
- self.assertTrue(IP6Range("2001:db8:220:1:248:1893:25c8:1946-2001:db8:220:1:248:1893:25c8:1946") in IP6("2001:db8:220:1:248:1893:25c8:1946"))
-
- self.assertTrue(IP6("2001:db8:220:1:248:1893:25c8:1946") in IP6Range("2001:db8:220:1::-2001:db8:220:1:ffff:ffff:ffff:ffff"))
- self.assertTrue(IP6("2001:db8:220:1:248:1893:25c8:1946") in IP6Net("2001:db8:220:1::/64"))
- self.assertTrue(IP6("2001:db8:220:1:248:1893:25c8:1946") in IP6("2001:db8:220:1:248:1893:25c8:1946"))
-
- def test4Iter(self):
- self.assertEqual(
- tuple(str(ip) for ip in IP4Net("192.0.2.64/30")),
- ("192.0.2.64", "192.0.2.65", "192.0.2.66", "192.0.2.67"))
- self.assertEqual(
- tuple(str(ip) for ip in IP4Range("192.0.2.64-192.0.2.67")),
- ("192.0.2.64", "192.0.2.65", "192.0.2.66", "192.0.2.67"))
- self.assertEqual(
- tuple(str(ip) for ip in IP4("192.0.2.65")),
- ("192.0.2.65",))
-
- def test6Iter(self):
- self.assertEqual(
- tuple(str(ip) for ip in IP6Net("2001:db8:220:1:248:1893:25c8:1944/126")),
- ("2001:db8:220:1:248:1893:25c8:1944",
- "2001:db8:220:1:248:1893:25c8:1945",
- "2001:db8:220:1:248:1893:25c8:1946",
- "2001:db8:220:1:248:1893:25c8:1947"))
- self.assertEqual(
- tuple(str(ip) for ip in IP6Range("2001:db8:220:1:248:1893:25c8:1944-2001:db8:220:1:248:1893:25c8:1947")),
- ("2001:db8:220:1:248:1893:25c8:1944",
- "2001:db8:220:1:248:1893:25c8:1945",
- "2001:db8:220:1:248:1893:25c8:1946",
- "2001:db8:220:1:248:1893:25c8:1947"))
- self.assertEqual(
- tuple(str(ip) for ip in IP6("2001:db8:220:1:248:1893:25c8:1947")),
- ("2001:db8:220:1:248:1893:25c8:1947",))
-
- def testGetItem(self):
- for rng in (
- IP4Range("192.0.2.64-192.0.2.67"),
- IP4Net("192.0.2.64/30"),
- IP4("192.0.2.65"),
- IP6Range("2001:db8:220:1:248:1893:25c8:1944-2001:db8:220:1:248:1893:25c8:1947"),
- IP6Net("2001:db8:220:1:248:1893:25c8:1944/126"),
- IP6("2001:db8:220:1:248:1893:25c8:1947")):
- for idx in (0, -1):
- res = [str(rng[i]) for i in range(len(rng))][idx]
- res2 = str(rng[idx])
- self.assertEqual(res, res2)
-
- def testGetSlice(self):
- for rng in (
- IP4Range("192.0.2.64-192.0.2.67"),
- IP4Net("192.0.2.64/30"),
- IP4("192.0.2.65"),
- IP6Range("2001:db8:220:1:248:1893:25c8:1944-2001:db8:220:1:248:1893:25c8:1947"),
- IP6Net("2001:db8:220:1:248:1893:25c8:1944/126"),
- IP6("2001:db8:220:1:248:1893:25c8:1947")):
- for idx in (slice(None, None, None), slice(-3, -1), slice(0, -1, 2)):
- res = [str(rng[i]) for i in range(len(rng))][idx]
- res2 = [str(ip) for ip in rng[idx]]
- self.assertEqual(res, res2)
-
- def testConvToIP(self):
- self.assertEqual(IP4(IP4Range("192.0.2.64-192.0.2.64")), IP4("192.0.2.64"))
- self.assertEqual(IP4(IP4Net("192.0.2.64/32")), IP4("192.0.2.64"))
- with self.assertRaises(ValueError):
- IP4(IP4Net("192.0.2.64/30"))
-
- self.assertEqual(IP6(IP6Range("2001:db8:220:1:248:1893:25c8:1944-2001:db8:220:1:248:1893:25c8:1944")), IP6("2001:db8:220:1:248:1893:25c8:1944"))
- self.assertEqual(IP6(IP6Net("2001:db8:220:1:248:1893:25c8:1944/128")), IP6("2001:db8:220:1:248:1893:25c8:1944"))
- with self.assertRaises(ValueError):
- IP6(IP6Net("2001:db8:220:1:248:1893:25c8:1944/126"))
-
- def testConvToNet(self):
- self.assertEqual(IP4Net(IP4Range("192.0.2.64-192.0.2.127")), IP4Net("192.0.2.64/26"))
- self.assertEqual(IP4Net(IP4("192.0.2.64")), IP4Net("192.0.2.64/32"))
- with self.assertRaises(ValueError):
- IP4Net(IP4Range("192.0.2.64-192.0.2.120"))
-
- self.assertEqual(IP4Net(IP4Range("192.0.2.64-192.0.2.127")), IP4Net("192.0.2.64/26"))
- self.assertEqual(IP4Net(IP4("192.0.2.64")), IP4Net("192.0.2.64/32"))
- with self.assertRaises(ValueError):
- IP4Net(IP4Range("192.0.2.64-192.0.2.120"))
-
- self.assertEqual(IP6Net(IP6Range("2001:db8:220:1:248:1893:25c8:1944-2001:db8:220:1:248:1893:25c8:1947")), IP6Net("2001:db8:220:1:248:1893:25c8:1944/126"))
- self.assertEqual(IP6Net(IP6("2001:db8:220:1:248:1893:25c8:1947")), IP6Net("2001:db8:220:1:248:1893:25c8:1947/128"))
- with self.assertRaises(ValueError):
- IP6Net(IP6Range("2001:db8:220:1:248:1893:25c8:1944-2001:db8:220:1:248:1893:25c8:1948"))
-
- def testFromStr(self):
- fs = from_str("192.0.2.64")
- obj = IP4("192.0.2.64")
- self.assertEqual(fs, obj)
- self.assertTrue(isinstance(fs, IP4))
-
- fs = from_str("192.0.2.64-192.0.2.127")
- obj = IP4Range("192.0.2.64-192.0.2.127")
- self.assertEqual(fs, obj)
- self.assertTrue(isinstance(fs, IP4Range))
-
- fs = from_str("192.0.2.64/26")
- obj = IP4Net("192.0.2.64/26")
- self.assertEqual(fs, obj)
- self.assertTrue(isinstance(fs, IP4Net))
-
- fs = from_str("2001:db8:220:1:248:1893:25c8:1947")
- obj = IP6("2001:db8:220:1:248:1893:25c8:1947")
- self.assertEqual(fs, obj)
- self.assertTrue(isinstance(fs, IP6))
-
- fs = from_str("2001:db8:220:1:248:1893:25c8:1944-2001:db8:220:1:248:1893:25c8:1947")
- obj = IP6Range("2001:db8:220:1:248:1893:25c8:1944-2001:db8:220:1:248:1893:25c8:1947")
- self.assertEqual(fs, obj)
- self.assertTrue(isinstance(fs, IP6Range))
-
- fs = from_str("2001:db8:220:1:248:1893:25c8:1947/128")
- obj = IP6Net("2001:db8:220:1:248:1893:25c8:1947/128")
- self.assertEqual(fs, obj)
- self.assertTrue(isinstance(fs, IP6Net))
-
- def testFromStrInvalid(self):
- with self.assertRaises(ValueError):
- from_str("192.0.2.500")
- with self.assertRaises(ValueError):
- from_str(":::")
- with self.assertRaises(ValueError):
- from_str("asdf")
- with self.assertRaises(ValueError):
- from_str("-")
- with self.assertRaises(ValueError):
- from_str("/")
-
-
-if __name__ == "__main__":
- unittest.main()
diff --git a/lib_python/lib/typedcols/LICENSE b/lib_python/lib/typedcols/LICENSE
deleted file mode 100644
index 3b58557..0000000
--- a/lib_python/lib/typedcols/LICENSE
+++ /dev/null
@@ -1,13 +0,0 @@
-Copyright (c) 2016, CESNET, z. s. p. o.
-
-Permission to use, copy, modify, and/or distribute this software for any
-purpose with or without fee is hereby granted, provided that the above
-copyright notice and this permission notice appear in all copies.
-
-THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
-WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
-MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
-ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
-WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
-ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
-OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
\ No newline at end of file
diff --git a/lib_python/lib/typedcols/Makefile b/lib_python/lib/typedcols/Makefile
deleted file mode 100644
index 3b73ca3..0000000
--- a/lib_python/lib/typedcols/Makefile
+++ /dev/null
@@ -1,62 +0,0 @@
-#-------------------------------------------------------------------------------
-# Copyright (c) since 2016, CESNET, z. s. p. o.
-# Authors: Pavel Kácha <pavel.kacha@cesnet.cz>
-# Jan Mach <jan.mach@cesnet.cz>
-# Use of this source is governed by an ISC license, see LICENSE file.
-#-------------------------------------------------------------------------------
-
-all: archive bdist deploy
-
-build: archive bdist
-
-help:
- $(info List of possible make targets:)
- $(info )
- $(info * all: archive previous packages, build new distribution and deploy to PyPI [default])
- $(info * build: archive previous packages and build new distribution)
- $(info * test: run unit tests)
- $(info * archive: archive previous packages)
- $(info * bdist: build new distribution)
- $(info * install: install distribution on local machine)
- $(info * deploy: deploy to PyPI)
- $(info )
-
-# Perform unit tests
-test: FORCE
- $(info Testing source code)
- nosetests
-
-# Move old distribution files to archive directory
-archive: FORCE
- $(info Checking if dist archivation is needed)
- @if ! [ `ls dist/typedcols* | wc -l` = "0" ]; then\
- echo "Moving old distribution files to local archive";\
- mv -f dist/typedcols* archive;\
- fi
-
-# Build various Python package distributions
-bdist:
- $(info Building distributions)
-
- # Build and upload (insecure)
- #python3 setup.py sdist bdist_wheel upload
-
- # Build only
- python3 setup.py sdist bdist_wheel --universal
-
-# Perform installation from local files for both Python 2 and 3
-install: FORCE
- $(info Local installation)
- pip install dist/typedcols*.whl
- pip3 install dist/typedcols*.whl
-
-# Deploy latest packages to PyPI
-deploy: FORCE
- $(info PyPI deployment)
-
- # Secure upload with Twine
- twine upload dist/typedcols*
-
-# Empty rule as dependency wil force make to always perform target
-# Source: https://www.gnu.org/software/make/manual/html_node/Force-Targets.html
-FORCE:
diff --git a/lib_python/lib/typedcols/README.rst b/lib_python/lib/typedcols/README.rst
deleted file mode 100644
index c443fc8..0000000
--- a/lib_python/lib/typedcols/README.rst
+++ /dev/null
@@ -1,7 +0,0 @@
-typedcols
-================================================================================
-
-Python 2 and 3 compatible library providing typed collections.
-
-This README file is work in progress, for more information please visit home page
-at https://idea.cesnet.cz/en/index.
diff --git a/lib_python/lib/typedcols/archive/.gitignore b/lib_python/lib/typedcols/archive/.gitignore
deleted file mode 100644
index 5e7d273..0000000
--- a/lib_python/lib/typedcols/archive/.gitignore
+++ /dev/null
@@ -1,4 +0,0 @@
-# Ignore everything in this directory
-*
-# Except this file
-!.gitignore
diff --git a/lib_python/lib/typedcols/dist/.gitignore b/lib_python/lib/typedcols/dist/.gitignore
deleted file mode 100644
index 5e7d273..0000000
--- a/lib_python/lib/typedcols/dist/.gitignore
+++ /dev/null
@@ -1,4 +0,0 @@
-# Ignore everything in this directory
-*
-# Except this file
-!.gitignore
diff --git a/lib_python/lib/typedcols/setup.py b/lib_python/lib/typedcols/setup.py
deleted file mode 100644
index a34b822..0000000
--- a/lib_python/lib/typedcols/setup.py
+++ /dev/null
@@ -1,47 +0,0 @@
-#!/usr/bin/python3
-# -*- coding: utf-8 -*-
-#-------------------------------------------------------------------------------
-# Copyright (c) since 2016, CESNET, z. s. p. o.
-# Authors: Pavel Kácha <pavel.kacha@cesnet.cz>
-# Jan Mach <jan.mach@cesnet.cz>
-# Use of this source is governed by an ISC license, see LICENSE file.
-#-------------------------------------------------------------------------------
-
-# Resources:
-# https://packaging.python.org/en/latest/
-# http://python-packaging-user-guide.readthedocs.io/distributing/
-
-# Always prefer setuptools over distutils
-from setuptools import setup, find_packages
-# To use a consistent encoding
-from codecs import open
-from os import path
-
-here = path.abspath(path.dirname(__file__))
-
-# Get the long description from the README file
-with open(path.join(here, 'README.rst'), encoding='utf-8') as f:
- long_description = f.read()
-
-setup(
- name = 'typedcols',
- version = '0.1.7',
- description = 'Python library providing typed collections.',
- long_description = long_description,
- classifiers = [
- 'Development Status :: 4 - Beta',
- 'License :: OSI Approved :: ISC License (ISCL)',
- 'Programming Language :: Python',
- ],
- keywords = 'library',
- url = 'https://homeproj.cesnet.cz/git/idea.git',
- author = 'Pavel Kacha',
- author_email = 'pavel.kacha@cesnet.cz',
- license = 'ISC',
- py_modules = ['typedcols'],
- test_suite = 'nose.collector',
- tests_require = [
- 'nose'
- ],
- zip_safe = True
-)
diff --git a/lib_python/lib/typedcols/test_typedcols.py b/lib_python/lib/typedcols/test_typedcols.py
deleted file mode 100755
index c9f845e..0000000
--- a/lib_python/lib/typedcols/test_typedcols.py
+++ /dev/null
@@ -1,164 +0,0 @@
-#!/usr/bin/python
-# -*- coding: utf-8 -*-
-#
-# Copyright (c) 2016, CESNET, z. s. p. o.
-# Use of this source is governed by an ISC license, see LICENSE file.
-
-from typedcols import TypedDict, TypedList, KeyNotAllowed, KeysRequired, Discard, Any
-from sys import version_info
-import unittest
-
-
-class AddressDict(TypedDict):
- typedef = {
- "street": {"type": str},
- "num": {"type": int, "description": "Street number"},
- "city": str,
- "state": {"type": str, "required": True}
- }
- allow_unknown = True
-
-def raise_discard(x=None):
- raise Discard
-
-class PersonDict(TypedDict):
- typedef = {
- "name": {"type": str, "default": "_Default_Value_"},
- "age": int,
- "address": {"type": AddressDict},
- "tel": {"type": int, "required": True},
- "note": {},
- "discard1": Discard,
- "discard2": {"type": Discard, "default": "asdf"},
- "discard3": lambda x: Discard,
- "discard4": raise_discard,
- "discard_default1": {"type": Any, "default": Discard}, # Same as no default
- "discard_default2": {"type": Any, "default": raise_discard}, # Same as no default
- }
- allow_unknown = False
-
-
-# Monkeypatching for cheap Py 2 & 3 compatibility
-if not hasattr(unittest.TestCase, "assertRaisesRegex"):
- unittest.TestCase.assertRaisesRegex = unittest.TestCase.assertRaisesRegexp
-
-
-class TestTypedDict(unittest.TestCase):
-
- def setUp(self):
- self.person = PersonDict({
- "age": "34",
- "note": None,
- "address": {
- "street": "Vrchlikova",
- "num": 12.3,
- "city": "Kocourkov"
- },
- "discard1": "junk",
- "discard2": "garbage",
- "discard3": "rubbish",
- "discard4": "scrap"
- })
-
- def testTypedefNormalization(self):
- self.assertEqual(self.person.typedef["age"], {"type": int})
-
- def testInit(self):
- self.assertEqual(self.person, {
- "name": "_Default_Value_",
- "age": 34,
- "note": None,
- "address": {
- "street": "Vrchlikova",
- "num": 12,
- "city": "Kocourkov"}})
-
- def testSetGetKnownOk(self):
- self.person["address"]["city"] = "Brno"
- self.assertEqual(self.person["address"]["city"], "Brno")
-
- def testSetKnownBadType(self):
- with self.assertRaisesRegex(ValueError, r"\(\('num',\), \"invalid literal for int\(\) with base 10: 'WRONG'\", 'Street number'\)"):
- self.person["address"]["num"] = "WRONG"
-
- def testUpdate(self):
- self.person.clear()
- with self.assertRaisesRegex(ValueError, r"\(\('age',\), \"invalid literal for int\(\) with base 10: 'bla'\"\)"):
- self.person.update({
- "age": "bla"
- })
-
- def testUpdateNested(self):
- self.person.clear()
- with self.assertRaisesRegex(ValueError, r"\(\('address', 'num'\), \"invalid literal for int\(\) with base 10: 'asdf'\", 'Street number'\)"):
- self.person.update({
- "address": {
- "num": "asdf"
- }
- })
-
- def testRequired(self):
- with self.assertRaises(KeysRequired):
- self.person.checkRequired()
-
- def testUnknown(self):
- with self.assertRaisesRegex(KeyNotAllowed, r'unknown'):
- self.person["unknown"] = "WRONG"
-
- def testDel(self):
- del self.person["address"]["city"]
- with self.assertRaisesRegex(KeyError, r"'city'"):
- self.person["address"]["city"]
-
- def testDelDefault(self):
- del self.person["name"]
- self.assertEqual(self.person["name"], "_Default_Value_")
-
- def testIter(self):
- try:
- it = self.person.iteritems()
- except AttributeError:
- it = self.person.items()
- res = sorted([v for v in it])
- self.assertEqual(res, [
- ("address", {"city": "Kocourkov", "street": "Vrchlikova", "num": 12}),
- ("age", 34),
- ("name", "_Default_Value_"),
- ("note", None)
- ])
-
-class IntList(TypedList):
- item_type = int
-
-
-class TestTypedList(unittest.TestCase):
-
- def setUp(self):
- self.intlist = IntList((1, 2.1, "3"))
-
- def testInit(self):
- self.assertEqual(list(self.intlist), [1, 2, 3])
-
- def testSetGetKnownOk(self):
- self.intlist[2] = "4"
- self.assertEqual(self.intlist[-1], 4)
-
- def testSetKnownBadType(self):
- with self.assertRaisesRegex(ValueError, r"invalid literal for int\(\) with base 10: 'WRONG'"):
- self.intlist[2] = "WRONG"
-
- def testDel(self):
- del self.intlist[1]
- self.assertEqual(list(self.intlist), [1, 3])
-
- def testDelOutOfBounds(self):
- with self.assertRaisesRegex(IndexError, r"list assignment index out of range"):
- del self.intlist[3]
-
- def testIter(self):
- res = [val for val in self.intlist]
- self.assertEqual(res, [1, 2, 3])
-
-
-if __name__ == '__main__':
- unittest.main()
diff --git a/lib_python/lib/typedcols/typedcols.py b/lib_python/lib/typedcols/typedcols.py
deleted file mode 100644
index e26ab15..0000000
--- a/lib_python/lib/typedcols/typedcols.py
+++ /dev/null
@@ -1,290 +0,0 @@
-#!/usr/bin/python
-# -*- coding: utf-8 -*-
-#
-# Copyright (c) 2016, CESNET, z. s. p. o.
-# Use of this source is governed by an ISC license, see LICENSE file.
-
-"""Simple typed collections library.
-
-Defines TypedDict and TypedList, which enforce inserted types based on simple
-type definition.
-"""
-
-__version__ = '0.1.7'
-__author__ = 'Pavel Kácha <pavel.kacha@cesnet.cz>'
-
-import collections
-import abc
-
-
-class KeyNotAllowed(LookupError):
- """ Raised when untyped key is inserted on type, which does not allow
- for untyped keys.
- """
-
-
-class KeysRequired(LookupError):
- """ Raised when required keys are missing in dictionary (usually on the
- call of checkRequired method.
- """
-
-class Discard(Exception):
- """ Sentinel class to signal expected dropping of the key.
- Can be returned or raised from type enforcing callable,
- and can itself be used as type enforcing callable.
- """
-
- @classmethod
- def __call__(cls, x=None):
- return cls
-
-def Any(v):
- return v
-
-
-class TypedDictMetaclass(abc.ABCMeta):
- """ Metaclass for TypedDict, allowing simplified typedefs - if typedef is not
- dict, simple type object is assumed and correct dict is created.
- Metaclassed to be run just once for the class, not for each instance.
- """
-
- def dictifyTypedef(self, typedef):
- for key in typedef:
- tdef = typedef[key]
- if not isinstance(tdef, collections.Mapping):
- typedef[key] = {"type": tdef}
-
- def __init__(cls, name, bases, dct):
- super(TypedDictMetaclass, cls).__init__(name, bases, dct)
- cls.dictifyTypedef(cls.typedef)
-
-
-class TypedDict(collections.MutableMapping):
- """ Dictionary type abstract class, which supports checking of inserted
- types, based on simple type definition.
-
- Must be subclassed, and subclass must populate 'typedef' dict, and may
- also reassign allow_unknown and dict_class class attributes.
-
- typedef: dictionary with keys and their type definitions. Type definition
- may be simple callable (int, string, check_func,
- AnotherTypedDict), or dict with the following members:
- "type":
- type enforcing callable. If callable returns, raises
- or is Discard, key will be silently discarded
- "default":
- new TypedDict subclass will be initialized with keys
- with this value; deleted keys will also revert to it
- "required":
- bool, checkRequired method will report the key if not present
- "description":
- string, explaining field type in human readable terms
- (will be used in exception explanations)
- Type enforcing callable must take one argument, and return value,
- coerced to expected type. Coercion may even be conversion, for example
- arbitrary date string, converted to DateTime.
-
- allow_unknown: boolean, specifies whether dictionary allows unknown keys,
- that means keys, which are not defined in 'typedef'
-
- dict_class: class or factory for underlying dict implementation
- """
-
- typedef = {}
- allow_unknown = False
- dict_class = dict
-
- def __init__(self, init_data=None):
- self.data = self.dict_class()
- self.clear()
- self.update(init_data or {})
-
- def clear(self):
- self.data.clear()
- for key in self.typedef.keys():
- self.initItemDefault(key)
-
- def initItemDefault(self, key):
- """ Sets 'key' to the default value from typedef (if defined) """
- tdef = self.getTypedef(key)
- try:
- default = tdef["default"]
- except KeyError:
- pass
- else:
- if default is Discard:
- return
- try:
- # Call if callable
- default = default()
- except Discard:
- return
- except TypeError:
- pass
- self[key] = default
-
- def getTypedef(self, key):
- """ Get type definition for 'key'.
- If key is not defined and allow_unknown is True, empty
- definition is returned, otherwise KeyNotAllowed gets raised.
- """
- tdef = {}
- try:
- tdef = self.typedef[key]
- except KeyError:
- if not self.allow_unknown:
- raise KeyNotAllowed(key)
- return tdef
-
- def checkRequired(self):
- """ The class does not check missing items by itself (we need it to
- be incomplete during creation and manipulation), so this checks
- and return list of missing required keys explicitly.
-
- Note that the check is not recursive (as instance dictionary
- may contain another subclasses of TypedDict), so care must
- be taken if there is such concern.
- """
- missing = ()
- for key, tdef in self.typedef.items():
- if tdef.get("required", False) and not key in self.data:
- missing = missing + (key,)
- if missing:
- raise KeysRequired(missing)
-
- def __setitem__(self, key, value):
- """ Setter with type coercion.
- Any exception, raised from type enforcing callable, will get
- modified - first .arg will be tuple of key hierarchy, last
- .arg will be message from "description" field in type definition
- """
- tdef = self.getTypedef(key)
- valuetype = tdef.get("type", Any)
- if valuetype is Discard:
- return
- try:
- fvalue = valuetype(value)
- except Discard:
- return
- except Exception as e:
- if isinstance(e.args[0], tuple):
- e.args = ((key,) + e.args[0],) + e.args[1:]
- else:
- e.args = ((key,),) + e.args
- if len(e.args) < 3:
- desc = tdef.get("description", None)
- if desc is not None:
- e.args = e.args + (desc,)
- raise
- if fvalue is Discard:
- return
- self.data[key] = fvalue
-
- def __getitem__(self, key):
- return self.data[key]
-
- def __delitem__(self, key):
- """ Deleter with reverting to defaults """
- del self.data[key]
- self.initItemDefault(key)
-
- # Following definitions are not strictly necessary as MutableMapping
- # already defines them, however we can override them by calling to
- # possibly more optimized underlying implementations.
- def __iter__(self): return iter(self.data)
-
- def itervalues(self): return self.data.itervalues()
-
- def iteritems(self): return self.data.iteritems()
-
- def keys(self): return self.data.keys()
-
- def values(self): return self.data.values()
-
- def __len__(self): return len(self.data)
-
- def __str__(self): return "%s(%s)" % (type(self).__name__, str(self.data))
-
- def __repr__(self): return "%s(%s)" % (type(self).__name__, repr(self.data))
-
-
-# Py 2 requires metaclassing by __metaclass__ attribute, whereas Py 3
-# needs metaclass argument. What actually happens is the following,
-# so we will do it explicitly, to be compatible with both versions.
-TypedDict = TypedDictMetaclass("TypedDict", (TypedDict,), {})
-
-
-class TypedList(collections.MutableSequence):
- """ List type abstract class, which supports checking of inserted items
- type.
-
- Must be subclassed, and subclass must populate 'item_type' class
- variable, and may also reassign list_class class attributes.
-
- item_type: type enforcing callable, wich must take one argument, and
- return value, coerced to expected type. Coercion may even be
- conversion, for example arbitrary date string, converted to
- DateTime. Because defined within class, Python authomatically
- makes it object method, so it must be wrapped in staticmethod(...)
- explicitly.
- list_class: class or factory for underlying list implementation
- """
-
- item_type = staticmethod(Any)
- list_class = list
-
- def __init__(self, iterable):
- self.data = self.list_class()
- self.extend(iterable)
-
- def __getitem__(self, val): return self.data[val]
-
- def __delitem__(self, val): del self.data[val]
-
- def __len__(self): return len(self.data)
-
- def __setitem__(self, idx, val):
- tval = self.item_type(val)
- self.data[idx] = tval
-
- def insert(self, idx, val):
- tval = self.item_type(val)
- self.data.insert(idx, tval)
-
- # Following definitions are not strictly necessary as MutableSequence
- # already defines them, however we can override them by calling to
- # possibly more optimized underlying implementations.
-
- def __contains__(self, val):
- tval = self.item_type(val)
- return tval in self.data
-
- def index(self, val):
- tval = self.item_type(val)
- return self.data.index(tval)
-
- def count(self, val):
- tval = self.item_type(val)
- return self.data.count(tval)
-
- def __iter__(self): return iter(self.data)
-
- def reverse(self): return self.data.reverse()
-
- def __reversed__(self): return reversed(self.data)
-
- def pop(self, index=-1): return self.data.pop(index)
-
- def __str__(self): return "%s(%s)" % (type(self).__name__, str(self.data))
-
- def __repr__(self): return "%s(%s)" % (type(self).__name__, repr(self.data))
-
-
-def typed_list(name, item_type):
- """ Helper for oneshot type definition """
- return type(name, (TypedList,), dict(item_type=staticmethod(item_type)))
-
-
-def typed_dict(name, allow_unknown, typedef):
- """ Helper for oneshot type definition """
- return type(name, (TypedDict,), dict(allow_unknown=allow_unknown, typedef=typedef))
diff --git a/meta.json b/meta.json
deleted file mode 100644
index 6af2717..0000000
--- a/meta.json
+++ /dev/null
@@ -1,9 +0,0 @@
-{
- "name": "libidea",
- "version_minor": 19,
- "version_major": "0.0",
- "architecture": "all",
- "server": "homeproj",
- "server_dir_deb": "/var/reps/apt/mentat/incoming/squeeze/",
- "server_dir_tar": "/var/reps/tar/mentat/"
-}
\ No newline at end of file
diff --git a/package.json b/package.json
deleted file mode 100644
index 280f737..0000000
--- a/package.json
+++ /dev/null
@@ -1,18 +0,0 @@
-{
- "name": "libidea",
- "version": "0.0.1",
- "devDependencies": {
- "grunt": "~0.4.5",
- "grunt-contrib-clean": "~0.6.0",
- "grunt-contrib-concat": "~0.5.1",
- "grunt-contrib-copy": "~0.8.0",
- "grunt-contrib-rename": "0.0.3",
- "grunt-ftp-deploy": "~0.1.10",
- "grunt-shell": "~1.1.2",
- "load-grunt-tasks": "~3.2.0",
- "npm-shrinkwrap": "~5.4.0",
- "time-grunt": "~1.2.1",
- "grunt-template": "~0.2.3",
- "grunt-chmod": "~1.1.1"
- }
-}
diff --git a/lib_python/lib/idea-format/setup.py b/setup.py
similarity index 100%
rename from lib_python/lib/idea-format/setup.py
rename to setup.py
diff --git a/lib_python/lib/idea-format/test_idea.py b/test_idea.py
similarity index 100%
rename from lib_python/lib/idea-format/test_idea.py
rename to test_idea.py
--
GitLab