getMessage()."\ndi:\n".$err->getDebugInfo(). "\nui:\n".$err->getUserInfo()."\n\n"; exit(1); } PEAR::setErrorHandling(PEAR_ERROR_PRINT, "%s

---

\n"); $dbc = DB::connect($config['dsn'], TRUE); if(PEAR::isError($dbc)){ echo "Database connection problem.\n"; echo "Check if database '{$config['dsn']['database']}' exists". " with corresponding permissions.\n"; echo "Database access is defined by 'dsn' values in conf.php.\n"; exit(1); } echo "#StorageServer uninstall:\n"; $dbc->setFetchMode(DB_FETCHMODE_ASSOC); $gb = &new GreenBox($dbc, $config); $tr =& new Transport($dbc, $gb, $config); $pr =& new Prefs($gb); $dbc->setErrorHandling(PEAR_ERROR_RETURN); echo "# Uninstall Prefs submodule"; $r = $pr->uninstall(); if(PEAR::isError($r)){ echo $r->getUserInfo()."\n"; exit; } echo "\n"; echo "# Uninstall Transport submodule ..."; $r = $tr->uninstall(); if(PEAR::isError($r)){ echo $r->getUserInfo()."\n"; exit; } echo "\n"; echo "# Uninstall StorageServer ...\n"; $gb->uninstall(); echo "#StorageServer uninstall: OK\n"; $dbc->disconnect(); ?>