$sRelation = utils::ReadParam('relation', 'neighbours');
try {
$width = 1000;
$height = 700;
$sDrillUrl = urlencode(utils::GetAbsoluteUrlAppRoot() . 'pages/UI.php?operation=details');
// $sParams = "pWidth=$width&pHeight=$height&drillUrl=".urlencode('../pages/UI.php?operation=details')."&displayController=false&xmlUrl=".urlencode("./xml.navigator.php")."&obj_class=$sClass&obj_id=$id&relation=$sRelation";
// $oP->add("<object classid=\"clsid:d27cdb6e-ae6d-11cf-96b8-444553540000\" codebase=\"http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,0,0\" width=\"$width\" height=\"$height\" id=\"navigator\" align=\"middle\">
// <param name=\"allowScriptAccess\" value=\"sameDomain\" />
// <param name=\"allowFullScreen\" value=\"false\" />
// <param name=\"FlashVars\" value=\"$sParams\" />
// <param name=\"movie\" value=\"../images/navigator.swf\" /><param name=\"quality\" value=\"high\" /><param name=\"bgcolor\" value=\"#ffffff\" />
// <embed src=\"../images/navigator.swf\" flashVars=\"$sParams\" quality=\"high\" bgcolor=\"#ffffff\" width=\"$width\" height=\"$height\" name=\"navigator\" align=\"middle\" allowScriptAccess=\"sameDomain\" allowFullScreen=\"false\" type=\"application/x-shockwave-flash\" pluginspage=\"http://www.adobe.com/go/getflashplayer\" />
// </object>\n");
$oP->add("<div id=\"navigator\">If the chart does not display, <a href=\"http://get.adobe.com/flash/\" target=\"_blank\">install Flash</a></div>\n");
$oP->add_ready_script(<<<EOF
var iWidth = \$('.ui-layout-content').width();
var iHeight = \$('.ui-layout-content').height();
swfobject.embedSWF("../navigator/navigator.swf", "navigator", "100%", "100%","9.0.0", "expressInstall.swf",
\t\t\t\t { pWidth: iWidth, pHeight: iHeight, drillUrl: '{$sDrillUrl}', displayController: false, obj_class: '{$sClass}', obj_id: {$id}, relation: '{$sRelation}'},
\t\t\t\t {wmode: 'transparent'}
\t\t\t\t );
EOF
);
} catch (CoreException $e) {
$oP->p('<b>An error occured while running the query:</b>');
$oP->p($e->getHtmlDesc());
} catch (Exception $e) {
$oP->p('<b>An error occured while running the query:</b>');
$oP->p($e->getMessage());
}
$oP->output();
}
$sCommand = "{$sMySQLDump} -V 2>&1";
$aOutput = array();
$iRetCode = 0;
exec($sCommand, $aOutput, $iRetCode);
if ($iRetCode == 0) {
$sMySqlDump = $sImgOk . Dict::Format("bkp-mysqldump-ok", $aOutput[0]);
} elseif ($iRetCode == 1) {
$sMySqlDump = $sImgError . Dict::Format("bkp-mysqldump-notfound", implode(' ', $aOutput));
} else {
$sMySqlDump = $sImgError . Dict::Format("bkp-mysqldump-issue", $iRetCode);
}
foreach ($aOutput as $sLine) {
//echo 'Info - mysqldump -V said: '.$sLine;
}
$oP->p($sMySqlDump);
// Destination directory
//
// Make sure the target directory exists and is writeable
$sBackupDir = APPROOT . 'data/backups/';
SetupUtils::builddir($sBackupDir);
if (!is_dir($sBackupDir)) {
$oP->p($sImgError . Dict::Format('bkp-missing-dir', $sBackupDir));
} else {
$oP->p(Dict::Format('bkp-free-disk-space', SetupUtils::HumanReadableSize(SetupUtils::CheckDiskSpace($sBackupDir)), $sBackupDir));
if (!is_writable($sBackupDir)) {
$oP->p($sImgError . Dict::Format('bkp-dir-not-writeable', $sBackupDir));
}
}
$sBackupDirAuto = $sBackupDir . 'auto/';
SetupUtils::builddir($sBackupDirAuto);
