monitoring/scdb/fetch_state_changes | 57 ------------------------------------
monitoring/tsdb/fetch_time_series | 57 ------------------------------------
2 files changed, 114 deletions(-)
New commits:
commit 3abdcc0a2b6e2e8f7cf2692d474a30616d594475
Author: Michael Mraka <michael.mraka(a)redhat.com>
Date: Tue Jan 31 15:21:15 2012 +0100
removing non-working debugging scripts
there's no NOCpulse::BDB for a long time
diff --git a/monitoring/scdb/fetch_state_changes b/monitoring/scdb/fetch_state_changes
deleted file mode 100755
index ac92ca6..0000000
--- a/monitoring/scdb/fetch_state_changes
+++ /dev/null
@@ -1,57 +0,0 @@
-#!/usr/bin/perl
-
-# DEBUGGING TOOL -- see part or all of a TSDB data file
-
-use NOCpulse::BDB;
-use NOCpulse::SCDB;
-use Getopt::Long;
-
-$ENV{'BDBROOT'} = '/nocpulse/scdb/bdb';
-
-my($help, $start, $end);
-&GetOptions(
- 'start=i' => \$start,
- 'end=i' => \$end,
- 'help+' => \$help,
-);
-$start ||= 0;
-$end ||= time;
-
-die &usage if ($help);
-die "\nERROR: At least one OID must be specified\n" . &usage unless
(@ARGV);
-
-my $bdb = NOCpulse::BDB->new();
-
-foreach my $oid (@ARGV) {
- print "OID $oid:\n";
- my $filename = NOCpulse::SCDB::oid2filename($oid);
-
- my $ts = $bdb->fetch($filename, $start, $end, 0);
-
- while (scalar @{$ts}) {
-
- my $t = shift @{$ts};
- my $v = shift @{$ts};
-
- printf "\t%s (%s) => %s\n", scalar(localtime($t)), $t, $v;
- }
-}
-
-
-##############################################################################
-############################### Subroutines ################################
-##############################################################################
-
-###########
-sub usage {
-###########
-
- return qq{
- Usage: $0 [<opts>] <OID> [<OID>...]
- Options:
- --start=<start> - start at <start> (seconds since epoch)
- --end=<end> - end at <end> (seconds since epoch)
- --help - show this message
- \n};
-
-}
diff --git a/monitoring/tsdb/fetch_time_series b/monitoring/tsdb/fetch_time_series
deleted file mode 100755
index 1d5e0a3..0000000
--- a/monitoring/tsdb/fetch_time_series
+++ /dev/null
@@ -1,57 +0,0 @@
-#!/usr/bin/perl
-
-# DEBUGGING TOOL -- see part or all of a SDDB data file
-
-use NOCpulse::BDB;
-use NOCpulse::TSDB;
-use Getopt::Long;
-
-$ENV{'BDBROOT'} = '/nocpulse/tsdb/bdb';
-
-my($help, $start, $end);
-&GetOptions(
- 'start=i' => \$start,
- 'end=i' => \$end,
- 'help+' => \$help,
-);
-$start ||= 0;
-$end ||= time;
-
-die &usage if ($help);
-die "\nERROR: At least one OID must be specified\n" . &usage unless
(@ARGV);
-
-my $bdb = NOCpulse::BDB->new();
-
-foreach my $oid (@ARGV) {
- print "OID $oid:\n";
- my $filename = NOCpulse::TSDB::oid2filename($oid);
-
- my $ts = $bdb->fetch($filename, $start, $end, 0);
-
- while (scalar @{$ts}) {
-
- my $t = shift @{$ts};
- my $v = shift @{$ts};
-
- printf "\t%s (%s) => %s\n", scalar(localtime($t)), $t, $v;
- }
-}
-
-
-##############################################################################
-############################### Subroutines ################################
-##############################################################################
-
-###########
-sub usage {
-###########
-
- return qq{
- Usage: $0 [<opts>] <OID> [<OID>...]
- Options:
- --start=<start> - start at <start> (seconds since epoch)
- --end=<end> - end at <end> (seconds since epoch)
- --help - show this message
- \n};
-
-}
Show replies by thread