NAME

OpenInteract2::Manage::Website::TestDB - Managment task

SYNOPSIS

#!/usr/bin/perl

use strict;
use OpenInteract2::Manage;

my $website_dir = '/home/httpd/mysite';
my $task = OpenInteract2::Manage->new(
                     'test_db', { website_dir => $website_dir } );
my @status = $task->execute;
foreach my $s ( @status ) {
    my $ok_label      = ( $s->{is_ok} eq 'yes' )
                          ? 'OK' : 'NOT OK';
    my $default_label = ( $s->{is_default} eq 'yes' )
                          ? ' (default) ' : '';
    print "Connection: $s->{name} $default_label\n",
          "Status:     $ok_label\n",
          "$s->{message}\n";
}

DESCRIPTION

This command simply tests all DBI connections defined in the server configuration. That is, all datasource entries that are of type 'DBI'. We test that we can connect to the database with the supplied user/password, that we can create and drop a table.

STATUS MESSAGES

In addition to the normal entries, each status hashref includes:

name

Name of the connection

is_default

Set to 'yes' if the connection is the default DBI connection, 'no' if not.

COPYRIGHT

Copyright (c) 2002-2004 Chris Winters. All rights reserved.

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

AUTHORS

Chris Winters <chris@cwinters.com>