Your IP : 172.28.240.42
<?
define("ADMIN_MODULE_NAME", "perfmon");
define("PERFMON_STOP", true);
require_once($_SERVER["DOCUMENT_ROOT"]."/bitrix/modules/main/include/prolog_admin_before.php");
require_once($_SERVER["DOCUMENT_ROOT"]."/bitrix/modules/perfmon/include.php");
require_once($_SERVER["DOCUMENT_ROOT"]."/bitrix/modules/perfmon/prolog.php");
IncludeModuleLangFile(__FILE__);
$obTable = new CPerfomanceTable;
$obTable->Init($table_name);
$RIGHT = $APPLICATION->GetGroupRight("perfmon");
if($RIGHT=="D" || !$obTable->IsExists() || (COption::GetOptionString("perfmon", "table_browser")!="Y"))
$APPLICATION->AuthForm(GetMessage("ACCESS_DENIED"));
$arFields = $obTable->GetTableFields();
$arUniqueIndexes = $obTable->GetUniqueIndexes();
$sTableID = "tbl_perfmon_table".md5($table_name);
$oSort = new CAdminSorting($sTableID, "ID", "asc");
$lAdmin = new CAdminList($sTableID, $oSort);
if($lAdmin->GroupAction() && $RIGHT>="W")
{
switch($_REQUEST['action'])
{
case "delete":
//Gather columns from request
$arRowPK = array();
foreach($_REQUEST as $key=>$value)
{
if(strlen($value) && preg_match("/^del_pk_(.+)$/", $key, $match))
$arRowPK[$match[1]] = $value;
}
if(count($arRowPK))
{
foreach($arUniqueIndexes as $arIndexColumns)
{
$arMissed = array_diff($arIndexColumns, array_keys($arRowPK));
if(count($arMissed) == 0)
{
$strSql = "delete from ".$table_name." WHERE 1=1 ";
foreach($arRowPK as $column => $value)
$strSql .= " AND ".$column."='".$DB->ForSQL($value)."'";
$DB->Query($strSql);
break;
}
}
}
break;
}
}
$FilterArr = array(
"find",
"find_type",
);
foreach($arFields as $FIELD_NAME=>$FIELD_TYPE)
{
if($FIELD_TYPE!="unknown")
$FilterArr[] = "find_".$FIELD_NAME;
}
$lAdmin->InitFilter($FilterArr);
$arFilter = array();
foreach($arFields as $FIELD_NAME=>$FIELD_TYPE)
{
if($FIELD_TYPE!="unknown")
{
if(
isset($find_type) && $find_type==$FIELD_NAME
&& isset($find) && strlen($find)
)
$arFilter[$FIELD_NAME] = $find;
elseif(
isset($GLOBALS["find_".$FIELD_NAME]) && strlen($GLOBALS["find_".$FIELD_NAME])
)
$arFilter["=%".$FIELD_NAME] = $GLOBALS["find_".$FIELD_NAME];
}
}
$arHeaders = array();
foreach($arFields as $FIELD_NAME=>$FIELD_TYPE)
{
$arHeaders[$FIELD_NAME] = array(
"id" => $FIELD_NAME,
"content" => $FIELD_NAME,
"sort" => $FIELD_NAME,
"default" => true,
);
if($FIELD_TYPE=="int" || $FIELD_TYPE=="datetime" || $FIELD_TYPE=="double")
$arHeaders[$FIELD_NAME]["align"] = "right";
}
$lAdmin->AddHeaders($arHeaders);
$bDelete = false;
$arPKColumns = array();
$arSelectedFields = $lAdmin->GetVisibleHeaderColumns();
if(!is_array($arSelectedFields) || (count($arSelectedFields) < 1))
{
$arSelectedFields = array(
"*",
);
$bDelete = count($arUniqueIndexes) > 0;
$arPKColumns = array_shift($arUniqueIndexes);
}
else
{
foreach($arUniqueIndexes as $arIndexColumns)
{
$arMissed = array_diff($arIndexColumns, $arSelectedFields);
if(count($arMissed) == 0)
{
$bDelete = true;
$arPKColumns = $arIndexColumns;
break;
}
}
}
$bDelete = $bDelete && $RIGHT >= "W";
$rsData = $obTable->GetList($arSelectedFields, $arFilter, array($by => $order), Array("nPageSize"=>CAdminResult::GetNavSize($sTableID)));
$rsData = new CAdminResult($rsData, $sTableID);
$rsData->NavStart();
$lAdmin->NavText($rsData->GetNavPrint(GetMessage("PERFMON_TABLE_PAGE")));
$max_display_url = COption::GetOptionInt("perfmon", "max_display_url");
while($arRes = $rsData->Fetch()):
$row =& $lAdmin->AddRow($arRes["ID"], $arRes);
$arRowPK = array();
foreach($arFields as $FIELD_NAME => $FIELD_TYPE)
{
if(strlen($arRes[$FIELD_NAME]) > 0)
{
if($FIELD_TYPE=="int")
{
if($_REQUEST["mode"] == "excel")
$row->AddViewField($FIELD_NAME, number_format($arRes[$FIELD_NAME], 0, "", ""));
else
$row->AddViewField($FIELD_NAME, str_replace(" ", " ", number_format($arRes[$FIELD_NAME], 0, "", " ")));
}
elseif($FIELD_TYPE=="double")
{
if($_REQUEST["mode"] == "excel")
$row->AddViewField($FIELD_NAME, number_format($arRes[$FIELD_NAME], 2, ".", ""));
else
$row->AddViewField($FIELD_NAME, str_replace(" ", " ", number_format($arRes[$FIELD_NAME], 2, ".", " ")));
}
elseif($FIELD_TYPE=="datetime")
$row->AddViewField($FIELD_NAME, str_replace(" ", " ", $arRes["FULL_".$FIELD_NAME]));
else
$row->AddViewField($FIELD_NAME, htmlspecialchars($arRes[$FIELD_NAME]));
if($bDelete && in_array($FIELD_NAME, $arPKColumns))
{
$arRowPK[] = urlencode("del_pk_".$FIELD_NAME)."=".urlencode($arRes[$FIELD_NAME]);
}
}
}
$arActions = array();
if($bDelete && (count($arPKColumns) == count($arRowPK)))
{
$arActions[] = array(
"ICON" => "delete",
"DEFAULT" => false,
"TEXT" => GetMessage("MAIN_DELETE"),
"ACTION" => $lAdmin->ActionDoGroup($arRes["ID"], "delete", "table_name=".urlencode($table_name)."&".implode("&", $arRowPK)),
);
}
if(count($arActions))
$row->AddActions($arActions);
endwhile;
$lAdmin->AddFooter(
array(
array("title"=>GetMessage("MAIN_ADMIN_LIST_SELECTED"), "value"=>$rsData->SelectedRowsCount()),
)
);
$aContext = array(
);
$sLastTables = CUserOptions::GetOption("perfmon", "last_tables", "");
if(strlen($sLastTables) > 0)
$arLastTables = array_flip(explode(",", $sLastTables));
else
$arLastTables = array();
unset($arLastTables[$table_name]);
$arLastTables[$table_name] = true;
if(count($arLastTables) > 10)
array_shift($arLastTables);
CUserOptions::SetOption("perfmon", "last_tables", implode(",", array_keys($arLastTables)));
unset($arLastTables[$table_name]);
if(count($arLastTables) > 0)
{
$ar = array(
"TEXT" => GetMessage("PERFMON_TABLE_RECENTLY_BROWSED", array("#COUNT#" => count($arLastTables))),
"MENU" => array(),
);
ksort($arLastTables);
foreach($arLastTables as $table => $flag)
{
$ar["MENU"][] = array(
"TEXT" => $table,
"ACTION" => $lAdmin->ActionRedirect("perfmon_table.php?table_name=".$table),
);
}
$aContext[] = $ar;
}
$lAdmin->AddAdminContextMenu($aContext);
$lAdmin->CheckListMode();
$APPLICATION->SetTitle(GetMessage("PERFMON_TABLE_ALT_TITLE", array("#TABLE_NAME#" => $table_name)));
require($_SERVER["DOCUMENT_ROOT"]."/bitrix/modules/main/include/prolog_admin_after.php");
$arFilter = array();
foreach($arFields as $FIELD_NAME => $FIELD_TYPE)
if($FIELD_TYPE!="unknown")
$arFilter[$FIELD_NAME] = $FIELD_NAME;
$oFilter = new CAdminFilter($sTableID."_filter", $arFilter);
?>
<form name="find_form" method="get" action="<?echo $APPLICATION->GetCurPage();?>">
<input type="hidden" value="<?echo htmlspecialchars($table_name)?>" name="table_name">
<?$oFilter->Begin();?>
<tr>
<td><b><?=GetMessage("PERFMON_TABLE_FIND")?>:</b></td>
<td>
<input type="text" size="25" name="find" value="<?echo htmlspecialchars($find)?>" title="<?=GetMessage("PERFMON_TABLE_FIND")?>">
<?
$arr = array(
"reference" => array_keys($arFilter),
"reference_id" => array_keys($arFilter),
);
echo SelectBoxFromArray("find_type", $arr, $find_type, "", "");
?>
</td>
</tr>
<?foreach($arFields as $FIELD_NAME => $FIELD_TYPE):?>
<?if($FIELD_TYPE!="unknown"):?>
<tr>
<td><?echo htmlspecialchars($FIELD_NAME)?></td>
<td><input type="text" name="find_<?echo htmlspecialchars($FIELD_NAME)?>" size="47" value="<?echo htmlspecialchars(${"find_".$FIELD_NAME})?>"></td>
</tr>
<?endif?>
<?endforeach?>
<?
$oFilter->Buttons(array("table_id"=>$sTableID, "url"=>$APPLICATION->GetCurPage(), "form"=>"find_form"));
$oFilter->End();
?>
</form>
<?$lAdmin->DisplayList();?>
<?require($_SERVER["DOCUMENT_ROOT"]."/bitrix/modules/main/include/epilog_admin.php");?>