Mini Shell

<?
if(!defined("B_PROLOG_INCLUDED") || B_PROLOG_INCLUDED !== true) die();

if(!(CModule::IncludeModule("main") && CModule::IncludeModule('iblock'))) return;
global $USER;
global $USER_FIELD_MANAGER;
$usrid = $USER->GetID();

// сохраняет социалки
if($usrid>0 && $_SERVER["REQUEST_METHOD"]=="POST" && strlen($_REQUEST["str_social"])>0 && check_bitrix_sessid()) {

		$obUser = new CUser;
	
		$rsUser = CUser::GetByID($usrid);
		$arUser = $rsUser->Fetch();

			$str_form = rawurldecode($_REQUEST["str_social"]);
			$arForm = explode('&',$str_form);
			if (strpos($arForm[0],"ERSONAL_ICQ")!==false) {
				$user_skype = str_replace("PERSONAL_ICQ=", "", $arForm[0]);
			} else {
				$user_skype = '';
			};
			$user_social = array();
			for ($i=1; $i < count($arForm); $i++){
				if (strpos($arForm[$i],"F_SOCIAL[]")!==false) {
					$user_social[] = str_replace("UF_SOCIAL[]=","",$arForm[$i]);
				};
			};
		$arUserFields = array(
			"PERSONAL_ICQ" => $user_skype,
			"UF_SOCIAL" => $user_social,
		);		
		
		$strError ='';
		$USER_FIELD_MANAGER->EditFormAddFields("USER", $arUserFields);
	
		if(!$obUser->Update($usrid, $arUserFields, true))
			$strError .= $obUser->LAST_ERROR;
		$arResult["STR_ERROR"] = $strError;

}
else {
	echo "ERROR: parameters not valid";
}

?>