|
From: Chris W. <la...@us...> - 2001-10-18 03:56:39
|
Update of /cvsroot/openinteract/OpenInteract/script
In directory usw-pr-cvs1:/tmp/cvs-serv19795
Modified Files:
oi_manage
Log Message:
cosmetic
Index: oi_manage
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/script/oi_manage,v
retrieving revision 1.47
retrieving revision 1.48
diff -C2 -d -r1.47 -r1.48
*** oi_manage 2001/10/18 02:46:27 1.47
--- oi_manage 2001/10/18 03:56:36 1.48
***************
*** 29,38 ****
my %COMMANDS = map { $_ => 1 }
qw( initial_packages list_packages list_actions list_objects
! install upgrade create_skeleton export_package check_package
! create_website install_sql test_db test_ldap change_spops_driver
! install_package apply_package remove_package upgrade_package
install_template dump_template remove_template
refresh_doc refresh_widget update_object
! upgrade_website_repository upgrade_installation_repository );
# These are aliases people might type by accident instead of the
[...994 lines suppressed...]
my $msg = "[oi_manage]: Failure! Cannot find base configuration or " .
"configuration is invalid. Does the file: ($base_conf_file) " .
! "exist in your website? " .
! "(Specific error: <$p->{error}> from routine <$p->{sub}>)";
die wrap( undef, undef, "$msg\n" );
}
***************
*** 2633,2637 ****
$line .= ': ' . wrap( undef, $indent, $status->{msg} ) if ( $status->{msg} );
if ( $status->{notes} ) {
! $line .= "\n\nNotes from Package Author (READ THESE)\n$status->{notes}\n$SEP\n";
}
return $line;
--- 2722,2727 ----
$line .= ': ' . wrap( undef, $indent, $status->{msg} ) if ( $status->{msg} );
if ( $status->{notes} ) {
! $line .= "\n\nNotes from Package Author (READ THESE)\n" .
! "$status->{notes}\n$SEP\n";
}
return $line;
|