www_archline_hu/cadline/docroot/tips.php
LÁZÁR Imre AI Agent 64c7ab0acf feat(cadline): add Cadline docroot apps + root PHPs
Docroot sub-apps beiratkozas/, iskolak/, phpext/; root PHPs crashadmin.php, crm_hardlock.class.php, login-external.php, tips.php, recaptchalib.php, configuration.php (74-byte MightySites multi-site stub, legit). public/ excluded (user data, ~219k files).

Signed-off-by: LÁZÁR Imre <imre@illusion.hu>
Assisted-by: claude-code@claude-opus-4-8
2026-07-16 11:34:31 +02:00

476 lines
23 KiB
PHP

<?php
/*******************************************************************************
* eredeti url: http://www.archlinexp.com/index.php?menu=tips2012&lang=hun&version=1&session=OTA0NkEzMTlBMDcwQTE3NkE4NzRBMzc1QTc3NkEwNzJBNTc0Q0Y3NUE3NzdBMjdGQTc3RUE4NzJBNDcwQTgxOUNGNzVDRjc3QTA3NkEyNzdBMzZCQTM3MEJENzVBNTA3QkQ3MkEwN0ZBMDAzQTYxOUEyNjhBOTY4QTA3NEJFNzZCRTc3RTIyMUY1MjNCRTI4QTE3N0E4NzE=
* eredeti url: http://old.archlinexp.com/tips/tips2009/hun/1/OTA0NkEzMTlBMDcwQTE3NkE4NzRBMzc1QTc3NkEwNzJBNTc0Q0Y3NUE3NzdBMjdGQTc3RUE4NzJBNDcwQTgxOUNGNzVDRjc3QTA3NkEyNzdBMzZCQTM3MEJENzVBNTA3QkQ3MkEwN0ZBMDAzQTYxOUEyNjhBOTY4QTA3NEJFNzZCRTc3RTIyMUY1MjNCRTI4QTE3N0E4NzE=/46.139.109.235
* új url: http://www.archlinexp.com/maintenance/tips.php?lang=hun&version=2&session=OTA0NkEzMTlBMDcwQTE3NkE4NzRBMzc1QTc3NkEwNzJBNTc0Q0Y3NUE3NzdBMjdGQTc3RUE4NzJBNDcwQTgxOUNGNzVDRjc3QTA3NkEyNzdBMzZCQTM3MEJENzVBNTA3QkQ3MkEwN0ZBMDAzQTYxOUEyNjhBOTY4QTA3NEJFNzZCRTc3RTIyMUY1MjNCRTI4QTE3N0E4NzE=
* logfilter=0 - csak a legfontosabb logok;
* logfilter=10 - minden logot küld;
******************************************************************************/
//die();
if (!class_exists('crm_hardlock')) require_once("/var/www/hosting/archline.hu/sub/common_cadline_libraries/crm_hardlock.class.php");
if (!class_exists('crm_users')) require_once("/var/www/hosting/archline.hu/sub/common_cadline_libraries/crm_users.class.php");
error_log(print_r($_GET,TRUE),3,"../tmp/error_tips.log");
$user_lang_db = $user_lang = $origlang = (isset($_GET['lang']) && empty($_GET['lang']) == false) ? trim($_GET['lang']) : 'eng';
//-$user_version = (isset($_GET['version']) && empty($_GET['version']) == false ? trim($_GET['version']) : NULL); nem ahsznalt valtozo volt, kivettem 2019-ben
$user_ssID = (isset($_GET['session']) && empty($_GET['session']) == false ? trim($_GET['session']) : NULL);
$user_IP = $_SERVER['REMOTE_ADDR'];
$time=time();
//get country name from ip
$locale=@file_get_contents("http://freegeoip.net/xml/".$user_IP,FALSE, stream_context_create(array('http'=>array('timeout'=>2)) ) );
$tomb = json_decode(json_encode(simplexml_load_string($locale)),TRUE);
$ctrname=$tomb["CountryName"];
$temp=explode(".", gethostbyaddr($user_IP));
if(!isset($ctrname) || $ctrname=='')
$ctrname = 'unknown';
if(!isset($user_ssID) || $user_ssID==''){
$rec=array(
'hiba'=>"Tips.php: unknown tips data\n",
'datum'=>date('Y-m-d H:i:s',time()));
crm_database::getInstance()->insert('a_hibak',$rec);
return; //- ha nincs meg a kodolt stream, akkor semmilyen infor
}
$str_decoded = base64_decode($user_ssID); //decode the session string
sscanf(substr($str_decoded,0,4),'%04x',$keyDec);
$encoded = str_split(substr($str_decoded,4),4);
$decoded = '';
foreach($encoded as $e) {
sscanf($e,'%04x',$temp);
if(strlen(substr(sprintf('%x',$temp^$keyDec),2))>0) {
$decoded .= chr(hexdec(substr(sprintf('%04x',$temp^$keyDec),2)));
$decoded .= chr(hexdec(substr(sprintf('%04x',$temp^$keyDec),0,2)));
} else {
$decoded .= chr(hexdec(substr(sprintf('%04x',$temp^$keyDec),2)));
}
}
$pos = strpos($decoded, '#'); //ba 2018.07.04. atterunk a # separatorra. Ezidaig nem fordulhatott elo benne ilyen jel
if($pos === false)
$separator = '_';
else
$separator = '#';
$numdata = substr_count($decoded, $separator); //ba most már kapunk adatot az oprendszerrol is
$osdata = '';
$reactivationCounter = 0;
if( $numdata >= 11 )
list($empty, $pwd, $compID, $build, $ctrID, $telepitesikod, $osdata, $usGCMan, $usGCType, $usGCDriverVer, $npID, $partnerID, $name, $email, $company, $phone, $newsletter, $reactivationCounter) = split($separator, $decoded);
elseif( $numdata >= 6 )
list($empty, $pwd, $compID, $build, $ctrID, $telepitesikod, $osdata, $usGCMan, $usGCType, $usGCDriverVer, $npID, $partnerID) = split($separator, $decoded);
else
list($empty, $pwd, $compID, $build, $ctrID, $telepitesikod) = split($separator, $decoded);
$crackedProgram = strpos($osdata, ".gray.") !== false ? true : false;
if($crackedProgram){ //- 2018-as proragramoktol(nehany 2018-as build nem fut ide be)
/*$crackedProgramDeactivated = false;
if(crm_hardlock::IsCalledFromMyIP()){
header('Content-Type: text/xml; charset=utf-8');
header('Content-Disposition: inline; filename=response.xml');
print '<'.'?'.'xml version="1.0" encoding="UTF-8" standalone="yes"'.'?'.'>
<Tips>
<Tip lang="en" version="2">
<path>/public/support/tips/en/</path>
</Tip>
<actcode>'.$validTelepitesikod.'</actcode>
<Virtualization>true</Virtualization>
<logfilter>0</logfilter>
<loginEnabled>false</loginEnabled>
<PersonalMessage></PersonalMessage>
<graylink></graylink>
</Tips>';
$crackedProgramDeactivated = true;
}*/
$actual_link = (isset($_SERVER['HTTPS']) && $_SERVER['HTTPS'] === 'on' ? "https" : "http") . "://{$_SERVER['HTTP_HOST']}{$_SERVER['REQUEST_URI']}";
$message = "Crack: ".$decoded." || url: ".$actual_link;
crm_hardlock::AddToDebugTable($message);
return; // A crackelt programokat nem taroljuk
}
$validPassword = crm_hardlock::IsValidPassword($pwd);
if($validPassword){
$verid=crm_hardlock::GetVeridFromPassword($pwd);
$softwareKey = crm_hardlock::IsSoftwareKey($pwd); // Software kulcs 2019
if(crm_hardlock::IsProgramExpiredByFixDate($pwd)) {
$message = "Tip error: expired program by IsProgramExpiredByFixDate || password: ".$pwd;
crm_hardlock::AddToDebugTable($message);
return;
}
} else {
$verid = 0;
$softwareKey = false;
$actual_link = (isset($_SERVER['HTTPS']) && $_SERVER['HTTPS'] === 'on' ? "https" : "http") . "://{$_SERVER['HTTP_HOST']}{$_SERVER['REQUEST_URI']}";
$message = "Tip error: invalid password || password: ".$pwd." || url: ".$actual_link;
crm_hardlock::AddToDebugTable($message);
return;
}
$validTelepitesikod = crm_hardlock::IsValidTimeCode($telepitesikod);
if($validTelepitesikod || ($validPassword && $softwareKey == false) ) //- hardware kulcseseten az isid a passwordbol generalhato
$isid=($softwareKey ? crm_hardlock::GetIsidFromTimeCode($telepitesikod) : substr($pwd,0,2).$verid);
else {
$telepitesikod = "";
$isid = "";
}
if($validPassword == false && substr($decoded,0,2) == "##"){ //- 2018-as proragramoktol(nehany 2018-as build nem fut ide be)
$actual_link = (isset($_SERVER['HTTPS']) && $_SERVER['HTTPS'] === 'on' ? "https" : "http") . "://{$_SERVER['HTTP_HOST']}{$_SERVER['REQUEST_URI']}";
$message = "Tip error: missing password || url: ".$actual_link;
crm_hardlock::AddToDebugTable($message);
}
if($validPassword && $validTelepitesikod == false && $verid > 35){ //- csak a 2019-es programokat es ujabbakat vizsgalunk, a regbbiekben elofordulhatnak hibas idokodok
$actual_link = (isset($_SERVER['HTTPS']) && $_SERVER['HTTPS'] === 'on' ? "https" : "http") . "://{$_SERVER['HTTP_HOST']}{$_SERVER['REQUEST_URI']}";
$message = "Tip error: invalid timecode ".$decoded." || url: ".$actual_link;
crm_hardlock::AddToDebugTable($message);
}
if(isset($npID))
$compid = crm_hardlock::AddOrUpdateComputer($npID, ''); // $comp_name = base64_decode($comp_name); // Ez meg nem jon be!
$isNamirialAutoCreate = isset($npID) && $npID>'' && isset($partnerID) && $partnerID=='2nt' /*-&& isset($telepitesikod) && $telepitesikod>''-*/ && $validPassword;
$isBimLadderAutoCreate = isset($npID) && $npID>'' && isset($partnerID) && $partnerID=='kbl' /*-&& isset($telepitesikod) && $telepitesikod>''-*/ && $validPassword;
/*******************************************************************************
*NAMIRIAL vagy BIMLADDER automata kulcskiadás és program létrehozás
******************************************************************************/
if ($isNamirialAutoCreate || $isBimLadderAutoCreate) {
$queryStr = "SELECT * FROM `".CRMADATBAZIS."`.`nonprofit` WHERE computer_id='".$compid."' AND partnerID = '".$partnerID."' AND verID =".$verid." LIMIT 1;";
crm_database::getInstance()->query($queryStr);
$res=crm_database::getInstance()->fetchAssoc();
$rangeMin = $isNamirialAutoCreate ? 940001 : 920001;
$rangeMax = $isNamirialAutoCreate ? 949999 : 929999;
$interval = $isNamirialAutoCreate ? 90 : 30;
$country_id = $isNamirialAutoCreate ? 39 : 82;
$topic_id = $isNamirialAutoCreate ? 366 : 368;
$info = $isNamirialAutoCreate ? 'Namirial nonprofit kulcs aktiválás' : 'BIMLadder nonprofit kulcs aktiválás';
$contact = $isNamirialAutoCreate ? 8 : 9;
$type=crm_hardlock::GetTypeFromPassword($pwd);
$ver=crm_hardlock::GetVersion(array('verPassword8and9'=>$verid));
//ba nincs ehhez a gephez meg non-profit program regisztralva
if (empty($res)) {
$hlNum=crm_hardlock::GetTheFirstNotUsedHlNumFromInterval($rangeMin,$rangeMax);
$pass=crm_hardlock::GeneratePassword($hlNum,0,$type,$ver['verCode']);
$aktKod=crm_hardlock::GenerateTimeCode($pass,$isid,$interval);
// Ha nincs benne a user a CRM-be, akkor hozza adjuk
$userID=crm_users::addUser(array(
'strName'=>$name,
'strEMail'=>$email,
'strTel'=>$phone,
'nCtrID'=>$country_id,
'old_db'=>'clusers_eng',
'dateInsert'=>$time,
'strCompany'=>$company
), $newsletter);
//ba regisztraljuk hozza a non-profit programot
crm_hardlock::AddNonprofit(array(
'isid'=>$isid,
'verid'=>$verid,
'hlID'=>$hlNum,
'nUserID'=>$userID,
'add_datetime'=>date('Y-m-d H:i:s',$time),
'expire_datetime'=>date('Y-m-d H:i:s', strtotime('+90 day', $time)),
'activation_datetime'=>date('Y-m-d H:i:s',$time),
'old_db'=>'clusers_eng',
'partnerID'=>$partnerID,
'enabled'=>'Y',
'computer_id'=>$compid
));
//Namirial vagy BIMLADDER non-profit kod aktivalas beszurasa crm -> u_history tablaba
crm_users::AddUserHistory(array(
'nUserID'=>$userID,
'nTopicID'=>$topic_id,
'dateEvent'=>date('Y-m-d H:i:s',$time),
'strPlace'=>'',
'strInfo'=>$info,
'nManagerID'=>36,
'insertDate'=>date('Y-m-d H:i:s',$time)
));
crm_hardlock::AddHardlock(array(
'hlNum'=>$hlNum,
'hlCtrID'=>$country_id,
'hlLan'=>0,
'hlStat'=>1,
'hlDateIssue'=>date('Y-m-d',$time),
'hlManID'=>36,
'hlTime'=>date('Y-m-d H:i:s',$time),
'hlUser'=>$userID,
'hlDealer'=>62103,
'bUjithato'=>1,
'old_db'=>'clusers_eng'
));
crm_hardlock::AddProgram(array(
'prTypeID'=>$type,
'prVerID'=>$ver['verID'],
'prLan'=>0,
'prPass'=>trim($pass),
'prSellDate'=>date('Y-m-d',$time),
'prActDate'=>date('Y-m-d',$time+$interval*86400), // 90 vagy 30 nap
'prFizetve'=>date('Y-m-d',$time+$interval*86400),
'prActCode'=>trim($aktKod),
'prTime'=>date('Y-m-d H:i:s',$time),
'prLastMod'=>date('Y-m-d H:i:s',$time),
'prContact'=>$contact, // Non-profit
'prHlNum'=>$hlNum, // 99xxxx
'prManID'=>36, // web
'prStat'=>0,
'prHiType'=>1 // 1 Rendelés | 2 Tipus Valtas | 3 Frissites | 4 Auto Friss.
));
$pwd = $pass; //ba 2018.07.02. mostantol az uj jelszava a usernek a most generalt, 94-es lesz, nem pedig a 93-as!
} else {
//ba ehhez a gephez mar volt non-profit regisztracio, keressuk ki a sorozatszamot neki
$hlNum = $res[0]['hlID'];
crm_database::getInstance()->query("SELECT * FROM `".CRMADATBAZIS."`.`h_programs` WHERE prHlNum='{$hlNum}' limit 1");
$programQuery=crm_database::getInstance()->fetchAssoc();
$pwd = $programQuery[0]['prPass'];
}
} //- if ($isNamirialAutoCreate || $isBimLadderAutoCreate) vege
$hlNum = crm_hardlock::GetHlnumFromPassword($pwd);
//insert stats to the userstats table
$stats = array(
'usLang' => $user_lang_db,
'usDate' => time(),
'usPwd' => $pwd,
'usVer'=>$verid,
'usCompID' => $compID,
'usCtrID' => $ctrID,
'usBuild' => $build,
'usCtrName' => $ctrname,
'usIP' => $user_IP,
'usOSData' => $osdata,
'usISID' => $isid,
'usInditasokSzama' => 1
);
crm_database::getInstance()->query("SELECT hlLan, hlCtrID FROM `".CRMADATBAZIS."`.`hardlock` WHERE hlNum='".$hlNum."'");
$hardlock = crm_database::getInstance()->fetchAssoc();
$isLanProgram = empty($hardlock) == false && $hardlock[0]['hlLan'] > 0;
// A szarmazasi orszag beallitasa
if($softwareKey) {
$liveKey = crm_hardlock::IsLiveKey($pwd); // Live kulcs 2019
if(empty($hardlock) == false && ($liveKey || in_array(substr($pwd,0,2), array('99','98','95'))) ) { // Azok a programok, amik regisztrálódnak a CRM-ben 2019
$hl=$hardlock[0];
if(isset($hl['hlCtrID']))
$stats['usHlCtrID'] = $hl['hlCtrID'];
}
} else {
$stats['usHlCtrID'] = substr($pwd,0,2);
}
$trialProgram = crm_hardlock::IsTrialKey($pwd);
$trialSpecialEditionProgram = $trialProgram ? crm_hardlock::IsSpecialEditionTrial($pwd) : false;
// Kereskedelmi valtozatok lekezelese (a statisztika miatt bekerulnek a Namirial es a BIMLadder programok is)
if($verid>29 && ($trialProgram == false || $trialSpecialEditionProgram)) {
if($trialSpecialEditionProgram == false) {
$query = "SELECT * FROM `".CRMADATBAZIS."`.`h_programs` WHERE prPass='".$pwd."'";
if($softwareKey && $isLanProgram) //- szoftveres lan kulcsnal mindig telepitesenkent egyedi az aktivalo kod
$query .= " AND prActCode LIKE '%-".$isid."-%'";
$query .= ";";
crm_database::getInstance()->query($query);
$prgrm=crm_database::getInstance()->fetchAssoc();
if(empty($prgrm) && $softwareKey && $isLanProgram) { //- a lan-os valtozatnal na nem volt telepitve lehet, hogy nem volt talalat
crm_database::getInstance()->query("SELECT * FROM `".CRMADATBAZIS."`.`h_programs` WHERE prPass='".$pwd."' and (prActCode = '' or prActCode is null) LIMIT 1;");
$prgrm=crm_database::getInstance()->fetchAssoc();
}
}
if($softwareKey) { //- a telepitesi datum frissitese
if($validTelepitesikod) {
//- telepitesi datum tarolasanak elokeszitese
$telepitesota_eltelt_napok_szama = crm_hardlock::GetDayFromTimeCode($telepitesikod);
$date = new DateTime(date("Y-m-d"));
$date->modify('-'.$telepitesota_eltelt_napok_szama.' day');
$installDate = $date->format('Y-m-d');
} else
$installDate = time();
} else {
if(empty($prgrm)) {
$installDate = time();
//- todo ez gigantikus hiba, jelezni kell, ha ilyen elofordul
} else
$installDate = $prgrm[0]['prSellDate'];
}
$stats['usTelepitesiDatum'] = $installDate;
if(empty($prgrm) == false)
$jelenlegi_aktivalokod = $prgrm[0]['prActCode'];
else
$jelenlegi_aktivalokod = '';
// A userstats2013 tablaba megkeresi az utolso bejegyzest és amennyiben valtozatlan, updateli az inditasok szamat, különben uj bejegyzést hoz letre
if($trialSpecialEditionProgram == false) {
//- idokod generalasa
$aktivalokod = crm_hardlock::GetOrGenerateTimeCode($pwd,$isid,$telepitesikod);
$usstatid = crm_hardlock::UpdateInstallationDate($pwd, $compID, $build, $aktivalokod, $user_IP, $installDate, $stats);
// Nonprofit regisztracio beirasa a user-hez
crm_database::getInstance()->query("SELECT hlStat,hlUser FROM `".CRMADATBAZIS."`.`hardlock` WHERE hlNum='".$hlNum."'");
$res=crm_database::getInstance()->fetchAssoc();
$kulcs=$res[0];
if (in_array((int)substr($pwd,0,3),array(995,996,970,971,972,973,974,975,976,977,978,979,980,981,982,983,984,985,986,987,988,989)) && (int)$kulcs['hlUser']>0) { // nonprofitos program első indítása
// TODO: Megakasztotta a programinditasokat!!! 2019.08.28. SQL HIBA
/*crm_database::getInstance()->query("SELECT COUNT(*) AS `darab` FROM `".CRMADATBAZIS."`.`h_aktivalas_infok` WHERE kulcs='".$hlNum."';");
$tmp=crm_database::getInstance()->fetchAssoc();
$darab=(int)$tmp[0]['darab'];*/
crm_database::getInstance()->query("SELECT COUNT(*) AS `darab` FROM `".CRMADATBAZIS."`.`u_history` WHERE `nUserID`=".(int)$kulcs['hlUser']." AND nTopicID IN (314,315);");
$tmp=crm_database::getInstance()->fetchAssoc();
$esem=(int)$tmp[0]['darab'];
crm_database::getInstance()->query("SELECT * FROM `".CRMADATBAZIS."`.`users` WHERE nUserID='".(int)$kulcs['hlUser']."';");
$usr=crm_database::getInstance()->fetchAssoc();
$usr=$usr[0];
if (!empty($usr) && (/*$darab==0 ||*/ $esem==0)) {
crm_database::getInstance()->insert("`".CRMADATBAZIS."`.`u_history`",array(
'nUserID'=>(int)$kulcs['hlUser'],
'nTopicID'=>($usr['old_db']=='clusers' ? 314 : 315),
'dateEvent'=>date('Y-m-d'),
'strPlace'=>'web',
'strInfo'=>($usr['old_db']=='clusers' ? 'Non-profit kód regisztráció' : 'Non-profit code registration').': '.$hlNum,
'nManagerID'=>36,
'insertDate'=>date('Y-m-d H:i:s')
));
}
}
} else
$usstatid = crm_hardlock::UpdateInstallationDate($pwd, $compID, $build, $jelenlegi_aktivalokod, $user_IP, $installDate, $stats);
$virtualization = ($kulcs['hlStat']=='2' ? "false" : "true"); // letiltott kulcs visszajelzése a programnak
$valasz = ($aktivalokod!="") ? $aktivalokod : "(( nem kapott valaszt ))";
// TODO: Megakasztotta a programinditasokat!!! 2019.08.28. SQL HIBA
/*crm_database::getInstance()->query("SELECT * FROM `".CRMADATBAZIS."`.`h_aktivalas_infok` WHERE leiras LIKE 'programinditas -pw: ".$pwd."%' ORDER BY datum desc LIMIT 1;");
$res=crm_database::getInstance()->fetchAssoc();
if(empty($res) == false)
crm_database::getInstance()->query("UPDATE `".CRMADATBAZIS."`.`h_aktivalas_infok` SET leiras='programinditas - pw: {$pwd}, build: {$build}, isid: {$isid}, időkód: {$telepitesikod}, valasz: ".$valasz."', datum='". time()."' WHERE id=".$res[0]['id']." LIMIT 1");
else
crm_hardlock::_Hibajelento("tips",substr($pwd,0,6),"programinditas - pw: {$pwd}, build: {$build}, isid: {$isid}, időkód: {$telepitesikod}, valasz: ".$valasz,(isset($arrGCData)?$arrGCData:array()),(isset($usstatid)?$usstatid:NULL));*/
}
// Tavoli logolasi parameterek beallitasa
$logfilter=0;
if ($validPassword && $crackedProgram == false && $trialProgram == false) {
crm_database::getInstance()->query("SELECT * FROM `".CRMADATBAZIS."`.`h_programs` WHERE `prPass`='".$pwd."' LIMIT 1;");
$res=crm_database::getInstance()->fetchAssoc();
$logfilter=$res[0]['prLogFilter'];
}
// Ha a verid >= 36, akkor beinsertalja a hardlockot és a computer id-t a hardlock_computers tablaba, ha meg nincs benne
if($softwareKey && $crackedProgram == false && $trialProgram == false)
crm_hardlock::AddHardlockComputer($hlNum, $compid, $verid);
// Kulcsok tesztelese
if($softwareKey && $crackedProgram == false && $trialProgram == false) {
$valasz = crm_hardlock::sCheckPassword($pwd);
if(empty($valasz) == false) {
$actual_link = (isset($_SERVER['HTTPS']) && $_SERVER['HTTPS'] === 'on' ? "https" : "http") . "://{$_SERVER['HTTP_HOST']}{$_SERVER['REQUEST_URI']}";
$message = "Checked Password || Serial: ".$pwd." || Valasz: ".$valasz." || url: ".$actual_link;
crm_hardlock::AddToDebugTable($message);
}
}
// Modul es reaktivalo kodok kiiratasa
if($crackedProgram == false && $trialProgram == false) {
// Modul kodok osszegyujtese
crm_database::getInstance()->query("SELECT prID FROM `".CRMADATBAZIS."`.`h_programs` WHERE `prPass`='".$pwd."' LIMIT 1;");
$programs = crm_database::getInstance()->fetchAssoc();
$moduleList = "";
if(empty($programs) == false) {
$prID = $programs[0]['prID'];
crm_database::getInstance()->query("SELECT mdCode FROM `".CRMADATBAZIS."`.`p_modules` WHERE `mdPrID`='".$prID."'");
$modules = crm_database::getInstance()->fetchAssoc();
foreach ($modules as $module) {
if(empty($moduleList) == false)
$moduleList .= ";";
$moduleList .= $module['mdCode'];
}
}
// Reaktivalokodok kuldese
if($virtualization == "true" && $reactivationCounter > 0) {
$reactivationCounter--;
$modulIsid = substr($pwd, 0,2).$verid;
if($reactivationCounter > 4) // 5-nel tobb nem lehet
$reactivationCounter = 4;
for($i=0; $i<=$reactivationCounter; $i++) {
$modulID = 35+$i;
$reactivationCode = crm_hardlock::GenerateTimeCode($pwd, $modulIsid, $modulID);
if(empty($moduleList) == false)
$moduleList .= ";";
$moduleList .= $reactivationCode;
}
}
}
if(crm_hardlock::IsCalledFromMyIP() && $softwareKey) {
$utst = time();
(int)$convertedDay = crm_hardlock::ConvertDay(date('w'));
$tid = (int)($utst / $convertedDay);
crm_database::getInstance()->query("SELECT * FROM `".CRMADATBAZIS."`.`p_serial_isid` WHERE serial='".$pwd."' AND isid='".$isid."' AND aktiv = 1");
$p_serial_isid=crm_database::getInstance()->fetchAssoc();
if(empty($p_serial_isid))
$regenr = crm_hardlock::No($utst, 39);
else
$regenr = crm_hardlock::Yes($utst, 39);
}
header('Content-Type: text/xml; charset=utf-8');
header('Content-Disposition: inline; filename=response.xml');
print '<'.'?'.'xml version="1.0" encoding="UTF-8" standalone="yes"'.'?'.'>
<Tips>
<Tip lang="en" version="2">
<path>/public/support/tips/en/</path>
</Tip>
'.((isset($aktivalokod) && $aktivalokod) ? '<actcode>'.$aktivalokod.'</actcode>' : '').'
'.((isset($virtualization) && $virtualization) ? '<Virtualization>'.$virtualization.'</Virtualization>' : '').'
'.((isset($usstatid) && (int)$usstatid>0) ? '<actid>'.(int)$usstatid.'</actid>' : '').'
<logfilter>'.$logfilter.'</logfilter>
'.((empty($moduleList) == false) ? '<Modules>'.$moduleList.'</Modules>' : '').'
<loginEnabled>'.($hlNum=='360006' ? 'true' : 'false').'</loginEnabled>
'.((isset($regenr) && (int)$regenr>0) ? '<regnr>'.(int)$regenr.'</regnr>' : '').'
'.((isset($tid) && (int)$tid>0) ? '<tid>'.(int)$tid.'</tid>' : '').'
</Tips>';
?>