1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
Description: Extract README info from informix.monitor
Author: Dario Minnucci <midget@debian.org>
Last-Update: 2011-02-16
Index: mon-contrib/monitors/informix/informix/informix.monitor
===================================================================
--- mon-contrib.orig/monitors/informix/informix/informix.monitor 2011-02-16 22:17:21.341933547 +0100
+++ mon-contrib/monitors/informix/informix/informix.monitor 2011-02-16 22:18:21.417028547 +0100
@@ -1,65 +1,46 @@
-From clay@panix.com Mon Aug 23 06:52:13 1999
-Date: Thu, 5 Aug 1999 10:55:52 -0400
-From: Clay Irving <clay@panix.com>
-To: mon@linux.kernel.org
-Subject: Monitor for INFORMIX IDS Database
-
-I hacked this monitor together yesterday to monitor online status of
-several INFORMIX databases at work. I'd like to donate it to the growing
-collection of monitors...
-
-It requires DBI and DBD::Informix.
-
- #!/usr/local/bin/perl
- #
- # Monitor online status of INFORMIX IDS
- #
- # Arguements are "database@server"
- #
- # $Id: informix.monitor,v 1.1.1.1 2005/02/18 17:52:24 trockij Exp $
- #
- # Copyright (C) 1999, SKECHERS USA, Inc.
- #
- # This program is free software; you can redistribute it and/or modify
- # it under the terms of the GNU General Public License as published by
- # the Free Software Foundation; either version 2 of the License, or
- # (at your option) any later version.
- #
- # This program is distributed in the hope that it will be useful,
- # but WITHOUT ANY WARRANTY; without even the implied warranty of
- # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- # GNU General Public License for more details.
- #
- # You should have received a copy of the GNU General Public License
- # along with this program; if not, write to the Free Software
- # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- #
-
- use DBI;
-
- chomp($parm = $ARGV[0]);
- ($database, $server) = split /\@/, $parm;
-
- # Set environment variables
- $ENV{LD_LIBRARY_PATH} = "/usr/informix/prod/lib:/usr/informix/prod/lib/esql";
- $ENV{INFORMIXDIR} = "/usr/informix/prod";
- $ENV{INFORMIXSERVER} = "$server";
-
- # Attempt to connect to the database and get the database name
- $dbh = DBI->connect($database, $username, $password, 'Informix');
-
- if (defined $dbh->{Name}) {
- $dbh->disconnect;
- exit 0;
- } else {
- print "$parm is down\n";
- exit 1;
- }
-
-
---
-Clay Irving <clay@panix.com>
-Witchcraft always has a hard time, until it becomes respectable and
-changes its name.
-- Charles Fort
+#!/usr/bin/perl
+#
+# Monitor online status of INFORMIX IDS
+#
+# Arguements are "database@server"
+#
+# $Id: informix.monitor,v 1.1.1.1 2005/02/18 17:52:24 trockij Exp $
+#
+# Copyright (C) 1999, SKECHERS USA, Inc.
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+#
+
+use DBI;
+
+chomp($parm = $ARGV[0]);
+($database, $server) = split /\@/, $parm;
+
+# Set environment variables
+$ENV{LD_LIBRARY_PATH} = "/usr/informix/prod/lib:/usr/informix/prod/lib/esql";
+$ENV{INFORMIXDIR} = "/usr/informix/prod";
+$ENV{INFORMIXSERVER} = "$server";
+
+# Attempt to connect to the database and get the database name
+$dbh = DBI->connect($database, $username, $password, 'Informix');
+
+if (defined $dbh->{Name}) {
+ $dbh->disconnect;
+ exit 0;
+} else {
+ print "$parm is down\n";
+ exit 1;
+}
|
