monitoring/NOT-USED/README | 6
monitoring/NOT-USED/scdb_accessor_perl/BUILD | 46 -
monitoring/NOT-USED/scdb_accessor_perl/BUILD.spec | 116 ---
monitoring/NOT-USED/scdb_accessor_perl/NOCpulse/SCDB/Accessor.pm | 350 ---------
monitoring/NOT-USED/scdb_accessor_perl/README | 112 --
monitoring/NOT-USED/scdb_accessor_perl/version | 1
monitoring/NOT-USED/tsdb_accessor_perl/BUILD | 47 -
monitoring/NOT-USED/tsdb_accessor_perl/BUILD.spec | 117 ---
monitoring/NOT-USED/tsdb_accessor_perl/NOCpulse/TSDB/Accessor.pm | 375 ----------
monitoring/NOT-USED/tsdb_accessor_perl/README | 111 --
monitoring/NOT-USED/tsdb_accessor_perl/version | 1
11 files changed, 1282 deletions(-)
New commits:
commit 61aafb8691e2165d2e29e72a978d7ea2e61529e0
Author: Jan Pazdziora <jpazdziora(a)redhat.com>
Date: Tue Jan 31 15:30:30 2012 +0100
Purging old NOT-USED stuff.
diff --git a/monitoring/NOT-USED/README b/monitoring/NOT-USED/README
deleted file mode 100644
index 492ef5f..0000000
--- a/monitoring/NOT-USED/README
+++ /dev/null
@@ -1,6 +0,0 @@
-These packages are not used now. But the code can be usefull one day.
-Since we are owner of this code and it can not be get from anywhere else
-pleas keep it here and do not delete it.
-
---
-msuchy
diff --git a/monitoring/NOT-USED/scdb_accessor_perl/BUILD
b/monitoring/NOT-USED/scdb_accessor_perl/BUILD
deleted file mode 100644
index 751c38f..0000000
--- a/monitoring/NOT-USED/scdb_accessor_perl/BUILD
+++ /dev/null
@@ -1,46 +0,0 @@
-# Macros
-
-%define cvs_package scdb_accessor_perl
-
-
-# Package specific stuff
-Name: %cvs_package
-Version: 1.3.0
-Release: 1
-Packager: Karen Jacqmin-Adams <kja(a)redhat.com>
-Summary: NOCpulse SCDB perl client
-Source: %name-%PACKAGE_VERSION.tar.gz
-BuildArch: noarch
-Group: unsorted
-Copyright: (c) 2001-2003 Red Hat, Inc. All rights reserved.
-Vendor: Red Hat, Inc.
-Buildroot: %{_tmppath}/%cvs_package
-
-%description
-
-perl library for accessing the SCDB
-
-%prep
-%entirely_abstract_build_step
-
-
-%build
-echo "Nothing to build"
-
-%install
-cd $RPM_PACKAGE_NAME-$RPM_PACKAGE_VERSION
-
-%find_perl_installsitelib
-perl_lib=$installsitelib/NOCpulse/SCDB
-
-mkdir -p $RPM_BUILD_ROOT$perl_lib
-cp NOCpulse/SCDB/Accessor.pm $RPM_BUILD_ROOT$perl_lib
-
-%point_scripts_to_correct_perl
-%make_file_list
-
-
-%files -f %{name}-%{version}-%{release}-filelist
-
-%clean
-%abstract_clean_script
diff --git a/monitoring/NOT-USED/scdb_accessor_perl/BUILD.spec
b/monitoring/NOT-USED/scdb_accessor_perl/BUILD.spec
deleted file mode 100644
index 7f6edf0..0000000
--- a/monitoring/NOT-USED/scdb_accessor_perl/BUILD.spec
+++ /dev/null
@@ -1,116 +0,0 @@
-
-# CVS hacks
-%define cvs_package_prefix old-nocpulse/
-
-# What Perl to use?
-%define perl_prefix /usr
-%define perl %perl_prefix/bin/perl
-%define perlpkg perl-rhnmon
-
-# Macro for cpan documentation
-%define doc_prefix %perl_prefix/share/doc/%name
-%define man_prefix %perl_prefix/man
-
-
-# Macro(s) slavishly copied from autoconf's config.status.
-%define _our_prefix /usr
-%define _our_exec_prefix %{_our_prefix}
-%define _our_bindir %{_our_exec_prefix}/bin
-%define _our_sbindir %{_our_exec_prefix}/sbin
-%define _our_libexecdir %{_our_exec_prefix}/libexec
-%define _our_datadir %{_our_prefix}/share
-%define _our_sysconfdir %{_our_prefix}/etc
-%define _our_sharedstatedir %{_our_prefix}/com
-%define _our_localstatedir %{_our_prefix}/var
-%define _our_lib lib
-%define _our_libdir %{_our_exec_prefix}/%{_lib}
-%define _our_includedir %{_our_prefix}/include
-%define _our_oldincludedir /usr/include
-%define _our_infodir %{_our_prefix}/info
-%define _our_mandir %{_our_prefix}/man
-
-
-# Prep for build. This is entirely abstract - you should not need to change it.
-%define entirely_abstract_build_step rm -rf $RPM_BUILD_ROOT; rm -rf
$RPM_PACKAGE_NAME-$RPM_PACKAGE_VERSION; cvs checkout $RPM_TAG_PARAM
%cvs_package_prefix%cvs_package; [ -n %cvs_package_prefix ] && mkdir -p
%cvs_package && rmdir %cvs_package && ln -s
%cvs_package_prefix%cvs_package %cvs_package ; [ %cvs_package =
$RPM_PACKAGE_NAME-$RPM_PACKAGE_VERSION ] || mv %cvs_package
$RPM_PACKAGE_NAME-$RPM_PACKAGE_VERSION; find $RPM_PACKAGE_NAME-$RPM_PACKAGE_VERSION -type
d -name CVS | xargs rm -rf; tar -cvzf
$RPM_SOURCE_DIR/$RPM_PACKAGE_NAME-$RPM_PACKAGE_VERSION.tar.gz
$RPM_PACKAGE_NAME-$RPM_PACKAGE_VERSION
-
-
-
-%define perl_makefile CFLAGS="$RPM_OPT_FLAGS" %perl Makefile.PL verbose
PREFIX=$RPM_BUILD_ROOT%{prefix}; make OPTIMIZE="$RPM_OPT_FLAGS"
-
-
-
-%define makefile_build cd $RPM_PACKAGE_NAME-$RPM_PACKAGE_VERSION; %perl_makefile
-
-
-# For CPAN modules with a copyright or license that is not GPL or Artistic
-%define cpan_doc_install mkdir -p $RPM_BUILD_ROOT%doc_prefix; [ -e README ] &&
cp README $RPM_BUILD_ROOT%doc_prefix; [ -e COPYING ] && cp COPYING
$RPM_BUILD_ROOT%doc_prefix; [ -e COPYRIGHT ] && cp COPYRIGHT
$RPM_BUILD_ROOT%doc_prefix
-
-
-%define our_makeinstall make prefix=%{?buildroot:%{buildroot}}%{_our_prefix}
exec_prefix=%{?buildroot:%{buildroot}}%{_our_exec_prefix}
bindir=%{?buildroot:%{buildroot}}%{_our_bindir}
sbindir=%{?buildroot:%{buildroot}}%{_our_sbindir}
sysconfdir=%{?buildroot:%{buildroot}}%{_our_sysconfdir}
datadir=%{?buildroot:%{buildroot}}%{_our_datadir}
includedir=%{?buildroot:%{buildroot}}%{_our_includedir}
libdir=%{?buildroot:%{buildroot}}%{_our_libdir}
libexecdir=%{?buildroot:%{buildroot}}%{_our_libexecdir}
localstatedir=%{?buildroot:%{buildroot}}%{_our_localstatedir}
sharedstatedir=%{?buildroot:%{buildroot}}%{_our_sharedstatedir}
mandir=%{?buildroot:%{buildroot}}%{_our_mandir}
infodir=%{?buildroot:%{buildroot}}%{_our_infodir} install
-
-
-
-%define makefile_install eval `%perl '-V:installarchlib'`; mkdir -p
$RPM_BUILD_ROOT$installarchlib; %our_makeinstall; rm -f `find $RPM_BUILD_ROOT -type f
-name perllocal.pod -o -name .packlist`; [ -x /usr/lib/rpm/brp-compress ] &&
/usr/lib/rpm/brp-compress
-
-
-# For the really ugly cases, e.g. PerlModules/CPAN/libwww-perl-5.48
-%define alt_makefile_install mkdir -p $RPM_BUILD_ROOT/%{_our_prefix}/lib; make install
PREFIX=$RPM_BUILD_ROOT; mv $RPM_BUILD_ROOT/lib $RPM_BUILD_ROOT%{_our_prefix}/lib/perl5
-
-
-
-%define find_perl_installsitelib eval `%perl '-V:installsitelib'`; echo
installsitelib is $installsitelib; if [ "$installsitelibX" = "X" ] ;
then echo "ERROR: installsitelib is undefined"; exit 1; fi
-
-
-
-%define point_scripts_to_correct_perl find $RPM_BUILD_ROOT -type f -print | xargs perl
-pi -e 's,^#\\\!/usr/bin/perl,#\\\!%perl, if ($ARGV ne $lf); $lf = $ARGV;'
-
-
-%define make_file_list cd $RPM_BUILD_DIR; find $RPM_BUILD_ROOT -type f -print | sed
"s@^$RPM_BUILD_ROOT@@g" >
$RPM_PACKAGE_NAME-$RPM_PACKAGE_VERSION/%{name}-%{version}-%{release}-filelist; if [
"$(cat
$RPM_PACKAGE_NAME-$RPM_PACKAGE_VERSION/%{name}-%{version}-%{release}-filelist)X" =
"X" ] ; then echo "ERROR: EMPTY FILE LIST"; exit 1; fi
-
-
-%define abstract_clean_script rm -rf $RPM_BUILD_ROOT; cd $RPM_BUILD_DIR; rm -rf
$RPM_PACKAGE_NAME-$RPM_PACKAGE_VERSION; [ -n %cvs_package_prefix ] && [ -e
%cvs_package_prefix ] && rm -rf %cvs_package_prefix; [ -e %cvs_package ]
&& rm -rf %cvs_package; [ -e %{name}-%{version}-%{release}-filelist ] &&
rm %{name}-%{version}-%{release}-filelist
-# Macros
-
-%define cvs_package scdb_accessor_perl
-
-
-# Package specific stuff
-Name: %cvs_package
-Source9999: version
-Version: %(echo `awk '{ print $1 }' %{SOURCE9999}`)
-Release: %(echo `awk '{ print $2 }' %{SOURCE9999}`)
-Summary: NOCpulse SCDB perl client
-Source: %name-%PACKAGE_VERSION.tar.gz
-BuildArch: noarch
-Group: unsorted
-License: GPLv2
-Vendor: Red Hat, Inc.
-Buildroot: %{_tmppath}/%cvs_package
-
-%description
-
-perl library for accessing the SCDB
-
-%prep
-%setup
-
-
-%build
-echo "Nothing to build"
-
-%install
-
-%find_perl_installsitelib
-perl_lib=$installsitelib/NOCpulse/SCDB
-
-mkdir -p $RPM_BUILD_ROOT$perl_lib
-cp NOCpulse/SCDB/Accessor.pm $RPM_BUILD_ROOT$perl_lib
-
-%point_scripts_to_correct_perl
-%make_file_list
-
-
-%files -f %{name}-%{version}-%{release}-filelist
-
-%clean
-%abstract_clean_script
diff --git a/monitoring/NOT-USED/scdb_accessor_perl/NOCpulse/SCDB/Accessor.pm
b/monitoring/NOT-USED/scdb_accessor_perl/NOCpulse/SCDB/Accessor.pm
deleted file mode 100644
index 559af6c..0000000
--- a/monitoring/NOT-USED/scdb_accessor_perl/NOCpulse/SCDB/Accessor.pm
+++ /dev/null
@@ -1,350 +0,0 @@
-
-package NOCpulse::SCDB::Accessor;
-
-use strict;
-use LWP::UserAgent;
-use URI::Escape;
-
-my $BADCHARS = '^-_a-zA-Z0-9';
-
-sub new
-{
- my $class = shift;
- my %args = @_;
-
- my $self = {};
- bless $self, $class;
-
- if( defined $args{'url'} )
- {
- $self->{url} = $args{'url'};
- }
- else
- {
- $self->{host} = $args{'host'} || 'scdb.nocpulse.com';
- $self->{port} = $args{'port'} || 7979;
- }
- $self->{verbose} = $args{'verbose'} || 0;
- $self->{ua} = LWP::UserAgent->new;
-
- return $self;
-}
-
-sub insert
-{
- my $self = shift;
- my %args = @_;
-
- my $request;
-
- if( defined $self->{'url'} )
- {
- $request = HTTP::Request->new('POST', $self->{'url'} .
"/db");
- }
- else
- {
- $request = HTTP::Request->new('POST',
"http://".$self->{host}.":".$self->{port}."/db");
- }
-
- my $v = $args{'desc'};
- $v =~ s/[^-_a-zA-Z0-9]/"%" . sprintf("%02X",ord($&))/ge;
-
- my $content = "fn=insert&oid=".$args{'oid'}.
"&t=".$args{'t'}."&state=".$args{'state'}."&desc=".$v;
-
- $request->content($content);
-
- my $response = $self->{ua}->request($request);
-
- if ($response->is_success)
- {
- print $response->content if ( $self->{verbose} );
- }
- else
- {
- $! = $response->status_line;
- return 0;
- }
-
- return 1;
-}
-
-sub upload
-{
- my $self = shift;
- my %args = @_;
-
- my $request;
-
- if( defined $self->{'url'} )
- {
- $request = HTTP::Request->new('POST', $self->{'url'} .
"/db");
- }
- else
- {
- $request = HTTP::Request->new('POST',
"http://".$self->{host}.":".$self->{port}."/db");
- }
-
- my $data = $args{'data'};
-
- my $content = "fn=upload&data=".uri_escape($data, $BADCHARS);
-
- $request->content($content);
-
- my $response = $self->{ua}->request($request);
-
- if ($response->is_success)
- {
- print $response->content if ( $self->{verbose} );
- }
- else
- {
- $! = $response->status_line;
- return 0;
- }
-
- return 1;
-}
-
-
-sub batch_insert
-{
- my $self = shift;
- my %args = @_;
-
- my $request;
-
- if( defined $self->{'url'} )
- {
- $request = HTTP::Request->new('POST', $self->{'url'} .
"/db");
- }
- else
- {
- $request = HTTP::Request->new('POST',
"http://".$self->{host}.":".$self->{port}."/db");
- }
-
- my $text_data = "";
- my $datum;
- foreach $datum (@{$args{'data'}})
- {
- my $v = $datum->[2]." ".$datum->[3];
- #$v =~ s/[%\n\cM]/"%" . sprintf("%02X",ord($&))/ge;
- $text_data .= $datum->[0]." ".$datum->[1]." $v\n";
- }
-
- my $content = "fn=batch_insert&data=$text_data";
-
- $request->content($content);
-
- my $response = $self->{ua}->request($request);
-
- if ($response->is_success)
- {
- print $response->content if ( $self->{verbose} );
- }
- else
- {
- $! = $response->status_line;
- return 0;
- }
-
- return 1;
-}
-
-
-sub copy
-{
- my $self = shift;
- my %args = @_;
-
- my $request;
-
- if( defined $self->{'url'} )
- {
- $request = HTTP::Request->new('POST', $self->{'url'} .
"/db");
- }
- else
- {
- $request = HTTP::Request->new('POST',
"http://".$self->{host}.":".$self->{port}."/db");
- }
-
- my $content = uri_escape("fn=copy".
- "&from_oid=".$args{'from_oid'}.
- "&to_oid=".$args{'to_oid'}.
- "&start=".$args{'start'}.
- "&end=".$args{'end'}, $BADCHARS);
-
- $request->content($content);
-
- my $response = $self->{ua}->request($request);
-
- if ($response->is_success)
- {
- print $response->content if ( $self->{verbose} );
- }
- else
- {
- $! = $response->status_line;
- return 0;
- }
-
- return 1;
-}
-
-sub delete
-{
- my $self = shift;
- my %args = @_;
-
- my $request;
-
- if( defined $self->{'url'} )
- {
- $request = HTTP::Request->new('POST', $self->{'url'} .
"/db");
- }
- else
- {
- $request = HTTP::Request->new('POST',
"http://".$self->{host}.":".$self->{port}."/db");
- }
-
- my $content = "fn=delete".
- "&oid=".$args{'oid'}.
- "&t=".$args{'t'};
-
- $request->content($content);
-
- my $response = $self->{ua}->request($request);
-
- if ($response->is_success)
- {
- print $response->content if ( $self->{verbose} );
- }
- else
- {
- $! = $response->status_line;
- return 0;
- }
-
- return 1;
-}
-
-sub last
-{
- my $self = shift;
- my %args = @_;
-
- my $results = $args{'results'}; # a hash ref
-
- my $request;
-
- if( defined $self->{'url'} )
- {
- $request = HTTP::Request->new('POST', $self->{'url'} .
"/db");
- }
- else
- {
- $request = HTTP::Request->new('POST',
"http://".$self->{host}.":".$self->{port}."/db");
- }
-
- my $content = "fn=last&oid=".$args{'oid'};
-
- $request->content($content);
-
- my $response = $self->{ua}->request($request);
-
- if ($response->is_success)
- {
- print $response->content if ( $self->{verbose} );
-
- # shouldn't be splitting !!
- # also, we should be unescaping !!
- my ($oid_again, $t, $state, @vals) = split /\s+/, $response->content;
-
- $results->{'time'} = $t;
- $results->{'state'} = $state;
- $results->{'description'} = join(" ", @vals);
- }
- else
- {
- $! = $response->status_line;
- return 0;
- }
-
- return 1;
-
-}
-
-sub fetch
-{
- my $self = shift;
- my %args = @_;
-
- my $results = $args{'results'}; # a hash ref
-
- my $request;
-
- if( defined $self->{'url'} )
- {
- $request = HTTP::Request->new('POST', $self->{'url'} .
"/db");
- }
- else
- {
- $request = HTTP::Request->new('POST',
"http://".$self->{host}.":".$self->{port}."/db");
- }
-
- my $content =
"fn=fetch&oid=".$args{'oid'}."&start=".$args{'start'}."&end=".$args{'end'};
-
- $request->content($content);
-
- my $response = $self->{ua}->request($request);
-
- if ($response->is_success)
- {
- print $response->content if ( $self->{verbose} );
-
- if( $args{'raw'} == 1 )
- {
- ${$results} = $response->content();
- }
- else
- {
- $results->{times} = [];
- $results->{states} = [];
- $results->{descriptions} = [];
-
- my @lines = split "\n", $response->content();
- my $line;
- foreach $line (@lines)
- {
- next if ( $line =~ /^BEGIN/ );
- last if ( $line =~ /^END/ );
-
- my $i = index $line, " ";
- my $j = index $line, " ", ($i + 1);
-
- if( ( $i != -1 ) and ( $j != -1 ) )
- {
- my $t = substr $line, 0, $i;
- my $state = substr $line, ($i + 1), ($j - $i);
- my $desc = substr $line, ($j + 1);
-
- push @{$results->{times}}, $t;
- push @{$results->{states}}, $state;
- push @{$results->{descriptions}}, $desc;
-
- # we should be unescaping the description !!
-
- }
- }
- }
- }
- else
- {
- $! = $response->status_line;
- return 0;
- }
-
- return 1;
-}
-
-1;
-
diff --git a/monitoring/NOT-USED/scdb_accessor_perl/README
b/monitoring/NOT-USED/scdb_accessor_perl/README
deleted file mode 100644
index 0ac201f..0000000
--- a/monitoring/NOT-USED/scdb_accessor_perl/README
+++ /dev/null
@@ -1,112 +0,0 @@
-Object Identifiers (<OID>s)
----------------------------
-
- A SCDB <OID> uniquely identifies a file in the database. There
- are two recognized <OID> formats:
-
- Regular probes: <probeid>
- URL/Transaction probes: <probeid>-<clusterid>
-
-
-
-Datatypes
----------
-
- +-----------------+--------------------------------------------------------+
- | TYPE | DESCRIPTION |
- +-----------------+--------------------------------------------------------+
- | <TIMESTAMP> | A date in Unix epoch format. |
- +-----------------+--------------------------------------------------------+
- | <STATE> | A valid probe state. |
- +-----------------+--------------------------------------------------------+
- | <DESCRIPTION> | A string describing the state of a probe. |
- +-----------------+--------------------------------------------------------+
- | <VALUE> | "<STATE> <DESCRIPTION>"
|
- +-----------------+--------------------------------------------------------+
- | <PACKET> | A data packet of the form: |
- | | |
- | | BEGIN <OID> |
- | | <TIMESTAMP> <VALUE>
|
- | | [<TIMESTAMP> <VALUE> ...]
|
- | | END |
- +-----------------+--------------------------------------------------------+
- | <PACKETLIST> | A newline-separated list of <PACKET> data.
|
- +-----------------+--------------------------------------------------------+
- | <DATAPOINT> | A string of the form: |
- | | |
- | | <OID> <TIMESTAMP> <VALUE>
|
- +-----------------+--------------------------------------------------------+
- | <DATALIST> | A newline-separated list of <DATAPOINT> data.
|
- +-----------------+--------------------------------------------------------+
- | <PARAMS> | URL-encoded parameters to a function. |
- +-----------------+--------------------------------------------------------+
- | <STATUS> | Return status of the form: |
- | | |
- | | <OID> <TIMESTAMP> ok - insert successful
|
- | | <OID> <TIMESTAMP> retry - transient failure
|
- | | <OID> <TIMESTAMP> fatal - permanent failure
|
- +-----------------+--------------------------------------------------------+
- | <STATUSLIST> | A newline-separated list of <STATUS> data.
|
- +-----------------+--------------------------------------------------------+
-
-
-
-SCDB API
---------
-
- URL:
http://scdb.nocpulse.com:7979/db?fn=<FN>&<PARAMS>
-
- Available funcitons (<FN>) and their <PARAMS>:
-
- insert - insert a single datapoint for a single probe.
- oid=<OID>
- t=<TIMESTAMP>
- desc=<DESCRIPTION>
- state=<STATE>
-
- RETURNS: ok
-
- upload - insert multiple datapoints for one or more probes.
- data=<PACKET>[<PACKET>...]
-
- RETURNS: ok
-
- batch_insert - insert multiple datapoints for multiple probes.
- data=<DATAPOINT>\n[<DATAPOINT>\n...]
-
- RETURNS: <STATUSLIST>
-
- fetch - fetch SCDB datapoints for a single probe.
- start=<TIMESTAMP>
- end=<TIMESTAMP>
- oid=<OID>
-
- RETURNS: <PACKET>
-
- batch_fetch - fetch SCDB datapoints for one or more probes.
- start=<TIMESTAMP>
- end=<TIMESTAMP>
- oid=<OID>[&oid=<OID>...]
-
- RETURNS: <PACKETLIST>
-
- last - returns the last SCDB datapoint for a single probe.
- oid=<OID>
-
- RETURNS: <DATAPOINT>
-
- batch_last - returns the last SCDB datapoint for one or more probes.
- oid=<OID>[&oid=<OID>...]
-
- RETURNS: <DATAPOINTLIST>
-
- delete - delete a datafile.
- oid=<OID>
-
- RETURNS: <STATUS>
-
- size - returns the size of a data file.
- oid=<OID>
-
- RETURNS: <OID> <size>
-
diff --git a/monitoring/NOT-USED/scdb_accessor_perl/version
b/monitoring/NOT-USED/scdb_accessor_perl/version
deleted file mode 100644
index e3ad5eb..0000000
--- a/monitoring/NOT-USED/scdb_accessor_perl/version
+++ /dev/null
@@ -1 +0,0 @@
-1.3.0 4
diff --git a/monitoring/NOT-USED/tsdb_accessor_perl/BUILD
b/monitoring/NOT-USED/tsdb_accessor_perl/BUILD
deleted file mode 100644
index 10b3075..0000000
--- a/monitoring/NOT-USED/tsdb_accessor_perl/BUILD
+++ /dev/null
@@ -1,47 +0,0 @@
-# Macros
-%define cvs_package tsdb_accessor_perl
-
-# Package specific stuff
-Name: %cvs_package
-Version: 1.4.0
-Release: 1
-Packager: Karen Jacqmin-Adams <kja(a)redhat.com>
-Summary: Command Center TSDB perl client
-Source: %{name}-%PACKAGE_VERSION.tar.gz
-BuildArch: noarch
-Group: unsorted
-Copyright: (c) 2001-2003 Red Hat, Inc. All rights reserved.
-Vendor: Red Hat, Inc.
-Buildroot: %{_tmppath}/%cvs_package
-
-%description
-
-perl library for accessing the TSDB
-
-
-%prep
-%entirely_abstract_build_step
-
-
-%build
-echo "Nothing to build"
-
-
-%install
-cd $RPM_PACKAGE_NAME-$RPM_PACKAGE_VERSION
-
-%find_perl_installsitelib
-perl_lib=$installsitelib/NOCpulse/TSDB
-
-mkdir -p $RPM_BUILD_ROOT/$perl_lib
-cp NOCpulse/TSDB/Accessor.pm $RPM_BUILD_ROOT/$perl_lib
-
-%point_scripts_to_correct_perl
-%make_file_list
-
-
-%files -f %{name}-%{version}-%{release}-filelist
-
-
-%clean
-%abstract_clean_script
diff --git a/monitoring/NOT-USED/tsdb_accessor_perl/BUILD.spec
b/monitoring/NOT-USED/tsdb_accessor_perl/BUILD.spec
deleted file mode 100644
index f5ba6e4..0000000
--- a/monitoring/NOT-USED/tsdb_accessor_perl/BUILD.spec
+++ /dev/null
@@ -1,117 +0,0 @@
-
-# CVS hacks
-%define cvs_package_prefix old-nocpulse/
-
-# What Perl to use?
-%define perl_prefix /usr
-%define perl %perl_prefix/bin/perl
-%define perlpkg perl-rhnmon
-
-# Macro for cpan documentation
-%define doc_prefix %perl_prefix/share/doc/%name
-%define man_prefix %perl_prefix/man
-
-
-# Macro(s) slavishly copied from autoconf's config.status.
-%define _our_prefix /usr
-%define _our_exec_prefix %{_our_prefix}
-%define _our_bindir %{_our_exec_prefix}/bin
-%define _our_sbindir %{_our_exec_prefix}/sbin
-%define _our_libexecdir %{_our_exec_prefix}/libexec
-%define _our_datadir %{_our_prefix}/share
-%define _our_sysconfdir %{_our_prefix}/etc
-%define _our_sharedstatedir %{_our_prefix}/com
-%define _our_localstatedir %{_our_prefix}/var
-%define _our_lib lib
-%define _our_libdir %{_our_exec_prefix}/%{_lib}
-%define _our_includedir %{_our_prefix}/include
-%define _our_oldincludedir /usr/include
-%define _our_infodir %{_our_prefix}/info
-%define _our_mandir %{_our_prefix}/man
-
-
-# Prep for build. This is entirely abstract - you should not need to change it.
-%define entirely_abstract_build_step rm -rf $RPM_BUILD_ROOT; rm -rf
$RPM_PACKAGE_NAME-$RPM_PACKAGE_VERSION; cvs checkout $RPM_TAG_PARAM
%cvs_package_prefix%cvs_package; [ -n %cvs_package_prefix ] && mkdir -p
%cvs_package && rmdir %cvs_package && ln -s
%cvs_package_prefix%cvs_package %cvs_package ; [ %cvs_package =
$RPM_PACKAGE_NAME-$RPM_PACKAGE_VERSION ] || mv %cvs_package
$RPM_PACKAGE_NAME-$RPM_PACKAGE_VERSION; find $RPM_PACKAGE_NAME-$RPM_PACKAGE_VERSION -type
d -name CVS | xargs rm -rf; tar -cvzf
$RPM_SOURCE_DIR/$RPM_PACKAGE_NAME-$RPM_PACKAGE_VERSION.tar.gz
$RPM_PACKAGE_NAME-$RPM_PACKAGE_VERSION
-
-
-
-%define perl_makefile CFLAGS="$RPM_OPT_FLAGS" %perl Makefile.PL verbose
PREFIX=$RPM_BUILD_ROOT%{prefix}; make OPTIMIZE="$RPM_OPT_FLAGS"
-
-
-
-%define makefile_build cd $RPM_PACKAGE_NAME-$RPM_PACKAGE_VERSION; %perl_makefile
-
-
-# For CPAN modules with a copyright or license that is not GPL or Artistic
-%define cpan_doc_install mkdir -p $RPM_BUILD_ROOT%doc_prefix; [ -e README ] &&
cp README $RPM_BUILD_ROOT%doc_prefix; [ -e COPYING ] && cp COPYING
$RPM_BUILD_ROOT%doc_prefix; [ -e COPYRIGHT ] && cp COPYRIGHT
$RPM_BUILD_ROOT%doc_prefix
-
-
-%define our_makeinstall make prefix=%{?buildroot:%{buildroot}}%{_our_prefix}
exec_prefix=%{?buildroot:%{buildroot}}%{_our_exec_prefix}
bindir=%{?buildroot:%{buildroot}}%{_our_bindir}
sbindir=%{?buildroot:%{buildroot}}%{_our_sbindir}
sysconfdir=%{?buildroot:%{buildroot}}%{_our_sysconfdir}
datadir=%{?buildroot:%{buildroot}}%{_our_datadir}
includedir=%{?buildroot:%{buildroot}}%{_our_includedir}
libdir=%{?buildroot:%{buildroot}}%{_our_libdir}
libexecdir=%{?buildroot:%{buildroot}}%{_our_libexecdir}
localstatedir=%{?buildroot:%{buildroot}}%{_our_localstatedir}
sharedstatedir=%{?buildroot:%{buildroot}}%{_our_sharedstatedir}
mandir=%{?buildroot:%{buildroot}}%{_our_mandir}
infodir=%{?buildroot:%{buildroot}}%{_our_infodir} install
-
-
-
-%define makefile_install eval `%perl '-V:installarchlib'`; mkdir -p
$RPM_BUILD_ROOT$installarchlib; %our_makeinstall; rm -f `find $RPM_BUILD_ROOT -type f
-name perllocal.pod -o -name .packlist`; [ -x /usr/lib/rpm/brp-compress ] &&
/usr/lib/rpm/brp-compress
-
-
-# For the really ugly cases, e.g. PerlModules/CPAN/libwww-perl-5.48
-%define alt_makefile_install mkdir -p $RPM_BUILD_ROOT/%{_our_prefix}/lib; make install
PREFIX=$RPM_BUILD_ROOT; mv $RPM_BUILD_ROOT/lib $RPM_BUILD_ROOT%{_our_prefix}/lib/perl5
-
-
-
-%define find_perl_installsitelib eval `%perl '-V:installsitelib'`; echo
installsitelib is $installsitelib; if [ "$installsitelibX" = "X" ] ;
then echo "ERROR: installsitelib is undefined"; exit 1; fi
-
-
-
-%define point_scripts_to_correct_perl find $RPM_BUILD_ROOT -type f -print | xargs perl
-pi -e 's,^#\\\!/usr/bin/perl,#\\\!%perl, if ($ARGV ne $lf); $lf = $ARGV;'
-
-
-%define make_file_list cd $RPM_BUILD_DIR; find $RPM_BUILD_ROOT -type f -print | sed
"s@^$RPM_BUILD_ROOT@@g" >
$RPM_PACKAGE_NAME-$RPM_PACKAGE_VERSION/%{name}-%{version}-%{release}-filelist; if [
"$(cat
$RPM_PACKAGE_NAME-$RPM_PACKAGE_VERSION/%{name}-%{version}-%{release}-filelist)X" =
"X" ] ; then echo "ERROR: EMPTY FILE LIST"; exit 1; fi
-
-
-%define abstract_clean_script rm -rf $RPM_BUILD_ROOT; cd $RPM_BUILD_DIR; rm -rf
$RPM_PACKAGE_NAME-$RPM_PACKAGE_VERSION; [ -n %cvs_package_prefix ] && [ -e
%cvs_package_prefix ] && rm -rf %cvs_package_prefix; [ -e %cvs_package ]
&& rm -rf %cvs_package; [ -e %{name}-%{version}-%{release}-filelist ] &&
rm %{name}-%{version}-%{release}-filelist
-# Macros
-%define cvs_package tsdb_accessor_perl
-
-# Package specific stuff
-Name: %cvs_package
-Source9999: version
-Version: %(echo `awk '{ print $1 }' %{SOURCE9999}`)
-Release: %(echo `awk '{ print $2 }' %{SOURCE9999}`)
-Summary: Command Center TSDB perl client
-Source: %{name}-%PACKAGE_VERSION.tar.gz
-BuildArch: noarch
-Group: unsorted
-License: GPLv2
-Vendor: Red Hat, Inc.
-Buildroot: %{_tmppath}/%cvs_package
-
-%description
-
-perl library for accessing the TSDB
-
-
-%prep
-%setup
-
-
-%build
-echo "Nothing to build"
-
-
-%install
-
-%find_perl_installsitelib
-perl_lib=$installsitelib/NOCpulse/TSDB
-
-mkdir -p $RPM_BUILD_ROOT/$perl_lib
-cp NOCpulse/TSDB/Accessor.pm $RPM_BUILD_ROOT/$perl_lib
-
-%point_scripts_to_correct_perl
-%make_file_list
-
-
-%files -f %{name}-%{version}-%{release}-filelist
-
-
-%clean
-%abstract_clean_script
diff --git a/monitoring/NOT-USED/tsdb_accessor_perl/NOCpulse/TSDB/Accessor.pm
b/monitoring/NOT-USED/tsdb_accessor_perl/NOCpulse/TSDB/Accessor.pm
deleted file mode 100644
index 448494a..0000000
--- a/monitoring/NOT-USED/tsdb_accessor_perl/NOCpulse/TSDB/Accessor.pm
+++ /dev/null
@@ -1,375 +0,0 @@
-
-package NOCpulse::TSDB::Accessor;
-
-use strict;
-use LWP::UserAgent;
-use URI::Escape;
-
-my $BADCHARS = '^-_a-zA-Z0-9';
-
-sub new
-{
- my $class = shift;
- my %args = @_;
-
- my $self = {};
- bless $self, $class;
-
- if( defined $args{'url'} )
- {
- $self->{url} = $args{'url'};
- }
- else
- {
- $self->{host} = $args{'host'} || 'tsdb.nocpulse.net';
- $self->{port} = $args{'port'} || 80;
- }
- $self->{verbose} = $args{'verbose'} || 0;
- $self->{ua} = LWP::UserAgent->new;
-
- return $self;
-}
-
-sub insert
-{
- my $self = shift;
- my %args = @_;
-
- my $request;
-
- if( defined $self->{'url'} )
- {
- $request = HTTP::Request->new('POST', $self->{'url'} .
"/db");
- }
- else
- {
- $request = HTTP::Request->new('POST',
"http://".$self->{host}.":".$self->{port}."/db");
- }
-
- my $content = "fn=insert&oid=".$args{'oid'}.
"&t=".$args{'t'}."&v=".$args{'v'};
-
- $request->content($content);
-
- my $response = $self->{ua}->request($request);
-
- if ($response->is_success)
- {
- print $response->content if ( $self->{verbose} );
- }
- else
- {
- $! = $response->status_line;
- return 0;
- }
-
- return 1;
-}
-
-sub size
-{
- my $self = shift;
- my %args = @_;
-
- my $request;
-
- if( defined $self->{'url'} )
- {
- $request = HTTP::Request->new('POST', $self->{'url'} .
"/db");
- }
- else
- {
- $request = HTTP::Request->new('POST',
"http://".$self->{host}.":".$self->{port}."/db");
- }
-
- my $content = "fn=size&oid=".$args{'oid'};
-
- $request->content($content);
-
- my $response = $self->{ua}->request($request);
-
- if ($response->is_success)
- {
- print $response->content if ( $self->{verbose} );
- my ($oid, $size) = split(" ", $response->content());
- ${$args{'result'}} = $size;
- }
- else
- {
- $! = $response->status_line;
- return 0;
- }
-
- return 1;
-
-}
-
-sub upload
-{
- my $self = shift;
- my %args = @_;
-
- my $request;
-
- if( defined $self->{'url'} )
- {
- $request = HTTP::Request->new('POST', $self->{'url'} .
"/db");
- }
- else
- {
- $request = HTTP::Request->new('POST',
"http://".$self->{host}.":".$self->{port}."/db");
- }
-
- my $data = $args{'data'};
-
- my $content = "fn=upload&data=".uri_escape($data, $BADCHARS);
-
- $request->content($content);
-
- my $response = $self->{ua}->request($request);
-
- if ($response->is_success)
- {
- print $response->content if ( $self->{verbose} );
- }
- else
- {
- $! = $response->status_line;
- return 0;
- }
-
- return 1;
-}
-
-
-sub batch_insert
-{
- my $self = shift;
- my %args = @_;
-
- my $request;
-
- if( defined $self->{'url'} )
- {
- $request = HTTP::Request->new('POST', $self->{'url'} .
"/db");
- }
- else
- {
- $request = HTTP::Request->new('POST',
"http://".$self->{host}.":".$self->{port}."/db");
- }
-
- my $text_data = "";
- my $datum;
- foreach $datum (@{$args{'data'}})
- {
- $text_data .= $datum->[0]." ".$datum->[1]."
".$datum->[2]."\n";
- }
-
- my $content = "fn=batch_insert&data=$text_data";
-
- $request->content($content);
-
- my $response = $self->{ua}->request($request);
-
- if ($response->is_success)
- {
- print $response->content if ( $self->{verbose} );
- }
- else
- {
- $! = $response->status_line;
- return 0;
- }
-
- return 1;
-}
-
-sub copy
-{
- my $self = shift;
- my %args = @_;
-
- my $request;
-
- if( defined $self->{'url'} )
- {
- $request = HTTP::Request->new('POST', $self->{'url'} .
"/db");
- }
- else
- {
- $request = HTTP::Request->new('POST',
"http://".$self->{host}.":".$self->{port}."/db");
- }
-
- my $content = uri_escape("fn=copy".
- "&from_oid=".$args{'from_oid'}.
- "&to_oid=".$args{'to_oid'}.
- "&start=".$args{'start'}.
- "&end=".$args{'end'}, $BADCHARS);
-
- $request->content($content);
-
- my $response = $self->{ua}->request($request);
-
- if ($response->is_success)
- {
- print $response->content if ( $self->{verbose} );
- }
- else
- {
- $! = $response->status_line;
- return 0;
- }
-
- return 1;
-}
-
-sub delete
-{
- my $self = shift;
- my %args = @_;
-
- my $request;
-
- if( defined $self->{'url'} )
- {
- $request = HTTP::Request->new('POST', $self->{'url'} .
"/db");
- }
- else
- {
- $request = HTTP::Request->new('POST',
"http://".$self->{host}.":".$self->{port}."/db");
- }
-
- my $content = "fn=delete".
- "&oid=".$args{'oid'}.
- "&t=".$args{'t'};
-
- $request->content($content);
-
- my $response = $self->{ua}->request($request);
-
- if ($response->is_success)
- {
- print $response->content if ( $self->{verbose} );
- }
- else
- {
- $! = $response->status_line;
- return 0;
- }
-
- return 1;
-}
-
-sub fetch
-{
- my $self = shift;
- my %args = @_;
-
- my $results = $args{'results'}; # a hash ref
-
- my $request;
-
- if( defined $self->{'url'} )
- {
- $request = HTTP::Request->new('POST', $self->{'url'} .
"/db");
- }
- else
- {
- $request = HTTP::Request->new('POST',
"http://".$self->{host}.":".$self->{port}."/db");
- }
-
- my $content = "fn=fetch&oid=".$args{'oid'}.
- "&start=".$args{'start'}."&end=".$args{'end'};
-
- $request->content($content);
-
- my $response = $self->{ua}->request($request);
-
- if ($response->is_success)
- {
- print $response->content if ( $self->{verbose} );
-
- if( $args{'raw'} == 1 )
- {
- ${$results} = $response->content;
- }
- else
- {
- $results->{times} = [];
- $results->{values} = [];
- my @lines = split "\n", $response->content();
-
- shift @lines;
-
- my $line;
- foreach $line (@lines)
- {
- last if $line eq 'END';
-
- my ($t, $v) = split /\s+/, $line;
- push @{$results->{times}}, $t;
- push @{$results->{values}}, $v;
- }
- }
- }
- else
- {
- $! = $response->status_line;
- return 0;
- }
-
- return 1;
-}
-
-sub batch_fetch
-{
- my $self = shift;
- my %args = @_;
-
- my $results = $args{'results'}; # a hash ref
-
- $results->{times} = [];
- $results->{values} = [];
-
- my $request;
-
- if( defined $self->{'url'} )
- {
- $request = HTTP::Request->new('POST', $self->{'url'} .
"/db");
- }
- else
- {
- $request = HTTP::Request->new('POST',
"http://".$self->{host}.":".$self->{port}."/db");
- }
-
- my $content = "fn=batchfetch&".
- (join("&",( map {"oid=".$_} @{$args{'oids'}})));
-
- $request->content($content);
-
- my $response = $self->{ua}->request($request);
-
- if ($response->is_success)
- {
- print $response->content if ( $self->{verbose} );
-
- # PARSE !!!!
- my @lines = split "\n", $response->content();
- my $line;
- foreach $line (@lines)
- {
- my ($t, $v) = split /\s+/, $line;
- push @{$results->{times}}, $t;
- push @{$results->{values}}, $v;
- }
- }
- else
- {
- $! = $response->status_line;
- return 0;
- }
-
- return 1;
-}
-
-1;
-
diff --git a/monitoring/NOT-USED/tsdb_accessor_perl/README
b/monitoring/NOT-USED/tsdb_accessor_perl/README
deleted file mode 100644
index 3545a83..0000000
--- a/monitoring/NOT-USED/tsdb_accessor_perl/README
+++ /dev/null
@@ -1,111 +0,0 @@
-Object Identifiers (<OID>s)
----------------------------
-
- A TSDB <OID> uniquely identifies a file in the database. There
- are two recognized <OID> formats:
-
- Regular probes: <custid>-<probeid>-<metric>
- URL/Transaction probes: LongLegs-<clusterid>-<probeid>-<metric>
-
-
-
-Datatypes
----------
-
- +-----------------+--------------------------------------------------------+
- | TYPE | DESCRIPTION |
- +-----------------+--------------------------------------------------------+
- | <TIMESTAMP> | A date in Unix epoch format. |
- +-----------------+--------------------------------------------------------+
- | <VALUE> | A floating-point numeric value. |
- +-----------------+--------------------------------------------------------+
- | <DATAPOINT> | A string of the form: |
- | | |
- | | <OID> <TIMESTAMP> <VALUE>
|
- +-----------------+--------------------------------------------------------+
- | <DATALIST> | A newline-separated list of <DATAPOINT> data.
|
- | | (Note: on fetch requests, a <DATALIST> line may |
- | | contain an <OID> instead of a <DATAPOINT> if no
|
- | | data is available for the identified metric.) |
- | | |
- +-----------------+--------------------------------------------------------+
- | <PACKET> | A data packet of the form: |
- | | |
- | | BEGIN <OID> |
- | | <TIMESTAMP> <VALUE>
|
- | | [<TIMESTAMP> <VALUE> ...]
|
- | | END |
- +-----------------+--------------------------------------------------------+
- | <PACKETLIST> | A newline-separated list of <PACKET> data.
|
- +-----------------+--------------------------------------------------------+
- | <PARAMS> | URL-encoded parameters to a function. |
- +-----------------+--------------------------------------------------------+
- | <STATUS> | Return status of the form: |
- | | |
- | | <OID> <TIMESTAMP> ok - insert successful
|
- | | <OID> <TIMESTAMP> retry - transient failure
|
- | | <OID> <TIMESTAMP> fatal - permanent failure
|
- +-----------------+--------------------------------------------------------+
- | <STATUSLIST> | A newline-separated list of <STATUS> data.
|
- +-----------------+--------------------------------------------------------+
-
-
-
-TSDB API
---------
-
- URL:
http://tsdb.nocpulse.com/db?fn=<FN>&<PARAMS>
-
- Available funcitons (<FN>) and their <PARAMS>:
-
- insert - insert a single datapoint for a single metric.
- oid=<OID>
- t=<TIMESTAMP>
- v=<VALUE>
-
- RETURNS: <STATUS>
-
- upload - insert multiple datapoints for one or more metrics.
- data=<PACKET>[<PACKET>...]
-
- RETURNS: ok
-
- batch_insert - insert multiple datapoints for multiple metrics.
- data=<DATAPOINT>\n[<DATAPOINT>\n...]
-
- RETURNS: <STATUSLIST>
-
- fetch - fetch TSDB datapoints for a single metric.
- start=<TIMESTAMP>
- end=<TIMESTAMP>
- oid=<OID>
-
- RETURNS: <PACKET>
-
- batch_fetch - fetch TSDB datapoints for one or more metrics.
- start=<TIMESTAMP>
- end=<TIMESTAMP>
- oid=<OID>[&oid=<OID>...]
-
- RETURNS: <PACKETLIST>
-
- last - returns the last TSDB datapoint for a single metric.
- oid=<OID>
-
- RETURNS: <DATAPOINT>
-
- batch_last - returns the last TSDB datapoint for one or more metrics.
- oid=<OID>[&oid=<OID>...]
-
- RETURNS: <DATAPOINTLIST>
-
- delete - delete a datafile.
- oid=<OID>
-
- RETURNS: <STATUS>
-
- size - returns the size of a data file.
- oid=<OID>
-
- RETURNS: <OID> <size>
-
diff --git a/monitoring/NOT-USED/tsdb_accessor_perl/version
b/monitoring/NOT-USED/tsdb_accessor_perl/version
deleted file mode 100644
index 6d14a59..0000000
--- a/monitoring/NOT-USED/tsdb_accessor_perl/version
+++ /dev/null
@@ -1 +0,0 @@
-1.4.0 7