\n"); PEAR::setErrorHandling(PEAR_ERROR_RETURN); $CC_DBC = DB::connect($CC_CONFIG['dsn'], TRUE); $CC_DBC->setFetchMode(DB_FETCHMODE_ASSOC); $gb = new GreenBox(); #$gunid = "123456789abcdee0"; $gunid = ""; #$mdataFileLP = '../tests/mdata1.xml'; $mdataFileLP = NULL; echo "# Login: ".($sessid = Alib::Login('root', 'q'))."\n"; $parid = $gb->_getHomeDirId($sessid); echo "# storeWebstream: "; $r = $gb->storeWebstream( $parid, 'test stream', $mdataFileLP, $sessid, $gunid, 'http://localhost/y'); if (PEAR::isError($r)) { echo "ERROR: ".$r->getMessage()." ".$r->getUserInfo()."\n"; exit(1); } echo ""; var_dump($r); //$id = BasicStor::IdFromGunid($gunid); $id = $r; echo "# getMdata: "; $r = $gb->getMetadata($id, $sessid); if (PEAR::isError($r)) { echo "ERROR: ".$r->getMessage()." ".$r->getUserInfo()."\n"; exit(1); } echo "\n$r\n"; echo "# deleteFile: "; $r = $gb->deleteFile($id, $sessid); if (PEAR::isError($r)) { echo "ERROR: ".$r->getMessage()." ".$r->getUserInfo()."\n"; exit(1); } echo "\n$r\n"; echo "# logout: "; $r = Alib::Logout($sessid); if (PEAR::isError($r)) { echo "ERROR: ".$r->getMessage()."\n"; exit(1); } echo "$r\n"; echo "#storeWebstream test: OK.\n\n" */ ?>