NAME
OpenInteract2::Manage::Website::InstallPackageStructure - Managment task
SYNOPSIS
#!/usr/bin/perl
use
strict;
my
$website_dir
=
'/home/httpd/mysite'
;
my
$task
= OpenInteract2::Manage->new(
'install_sql_structure'
, {
website_dir
=>
$website_dir
,
package
=>
'mypackage'
});
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) '
:
''
;
"Action: $s->{action}\n"
,
"Status OK? $s->{is_ok}\n"
,
"$s->{message}\n"
;
}
DESCRIPTION
Installs SQL data structures for one or more packages.
STATUS MESSAGES
In addition to the default entries, successful status messages include:
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>