File: InformixTechSupport

package info (click to toggle)
libdbd-informix-perl 2003.04-3
  • links: PTS
  • area: contrib
  • in suites: etch, etch-m68k, sarge
  • size: 1,232 kB
  • ctags: 467
  • sloc: perl: 7,349; ansic: 5,340; sh: 184; makefile: 58
file content (140 lines) | stat: -rwxr-xr-x 3,264 bytes parent folder | download
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
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
#!/usr/bin/perl -w
#
#   @(#)$Id: InformixTechSupport,v 100.9 2002/11/20 01:24:42 jleffler Exp $
#
#   Tech Support Tool for IBM Informix Database Driver for Perl Version 2003.04 (2003-03-05)
#
#   Copyright 1999 Jonathan Leffler
#   Copyright 2000 Informix Software Inc
#   Copyright 2002 IBM
#
#   You may distribute under the terms of either the GNU General Public
#   License or the Artistic License, as specified in the Perl README file.

use strict;
use Config;
use DBD::Informix::TechSupport;

use vars qw($opt_l $opt_b $opt_w $opt_v $opt_V $usage);
use Getopt::Std;

$usage = "Usage: $0 [-b bugtype | -w | -V | -v product]\n";

print STDERR $usage and exit 1
	if ($#ARGV < 0 || getopts('b:v:wV') == 0);

if ($opt_V)
{
	&print_versions('Perl DBI DBD::Informix ESQL/C Licence');
}
elsif ($opt_v)
{
	&print_versions($opt_v);
}
elsif ($opt_b)
{
	# Bug Report
	&bug_report($opt_b, @ARGV);
}
elsif ($opt_w)
{
	# It Works
	&it_works;
}
else
{
	print STDERR "$0: misunderstood your command/options @ARGV\n";
	print STDERR "$usage";
	exit 1;
}

exit 0;

__END__

=head1 NAME

InformixTechSupport - Technical Support tool for IBM Informix Database Driver for Perl

=head1 SYNOPSIS

C<InformixTechSupport -V>

C<InformixTechSupport -v [ Perl | DBI | DBD::Informix | ESQL/C ]>

C<InformixTechSupport -b [ABCD] [test ...]>

C<InformixTechSupport -w>

=head1 DESCRIPTION

The InformixTechSupport script is used for a variety of purposes
related to technical support of IBM Informix Database Driver for Perl Version 2003.04 (2003-03-05).

=head2 CHECKING SOFTWARE VERSIONS

Use C<InformixTechSupport -V> to discover the version number of each
of the components listed in the next section.

=head2 CHECKING VERSIONS OF SPECIFIC COMPONENTS

Use C<InformixTechSupport -v component> to discover the version number
of a component used by DBD::Informix.

The valid component names are:

=over 2

=item *

Perl

=item *

DBI

=item *

DBD::Informix

=item *

ESQL/C

=back

Other component names are silently ignored.

=head2 CREATING A BUG REPORT

Use C<InformixTechSupport -b [class] [tests ...]> to create a basic
bug report.
The file Notes/bug.reports contains detailed information about the
classes of bug reports (which are A, B, C, and D).
If you have a class D bug, then you can list the specific test(s)
which are failing on the command line.

The output contains most of the information that will be needed to
debug your problem.
If your problem is not with the standard tests, then you should aim to
create a standalone reproduction of your problem and include that test
with your bug report.

=head2 CREATING A REPORT THAT IT WORKS

Use C<InformixTechSupport -w> to create a report that IBM Informix Database Driver for Perl Version 2003.04 (2003-03-05) works.
You may need to edit the output; you may certainly add comments in the
'Optional comments' section.
The output is written to standard output only.
It is never sent anywhere unless you actually choose to send it.

If you do send the report, please put "DBD::Informix - It Works" in the
subject line and send the report to C<dbdinfmx@us.ibm.com> (this is a
change of email address from the instructions in the 1.00.PC2 version of
DBD::Informix).

=head1 AUTHOR

Jonathan Leffler <jleffler@us.ibm.com>

=cut