view release on metacpan or  search on metacpan

RCS/RDBMS.pm,v  view on Meta::CPAN

branches;
next	;


desc
@RDMBS
@


1.11
log
@Added new version number.
@
text
@# $Id: RDBMS.pm,v 1.10 1997/11/15 21:44:22 bjepson Exp bjepson $

package Msql::RDBMS;
$VERSION = '0.93';

=head1 NAME

B<Msql::RDBMS> - Relational Database Management System for Msql

=head1 SYNOPSIS

   use Msql::RDBMS;

   $rdbms = new Msql::RDBMS;
   $rdbms->show;

=head1 DESCRIPTION

This is a fully catalog driven database management system for Perl 5
and mini-SQL. You should use it in conjunction with the sqldef.pl script
which will generate data definition language for your tables.

=head1 GENERATING DATA DEFINITION LANGUAGE

You must pass the name of a schema definition file to sqldef.pl (an
example, B<schema.def>, is included in the examples/ subdirectory of
the distribution).  See L<sqldef.pl>.

=head1 USAGE

You can call up the entire Relational Database Management System from
your browser with a URL like this:

   http://bozos.on.the.bus/sample.cgi?db=demo

Where B<sample.cgi> is a Perl script containing the three lines of
code shown in B<SYNOPSIS>.

=head1 DEBUGGING

You can get some debugging information, which consists of a CGI::dump,
and an SQL statement, if relevant, by including debug=1 in the URL.

=head1 TODO

  Generate forms for interactive data definition.
  Enforce referential integrity (cascade/block deletes).
* Enforce uniqueness for label columns.
* Add fancy display options that support automagic hyperlinking of
     URLs and email addresses.

* denotes feature present in the original PHP/FI version.

=head1 AUTHOR

Brian Jepson <bjepson@@conan.ids.net>

Paul Sharpe <paul@@miraclefish.com>

You may distribute this under the same terms as Perl itself.

=head1 SEE ALSO

L<sqldef.pl>

CGI::CGI, CGI::Carp, Msql

=cut

BEGIN {

    $| = 1;
    print "Content-type: text/html\n\n";
    use vars qw($header_printed);
    $header_printed = 1;
    use CGI::Carp qw(carpout);
    carpout(STDOUT);
}

require 5.002;
use CGI;
use CGI::Carp;
use Msql;
use Date::Format;
use Date::Parse;
use strict 'vars';

my %tableAttributes = ( "DESCRIPTION" => 'tbl_description');
my %comp_num = ("="        => "Equal To",
                "&gt;"     => "Greater Than",
                "&lt;"     => "Less Than",
                "&lt;="    => "Less Than or Equal To",
                "&gt;="    => "Greater Than or Equal To",
                "&lt;&gt;" => "Not Equal To");
my @@comp_num = ("=", "&gt;", "&lt;", "&lt;=", "&gt;=", "&lt;&gt;");

my %comp_char = ("CLIKE"    => "Find Similar (Case-Insensitive)",
                 "LIKE"     => "Find Similar",
                 "="        => "Equal To",
                 "&lt;&gt;" => "Not Equal To");
my @@comp_char = ("CLIKE", "LIKE","=", "&lt;&gt;");

sub new {
  my ($class) = shift;
  my $self    = {};
  bless $self,$class;