UI.php 28 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841
  1. <?php
  2. require_once('../application/application.inc.php');
  3. require_once('../application/itopwebpage.class.inc.php');
  4. require_once('../application/wizardhelper.class.inc.php');
  5. require_once('../application/startup.inc.php');
  6. $oContext = new UserContext();
  7. $oAppContext = new ApplicationContext();
  8. $iActiveNodeId = utils::ReadParam('menu', '');
  9. if (empty($iActiveNodeId))
  10. {
  11. // No menu specified, let's get the default one:
  12. // 1) It's a root menu item (parent_id == 0)
  13. // 2) with the lowest rank
  14. $oFilter = DBObjectSearch::FromOQL('SELECT menuNode AS M WHERE M.parent_id = 0');
  15. if ($oFilter)
  16. {
  17. $oMenuSet = new CMDBObjectSet($oFilter);
  18. while($oMenu = $oMenuSet->Fetch())
  19. {
  20. $aRanks[$oMenu->GetKey()] = $oMenu->Get('rank');
  21. }
  22. asort($aRanks); // sort by ascending rank: menuId => rank
  23. $aKeys = array_keys($aRanks);
  24. $iActiveNodeId = array_shift($aKeys); // Takes the first key, i.e. the menuId with the lowest rank
  25. }
  26. }
  27. $currentOrganization = utils::ReadParam('org_id', '');
  28. $operation = utils::ReadParam('operation', '');
  29. require_once('../application/loginwebpage.class.inc.php');
  30. login_web_page::DoLogin(); // Check user rights and prompt if needed
  31. $oP = new iTopWebPage("Welcome to ITop", $currentOrganization);
  32. // From now on the context is limited to the the selected organization ??
  33. if ($iActiveNodeId != -1)
  34. {
  35. $oActiveNode = $oContext->GetObject('menuNode', $iActiveNodeId);
  36. }
  37. else
  38. {
  39. $oActiveNode = null;
  40. }
  41. switch($operation)
  42. {
  43. case 'details':
  44. $sClass = utils::ReadParam('class', '');
  45. $sClassLabel = MetaModel::GetName($sClass);
  46. $id = utils::ReadParam('id', '');
  47. $oSearch = new DBObjectSearch($sClass);
  48. $oBlock = new DisplayBlock($oSearch, 'search', false);
  49. $oBlock->Display($oP, 0);
  50. if ( empty($sClass) || empty($id)) // TO DO: check that the class name is valid !
  51. {
  52. $oP->add("<p>'class' and 'id' parameters must be specifed for this operation.</p>\n");
  53. }
  54. else
  55. {
  56. $oObj = $oContext->GetObject($sClass, $id);
  57. if ($oObj != null)
  58. {
  59. $oP->set_title("iTop - ".$oObj->GetDisplayName()." - $sClassLabel details");
  60. $oObj->DisplayDetails($oP);
  61. }
  62. else
  63. {
  64. $oP->set_title("iTop - Error");
  65. $oP->add("<p>Sorry this object does not exist (or you are not allowed to view it).</p>\n");
  66. }
  67. }
  68. break;
  69. case 'search_form':
  70. $sOQLClass = utils::ReadParam('oql_class', '');
  71. $sOQLClause = utils::ReadParam('oql_clause', '');
  72. $sFormat = utils::ReadParam('format', '');
  73. $bSearchForm = utils::ReadParam('search_form', true);
  74. if (empty($sOQLClass))
  75. {
  76. $oP->set_title("iTop - Error");
  77. $oP->add("<p>'oql_class' must be specifed for this operation.</p>\n");
  78. }
  79. else
  80. {
  81. $oP->set_title("iTop - Search results");
  82. $sOQL = "SELECT $sOQLClass $sOQLClause";
  83. try
  84. {
  85. $oFilter = DBObjectSearch::FromOQL($sOQL); // To Do: Make sure we don't bypass security
  86. $oSet = new DBObjectSet($oFilter);
  87. if ($bSearchForm)
  88. {
  89. $oBlock = new DisplayBlock($oFilter, 'search', false);
  90. $oBlock->Display($oP, 0);
  91. }
  92. if (strtolower($sFormat) == 'csv')
  93. {
  94. $oBlock = new DisplayBlock($oFilter, 'csv', false);
  95. $oBlock->Display($oP, 'csv');
  96. $oPage->add_ready_script(" $('#csv').css('height', '95%');"); // adjust the size of the block
  97. }
  98. else
  99. {
  100. $oBlock = new DisplayBlock($oFilter, 'list', false);
  101. $oBlock->Display($oP, 1);
  102. }
  103. }
  104. catch(CoreException $e)
  105. {
  106. $oFilter = new DBObjectSearch($sOQLClass); // To Do: Make sure we don't bypass security
  107. $oSet = new DBObjectSet($oFilter);
  108. if ($bSearchForm)
  109. {
  110. $oBlock = new DisplayBlock($oFilter, 'search', false);
  111. $oBlock->Display($oP, 0);
  112. }
  113. $oP->P("<b>Error incorrect OQL query:</b>");
  114. $oP->P($e->getHtmlDesc());
  115. }
  116. catch(Exception $e)
  117. {
  118. $oP->p('<b>An error occured while running the query:</b>');
  119. $oP->p($e->getMessage());
  120. }
  121. }
  122. break;
  123. case 'search':
  124. $sFilter = utils::ReadParam('filter', '');
  125. $sFormat = utils::ReadParam('format', '');
  126. $bSearchForm = utils::ReadParam('search_form', true);
  127. if (empty($sFilter))
  128. {
  129. $oP->set_title("iTop - Error");
  130. $oP->add("<p>'filter' must be specifed for this operation.</p>\n");
  131. }
  132. else
  133. {
  134. $oP->set_title("iTop - Search results");
  135. // TO DO: limit the search filter by the user context
  136. $oFilter = CMDBSearchFilter::unserialize($sFilter); // TO DO : check that the filter is valid
  137. $oSet = new DBObjectSet($oFilter);
  138. if ($bSearchForm)
  139. {
  140. $oBlock = new DisplayBlock($oFilter, 'search', false);
  141. $oBlock->Display($oP, 0);
  142. }
  143. if (strtolower($sFormat) == 'csv')
  144. {
  145. $oBlock = new DisplayBlock($oFilter, 'csv', false);
  146. $oBlock->Display($oP, 'csv');
  147. $oP->add_ready_script(" $('#csv').css('height', '95%');"); // adjust the size of the block
  148. }
  149. else
  150. {
  151. $oBlock = new DisplayBlock($oFilter, 'list', false);
  152. $oBlock->Display($oP, 0);
  153. }
  154. }
  155. break;
  156. case 'full_text':
  157. $sFullText = trim(utils::ReadParam('text', ''));
  158. if (empty($sFullText))
  159. {
  160. $oP->p('Nothing to search.');
  161. }
  162. else
  163. {
  164. $oP->p("<h2>Results for '$sFullText':</h2>\n");
  165. $iCount = 0;
  166. // Search in full text mode in all the classes
  167. foreach(MetaModel::GetClasses('bizmodel') as $sClassName)
  168. {
  169. $oFilter = new DBObjectSearch($sClassName);
  170. $oFilter->AddCondition_FullText($sFullText);
  171. $oSet = new DBObjectSet($oFilter);
  172. if ($oSet->Count() > 0)
  173. {
  174. $aLeafs = array();
  175. while($oObj = $oSet->Fetch())
  176. {
  177. if (get_class($oObj) == $sClassName)
  178. {
  179. $aLeafs[] = $oObj->GetKey();
  180. }
  181. }
  182. $oLeafsFilter = new DBObjectSearch($sClassName);
  183. if (count($aLeafs) > 0)
  184. {
  185. $iCount += count($aLeafs);
  186. $oP->add("<div class=\"page_header\">\n");
  187. $oP->add("<h1><span class=\"hilite\">".Metamodel::GetName($sClassName).":</span> ".count($aLeafs)." object(s) found.</h1>\n");
  188. $oP->add("</div>\n");
  189. $oLeafsFilter->AddCondition('pkey', $aLeafs, 'IN');
  190. $oBlock = new DisplayBlock($oLeafsFilter, 'list', false);
  191. $oBlock->Display($oP, 0);
  192. }
  193. }
  194. }
  195. if ($iCount == 0)
  196. {
  197. $oP->p('No object found.');
  198. }
  199. }
  200. break;
  201. case 'modify':
  202. $oP->add_linked_script("../js/json.js");
  203. $oP->add_linked_script("../js/forms-json-utils.js");
  204. $oP->add_linked_script("../js/wizardhelper.js");
  205. $oP->add_linked_script("../js/wizard.utils.js");
  206. $oP->add_linked_script("../js/linkswidget.js");
  207. $oP->add_linked_script("../js/jquery.blockUI.js");
  208. $sClass = utils::ReadParam('class', '');
  209. $sClassLabel = MetaModel::GetName($sClass);
  210. $id = utils::ReadParam('id', '');
  211. if ( empty($sClass) || empty($id)) // TO DO: check that the class name is valid !
  212. {
  213. $oP->add("<p>'class' and 'id' parameters must be specifed for this operation.</p>\n");
  214. }
  215. else
  216. {
  217. // Check if the user can modify this object
  218. $oSearch = new DBObjectSearch($sClass);
  219. $oSearch->AddCondition('pkey', $id, '=');
  220. $oSet = new CMDBObjectSet($oSearch);
  221. if ($oSet->Count() > 0)
  222. {
  223. $oObj = $oSet->Fetch();
  224. }
  225. $bIsModifiedAllowed = (UserRights::IsActionAllowed($sClass, UR_ACTION_MODIFY, $oSet) == UR_ALLOWED_YES);
  226. $bIsReadAllowed = (UserRights::IsActionAllowed($sClass, UR_ACTION_READ, $oSet) == UR_ALLOWED_YES);
  227. if( ($oObj != null) && ($bIsModifiedAllowed) && ($bIsReadAllowed))
  228. {
  229. $oP->set_title("iTop - ".$oObj->GetName()." - $sClassLabel modification");
  230. $oP->add("<div class=\"page_header\">\n");
  231. $oP->add("<h1>Modification of $sClassLabel: <span class=\"hilite\">".$oObj->GetName()."</span></h1>\n");
  232. $oP->add("</div>\n");
  233. $oP->add("<div class=\"wizContainer\">\n");
  234. $oObj->DisplayModifyForm($oP);
  235. $oP->add("</div>\n");
  236. }
  237. else
  238. {
  239. $oP->set_title("iTop - Error");
  240. $oP->add("<p>Sorry this object does not exist (or you are not allowed to view it).</p>\n");
  241. }
  242. }
  243. break;
  244. case 'clone':
  245. $sClass = utils::ReadParam('class', '');
  246. $sClassLabel = MetaModel::GetName($sClass);
  247. $id = utils::ReadParam('id', '');
  248. if ( empty($sClass) || empty($id)) // TO DO: check that the class name is valid !
  249. {
  250. $oP->add("<p>'class' and 'id' parameters must be specifed for this operation.</p>\n");
  251. }
  252. else
  253. {
  254. // Check if the user can modify this object
  255. $oSearch = new DBObjectSearch($sClass);
  256. $oSearch->AddCondition('pkey', $id, '=');
  257. $oSet = new CMDBObjectSet($oSearch);
  258. if ($oSet->Count() > 0)
  259. {
  260. $oObjToClone = $oSet->Fetch();
  261. }
  262. $bIsModifiedAllowed = (UserRights::IsActionAllowed($sClass, UR_ACTION_MODIFY, $oSet) == UR_ALLOWED_YES);
  263. $bIsReadAllowed = (UserRights::IsActionAllowed($sClass, UR_ACTION_READ, $oSet) == UR_ALLOWED_YES);
  264. if( ($oObjToClone != null) && ($bIsModifiedAllowed) && ($bIsReadAllowed))
  265. {
  266. $oP->set_title("iTop - ".$oObjToClone->GetName()." - $sClassLabel clone");
  267. $oP->add("<h1>".$oObjToClone->GetName()." - $sClassLabel clone</h1>\n");
  268. cmdbAbstractObject::DisplayCreationForm($oP, $sClass, $oObjToClone);
  269. }
  270. else
  271. {
  272. $oP->set_title("iTop - Error");
  273. $oP->add("<p>Sorry this object does not exist (or you are not allowed to view it).</p>\n");
  274. }
  275. }
  276. break;
  277. case 'new':
  278. $sClass = utils::ReadParam('class', '');
  279. $sStateCode = utils::ReadParam('state', '');
  280. if ( empty($sClass) )
  281. {
  282. $oP->p("The class must be specified for this operation!");
  283. }
  284. else
  285. {
  286. $oP->add_linked_script("../js/json.js");
  287. $oP->add_linked_script("../js/forms-json-utils.js");
  288. $oP->add_linked_script("../js/wizardhelper.js");
  289. $oP->add_linked_script("../js/wizard.utils.js");
  290. $oP->add_linked_script("../js/linkswidget.js");
  291. $oP->add_linked_script("../js/jquery.blockUI.js");
  292. $oWizard = new UIWizard($oP, $sClass, $sStateCode);
  293. $sStateCode = $oWizard->GetTargetState(); // Will computes the default state if none was supplied
  294. $sClassLabel = MetaModel::GetName($sClass);
  295. $oP->p("<h2>Creation of a new $sClassLabel</h2>");
  296. if (!empty($sStateCode))
  297. {
  298. $aStates = MetaModel::EnumStates($sClass);
  299. $sStateLabel = $aStates[$sStateCode]['label'];
  300. }
  301. $aWizardSteps = $oWizard->GetWizardStructure();
  302. // Display the structure of the wizard
  303. $iStepIndex = 1;
  304. $iMaxInputId = 0;
  305. $aFieldsMap = array();
  306. foreach($aWizardSteps['mandatory'] as $aSteps)
  307. {
  308. $oP->SetCurrentTab("Step $iStepIndex *");
  309. $oWizard->DisplayWizardStep($aSteps, $iStepIndex, $iMaxInputId, $aFieldsMap);
  310. //$oP->add("</div>\n");
  311. $iStepIndex++;
  312. }
  313. foreach($aWizardSteps['optional'] as $aSteps)
  314. {
  315. $oP->SetCurrentTab("Step $iStepIndex *");
  316. $oWizard->DisplayWizardStep($aSteps, $iStepIndex, $iMaxInputId, $aFieldsMap, true); // true means enable the finish button
  317. //$oP->add("</div>\n");
  318. $iStepIndex++;
  319. }
  320. $oWizard->DisplayFinalStep($iStepIndex, $aFieldsMap);
  321. $oAppContext = new ApplicationContext();
  322. $oContext = new UserContext();
  323. $oObj = null;
  324. if (!empty($id))
  325. {
  326. $oObj = $oContext->GetObject($sClass, $id);
  327. }
  328. if (!is_object($oObj))
  329. {
  330. // new object or that can't be retrieved (corrupted id or object not allowed to this user)
  331. $id = '';
  332. $oObj = MetaModel::NewObject($sClass);
  333. }
  334. $oP->add("<script>
  335. // Fill the map between the fields of the form and the attributes of the object\n");
  336. $aNewFieldsMap = array();
  337. foreach($aFieldsMap as $id => $sFieldCode)
  338. {
  339. $aNewFieldsMap[$sFieldCode] = $id;
  340. }
  341. $sJsonFieldsMap = json_encode($aNewFieldsMap);
  342. $oP->add("
  343. // Initializes the object once at the beginning of the page...
  344. var oWizardHelper = new WizardHelper('$sClass');
  345. oWizardHelper.SetFieldsMap($sJsonFieldsMap);
  346. ActivateStep(1);
  347. </script>\n");
  348. }
  349. break;
  350. case 'apply_modify':
  351. $sClass = utils::ReadPostedParam('class', '');
  352. $sClassLabel = MetaModel::GetName($sClass);
  353. $id = utils::ReadPostedParam('id', '');
  354. $sTransactionId = utils::ReadPostedParam('transaction_id', '');
  355. if ( empty($sClass) || empty($id)) // TO DO: check that the class name is valid !
  356. {
  357. $oP->add("<p>'class' and 'id' parameters must be specifed for this operation.</p>\n");
  358. }
  359. else if (!utils::IsTransactionValid($sTransactionId))
  360. {
  361. $oP->p("<strong>Error: object has already be updated!</strong>\n");
  362. }
  363. else
  364. {
  365. $oObj = $oContext->GetObject($sClass, $id);
  366. if ($oObj != null)
  367. {
  368. $oP->set_title("iTop - ".$oObj->GetName()." - $sClassLabel modification");
  369. $oP->add("<h1>".$oObj->GetName()." - $sClassLabel modification</h1>\n");
  370. $bObjectModified = false;
  371. foreach(MetaModel::ListAttributeDefs(get_class($oObj)) as $sAttCode=>$oAttDef)
  372. {
  373. $iFlags = $oObj->GetAttributeFlags($sAttCode);
  374. if ($iFlags & (OPT_ATT_HIDDEN | OPT_ATT_READONLY))
  375. {
  376. // Non-visible, or read-only attribute, do nothing
  377. }
  378. else if ($oAttDef->IsLinkSet())
  379. {
  380. // Link set, the data is a set of link objects, encoded in JSON
  381. $aAttributes[$sAttCode] = trim(utils::ReadPostedParam("attr_$sAttCode", ''));
  382. if (!empty($aAttributes[$sAttCode]))
  383. {
  384. $oLinkSet = WizardHelper::ParseJsonSet($oObj, $oAttDef->GetLinkedClass(), $oAttDef->GetExtKeyToMe(), $aAttributes[$sAttCode]);
  385. $oObj->Set($sAttCode, $oLinkSet);
  386. // TO DO: detect a real modification, for now always update !!
  387. $bObjectModified = true;
  388. }
  389. }
  390. else if (!$oAttDef->IsExternalField())
  391. {
  392. $aAttributes[$sAttCode] = trim(utils::ReadPostedParam("attr_$sAttCode", ''));
  393. $previousValue = $oObj->Get($sAttCode);
  394. if (!empty($aAttributes[$sAttCode]) && ($previousValue != $aAttributes[$sAttCode]))
  395. {
  396. $oObj->Set($sAttCode, $aAttributes[$sAttCode]);
  397. $bObjectModified = true;
  398. }
  399. }
  400. }
  401. if (!$bObjectModified)
  402. {
  403. $oP->p("No modification detected. ".MetaModel::GetName(get_class($oObj))." has <strong>not</strong> been updated.\n");
  404. }
  405. else if ($oObj->CheckToUpdate())
  406. {
  407. $oMyChange = MetaModel::NewObject("CMDBChange");
  408. $oMyChange->Set("date", time());
  409. if (UserRights::GetUser() != UserRights::GetRealUser())
  410. {
  411. $sUserString = UserRights::GetRealUser()." on behalf of ".UserRights::GetUser();
  412. }
  413. else
  414. {
  415. $sUserString = UserRights::GetUser();
  416. }
  417. $oMyChange->Set("userinfo", $sUserString);
  418. $iChangeId = $oMyChange->DBInsert();
  419. $oObj->DBUpdateTracked($oMyChange);
  420. $oP->p(MetaModel::GetName(get_class($oObj))." updated.\n");
  421. }
  422. else
  423. {
  424. $oP->p("<strong>Error: object can not be updated!</strong>\n");
  425. //$oObj->Reload(); // restore default values!
  426. }
  427. }
  428. else
  429. {
  430. $oP->set_title("iTop - Error");
  431. $oP->add("<p>Sorry this object does not exist (or you are not allowed to edit it).</p>\n");
  432. }
  433. }
  434. $oObj->DisplayDetails($oP);
  435. break;
  436. case 'delete':
  437. $sClass = utils::ReadParam('class', '');
  438. $sClassLabel = MetaModel::GetName($sClass);
  439. $id = utils::ReadParam('id', '');
  440. $oObj = $oContext->GetObject($sClass, $id);
  441. $sName = $oObj->GetName();
  442. $oMyChange = MetaModel::NewObject("CMDBChange");
  443. $oMyChange->Set("date", time());
  444. if (UserRights::GetUser() != UserRights::GetRealUser())
  445. {
  446. $sUserString = UserRights::GetRealUser()." on behalf of ".UserRights::GetUser();
  447. }
  448. else
  449. {
  450. $sUserString = UserRights::GetUser();
  451. }
  452. $oMyChange->Set("userinfo", $sUserString);
  453. $oMyChange->DBInsert();
  454. $oObj->DBDeleteTracked($oMyChange);
  455. $oP->add("<h1>".$sName." - $sClassLabel deleted</h1>\n");
  456. break;
  457. case 'apply_new':
  458. $oP->p('Creation of the object');
  459. $oP->p('Obsolete, should now go through the wizard...');
  460. break;
  461. case 'apply_clone':
  462. $sClass = utils::ReadPostedParam('class', '');
  463. $sClassLabel = MetaModel::GetName($sClass);
  464. $iCloneId = utils::ReadPostedParam('clone_id', '');
  465. $sTransactionId = utils::ReadPostedParam('transaction_id', '');
  466. if (!utils::IsTransactionValid($sTransactionId))
  467. {
  468. $oP->p("<strong>Error: object has already be cloned!</strong>\n");
  469. }
  470. else
  471. {
  472. $oObj = $oContext->GetObject($sClass, $iCloneId);
  473. $oMyChange = MetaModel::NewObject("CMDBChange");
  474. $oMyChange->Set("date", time());
  475. if (UserRights::GetUser() != UserRights::GetRealUser())
  476. {
  477. $sUserString = UserRights::GetRealUser()." on behalf of ".UserRights::GetUser();
  478. }
  479. else
  480. {
  481. $sUserString = UserRights::GetUser();
  482. }
  483. $oMyChange->Set("userinfo", $sUserString);
  484. $iChangeId = $oMyChange->DBInsert();
  485. $sStateAttCode = MetaModel::GetStateAttributeCode(get_class($oObj));
  486. foreach(MetaModel::ListAttributeDefs($sClass) as $sAttCode=>$oAttDef)
  487. {
  488. if ( ('finalclass' != $sAttCode) && // finalclass is a reserved word, hardcoded !
  489. ($sStateAttCode != $sAttCode) &&
  490. (!$oAttDef->IsExternalField()) )
  491. {
  492. $value = utils::ReadPostedParam('attr_'.$sAttCode, '');
  493. $oObj->Set($sAttCode, $value);
  494. }
  495. }
  496. $oObj->DBCloneTracked($oMyChange);
  497. $oP->add("<h1>".$oObj->GetName()." - $sClassLabel created</h1>\n");
  498. $oObj->DisplayDetails($oP);
  499. }
  500. break;
  501. case 'wizard_apply_new':
  502. $sJson = utils::ReadPostedParam('json_obj', '');
  503. $oWizardHelper = WizardHelper::FromJSON($sJson);
  504. $sTransactionId = utils::ReadPostedParam('transaction_id', '');
  505. if (!utils::IsTransactionValid($sTransactionId))
  506. {
  507. $oP->p("<strong>Error: object has already be created!</strong>\n");
  508. }
  509. else
  510. {
  511. $oObj = $oWizardHelper->GetTargetObject();
  512. if (is_object($oObj))
  513. {
  514. $sClass = get_class($oObj);
  515. $sClassLabel = MetaModel::GetName($sClass);
  516. $oMyChange = MetaModel::NewObject("CMDBChange");
  517. $oMyChange->Set("date", time());
  518. if (UserRights::GetUser() != UserRights::GetRealUser())
  519. {
  520. $sUserString = UserRights::GetRealUser()." on behalf of ".UserRights::GetUser();
  521. }
  522. else
  523. {
  524. $sUserString = UserRights::GetUser();
  525. }
  526. $oMyChange->Set("userinfo", $sUserString);
  527. $iChangeId = $oMyChange->DBInsert();
  528. $oObj->DBInsertTracked($oMyChange);
  529. $oP->set_title("iTop - ".$oObj->GetName()." - $sClassLabel created");
  530. $oP->add("<h1>".$oObj->GetName()." - $sClassLabel created</h1>\n");
  531. $oObj->DisplayDetails($oP);
  532. }
  533. }
  534. break;
  535. case 'stimulus':
  536. $sClass = utils::ReadParam('class', '');
  537. $id = utils::ReadParam('id', '');
  538. $sStimulus = utils::ReadParam('stimulus', '');
  539. if ( empty($sClass) || empty($id) || empty($sStimulus) ) // TO DO: check that the class name is valid !
  540. {
  541. $oP->add("<p>'class', 'id' and 'stimulus' parameters must be specifed for this operation.</p>\n");
  542. }
  543. else
  544. {
  545. $oObj = $oContext->GetObject($sClass, $id);
  546. if ($oObj != null)
  547. {
  548. $aTransitions = $oObj->EnumTransitions();
  549. $aStimuli = MetaModel::EnumStimuli($sClass);
  550. if (!isset($aTransitions[$sStimulus]))
  551. {
  552. $oP->add("<p><strong>Error:</strong> Invalid stimulus: '$sStimulus' on object: {$oObj->GetName()} in state {$oObj->GetState()}.</p>\n");
  553. }
  554. else
  555. {
  556. $sActionLabel = $aStimuli[$sStimulus]->Get('label');
  557. $sActionDetails = $aStimuli[$sStimulus]->Get('description');
  558. $aTransition = $aTransitions[$sStimulus];
  559. $sTargetState = $aTransition['target_state'];
  560. $aTargetStates = MetaModel::EnumStates($sClass);
  561. $oP->add("<div class=\"page_header\">\n");
  562. $oP->add("<h1>$sActionLabel - <span class=\"hilite\">{$oObj->GetName()}</span></h1>\n");
  563. //$oP->add("<p>Applying '$sActionLabel' on object: {$oObj->GetName()} in state {$oObj->GetState()} to target state: $sTargetState.</p>\n");
  564. $oP->add("</div>\n");
  565. $oObj->DisplayBareDetails($oP);
  566. $aTargetState = $aTargetStates[$sTargetState];
  567. //print_r($aTransitions[$sStimulus]);
  568. //print_r($aTargetState);
  569. $aExpectedAttributes = $aTargetState['attribute_list'];
  570. $oP->add("<div class=\"wizHeader\">\n");
  571. $oP->add("<h1>$sActionDetails</h1>\n");
  572. $oP->add("<div class=\"wizContainer\">\n");
  573. $oP->add("<form method=\"post\">\n");
  574. $aDetails = array();
  575. foreach($aExpectedAttributes as $sAttCode => $iExpectCode)
  576. {
  577. // Prompt for an attribute if
  578. // - the attribute must be changed or must be displayed to the user for confirmation
  579. // - or the field is mandatory and currently empty
  580. if ( ($iExpectCode & (OPT_ATT_MUSTCHANGE | OPT_ATT_MUSTPROMPT)) ||
  581. (($iExpectCode & OPT_ATT_MANDATORY) && ($oObj->Get($sAttCode) == '')) )
  582. {
  583. $aAttributesDef = MetaModel::ListAttributeDefs($sClass);
  584. $oAttDef = $aAttributesDef[$sAttCode];
  585. $sHTMLValue = cmdbAbstractObject::GetFormElementForField($oP, $sClass, $sAttCode, $oAttDef, $oObj->Get($sAttCode), $oObj->GetDisplayValue($sAttCode));
  586. $aDetails[] = array('label' => $oAttDef->GetLabel(), 'value' => $sHTMLValue);
  587. }
  588. }
  589. $oP->details($aDetails);
  590. $oP->add("<input type=\"hidden\" name=\"id\" value=\"$id\">\n");
  591. $oP->add("<input type=\"hidden\" name=\"class\" value=\"$sClass\">\n");
  592. $oP->add("<input type=\"hidden\" name=\"operation\" value=\"apply_stimulus\">\n");
  593. $oP->add("<input type=\"hidden\" name=\"stimulus\" value=\"$sStimulus\">\n");
  594. $oP->add("<input type=\"hidden\" name=\"transaction_id\" value=\"".utils::GetNewTransactionId()."\">\n");
  595. $oP->add($oAppContext->GetForForm());
  596. $oP->add("<button type=\"button\" class=\"action\" onClick=\"goBack()\"><span>Cancel</span></button>&nbsp;&nbsp;&nbsp;&nbsp;\n");
  597. $oP->add("<button type=\"submit\" class=\"action\"><span>$sActionLabel</span></button>\n");
  598. $oP->add("</form>\n");
  599. $oP->add("</div>\n");
  600. $oP->add("</div>\n");
  601. }
  602. }
  603. else
  604. {
  605. $oP->set_title("iTop - Error");
  606. $oP->add("<p>Sorry this object does not exist (or you are not allowed to edit it).</p>\n");
  607. }
  608. }
  609. break;
  610. case 'apply_stimulus':
  611. $sClass = utils::ReadPostedParam('class', '');
  612. $id = utils::ReadPostedParam('id', '');
  613. $sTransactionId = utils::ReadPostedParam('transaction_id', '');
  614. $sStimulus = utils::ReadPostedParam('stimulus', '');
  615. if ( empty($sClass) || empty($id) || empty($sStimulus) ) // TO DO: check that the class name is valid !
  616. {
  617. $oP->add("<p>'class', 'id' and 'stimulus' parameters must be specifed for this operation.</p>\n");
  618. }
  619. else
  620. {
  621. $oObj = $oContext->GetObject($sClass, $id);
  622. if ($oObj != null)
  623. {
  624. $aTransitions = $oObj->EnumTransitions();
  625. $aStimuli = MetaModel::EnumStimuli($sClass);
  626. if (!isset($aTransitions[$sStimulus]))
  627. {
  628. $oP->add("<p><strong>Error:</strong> Invalid stimulus: '$sStimulus' on object: {$oObj->GetName()} in state {$oObj->GetState()}.</p>\n");
  629. }
  630. else if (!utils::IsTransactionValid($sTransactionId))
  631. {
  632. $oP->p("<strong>Error: object has already been updated!</strong>\n");
  633. }
  634. else
  635. {
  636. $sActionLabel = $aStimuli[$sStimulus]->Get('label');
  637. $sActionDetails = $aStimuli[$sStimulus]->Get('description');
  638. $aTransition = $aTransitions[$sStimulus];
  639. $sTargetState = $aTransition['target_state'];
  640. $aTargetStates = MetaModel::EnumStates($sClass);
  641. $oP->add("<div class=\"page_header\">\n");
  642. $oP->add("<h1>$sActionLabel - <span class=\"hilite\">{$oObj->GetName()}</span></h1>\n");
  643. $oP->add("<p>$sActionDetails</p>\n");
  644. $oP->add("<p>Applying '$sActionLabel' on object: {$oObj->GetName()} in state {$oObj->GetState()} to target state: $sTargetState.</p>\n");
  645. $oP->add("</div>\n");
  646. $aTargetState = $aTargetStates[$sTargetState];
  647. //print_r($aTransitions[$sStimulus]);
  648. //print_r($aTargetState);
  649. $aExpectedAttributes = $aTargetState['attribute_list'];
  650. $aDetails = array();
  651. foreach($aExpectedAttributes as $sAttCode => $iExpectCode)
  652. {
  653. if (($iExpectCode & OPT_ATT_MUSTCHANGE) || ($oObj->Get($sAttCode) == '') )
  654. {
  655. $paramValue = utils::ReadPostedParam("attr_$sAttCode", '');
  656. $oObj->Set($sAttCode, $paramValue);
  657. }
  658. }
  659. if ($oObj->ApplyStimulus($sStimulus) && $oObj->CheckToUpdate())
  660. {
  661. $oMyChange = MetaModel::NewObject("CMDBChange");
  662. $oMyChange->Set("date", time());
  663. if (UserRights::GetUser() != UserRights::GetRealUser())
  664. {
  665. $sUserString = UserRights::GetRealUser()." on behalf of ".UserRights::GetUser();
  666. }
  667. else
  668. {
  669. $sUserString = UserRights::GetUser();
  670. }
  671. $oMyChange->Set("userinfo", $sUserString);
  672. $iChangeId = $oMyChange->DBInsert();
  673. $oObj->DBUpdateTracked($oMyChange);
  674. $oP->p(MetaModel::GetName(get_class($oObj))." updated.\n");
  675. }
  676. $oObj->DisplayDetails($oP);
  677. }
  678. }
  679. else
  680. {
  681. $oP->set_title("iTop - Error");
  682. $oP->add("<p>Sorry this object does not exist (or you are not allowed to edit it).</p>\n");
  683. }
  684. }
  685. break;
  686. case 'modify_links':
  687. $sClass = utils::ReadParam('class', '');
  688. $sLinkAttr = utils::ReadParam('link_attr', '');
  689. $sTargetClass = utils::ReadParam('target_class', '');
  690. $id = utils::ReadParam('id', '');
  691. $bAddObjects = utils::ReadParam('addObjects', false);
  692. if ( empty($sClass) || empty($id) || empty($sLinkAttr) || empty($sTargetClass)) // TO DO: check that the class name is valid !
  693. {
  694. $oP->set_title("iTop - Error");
  695. $oP->add("<p>4 parameters are mandatory for this operation: class, id, target_class and link_attr.</p>\n");
  696. }
  697. else
  698. {
  699. require_once('../application/uilinkswizard.class.inc.php');
  700. $oWizard = new UILinksWizard($sClass, $sLinkAttr, $id, $sTargetClass);
  701. $oWizard->Display($oP, $oContext, array('StartWithAdd' => $bAddObjects));
  702. }
  703. break;
  704. case 'do_modify_links':
  705. $aLinks = utils::ReadParam('linkId', array(), 'post');
  706. $sLinksToRemove = trim(utils::ReadParam('linksToRemove', '', 'post'));
  707. $aLinksToRemove = array();
  708. if (!empty($sLinksToRemove))
  709. {
  710. $aLinksToRemove = explode(' ', trim($sLinksToRemove));
  711. }
  712. $sClass = utils::ReadParam('class', '', 'post');
  713. $sLinkageAtt = utils::ReadParam('linkage', '', 'post');
  714. $iObjectId = utils::ReadParam('object_id', '', 'post');
  715. $sLinkingAttCode = utils::ReadParam('linking_attcode', '', 'post');
  716. $oMyChange = MetaModel::NewObject("CMDBChange");
  717. $oMyChange->Set("date", time());
  718. if (UserRights::GetUser() != UserRights::GetRealUser())
  719. {
  720. $sUserString = UserRights::GetRealUser()." on behalf of ".UserRights::GetUser();
  721. }
  722. else
  723. {
  724. $sUserString = UserRights::GetUser();
  725. }
  726. $oMyChange->Set("userinfo", $sUserString);
  727. $iChangeId = $oMyChange->DBInsert();
  728. // Delete links that are to be deleted
  729. foreach($aLinksToRemove as $iLinkId)
  730. {
  731. if ($iLinkId > 0) // Negative IDs are objects that were not even created
  732. {
  733. $oLink = $oContext->GetObject($sClass, $iLinkId);
  734. $oLink->DBDeleteTracked($oMyChange);
  735. }
  736. }
  737. $aEditableFields = array();
  738. $aData = array();
  739. foreach(MetaModel::GetAttributesList($sClass) as $sAttCode)
  740. {
  741. $oAttDef = MetaModel::GetAttributeDef($sClass, $sAttCode);
  742. if ( (!$oAttDef->IsExternalKey()) && (!$oAttDef->IsExternalField()))
  743. {
  744. $aEditableFields[] = $sAttCode;
  745. $aData[$sAttCode] = utils::ReadParam('attr_'.$sAttCode, array(), 'post');
  746. }
  747. }
  748. // Update existing links or create new links
  749. foreach($aLinks as $iLinkId)
  750. {
  751. if ($iLinkId > 0)
  752. {
  753. // This is an existing link to be modified
  754. $oLink = $oContext->GetObject($sClass, $iLinkId);
  755. // Update all the attributes of the link
  756. foreach($aEditableFields as $sAttCode)
  757. {
  758. $value = $aData[$sAttCode][$iLinkId];
  759. $oLink->Set($sAttCode, $value);
  760. }
  761. if ($oLink->IsModified())
  762. {
  763. $oLink->DBUpdateTracked($oMyChange);
  764. }
  765. //echo "Updated link:<br/>\n";
  766. //var_dump($oLink);
  767. }
  768. else
  769. {
  770. // A new link must be created
  771. $oLink = MetaModel::NewObject($sClass);
  772. $oLinkedObjectId = -$iLinkId;
  773. // Set all the attributes of the link
  774. foreach($aEditableFields as $sAttCode)
  775. {
  776. $value = $aData[$sAttCode][$iLinkId];
  777. $oLink->Set($sAttCode, $value);
  778. }
  779. // And the two external keys
  780. $oLink->Set($sLinkageAtt, $iObjectId);
  781. $oLink->Set($sLinkingAttCode, $oLinkedObjectId);
  782. // then save it
  783. //echo "Created link:<br/>\n";
  784. //var_dump($oLink);
  785. $oLink->DBInsertTracked($oMyChange);
  786. }
  787. }
  788. // Display again the details of the linked object
  789. $oAttDef = MetaModel::GetAttributeDef($sClass, $sLinkageAtt);
  790. $sTargetClass = $oAttDef->GetTargetClass();
  791. $oObj = $oContext->GetObject($sTargetClass, $iObjectId);
  792. $oSearch = $oContext->NewFilter(get_class($oObj));
  793. $oBlock = new DisplayBlock($oSearch, 'search', false);
  794. $oBlock->Display($oP, 0);
  795. $oObj->DisplayDetails($oP);
  796. break;
  797. default:
  798. $oActiveNode->RenderContent($oP, $oAppContext->GetAsHash());
  799. }
  800. ////MetaModel::ShowQueryTrace();
  801. $oP->output();
  802. ?>