orac_Informix.pm - the Informix module to the Orac tool
This code is a database object that can be created by the Orac tool. It inherits from orac_Base, which has all the basic data and methods. Some of those are called from here, some are overridden, most are inherited and used as is.
&new() &init1() &init2()
This method overrides orac_Base's; well, actually we call it to set ourselves up, but then we do set Informix specific variables. We return the new object instance, just like we're supose to do.
This methode overrides the "do nothing" version in orac_Base. It's job is to do whatever we need to do just before trying to connect. We return nothing.
This methode overrides the "do nothing" version in orac_Base. It's job is to do whatever we need to do just after successfully connecting to the database. In our case, we always ChopBlanks. We return nothing.
These should only be called by main:: functions, like the menu functions, or by ourselves, obviously. :-)
Show the list of the databases, and info about them. No args, no return value.
Show the list of DBSpaces, and info about them. No args, no return value.
Show the list of DB chunks, and info about them. No args, no return value.
Show the current $ONCONFIG file. No args, no return value.
Show the synonums for all tables. No args, no return value.
Show the grants on this database. No args, no return value.
NOT IMPLEMENTED YET!
Show the list of the indicies for all tables, and info about them. No args, no return value.
Show the schema for the databases. No args, no return value.
Show the application threads running in the database. No args, no return value.
Show the current SQL statements running in the database. No args, no return value.
Show the list of blob fields, and info about them. No args, no return value.
Show the I/O going on in the database. No args, no return value.
Show the list of locks being held, and info about them. No args, no return value.
These should only be called ourself, they are support functions. There are currently none, or at least none that care to tell anyone about. :-)
These functions are ones that I'm developing and should not be called by anyone else, unless you like living dangerously. :-) It is hoped that one day, they'll be good enough to move into orac_Base.
&generic_hlist() &sql_file_exists()
Andy, you can move this if you want. (i.e. feel brave :-)
A function to produce a dialog screen, with HList widget to show data--all generic. It will go down as many levels as there are SQL files, which must be numbered sequentially.
The function executes the SQL, and expects either a set of rows with 1 column each, or 1 row with a set of columns. It takes the data, and makes each value an item in the HList widget. If it can find another level below this SQL script, it gives the item a "folder" looking icon, else just a "file" looking icon.
Clicking on closed folders executes the next level of SQL, and displays the results in the HList widget. Icons on the new level are assigned as above. The value clicked on is parsed, split by the separator char (ARG2) and those are the bind parameters to the SQL. It is assumed the SQL will take those and do the right thing. If there is a mismatch on number of bind parameters, an error will occurr. [Implementation question: should we search the SQL and get the number of placeholders and send only that number of parameters?]
Clicking on a file, or bottom level item, currently does nothing. [Implementation question: should we put a function to be called in orac_Base here, and let the various modules override that if they want to do more than just show items?]
ARG1 = name of SQL, and title of dialog (e.g. Tables) ARG2 = separator character
There is no return value.
Note: this functoin calls orac_Show(), therefore, it does not really return until the dialog is dismissed.
A support function of generic_hlist, DO NOT CALL DIRECTLY!!!
This is called when an entry is double-clicked. It decides what to do. Basically ripped off from the "Adv. Perl Prog." book. :-)
show_or_hide calls this when it needs to add new items. Here is where the SQL is called.
Does the SQL file exist? This is normally used to find out if there is another level down.
ARG1 = database type ARG2 = SQL subroutine name (e.g. Tables, Views, ...) ARG3 = level number
It returns TRUE (non-zero) if the file exists and is readable, FALSE otherwise.
To install orac_Base, copy and paste the appropriate command in to your terminal.
cpanm
cpanm orac_Base
CPAN shell
perl -MCPAN -e shell install orac_Base
For more information on module installation, please visit the detailed CPAN module installation guide.