Author image David Peters
and 1 contributors

NAME

Xymon::DB::Schema - Group of Schemas for Xymon

SYNOPSIS

  use Xymon::DB::Schema;

DESCRIPTION

Load DBIx::Class table classes for Xymon Database application.

USAGE

        use Xymon::DB::Schema;
        
        my $db = Xymon::DB::Schema->connect( 
                        "DBI:Sybase:server=testsql2005;database=Hobbit", "hobbit", "hobpass",
                        {PrintError => 0}
                        );
        
        if($db) {

                my $hosts = $db->resultset('host')->search(
                        {
                                hobbit => 1,
                                recordstatus => 'Complete',
                        },
                        {
                                'join'  => 'LuLocation',
                                '+select' => 'LuLocation.region',
                                '+as' => 'region',
                                 order_by => 'hostname ASC' 
                        },
                )->hashref_pk;
        } else {
        die "Unable for connect to server $DBI::errstr";
        }
        
        print $hosts->{$hostname}->{location} . "\n";
        

See DBIx::Class for more details on queries.

BUGS

SUPPORT

AUTHOR

    David Peters
    CPAN ID: DAVIDP
    davidp@electronf.com
    http://www.electronf.com

COPYRIGHT

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

The full text of the license can be found in the LICENSE file included with this module.

SEE ALSO

DBIx::Class, perl(1).