# Process a Perl script which updates the database.
# If the script returns 1 then the update was successful.
# Return code "2" means "needs more interaction; remove
# Process a Perl script which updates the database.
# If the script returns 1 then the update was successful.
# Return code "2" means "needs more interaction; remove
# All other return codes are fatal errors.
sub process_perl_script {
$main::lxdebug->enter_sub();
# All other return codes are fatal errors.
sub process_perl_script {
$main::lxdebug->enter_sub();