in-portal
No OneTemporary
Actions

Subscribers

None

File Metadata

Created: Fri, Jul 18, 10:21 PM

in-portal
View Options

	Index: trunk/kernel/include/emailmessage.php
	===================================================================
	--- trunk/kernel/include/emailmessage.php (revision 3526)
	+++ trunk/kernel/include/emailmessage.php (revision 3527)
	@@ -1,980 +1,986 @@
	<?php
	class clsEmailMessage extends clsParsedItem
	{
	var $Event = "";
	var $Item;
	var $headers = array();
	var $subject = "";
	var $body = "";
	var $TemplateParsed = FALSE;
	var $recipient = NULL;
	var $fromuser = NULL;

	function clsEmailMessage($MessageId=NULL,$Item=NULL)
	{
	$this->clsParsedItem();
	$this->tablename = GetTablePrefix()."EmailMessage";
	$this->Item = $Item;
	$this->BasePermission = "EMAIL";
	$this->id_field = "EmailMessageId";
	$this->TagPrefix = "email";
	$this->NoResourceId=1;
	if($MessageId)
	$this->LoadFromDatabase($MessageId);
	}

	function LoadEvent($event,$language=NULL)
	{
	global $objConfig, $objLanguages;

	if(!strlen($language))
	$language = $objLanguages->GetPrimary();
	$sql = "SELECT * FROM ".$this->tablename." WHERE EventId = $event AND LanguageId=$language";
	$rs = $this->adodbConnection->Execute($sql);
	if($rs && !$rs->EOF)
	{
	$data = $rs->fields;
	$this->SetFromArray($data);
	$this->Clean();
	return TRUE;
	}
	else
	return FALSE;
	}
	function LoadFromDatabase($MessageId)
	{
	global $Errors;

	$sql = sprintf("SELECT * FROM ".$this->tablename." WHERE ".$this->IdField()." = '%s'",$MessageId);
	$result = $this->adodbConnection->Execute($sql);
	if ($result === FALSE)
	{
	$Errors->AddError("error.DatabaseError",NULL,$this->adodbConnection->ErrorMsg(),"",get_class($this),"LoadFromDatabase");
	return FALSE;
	}
	$data = $result->fields;
	$this->SetFromArray($data);
	return TRUE;
	}

	function EditTemplate()
	{
	}

	/* read the template, split into peices */
	function ReadTemplate()
	{
	if(!$this->TemplateParsed)
	{
	$this->headers = array();
	$lines = explode("\n",$this->Get("Template"));
	$header_end = FALSE;
	$i = 0;
	while(!$header_end && $i<count($lines))
	{
	$h = $lines[$i];
	if(strlen(trim($h))==0 \|\| ($h=="."))
	{
	$header_end = TRUE;
	}
	else
	{
	$parts = explode(":",$h,2);

	if(strtolower($parts[0])=="subject")
	{
	$this->subject = $h;
	}
	else
	$this->headers[] = $h;
	}
	$i++;
	}
	while($i<count($lines))
	{
	$this->body .= $lines[$i++];
	}
	$this->TemplateParsed=TRUE;
	}
	}

	function ParseSection($text, $parser=null)
	{
	global $objUsers, $objTemplate;

	$res = $this->ParseTemplateText($text);

	/* parse email class tags */
	if(!is_object($this->fromuser))
	{
	$this->fromuser = $objUsers->GetItem($this->Get("FromUserId"));
	$this->fromuser->TagPrefix = "fromuser";
	}

	/* parse from user object */
	if(is_object($this->fromuser))
	{
	$res = $this->fromuser->ParseTemplateText($res);
	}

	/* parse recipient user object */
	if(is_object($this->recipient))
	{
	$res = $this->recipient->ParseTemplateText($res);
	}

	//print_pre($this->Item);
	if(is_object($this->Item))
	{
	$res = $this->Item->ParseTemplateText($res);
	}
	else
	{

	if(!is_object($objTemplate))
	$objTemplate = new clsTemplateList(" ");
	$res = $objTemplate->ParseTemplateText($res);
	}

	return $res;
	}

	function SendToGroup($GroupId)
	{
	global $objUsers;

	$users = $objUsers->Query_GroupPortalUser("GroupId=$GroupId");
	if(is_array($users))
	{
	foreach($users as $u)
	{
	$this->SendToUser($u->Get("PortalUserId"));
	}
	}
	}

	function SendToAddress($EmailAddress,$name="")
	{
	global $objUsers, $objEmailQueue,$objConfig;

	$conn = &GetADODBConnection();
	//$this->recipient = $objUsers->GetUser($UserId);
	//$this->recipient->TagPrefix="touser";
	if(strlen($EmailAddress))
	{
	$to_addr = $EmailAddress;
	$this->ReadTemplate();

	$subject = $this->ParseSection($this->subject);
	$body = $this->ParseSection($this->body);

	if(is_object($this->fromuser))
	{
	$FromAddr = $this->fromuser->Get("Email");
	$FromName = trim($this->fromuser->Get("FirstName")." ".$this->fromuser->Get("LastName"));
	}
	if(!strlen($FromAddr))
	{
	$FromName = strip_tags( $objConfig->Get('Site_Name') );
	$FromAddr = $objConfig->Get("Smtp_AdminMailFrom");
	}

	$charset = "ascii-us";
	if($this->Get("MessageType")=="html")
	{
	$objEmailQueue->SendMail($FromAddr,$FromName,$to_addr,$To,$subject,"",$body,$charset, $this->Get("Event"),NULL,$this->headers);
	}
	else
	{
	$body = nl2br($body);
	$body = str_replace("<br />","\n",$body);
	$objEmailQueue->SendMail($FromAddr,$FromName,$to_addr,$To,$subject,$body,"",$charset, $this->Get("Event"),NULL,$this->headers);
	}

	/*$time = adodb_mktime();

	$sql = "INSERT INTO ".GetTablePrefix()."EmailLog VALUES ('', '$FromName', '$To', '$subject', $time, '')";
	$conn->Execute($sql); */

	return TRUE;
	}
	return FALSE;
	}


	function SendToUser($UserId)
	{
	global $objUsers, $objEmailQueue, $objConfig;

	$conn = &GetADODBConnection();
	//echo "Handling Event ".$this->Get("Event")." for user $UserId <br>\n";
	$this->recipient = new clsPortalUser($UserId); // $objUsers->GetItem($UserId);
	//echo "<PRE>";print_r($this->recipient); echo "</PRE>";
	$this->recipient->TagPrefix="touser";
	if($this->recipient->Get("PortalUserId")==$UserId)
	{
	$to_addr = $this->recipient->Get("Email");
	$To = trim($this->recipient->Get("FirstName")." ".$this->recipient->Get("LastName"));

	$this->ReadTemplate();

	$subject = $this->ParseSection($this->subject, $this->recipient);
	$body = $this->ParseSection($this->body);

	if(!is_object($this->fromuser))
	{
	$this->fromuser = $objUsers->GetItem($this->Get("FromUserId"));
	}
	if(is_object($this->fromuser))
	{
	$FromAddr = $this->fromuser->Get("Email");
	$FromName = trim($this->fromuser->Get("FirstName")." ".$this->fromuser->Get("LastName"));

	$charset = "ascii-us";
	}

	if(!strlen($FromAddr))
	{
	$FromName = strip_tags( $objConfig->Get('Site_Name') );
	$FromAddr = $objConfig->Get("Smtp_AdminMailFrom");
	}
	// echo $this->Event;

	if($this->Get("MessageType")=="html")
	{
	$objEmailQueue->SendMail($FromAddr,$FromName,$to_addr,$To,$subject,"",$body,$charset, $this->Get("Event"),NULL,$this->headers);
	}
	else
	{
	$body = nl2br($body);
	$body = str_replace("<br />","\n",$body);
	$objEmailQueue->SendMail($FromAddr,$FromName,$to_addr,$To,$subject,$body,"",$charset, $this->Get("Event"),NULL,$this->headers);
	}

	/*$time = adodb_mktime();

	$sql = "INSERT INTO ".GetTablePrefix()."EmailLog VALUES ('', '$FromName', '$To ($to_addr)', '$subject', $time, '')";
	$conn->Execute($sql); */

	return TRUE;
	}
	return FALSE;
	}

	function SendAdmin()
	{
	global $objUsers, $objConfig, $objEmailQueue;

	$conn = &GetADODBConnection();

	$this->recipient = $objUsers->GetUser($this->Get("FromUserId"));
	$this->recipient->TagPrefix="touser";

	if($this->recipient->Get("PortalUserId")==$this->Get("FromUserId") \|\| strlen($this->recipient->Get("PortalUserId")) == 0)
	{
	$to_addr = $this->recipient->Get("Email");
	$To = trim($this->recipient->Get("FirstName")." ".$this->recipient->Get("LastName"));
	$this->ReadTemplate();

	if (strlen($to_addr) == 0) {
	$to_addr = $objConfig->Get("Smtp_AdminMailFrom");
	}

	$subject = $this->ParseSection($this->subject);
	$body = $this->ParseSection($this->body);
	$FromName = strip_tags( $objConfig->Get('Site_Name') );
	$FromAddr = $objConfig->Get("Smtp_AdminMailFrom");
	if(strlen($FromAddr))
	{
	$charset = "ascii-us";
	if($this->Get("MessageType")=="html")
	{
	$objEmailQueue->SendMail($FromAddr,$FromName,$to_addr,$To,$subject,"",$body,$charset,$this->Get("Event"),NULL,$this->headers);
	}
	else
	{
	$body=nl2br($body);
	$body = str_replace("<br />","\n",$body);
	$objEmailQueue->SendMail($FromAddr,$FromName,$to_addr,$To,$subject,$body,"",$charset, $this->Get("Event"),NULL,$this->headers);
	}

	/* $time = adodb_mktime();

	$sql = "INSERT INTO ".GetTablePrefix()."EmailLog VALUES ('', '$FromName', '$To ($to_addr)', '$subject', $time, '')";
	$conn->Execute($sql);
	*/
	return TRUE;
	}
	}
	return FALSE;
	}

	function ParseTemplateText($text)
	{
	$html = $text;
	$search = "<inp:";
	//$search = "<inp:".$this->TagPrefix;
	//$next_tag = strpos($html,"<inp:");
	$next_tag = strpos($html,$search);

	while($next_tag)
	{
	$closer = strpos(strtolower($html),">",$next_tag);
	$end_tag = strpos($html,"/>",$next_tag);
	if($end_tag < $closer \|\| $closer == 0)
	{
	$tagtext = substr($html,$next_tag,($end_tag - $next_tag)+2);
	$pre = substr($html,0,$next_tag);
	$post = substr($html,$end_tag+2);
	$inner = $this->ParseElement($tagtext);
	$html = $pre.$inner.$post;
	}
	else
	{

	$OldTagStyle = "</inp>";

	## Try to find end of TagName
	$TagNameEnd = strpos($html, " ", $next_tag);

	## Support Old version
	// $closer = strpos(strtolower($html),"</inp>",$next_tag);
	if ($TagNameEnd)
	{
	$Tag = strtolower(substr($html, $next_tag, $TagNameEnd-$next_tag));
	$TagName = explode(":", $Tag);
	if (strlen($TagName[1]))
	$CloserTag = "</inp:".$TagName[1].">";
	}
	else
	{
	$CloserTag = $OldTagStyle;
	}

	$closer = strpos(strtolower($html), $CloserTag, $next_tag);

	## Try to find old tag closer
	if (!$closer && ($CloserTag != $OldTagStyle))
	{
	$CloserTag = $OldTagStyle;
	$closer = strpos(strtolower($html), $CloserTag, $next_tag);
	}

	$end_tag = strpos($html,">",$next_tag);
	$tagtext = substr($html,$next_tag,($end_tag - $next_tag)+1);
	$pre = substr($html,0,$next_tag);
	$inner = substr($html,$end_tag+1,$closer-($end_tag+1));
	$post = substr($html,$end_tag+1+strlen($inner) + strlen($CloserTag));
	//echo "PRE:". htmlentities($pre,ENT_NOQUOTES);
	//echo "INNER:". htmlentities($inner,ENT_NOQUOTES);
	//echo "POST:". htmlentities($post,ENT_NOQUOTES);

	$parsed = $this->ParseElement($tagtext);
	if(strlen($parsed))
	{
	$html = $pre.$this->ParseTemplateText($inner).$post;
	}
	else
	$html = $pre.$post;
	}
	$next_tag = strpos($html,$search);
	}
	return $html;
	}

	function ParseElement($raw, $inner_html ="")
	{
	$tag = new clsHtmlTag($raw);
	$tag->inner_html = $inner_html;

	if($tag->parsed)
	{
	if($tag->name=="include" \|\| $tag->name=="perm_include" \|\| $tag->name=="lang_include")
	{
	$output = $this->Parser->IncludeTemplate($tag);
	}
	else
	{
	if (is_object($this->Item)) {
	$this->Item->TagPrefix = $tag->name;
	$output = $this->Item->ParseObject($tag);
	}
	else {
	$output = $this->ParseObject($tag);
	}

	if(substr($output,0,9)=="Undefined")
	{
	$output = $tag->Execute();
	// if(substr($output,0,8)="{Unknown")
	// $output = $raw;
	} return $output;
	}
	}
	else
	return "";
	}
	}

	class clsEmailMessageList extends clsItemCollection
	{
	function clsEmailMessageList()
	{
	$this->clsItemCollection();
	$this->classname = "clsEmailMessage";
	$this->SourceTable = GetTablePrefix()."EmailMessage";
	$this->PerPageVar = "Perpage_EmailEvents";
	$this->AdminSearchFields = array("Template","Description", "Module","Event");
	}

	function LoadLanguage($LangId=NULL)
	{
	global $objLanguages;

	if(!$LangId)
	$LangId = $objLanguages->GetPrimary();

	$sql = "SELECT * FROM ".$this->SourceTable." WHERE LanguageId=$LangId";
	$this->Clear();
	return $this->Query_Item($sql);
	}

	function &AddEmailEvent($Template, $Type, $LangId, $EventId)
	{
	$e = new clsEmailMessage();
	$e->tablename = $this->SourceTable;
	$e->Set(array("Template","MessageType","LanguageId","EventId"),
	array($Template,$Type,$LangId,$EventId));
	$e->Dirty();
	$e->Create();

	return $e;
	}

	function DeleteLanguage($LangId)
	{
	$sql = "DELETE FROM ".$this->SourceTable." WHERE LanguageId=$LangId OR LanguageId = 0";
	if( $GLOBALS['debuglevel'] ) echo $sql."<br>\n";

	$this->adodbConnection->Execute($sql);
	}

	function &GetMessage($EventId,$LangId,$LoadFromDB=TRUE)
	{
	$found=FALSE;

	if(is_array($this->Items))
	{
	for($x=0;$x<count($this->Items);$x++)
	{
	$i =& $this->GetItemRefByIndex($x);
	if(is_object($i))
	{
	if($i->Get("EventId")==$EventId && $i->Get("LanguageId")==$LangId)
	{
	$found=TRUE;
	break;
	}
	}
	}
	}
	if(!$found)
	{
	if($LoadFromDB)
	{
	$n = NULL;
	$n = new $this->classname();
	$n->tablename = $this->SourceTable;
	if($n->LoadEvent($EventId,$LangId))
	{
	array_push($this->Items, $n);
	$i =& $this->Items[count($this->Items)-1];
	}
	else
	$i = FALSE;
	}
	else
	$i = FALSE;
	}
	return $i;
	}

	function CreateEmptyEditTable($IdList, $use_parent = false)
	{
	global $objSession;

	if (!$use_parent) {
	$edit_table = $objSession->GetEditTable($this->SourceTable);
	@$this->adodbConnection->Execute("DROP TABLE IF EXISTS $edit_table");
	$query = "SELECT * FROM ".$this->SourceTable." WHERE 0";
	$insert = "CREATE TABLE ".$edit_table." ".$query;
	if($objSession->HasSystemPermission("DEBUG.LIST"))
	echo htmlentities($insert,ENT_NOQUOTES)."<br>\n";
	$this->adodbConnection->Execute($insert);
	$this->LoadLanguage();
	$idvalue = -1;
	for($i=0;$i<$this->NumItems();$i++)
	{
	$e =& $this->Items[$i];
	$e->SourceTable = $edit_table;
	if(is_array($IdList))
	{
	foreach($IdList as $id)
	{
	$e->UnsetIdField();
	$e->Set("EmailMessageId",$idvalue--);
	$e->Set("LanguageId",$id);
	// $e->Set("Description",admin_language("la_desc_emailevent_".$e->Get("Event"),$id));
	$e->Create();
	}
	}
	else
	{
	$e->UnsetIdField();
	$e->Set("EmailMessageId",$idvalue--);
	$e->Set("LanguageId",$IdList);
	// $e->Set("Description",admin_language("la_desc_emailevent_".$e->Get("Event"),$LangId));
	$e->Create();
	}
	}
	$this->Clear();
	}
	else {
	parent::CreateEmptyEditTable($IdList);
	}
	}

	function CopyFromEditTable()
	{
	global $objSession;
	$GLOBALS['_CopyFromEditTable']=1;

	$idfield = "EmailMessageId";
	$edit_table = $objSession->GetEditTable($this->SourceTable);
	$sql = "SELECT * FROM $edit_table WHERE LanguageId <> 0";
	$rs = $this->adodbConnection->Execute($sql);
	while($rs && !$rs->EOF)
	{
	$data = $rs->fields;
	$c = new $this->classname;
	$c->SetFromArray($data);
	//$c->idfield = $idfield;
	if($c->Get($idfield)<1)
	{
	$old_id = $c->Get($idfield);
	$c->Dirty();
	$c->UnsetIdField();
	$c->Create();
	}
	else
	{
	$c->Dirty();
	$c->Update();
	}
	$rs->MoveNext();
	}
	@$this->adodbConnection->Execute("DROP TABLE IF EXISTS $edit_table");
	unset($GLOBALS['_CopyFromEditTable']);
	}

	function PurgeEditTable()
	{
	global $objSession;

	$edit_table = $objSession->GetEditTable($this->SourceTable);
	@$this->adodbConnection->Execute("DROP TABLE IF EXISTS $edit_table");
	}

	function &GetEmailEventObject($EventName,$Type=0,$LangId=NULL)
	{
	global $objLanguages;

	if(!$LangId)
	$LangId = $objLanguages->GetPrimary();
	$EmailTable = $this->SourceTable;
	$EventTable = GetTablePrefix()."Events";
	$sql = "SELECT * FROM $EventTable INNER JOIN $EmailTable ON ($EventTable.EventId = $EmailTable.EventId) ";
	$sql .="WHERE Event='$EventName' AND LanguageId=$LangId AND Type=$Type";
	$result = $this->adodbConnection->Execute($sql);

	if ($result === FALSE)
	{
	//$Errors->AddError("error.DatabaseError",NULL,$this->adodbConnection->ErrorMsg(),"","clsEvent","GetEmailEventObject");
	return FALSE;
	}
	$data = $result->fields;
	$e = new clsEmailMessage();
	$e->SetFromArray($data);
	$e->Clean();
	return $e;
	}

	function ReadImportTable($TableName,$Overwrite=FALSE, $MaxInserts=100,$Offset=0)
	{
	$eml = new clsEmailMessageList();
	$this->Clear();
	$Inserts = 0;
	$sql = "SELECT * FROM $TableName LIMIT $Offset,$MaxInserts";
	$this->Query_Item($sql);
	if($this->NumItems()>0)
	{
	foreach($this->Items as $i)
	{
	$e = $eml->GetMessage($i->Get("EventId"),$i->Get("LanguageId"));
	if(is_object($e))
	{
	if($Overwrite)
	{
	$e->Set("MessageType",$i->Get("MessageType"));
	$e->Set("Template",$i->Get("Template"));
	$e->Update();
	}
	}
	else
	{
	$i->Create();
	}
	$Inserts++;
	}
	}
	$Offset = $Offset + $Inserts;
	return $Offset;
	}
	}

	function EventEnabled($e)
	{
	global $objConfig;

	$var = "Email_".$e."_Enabled";

	return ($objConfig->Get($var)=="1");
	}

	class clsEmailQueue
	{
	var $SourceTable;
	var $MessagesAtOnce;
	var $MessagesSent=0;
	var $LogLevel = 0;
	var $HLB = "\n"; // Headers Line Break
	var $BLB = "\n"; // Body Line Break

	function clsEmailQueue($SourceTable=NULL,$MessagesAtOnce=NULL)
	{
	global $objConfig;

	$this->HLB = chr(10);
	$this->BLB = chr(10);

	if($SourceTable)
	{
	$this->SourceTable=$SourceTable;
	}
	else
	$this->SourceTable = GetTablePrefix()."EmailQueue";
	if(!$MessagesAtOnce)
	$MessagesAtOnce = (int)$objConfig->Get("Email_MaxSend");
	if($MessagesAtOnce<1)
	$MessagesAtOnce=1;
	$this->MessagesAtOnce = $MessagesAtOnce;
	$this->LogLevel = (int)$objConfig->Get("Smtp_LogLevel");
	}

	function WriteToMailLog($text)
	{
	global $pathtoroot,$admin;
	//echo htmlentities($text)."<br>\n";
	if($this->LogLevel>0)
	{
	$Logfile = $pathtoroot.$admin."/email/log.txt";
	if(is_writable($Logfile))
	{
	$fp = fopen($Logfile,"a");
	if($fp)
	{
	fputs($fp,$text."\n");
	fclose($fp);
	}
	}
	}
	}

	function AllowSockets()
	{
	$minver = explode(".", "4.3.0");
	$curver = explode(".", phpversion());
	if (($curver[0] < $minver[0])
	\|\| (($curver[0] == $minver[0])
	&& ($curver[1] < $minver[1]))
	\|\| (($curver[0] == $minver[0]) && ($curver[1] == $minver[1])
	&& ($curver[2][0] < $minver[2][0])))
	return false;
	else
	return true;
	}

	function DeliverMail($To,$From,$Subject,$Msg,$headers, $ForceSend=0)
	{
	global $MessagesSent,$objConfig;

	if(($this->MessagesSent >$this->MessagesAtOnce) && !$ForceSend)
	{
	$this->EnqueueMail($To,$From,$Subject,$Msg,$headers);
	return TRUE;
	}
	else
	{
	$this->MessagesSent++;

	$time = adodb_mktime();
	$conn = &GetADODBConnection();

	/* $sql = "INSERT INTO ".GetTablePrefix()."EmailLog VALUES ('', '".htmlspecialchars($From)."', '".htmlspecialchars($To)."', '$Subject', $time, '')";
	$conn->Execute($sql);*/


	$headers = "Date: ".adodb_date("r")."\n".$headers;
	$headers = "Return-Path: ".$objConfig->Get("Smtp_AdminMailFrom")."\n".$headers;

	/* ensure headers are using \r\n instead of \n */
	$headers = str_replace("\n\n","\r\n\r\n",$headers);
	$headers = str_replace("\r\n","\n",$headers);
	$headers = str_replace("\n","\r\n",$headers);

	// if (strtoupper(substr(PHP_OS, 0, 3) == 'WIN')) {
	$Msg = str_replace("\n\n","\r\n\r\n",$Msg);
	$Msg = str_replace("\r\n","\n",$Msg);
	$Msg = str_replace("\n","\r\n",$Msg);
	// }

	//echo "<PRE>"; print_r(htmlentities($headers)); echo "</PRE>";
	//echo "<PRE>"; print_r(htmlentities($Msg)); echo "</PRE>";
	$ver = phpversion();
	if(substr($Subject,0,9)=="Subject: ")
	$Subject = substr($Subject,9);
	if(!strlen($objConfig->Get("Smtp_Server")) \|\| !$this->AllowSockets())
	{
	return mail($To,trim($Subject),$Msg, $headers);
	}

	$headers = "To: <".$To.">"."\n".$headers;
	$headers = "Subject: ".trim($Subject)."\r\n".$headers;

	- $send_params['recipients'] = array($To); // The recipients (can be multiple)
	+ if (strpos($To, ',') !== false) {
	+ $To = str_replace(' ', '', $this->To);
	+ $send_params['recipients'] = explode(',', $this->To);
	+ }
	+ else {
	+ $send_params['recipients'] = array($To); // The recipients (can be multiple)
	+ }
	$send_params['from'] = $From; // This is used as in the MAIL FROM: cmd
	$send_params['headers'] = explode("\r\n",$headers);
	// It should end up as the Return-Path: header
	$send_params['body'] = $Msg; // The body of the email

	$params['host'] = $objConfig->Get("Smtp_Server"); // The smtp server host/ip

	$params['port'] = 25; // The smtp server port
	$params['hello'] = 'INPORTAL'; // What to use when sending the helo command. Typically, your domain/hostname
	if($objConfig->Get("Smtp_Authenticate")) // Whether to use basic authentication or not
	{
	$params['auth'] = TRUE;
	$params['user'] = $objConfig->Get("Smtp_User");
	$params['pass'] = $objConfig->get("Smtp_Pass");
	}
	else
	$params['auth'] = FALSE;
	$this->LogLevel=0;
	$SmtpServer = new smtp($params);
	if($this->LogLevel>0)
	{
	$SmtpServer->debug=1;
	foreach($params as $key=>$value)
	{
	$this->WriteToMailLog($key."=".$value);
	}
	}
	else
	{
	//$SmtpServer->debug = 1;
	}
	$connected = $SmtpServer->connect();

	if($connected)
	{
	if($this->LogLevel>1)
	{
	$this->WriteToMailLog("Connected to ".$params['host']);
	}
	$res = $SmtpServer->send($send_params);
	}
	$SmtpServer->disconnect();

	if($this->LogLevel>1)
	{
	foreach($SmtpServer->buffer as $l)
	{
	$this->WriteToMailLog($l);
	}
	}

	if($this->LogLevel>0)
	{
	if(count($SmtpServer->errors)>0)
	{
	foreach($SmtpServer->errors as $e)
	{
	$this->WriteToMailLog($e);
	}
	}
	else
	$this->WriteToMailLog("Message to $From Delivered Successfully");
	}
	unset($SmtpServer);
	return $res;
	}
	}

	function EnqueueMail($To,$From,$Subject,$Msg,$headers)
	{
	global $objSession;

	$ado = &GetADODBConnection();
	$To = mysql_escape_string($To);
	$From = mysql_escape_string($From);
	$Msg = mysql_escape_string($Msg);
	$headers = mysql_escape_string($headers);
	$Subject = mysql_escape_string($Subject);
	$sql = "INSERT INTO ".$this->SourceTable." (toaddr,fromaddr,subject,message,headers) VALUES ('$To','$From','$Subject','$Msg','$headers')";
	$ado->Execute($sql);
	}

	function SendMailQeue()
	{
	global $objConfig, $objSession, $TotalMessagesSent;

	$ado = &GetADODBConnection();
	$MaxAllowed = $this->MessagesAtOnce;

	$del_sql = array();

	$NumToSend = $MaxAllowed - $this->MessagesSent;
	if($NumToSend < 0) $NumToSend=1; // Don't really know why, but this could happend, so issued this temp fix
	$sql = "SELECT * FROM ".$this->SourceTable." ORDER BY queued ASC LIMIT $NumToSend";
	$rs = $ado->Execute($sql);

	while($rs && !$rs->EOF)
	{
	$data = $rs->fields;
	$this->DeliverMail($data["toaddr"],$data["fromaddr"],$data["Subject"],$data["headers"],$data["message"],1);

	$del_sql[] = "DELETE FROM ".$this->SourceTable." WHERE queued='".$data["queued"]."'";
	$rs->MoveNext();
	}

	$numdel = count($del_sql);
	for($i=0;$i<$numdel;$i++)
	{
	$sql = $del_sql[$i];
	if(strlen($sql))
	$ado->Execute($sql);
	if($objSession->HasSystemPermission("DEBUG.ITEM"))
	echo htmlentities($sql,ENT_NOQUOTES)."<br>\n";
	}
	}

	function SendMail($From, $FromName, $ToAddr, $ToName, $Subject, $Text, $Html, $charset, $SendEvent,
	$FileName="",$FileLoc="",$QueueOnly=0,$extra_headers = array())
	{
	$HasFile = FALSE;
	$HasFile = (strlen($FileName)>0);
	$OB="----=_OuterBoundary_000".md5( uniqid (rand()));
	$boundary = "-----=".md5( uniqid (rand()));
	$f = "\"$FromName\" <".$From.">";
	$headers = "From: $f"."\n";
	$headers .= "MIME-Version: 1.0"."\n";

	$conn = &GetADODBConnection();
	$time = adodb_mktime();

	$sendTo = $ToName;

	if (strlen($sendTo) > 0) {
	$sendTo .= "($ToAddr)";
	}
	else {
	$sendTo = $ToAddr;
	}
	$sendTo=addslashes($sendTo);
	$sql = "INSERT INTO ".GetTablePrefix()."EmailLog VALUES ('', ".$conn->qstr($FromName).", ".$conn->qstr($sendTo).", ".$conn->qstr( str_replace("Subject:", "", $Subject) ).", $time, '$SendEvent')";
	$conn->Execute($sql);

	$msg .="This is a multi-part message in MIME format."."\n"."\n";
	if($HasFile)
	{
	//Messages start with text/html alternatives in OB
	$headers.="Content-Type: multipart/mixed;"."\n"."\tboundary=\"".$OB."\""."\n"."\n";
	$msg.="--".$OB."\n";
	$msg.="Content-Type: multipart/alternative; boundary=\"$boundary\""."\n"."\n"."\n";
	}
	else {
	$headers .= "Content-Type: multipart/alternative; boundary=\"$boundary\""."\n";
	}
	if(is_array($extra_headers))
	{
	for($i=0;$i<count($extra_headers);$i++);
	{
	$headers .= $extra_headers[$i]."\n";
	}
	}

	if(!$Text)
	{
	$Text=strip_tags($Html);
	}

	$msg .= "--" . $boundary . "\n";
	$msg .= "Content-Type: text/plain; charset=\"$charset\""."\n";
	$msg .= "Content-Transfer-Encoding: 8bit"."\n"."\n";
	$msg .= stripslashes($Text);
	$msg .= "\n"."\n";

	if(strlen($Html)>0)
	{
	$msg .= "--" . $boundary . "\n";
	$msg .= "Content-Type: text/html; charset=\"iso-8859-1\""."\n";
	$msg .= "Content-Transfer-Encoding: 8bit"."\n"."\n";
	$msg .= stripslashes($Html);
	$msg .= "\n"."\n";
	}
	$msg .= "--" . $boundary . "--"."\n";
	if($HasFile)
	{
	if(!strlen($FileLoc)) {
	$FileLoc = $FileName;
	}
	$FileName = basename($FileName);
	$msg .= "\n"."--".$OB."\n";
	$msg.="Content-Type: application/octetstream;"."\n"."\tname=\"".$FileName."\""."\n";
	$msg.="Content-Transfer-Encoding: base64"."\n";
	$msg.="Content-Disposition: attachment;"."\n"."\tfilename=\"".$FileName."\""."\n"."\n";

	//file goes here
	$fd=fopen ($FileLoc, "r");
	if($fd)
	{
	$FileContent=fread($fd,filesize($FileLoc));
	fclose ($fd);
	}
	$FileContent=chunk_split(base64_encode($FileContent));
	$msg .= $FileContent."\n";
	$msg .= "--".$OB."--"."\n";
	}

	if($this->MessagesSent>$this->MessagesAtOnce \|\| $QueueOnly==1)
	{
	$this->EnqueueMail($ToAddr,$From,$Subject,$msg,$headers);
	}
	else
	{
	$this->DeliverMail($ToAddr,$From,$Subject,$msg,$headers);
	}
	}

	}
	?>

	Property changes on: trunk/kernel/include/emailmessage.php
	___________________________________________________________________
	Modified: cvs2svn:cvs-rev
	## -1 +1 ##
	-1.52
	\ No newline at end of property
	+1.53
	\ No newline at end of property
	Index: trunk/kernel/action.php
	===================================================================
	--- trunk/kernel/action.php (revision 3526)
	+++ trunk/kernel/action.php (revision 3527)
	@@ -1,2626 +1,2623 @@
	<?php

	$ro_perm = $objSession->HasSystemPermission("SYSTEM_ACCESS.READONLY");

	// ====== Debugger related: begin ======
	-if (!isset($_SERVER['SCRIPT_FILENAME'])) {
	- $_SERVER['SCRIPT_FILENAME'] = $_SERVER['SCRIPT_NAME'];
	-}
	$script = basename($_SERVER['PHP_SELF']);
	$skipDebug = Array('index.php','tree.php','head.php','credits.php');
	if( admin_login() && !in_array($script, $skipDebug) )
	{
	if( IsDebugMode() )
	{
	if($Action) $debugger->setHTMLByIndex(1,'Kernel Action: <b>'.$Action.'</b>','append');
	if(!(defined('REDIRECT_REQUIRED')&&REDIRECT_REQUIRED))
	{
	echo '<a href="javascript:self.location.reload();">Reload Frame</a>';
	if( defined('DBG_ZEND_PRESENT')&&DBG_ZEND_PRESENT==0 ) echo ' \|\| <a href="javascript:toggleDebugLayer();">Show Debugger</a><br>';
	}
	}
	}
	unset($script, $skipDebug);
	// ====== Debugger related: end ======

	// Session expiration related

	require_login( !admin_login() && $Action, 'expired=1', true );

	// End session exipration related

	switch($Action)
	{
	case "m_save_import_config":
	// Set New Import Category
	if( GetVar('categorylist', true) !== false )
	{
	$cat_id = $_POST['categorylist'];
	$objSession->SetVariable('categoryid', $cat_id);

	if($cat_id > 0)
	{
	$cat = $objCatList->GetByResource($cat_id);
	if(is_object($cat))
	{
	$navbar = $cat->Get('CachedNavbar');
	$objSession->SetVariable('catnavbar', $navbar);
	$objSession->SetVariable('import_category_id', $cat->UniqueId() );
	}
	}elseif($cat_id == 0)
	{
	global $objConfig;
	$objSession->SetVariable('import_category_id', 0);
	}

	$objSession->SetVariable('categorylist', $_POST['categorylist']);
	}

	// Set Import Admin Group
	if( GetVar('grouplist1', true) )
	{
	$group_id = $_POST['grouplist1'];
	$group = $objGroups->GetItemByField('ResourceId',$group_id);
	$objSession->SetVariable('user_admin_names', $group->Get('Name'));
	$objSession->SetVariable('user_admin_values', $group->Get('GroupId'));
	$objSession->SetVariable('grouplist1', $_POST['grouplist1']);
	}

	// Set Import User Group
	if( GetVar('grouplist2', true) )
	{
	$group_id = $_POST['grouplist2'];
	$group = $objGroups->GetItemByField('ResourceId', $group_id);
	$objSession->SetVariable('user_regular_names', $group->Get('Name'));
	$objSession->SetVariable('user_regular_values', $group->Get('GroupId'));
	$objSession->SetVariable('grouplist2', $_POST['grouplist2']);
	}
	break;

	case "m_add_user":
	$dupe_user = '';
	//$user_pending = (int)$_POST["user_pending"];
	//$user_enabled = (int)$_POST["user_enabled"];
	$CreatedOn = DateTimestamp($_POST["user_date"],GetDateFormat());
	$CreatedOn += SecondsSinceMidnight($_POST["user_time"]);

	$dob = DateTimestamp($_POST["user_dob"],GetDateFormat());

	$objEditItems = new clsUserManager();
	$objEditItems->SourceTable = $objSession->GetEditTable("PortalUser");

	if(strlen($_POST["user_login"]))
	{
	if (strtolower($_POST["user_login"]) == "root")
	$id = 1;
	else
	$id = $objUsers->GetUserId($_POST["user_login"]);
	}
	else
	$dob = 0;

	if(!empty($id))
	{
	$lvErrorString = language('la_error_duplicate_username');
	$dupe_user = $_POST["user_login"];
	$_POST["user_login"] = '';
	}
	else
	{
	$password = md5($_POST["password"]);
	$u = $objEditItems->Add_User($_POST["user_login"], $password,
	$_POST["user_email"], $CreatedOn, $_POST["user_firstname"],
	$_POST["user_lastname"], $_POST["status"],
	$_POST["user_phone"],
	$_POST["user_street"], $_POST["user_city"],
	$_POST["user_state"], $_POST["user_zip"], $_POST["user_country"], $dob);

	$objCustomEdit = new clsCustomDataList(); //$objSession->GetEditTable("CustomMetaData"));
	$objCustomEdit->SetTable('edit');
	$objCustomEdit->LoadResource($u->Get("ResourceId"));
	$CustomFields = new clsCustomFieldList(6);
	$DataChanged = FALSE;
	foreach($_POST as $key=>$value)
	{
	if(substr($key,0,1)=="_")
	{
	$field = substr($key,1);
	$cvalue = $CustomFields->GetItemByField("FieldName",$field,FALSE);

	if(is_object($cvalue))
	{
	$objCustomEdit->SetFieldValue($cvalue->Get("CustomFieldId"),$u->Get("ResourceId"),$value);
	$DataChanged = TRUE;
	}
	}
	}
	if($DataChanged)
	$objCustomEdit->SaveData();

	$objCustomEdit->SetTable('live');
	}

	break;

	case "m_edit_user":
	//$CreatedOn = DateTimestamp($_POST["user_date"],GetDateFormat());
	//$CreatedOn += SecondsSinceMidnight($_POST["user_time"]);
	$dob = DateTimestamp($_POST["user_dob"],GetDateFormat());
	$objEditItems = new clsUserManager();
	$objEditItems->SourceTable = $objSession->GetEditTable("PortalUser");
	//$user_pending = (int)$_POST["user_pending"];
	//$user_enabled = (int)$_POST["user_enabled"];
	$UserId = (int)$_POST["user_id"];
	//echo $UserId."<br>\n";
	if(!strlen($_POST["user_login"]))
	$dob = 0;
	if(strlen($_POST["password"]))
	{
	$password = md5($_POST["password"]);
	}
	else
	$password = "";
	$u = $objEditItems->Edit_User($UserId, $_POST["user_login"], $password,
	$_POST["user_email"], $CreatedOn, $_POST["user_firstname"],
	$_POST["user_lastname"], $_POST["status"],
	$_POST["user_phone"],
	$_POST["user_street"], $_POST["user_city"],
	$_POST["user_state"], $_POST["user_zip"], $_POST["user_country"],
	$dob);

	$objCustomEdit = new clsCustomDataList(); //$objSession->GetEditTable("CustomMetaData"));
	$objCustomEdit->SetTable('edit');
	$DataChanged = false;

	$objCustomEdit->LoadResource($u->Get("ResourceId"));
	$CustomFields = new clsCustomFieldList(6);

	foreach($_POST as $key=>$value)
	{
	if(substr($key,0,1)=="_")
	{
	$field = substr($key,1);
	$cvalue = $CustomFields->GetItemByField("FieldName",$field,FALSE);

	if(is_object($cvalue))
	{
	//echo "Saving CF: (".$cvalue->Get("CustomFieldId")." ; ".$u->Get("ResourceId")." ; $value)<br>";
	$objCustomEdit->SetFieldValue($cvalue->Get("CustomFieldId"),$u->Get("ResourceId"),$value);
	$DataChanged = TRUE;
	}
	}
	}

	if($DataChanged)
	$objCustomEdit->SaveData();
	$objCustomEdit->SetTable('live');
	break;

	case "m_user_primarygroup":
	if($ro_perm) break;
	$users = explode(',', $_POST["userlist"]);
	$GroupResourceId = $_POST['grouplist'];
	$g = $objGroups->GetItemByField("ResourceId", $GroupResourceId);
	$GroupId = $g->UniqueId();

	if( is_array($users) )
	foreach($users as $user_id)
	{
	$u = $objUsers->GetItemByField("ResourceId", $user_id);
	$g->AddUser($u->Get("PortalUserId"),1,false);
	}
	break;

	case "m_edit_group":
	$objEditItems = new clsGroupList();
	$objEditItems->SourceTable = $objSession->GetEditTable("PortalGroup");
	$objEditItems->Edit_Group($_POST["group_id"], $_POST["group_name"],$_POST["group_comments"]);
	break;


	case 'm_group_edit': // when editing user membership in group
	$membership_expires = DateTimestamp( $_POST['membership_expires_date'], GetDateFormat() );
	$membership_expires += SecondsSinceMidnight( $_POST['membership_expires_time'] );

	$objEditItems = new clsUserGroupList();
	$objEditItems->SourceTable = $objSession->GetEditTable('UserGroup');
	$objEditItems->Edit_UserGroup($_POST['GroupId'], $_POST['PortalUserId'], $membership_expires);
	break;

	case "m_add_group":
	$objEditItems = new clsGroupList();
	$objEditItems->SourceTable = $objSession->GetEditTable("PortalGroup");
	$objEditItems->Add_Group($_POST["group_name"], $_POST["group_comments"],0);
	break;
	case "m_group_sysperm":
	if($ro_perm) break;
	if($_POST["GroupEditStatus"]==0)
	{
	$objSession->ResetSysPermCache();
	$GroupId = $_POST["GroupId"];
	if($GroupId)
	{
	$objEditItems = new clsGroupList();
	$objEditItems->SourceTable = $objSession->GetEditTable("PortalGroup");
	$g = $objEditItems->GetItemByField("ResourceId",$GroupId);
	if(is_object($g))
	{

	$PermList = explode(",",$_POST["PermList"]);
	for($i=0;$i<count($PermList);$i++)
	{
	if(@in_array($PermList[$i],$_POST["inherit"]))
	{
	$value = -1;
	}
	else
	{
	$value = 0;
	if(@in_array($PermList[$i],$_POST["permvalue"]))
	$value = 1;
	}
	$g->SetSystemPermission($PermList[$i],$value);
	}
	}
	}
	}
	break;

	case "m_user_sysperm":
	if($ro_perm) break;
	if($_POST["UserEditStatus"]==0)
	{
	$UserId = $_POST["ItemId"];
	if($UserId)
	{
	$objEditItems = new clsUserManager();
	$objEditItems->SourceTable = $objSession->GetEditTable("PortalUser");
	$u = $objEditItems->GetItemByField("ResourceId",$UserId);
	unset($g);
	if(is_object($u))
	{
	$objSession->ResetSysPermCache();
	$g = $u->GetPersonalGroup(FALSE);
	$PermList = explode(",",$_POST["PermList"]);
	for($i=0;$i<count($PermList);$i++)
	{
	if(!@in_array($PermList[$i],$_POST["inherit"]))
	{
	if(!is_object($g))
	$g = $u->GetPersonalGroup(TRUE);

	$value = 0;
	if(is_array($_POST["permvalue"]))
	{
	if(in_array($PermList[$i],$_POST["permvalue"]))
	$value =1;
	$g->SetSystemPermission($PermList[$i],$value);
	}
	else {
	$g->SetSystemPermission($PermList[$i], 0);
	}
	}
	else
	{
	if(is_object($g))
	$g->SetSystemPermission($PermList[$i],-1);
	}
	}
	}
	}
	}
	break;

	case "m_approve_user":
	if($ro_perm) break;
	foreach($_POST["itemlist"] as $userid)
	{
	$user = $objUsers->GetItemByField("ResourceId",$userid);
	$user->Approve();
	}
	$objUsers->Clear();
	break;

	case "m_deny_user":
	if($ro_perm) break;
	foreach($_POST["itemlist"] as $userid)
	{
	$user = $objUsers->GetItemByField("ResourceId",$userid);
	$user->Deny();
	}
	$objUsers->Clear();
	break;

	case "m_delete_user":
	if($ro_perm) break;
	foreach($_POST["itemlist"] as $userid)
	$objUsers->Delete_User($userid);
	break;

	case "m_delete_group":
	if($ro_perm) break;
	foreach($_POST["itemlist"] as $groupid)
	{
	$objGroups->Delete_Group($groupid);
	}
	break;

	case "m_user_assign": // not sure if action is used anywhere
	if($ro_perm) break;
	$useridlist = implode("-", $userlist);
	$objSession->SetUserStatus($useridlist, "g_usergroup_status");
	$g_usergroup_status = $useridlist;
	break;

	case "m_group_assign": // not sure if action is used anywhere
	if($ro_perm) break;
	foreach($grouplist as $group) $objGroups->Add_Users_To_Group($group);
	break;

	case "m_remove_group":
	if($ro_perm) break;
	$adodbConnection = &GetADODBConnection();
	$adodbConnection->Execute("DELETE FROM UserGroup where UserId='$UserId' AND GroupId='$GroupId'");
	break;

	case "m_SetVariable":
	$objSession->SetPersistantVariable($_POST["fieldname"], $_POST["varvalue"]);
	break;

	case "m_SetSessionVariable":
	$objSession->SetVariable($_POST["fieldname"], $_POST["varvalue"]);
	//echo "Setting $fieldname to $varvalue<br>\n";
	if($_POST["fieldname"]=="SearchType")
	$objSession->SetVariable("SearchWord","");
	break;

	case "m_edit_permissions":
	if($ro_perm) break;

	if($_POST["CatEditStatus"] != -1)
	{
	$objSession->SetVariable('PermCache_UpdateRequired', 1);
	$GroupId = $_POST["GroupId"];
	$CatId = $_POST["CategoryId"];
	$Module = $_POST["Module"];
	$ado = &GetADODBConnection();
	$sql = "SELECT * FROM ".GetTablePrefix()."PermissionConfig WHERE ModuleId='$Module'";
	$rs = $ado->Execute($sql);
	$PermNames = array();
	while($rs && !$rs->EOF)
	{
	$data = $rs->fields;
	$PermNames[] = $data["PermissionName"];
	$rs->MoveNext();
	}

	$inherit = array();
	if(is_array($_POST["inherit"]))
	{
	foreach($_POST["inherit"] as $perm)
	{
	$inherit[$perm] = 1;
	}
	}
	$access = array();
	if(is_array($_POST["permvalue"]))
	{
	foreach($_POST["permvalue"] as $perm)
	{
	$access[$perm] = 1;
	}
	}
	$objPermList = new clsPermList($CatId,$GroupId);
	$objPermList->LoadCategory($CatId);

	for($i=0;$i<count($PermNames);$i++)
	{
	if(!array_key_exists($PermNames[$i],$inherit))
	{
	$PermValue = (int)$access[$PermNames[$i]];

	$Perm = $objPermList->GetPermByName($PermNames[$i]);
	if($Perm)
	{
	$Id = $Perm->Get("PermissionId");
	//echo "Editing $Id<br>\n";
	$objPermList->Edit_Permission($Id,$CatId,$GroupId,$PermNames[$i],$PermValue,0);
	}
	else
	{
	//echo "Adding ".$PermNames[$i];
	$objPermList->Add_Permission($CatId,$GroupId,$PermNames[$i],$PermValue,0);
	}
	}
	else
	{
	$Perm = $objPermList->GetPermByName($PermNames[$i]);
	if($Perm)
	{
	$Id = $Perm->Get("PermissionId");
	$objPermList->Delete_Permission($Id);
	}
	}
	}
	//$c = $objCatList->GetItem($CatId);
	//$glist = $objGroups->GetAllGroupList();
	//$ViewList = $objPermList->GetGroupPermList($c,"CATEGORY.VIEW",$glist );
	//$c->SetViewPerms("CATEGORY.VIEW",$ViewList,$glist);
	//$c->Update();
	}
	break;
	case "m_perm_delete_group":
	if($ro_perm) break;
	$ado = &GetADODBConnection();
	$CatId = $_POST["CategoryId"];
	foreach($_POST["itemlist"] as $groupid)
	{
	$g = $objGroups->GetItemByField("ResourceId",$groupid);
	if(is_object($g))
	{
	$sql = "DELETE FROM ".GetTablePrefix()."Permissions WHERE CatId=$CatId AND GroupId=".$g->Get("GroupId");
	if($objSession->HasSystemPermission("DEBUG.LIST"))
	echo $sql."<br>\n";
	$ado->Execute($sql);
	}
	}
	break;

	case "m_user_addto_group":
	if($ro_perm) break;
	$objSession->SetVariable("HasChanges", 1);
	$user = $_POST["UserId"];
	if(is_numeric($user))
	{
	if(strlen($_POST["grouplist"]))
	{
	$groups = explode(",",$_POST["grouplist"]);
	if(is_array($groups))
	{
	for($i=0; $i<count($groups);$i++)
	{
	$g = $objGroups->GetItemByField("ResourceId",$groups[$i]);
	$g->AddUser($user);
	}
	}
	else
	{
	$g = $objGroups->GetItem($groups);
	$g->AddUser($user);
	}
	}
	}
	break;

	case "m_group_add_user":
	if($ro_perm) break;
	$objSession->SetVariable("HasChanges", 1);
	$group = $_POST["GroupId"];
	$EditGroups = new clsGroupList();
	$EditGroups->SourceTable = $objSession->GetEditTable($objGroups->SourceTable);
	$g = $EditGroups->GetItem($group);
	// echo "Group: $group <br>\n";
	if(is_numeric($group))
	{
	$users = explode(",",$_POST["userlist"]);
	foreach($users as $userid)
	{
	$u = $objUsers->GetItemByField("ResourceId",$userid);
	$g->AddUser($u->Get("PortalUserId"));
	}
	}

	break;
	case "m_group_removeuser":
	if($ro_perm) break;
	$objSession->SetVariable("HasChanges", 1);
	$group = $_POST["GroupId"];
	$g = $objGroups->GetItem($group);
	//if($group>0)
	//{
	foreach($_POST["itemlist"] as $user_id)
	{
	$u = $objUsers->GetItemByField("ResourceId",$user_id);
	$g->DeleteUser($u->Get("PortalUserId"));
	}
	//}
	break;
	case "m_user_removegroup":
	if($ro_perm) break;
	$objSession->SetVariable("HasChanges", 1);
	$user = $_POST["UserId"];
	//if($user>0)
	//{
	foreach($_POST["itemlist"] as $groupid)
	{
	$g = $objGroups->GetItem($groupid);
	$g->DeleteUser($user);
	}
	//}
	break;
	case "m_sendmail":
	if($ro_perm) break;
	$idlist = explode(",",$_POST["idlist"]);
	$html = (int)$_POST["html_enable"];
	$body = inp_escape($_POST["email_body"],$html);
	$subject = inp_escape($_POST["email_body"],$html);
	$Email = new clsEmailMessage();
	$Email->Set("Subject",$subject);
	$Email->Set("Template",$body);
	if($html)
	$Email->Set("MessageType","HTML");
	if(count($idlist)>0)
	{
	switch($_POST["IdType"])
	{
	case "group":
	foreach($idlist as $id)
	$Email->SendToGroup($id);
	break;
	case "user":
	foreach($idlist as $id)
	$Email->SendToUser($id);
	break;
	}/switch/
	}
	break;

	// not used anywhere
	/* case "m_item_recount":
	if($ro_perm) break;
	RunDown($m_var_list["cat"],"UpdateCacheCounts");
	break; */

	case "m_cat_delete":
	if($ro_perm) break;
	if($objSession->HasCatPermission("CATEGORY.DELETE",$objCatList->CurrentCategoryID()))
	{
	if(isset($_POST["catlist"]))
	{
	if(is_array($_POST["catlist"]))
	foreach($_POST["catlist"] as $catid)
	{
	$objCatList->Delete_Category($catid);

	}
	}
	}
	break;
	case "m_cat_cut":
	if($ro_perm) break;
	if(isset($_POST["catlist"]))
	{
	if($objSession->HasCatPermission("CATEGORY.DELETE",$catid))
	{
	$objCatList->CopyToClipboard("CUT","CategoryId",$_POST["catlist"]);
	}
	else
	$objCatList->CopyToClipboard("COPY","CategoryId",$_POST["catlist"]);
	}
	break;

	case "m_cat_copy":
	if($ro_perm) break;
	if(isset($_POST["catlist"]))
	{
	$objCatList->CopyToClipboard("COPY","CategoryId",$_POST["catlist"]);
	}
	break;

	case "m_paste":
	if($ro_perm) break;
	if($objCatList->ItemsOnClipboard()>0)
	{
	/* category's paste function populates a sparse array where array[old_id]=new_id */
	$PastedCatIds = array();
	$objCatList->PasteFromClipboard($objCatList->CurrentCategoryID(),"Name");
	}
	else
	{
	$clip = $objSession->GetVariable("ClipBoard");
	if(strlen($clip))
	{
	$ClipBoard = ParseClipboard($clip);
	$Action= strtolower($ClipBoard["table"])."_paste";
	}
	}
	break;

	case "m_cat_move_up":
	if($ro_perm) break;
	if (isset($_POST["catlist"]))
	{
	foreach($_POST["catlist"] as $catid)
	{
	$cat =& $objCatList->GetCategory($catid);
	$cat->MoveUp();
	}
	}
	break;

	case "m_cat_move_down":
	if($ro_perm) break;
	if (isset($_POST["catlist"]))
	{
	$catlist=array_reverse($_POST["catlist"]);
	foreach($catlist as $catid)
	{
	$cat =& $objCatList->GetCategory($catid);
	$cat->MoveDown();
	}
	}
	break;
	case "m_cat_approve":
	if($ro_perm) break;
	if (isset($_POST["catlist"]))
	{
	foreach($_POST["catlist"] as $catid)
	{
	$cat =& $objCatList->GetCategory($catid);
	$cat->Approve();
	}
	}
	break;
	case "m_cat_decline":
	if($ro_perm) break;
	if (isset($_POST["catlist"]))
	{
	foreach($_POST["catlist"] as $catid)
	{
	$cat =& $objCatList->GetCategory($catid);
	//$cat->Deny();
	RunDown($catid,"Deny");
	}
	}
	break;

	case "m_rel_delete":
	$adodbConnection= &GetADODBConnection();
	$table = $objSession->GetEditTable("Relationship");
	if(isset($_POST["itemlist"]))
	{
	if(is_array($_POST["itemlist"]))
	{
	foreach($_POST["itemlist"] as $id)
	{
	$sql = "DELETE FROM ".$table." WHERE RelationshipId=".$id;
	$adodbConnection->Execute($sql);
	if($objSession->HasSystemPermission("DEBUG.LIST"))
	echo $sql."<br>\n";
	}
	}
	else
	{
	$sql = "DELETE FROM ".$table." WHERE RelationshipId=".$_POST["itemlist"];
	$adodbConnection->Execute($sql);
	if($objSession->HasSystemPermission("DEBUG.LIST"))
	echo $sql."<br>\n";
	}
	}
	break;
	case "m_add_relation":
	$RelList = new clsRelationshipList();
	$RelList->SourceTable = $objSession->GetEditTable("Relationship");

	//$r = $RelList->Add($_POST["SourceId"],$_POST["SourceType"],$_POST["TargetId"],$_POST["TargetType"],
	// 0,(int)$_POST["Enabled"],$_POST["RelType"], $Rel);
	$ado = &GetADODBConnection();
	$NewId = intval($ado->GetOne('SELECT MIN(RelationshipId) as MinValue FROM '.$RelList->SourceTable));
	if($NewId > 0) $NewId = 0;
	$NewId--;

	$priority = (int)GetVar('priority');
	$r = $RelList->Add($_POST["SourceId"],$_POST["SourceType"],$_POST["TargetId"],$_POST["TargetType"],
	$priority,(int)$_POST["Enabled"],$_POST["RelType"], $NewId);

	$sql = "UPDATE ".$RelList->SourceTable." SET RelationshipId=".$NewId." WHERE RelationshipId=".$r->Get("RelationshipId");
	if($objSession->HasSystemPermission("DEBUG.LIST"))
	echo $sql."<br>\n";
	$ado->Execute($sql);

	break;
	case "m_edit_relation":
	if($_POST["CatEditStatus"]==0)
	{
	$RelList = new clsRelationshipList();
	$RelList->SourceTable = $objSession->GetEditTable("Relationship");

	$r = $RelList->GetItem($_POST["RelationshipId"]);
	if(is_object($r))
	{
	$r->Set("Enabled",(int)$_POST["Enabled"]);
	$r->Set("Type",(int)$_POST["RelType"]);
	$r->Set("Priority",(int)$_POST["priority"]);
	$r->Update();
	}
	}
	break;
	case "m_rel_move_up":
	$objRelList = new clsRelationshipList();
	$objRelList->SourceTable = $objSession->GetEditTable("Relationship");
	if (isset($_POST["itemlist"]))
	{
	foreach($_POST["itemlist"] as $id)
	{
	$r = $objRelList->GetItem($id);
	$r->MoveUp($_POST["SourceId"]);
	}
	}
	break;
	case "m_rel_move_down":
	$objRelList = new clsRelationshipList();
	$objRelList->SourceTable = $objSession->GetEditTable("Relationship");
	if (isset($_POST["itemlist"]))
	{
	$itemlist=array_reverse($_POST["itemlist"]);
	foreach($itemlist as $id)
	{
	$r = $objRelList->GetItem($id);
	$r->MoveDown($_POST["SourceId"]);
	}
	}
	break;


	case "m_add_category":
	if(ValidDate($_POST["cat_date"],GetDateFormat()))
	{
	$CreatedOn = DateTimestamp($_POST["cat_date"],GetDateFormat());
	}
	else
	$CreatedOn = adodb_mktime();
	$html = (int)$_POST["html_enable"];

	$cat_pick = $_POST["cat_pick"];
	$Status = (int)$_POST["status"];
	$Hot=(int)$_POST["itemhot"];
	$Pop = (int)$_POST["itempop"];
	$New = (int)$_POST["itemnew"];

	$objEditItems = new clsCatList();
	$objEditItems->SourceTable = $objSession->GetEditTable("Category");
	$cat = $objEditItems->Add($_POST["ParentId"], $_POST["cat_name"], inp_escape($_POST["cat_desc"],$html), $CreatedOn,
	$cat_pick, $Status, $Hot, $New, $Pop, $_POST["Priority"],
	$_POST["meta_keywords"],$_POST["meta_desc"], GetVar('auto_filename'), GetVar('filename') );
	$objCustomEdit = new clsCustomDataList($objSession->GetEditTable("CustomMetaData"));
	$objCustomEdit->LoadResource($cat->Get("ResourceId"));
	$CustomFields = new clsCustomFieldList(1);
	$DataChanged = FALSE;
	foreach($_POST as $key=>$value)
	{
	if(substr($key,0,1)=="_")
	{
	$field = substr($key,1);
	$cvalue = $CustomFields->GetItemByField("FieldName",$field,FALSE);

	if(is_object($cvalue))
	{
	$objCustomEdit->SetFieldValue($cvalue->Get("CustomFieldId"),$cat->Get("ResourceId"),$value);
	$DataChanged = TRUE;
	}
	}
	}
	if($DataChanged)
	$objCustomEdit->SaveData();

	break;

	case "m_edit_category":
	$CreatedOn = DateTimestamp($_POST["cat_date"],GetDateFormat());
	$cat_pick = GetVar('cat_pick', true);
	$Status = (int)$_POST["status"];
	$Hot = false; //(int)$_POST["itemhot"];
	$Pop = false; //(int)$_POST["itempop"];
	$New = (int)$_POST["itemnew"];

	$html = (int)$_POST["html_enable"];
	$objEditItems = new clsCatList();
	$objEditItems->SourceTable = $objSession->GetEditTable("Category");

	// check if name of cat isn't changed: begin
	if( GetVar('CategoryId') > 0 )
	{
	$original_cats = new clsCatList();
	$original_cat = $original_cats->GetItemByField('CategoryId', GetVar('CategoryId'));

	$match_fields = Array('Name' => 'cat_name', 'Filename' => 'filename');
	foreach ($match_fields as $db_field => $submit_field)
	{
	if( $original_cat->Get($db_field) != stripslashes( GetVar($submit_field) ) )
	{
	$objSession->SetVariable('PermCache_UpdateRequired', 1);
	break;
	}
	}

	unset($original_cat, $original_cats);
	}
	else
	{
	$objSession->SetVariable('PermCache_UpdateRequired', 1);
	}
	// check if name of cat isn't changed: end

	$cat = $objEditItems->Edit_Category($_POST["CategoryId"],inp_escape($_POST["cat_name"],$html), inp_escape($_POST["cat_desc"],$html), $CreatedOn, $cat_pick, $Status, $Hot, $New, $Pop, $_POST["Priority"], $_POST["meta_keywords"], $_POST["meta_desc"], GetVar('auto_filename'), GetVar('filename') );

	$objCustomEdit = new clsCustomDataList($objSession->GetEditTable("CustomMetaData"));
	$objCustomEdit->LoadResource($cat->Get("ResourceId"));
	$CustomFields = new clsCustomFieldList(1);
	$DataChanged = FALSE;
	foreach($_POST as $key=>$value)
	{
	if(substr($key,0,1)=="_")
	{
	$field = substr($key,1);
	$cvalue = $CustomFields->GetItemByField("FieldName",$field,FALSE);

	if(is_object($cvalue))
	{
	$objCustomEdit->SetFieldValue($cvalue->Get("CustomFieldId"),$cat->Get("ResourceId"),$value);
	$DataChanged = TRUE;
	}
	}
	}
	if($DataChanged)
	$objCustomEdit->SaveData();

	break;
	case "m_edit_custom_data":
	$id = $_POST["ItemId"];

	$objCustomEdit = new clsCustomDataList($objSession->GetEditTable("CustomMetaData"));
	$objCustomEdit->LoadResource($id);
	$CustomFields = new clsCustomFieldList($_POST['CustomType']);
	$DataChanged = FALSE;
	foreach($_POST as $key=>$value)
	{
	if(substr($key,0,1)=="_")
	{
	$field = substr($key,1);
	$cvalue = $CustomFields->GetItemByField("FieldName",$field,FALSE);

	if(is_object($cvalue))
	{
	$objCustomEdit->SetFieldValue($cvalue->Get("CustomFieldId"),$id,$value);
	$DataChanged = TRUE;
	}
	}
	}
	if($DataChanged)
	$objCustomEdit->SaveData();
	/*
	$id = $_POST["ItemId"];
	$objEditData = new clsCustomDataList(); //$objSession->GetEditTable("CustomMetaData"));
	$objEditData->SetTable('edit');
	$ado = &GetADODBConnection();

	if($id && is_array($_POST["CustomData"]))
	{
	foreach($_POST["CustomData"] as $FieldId => $Value)
	{
	$sql = "SELECT count(*) as reccount FROM ".$objEditData->SourceTable." WHERE CustomFieldId=$FieldId AND ResourceId=".$_POST["ItemId"];
	$rs = $ado->Execute($sql);
	$intable = $rs->fields["reccount"];
	if(!$intable)
	{
	$sql = "INSERT INTO ".$objEditData->SourceTable." (ResourceId,CustomFieldId,Value) VALUES ('".$id."','$FieldId','$Value')";
	$ado->Execute($sql);
	//echo $sql."<br>\n";
	}
	else
	{
	$sql = "UPDATE ".$objEditData->SourceTable." SET Value='".$Value."' WHERE CustomFieldId=$FieldId AND ResourceId=".$_POST["ItemId"];
	$ado->Execute($sql);
	//echo $sql."<br>\n";
	}
	}
	}
	$objEditData->SetTable('live');
	*/
	break;
	case "m_customfield_edit":
	if($ro_perm) break;
	$DataType = $_POST["DataType"];
	$FieldId = $_POST["CustomFieldId"];
	$FieldName = $_POST["fieldname"];
	//$FieldLabel = $_POST["fieldlabel"];
	if(strlen($FieldName))
	{
	$objCustomFields = new clsCustomFieldList($DataType);
	$objCustomFields->EditField($FieldId,$DataType,$FieldName,"",(int)$_POST["generaltab"],
	$_POST["heading"],$_POST["fieldprompt"],$_POST["input_type"],
	$_POST["valuelist"]);
	}
	unset($objCustomFields);
	break;
	case "m_customfield_add":
	if($ro_perm) break;
	$DataType = $_POST["DataType"];
	$FieldName = $_POST["fieldname"];
	//$FieldLabel = $_POST["fieldlabel"];
	if(strlen($FieldName))
	{
	$objCustomFields = new clsCustomFieldList($DataType);
	$objCustomFields->AddField($DataType,$FieldName,"",(int)$_POST["generaltab"],
	$_POST["heading"],$_POST["fieldprompt"],$_POST["input_type"],
	$_POST["valuelist"]);
	unset($objCustomFields);
	}
	break;
	case "m_customfield_delete":
	if($ro_perm) break;
	$DataType = $_POST["DataType"];
	$objCustomFields = new clsCustomFieldList($DataType);

	foreach($_POST["itemlist"] as $f)
	{
	$objCustomFields->DeleteField($f);
	//$c = $objCustomFields->GetItem($f);
	//$c->Delete();
	}
	unset($objCustomFields);
	break;
	case "m_SearchConfig_Edit":
	if($ro_perm) break;
	$SimpleValues = $_POST["simple"];
	$AdvValues = $_POST["advanced"];
	$module = $_POST["module"];
	$priority = $_POST["pri"];
	//phpinfo(INFO_VARIABLES);
	$objSearchConfig = new clsSearchConfigList($module);
	foreach($objSearchConfig->Items as $i)
	{
	$id = $i->Get("SearchConfigId");
	$objSearchConfig->EditFieldSettings($id,(int)$SimpleValues[$id],(int)$AdvValues[$id],$priority[$id]);
	}
	$objSearchConfig->Clear();
	/* save relevence settings */
	$vals = $_POST["req_increase"];
	foreach($vals as $var=>$value)
	{
	$cfg = "SearchRel_Increase_".$var;
	$objConfig->Set($cfg,$value);
	}
	$vals = $_POST["rel_keyword"];
	foreach($vals as $var=>$value)
	{
	$cfg = "SearchRel_Keyword_".$var;
	$objConfig->Set($cfg,$value);
	}
	$vals = $_POST["rel_pop"];
	foreach($vals as $var=>$value)
	{
	$cfg = "SearchRel_Pop_".$var;
	$objConfig->Set($cfg,$value);
	}
	$vals = $_POST["rel_rating"];
	foreach($vals as $var=>$value)
	{
	$cfg = "SearchRel_Rating_".$var;
	$objConfig->Set($cfg,$value);
	}

	$vals = $_POST["multiple"];

	if (count($vals) > 0) {
	foreach($vals as $var=>$value)
	{
	$cfg = "Search_ShowMultiple_".$var;
	$objConfig->Set($cfg,$value);
	}
	}
	else {
	$cfg = "Search_ShowMultiple_".$_POST['cfg_var'];
	$objConfig->Set($cfg, 0);
	}

	if (isset($_POST['minkeyword'])) {
	$objConfig->Set("Search_MinKeyword_Length", $_POST['minkeyword']);
	}

	$objConfig->Save();
	break;
	case "m_keyword_reset":
	if($ro_perm) break;
	$objSearchList = new clsSearchLogList();
	foreach($_POST["itemlist"] as $k)
	{
	$c = $objSearchList->GetItem($k);
	$c->Delete();
	}
	break;

	case 'm_clear_searchlog':
	$objSearchList = new clsSearchLogList();
	$db =& GetADODBConnection();
	$db->Execute('DELETE FROM '.$objSearchList->SourceTable );
	break;

	case "m_review_add":
	$post_info = GetSubmitVariable($_POST, 'EditStatus');
	if($post_info['variable'] > -1)
	{
	$objReviews = new clsItemReviewList();
	$objReviews->SourceTable = $objSession->GetEditTable("ItemReview");
	$Pending = (int)$_POST["review_pending"];
	$Enabled = (int)$_POST["review_enabled"];
	$Status = (int)$_POST["status"];
	$CreatedOn = DateTimestamp($_POST["review_date"],GetDateFormat());
	$CreatedOn += SecondsSinceMidnight($_POST["review_time"]);
	$html = (int)$_POST["html_enable"];
	$ReviewText = inp_escape($_POST["review_body"],1);

	$CreatedById = 0;
	if(strlen($_POST["createdby"])>0)
	{
	if(strtolower($_POST["createdby"])=="root")
	{
	$CreatedById = -1;
	}
	else
	{
	$u = $objUsers->GetItemByField("Login",$_POST["createdby"]);
	if(is_object($u))
	{
	$CreatedById = $u->Get("PortalUserId");
	if($CreatedById<1)
	{
	$CreatedById = $objSession->Get("PortalUserId");
	}
	}
	else
	$CreatedById = $objSession->Get("PortalUserId");
	}
	}
	else
	$CreatedById = $objSession->Get("PortalUserId");

	$r = $objReviews->AddReview($CreatedOn,$ReviewText,$Status, $IPAddress,
	(int)$_POST["review_priority"], $_POST["ItemId"],$_POST["ItemType"],
	$CreatedById,$html, $post_info['Module']);
	$ado = &GetADODBConnection();
	$rs = $ado->Execute("SELECT MIN(ReviewId) as MinValue FROM ".$objReviews->SourceTable);
	$NewId = $rs->fields["MinValue"]-1;
	$sql = "UPDATE ".$objReviews->SourceTable." SET ReviewId=".$NewId." WHERE ReviewId=".(int)$r->Get("ReviewId");
	if($objSession->HasSystemPermission("DEBUG.LIST"))
	echo $sql."<br>\n";
	$ado->Execute($sql);
	}
	break;
	case "m_review_edit":
	case 'm_review_direct_edit';
	$post_info = GetSubmitVariable($_POST, 'EditStatus');
	if($post_info['variable'] > -1)
	{
	$objReviews = new clsItemReviewList();
	$objReviews->SourceTable = $objSession->GetEditTable("ItemReview");
	$Status = (int)$_POST["status"];
	$CreatedOn = DateTimestamp($_POST["review_date"],GetDateFormat());
	$CreatedOn += SecondsSinceMidnight($_POST["review_time"]);
	$html = (int)$_POST["html_enable"];
	$ReviewText = inp_escape($_POST["review_body"],1);
	$ReviewId = $_POST["ReviewId"];
	$CreatedById = 0;
	if(strlen($_POST["createdby"])>0)
	{
	if(strtolower($_POST["createdby"])=="root")
	{
	$CreatedById = -1;
	}
	else
	{
	$u = $objUsers->GetItemByField("Login",$_POST["createdby"]);
	if(is_object($u))
	{
	$CreatedById = $u->Get("PortalUserId");
	if($CreatedById<1)
	{
	$CreatedById = $objSession->Get("PortalUserId");
	}
	}
	else
	$CreatedById = $objSession->Get("PortalUserId");
	}
	}
	$r = $objReviews->EditReview($ReviewId,$CreatedOn,$ReviewText,$Status, $IPAddress,
	(int)$_POST["review_priority"],$_POST["ItemId"],$_POST["ItemType"],
	$CreatedById,$html);
	}
	break;




	case "m_review_delete":
	$objReviews = new clsItemReviewList();
	$objReviews->SourceTable = $objSession->GetEditTable("ItemReview");
	foreach($_POST["itemlist"] as $id)
	{
	$objReviews->DeleteReview($id);
	}
	break;


	case 'm_review_direct_delete':
	$objReviews = new clsItemReviewList();
	foreach($_POST['reviewlist'] as $id)
	{
	$objReviews->DeleteReview($id);
	}
	break;


	case "m_review_approve":
	if (isset($_POST["itemlist"]))
	{
	$objReviews = new clsItemReviewList();
	$objReviews->SourceTable = $objSession->GetEditTable("ItemReview");
	foreach($_POST["itemlist"] as $id)
	{
	$i = $objReviews->GetItem($id);
	$i->Set("Status",1);
	$i->Update();
	}
	}
	break;

	case 'm_review_direct_approve':
	if(isset($_POST["reviewlist"]))
	{
	$objReviews = new clsItemReviewList();
	foreach($_POST["reviewlist"] as $id)
	{
	$i = $objReviews->GetItem($id);
	$i->Set("Status",1);
	$i->Update();
	}
	}
	break;




	case "m_review_deny":
	if (isset($_POST["itemlist"]))
	{
	$objReviews = new clsItemReviewList();
	$objReviews->SourceTable = $objSession->GetEditTable("ItemReview");
	foreach($_POST["itemlist"] as $id)
	{
	$i = $objReviews->GetItem($id);
	$i->Set("Status",0);
	$i->Update();
	}
	}
	break;

	case 'm_review_direct_decline':
	if (isset($_POST["reviewlist"]))
	{
	$objReviews = new clsItemReviewList();
	foreach($_POST["reviewlist"] as $id)
	{
	$i = $objReviews->GetItem($id);
	$i->Set("Status",0);
	$i->Update();
	}
	}
	break;





	case "m_review_move_up":
	if (isset($_POST["itemlist"]))
	{
	$objReviews = new clsItemReviewList();
	$objReviews->SourceTable = $objSession->GetEditTable("ItemReview");
	foreach($_POST["itemlist"] as $id)
	{
	$i = $objReviews->GetItem($id);
	$i->MoveUp();
	}
	}
	break;
	case "m_review_move_down":
	if (isset($_POST["itemlist"]))
	{
	$objReviews = new clsItemReviewList();
	$objReviews->SourceTable = $objSession->GetEditTable("ItemReview");
	$itemlist=array_reverse($_POST["itemlist"]);
	foreach($itemlist as $id)
	{
	$i = $objReviews->GetItem($id);
	$i->MoveDown();
	}
	}
	break;

	case 'm_themes_rescan':
	$objThemes->CreateMissingThemes();
	if (!$objThemes->Items)
	{
	$objThemes->Query_Item('SELECT * FROM '.$objThemes->SourceTable);
	}

	$keys = array_keys($objThemes->Items);
	foreach ($keys as $theme_index)
	{
	$theme =& $objThemes->Items[$theme_index];
	$theme->VerifyTemplates();
	}

	break;

	case "m_theme_add":
	$ado = &GetADODBConnection();
	$rs = $ado->Execute("SELECT COUNT(*) as c FROM ".GetTablePrefix().'Theme WHERE Name="'.$_POST["name"].'"');
	if(!$rs->fields["c"])
	{
	$objEditItems = new clsThemeList();
	$objEditItems->SourceTable = $objSession->GetEditTable("Theme");
	$Primary = (int)$_POST["primary"];
	if(!(int)$_POST["enabled"])
	$Primary = 0;
	$t = $objEditItems->AddTheme($_POST["name"],$_POST["description"],(int)$_POST["enabled"],$Primary,
	(int)$_POST["CacheTimeout"],GetVar('StylesheetId'));
	$t->Files->ThemeId=$t->Get("ThemeId");

	$rs = $ado->Execute("SELECT MIN(ThemeId) as MinValue FROM ".$objEditItems->SourceTable);
	$NewId = $rs->fields["MinValue"]-1;
	$sql = "UPDATE ".$objEditItems->SourceTable." SET ThemeId=".$NewId." WHERE ThemeId=".$t->Get("ThemeId");
	if($objSession->HasSystemPermission("DEBUG.LIST"))
	echo $sql."<br>\n";
	$ado->Execute($sql);
	// $t->Files->FindMissingFiles(strtolower($t->Get('name')));
	}
	break;
	case "m_theme_edit":
	$objEditItems = new clsThemeList();
	$objEditItems->SourceTable = $objSession->GetEditTable("Theme");
	$Primary = (int)$_POST["primary"];
	if(!(int)$_POST["enabled"])
	$Primary = 0;

	$objEditItems->EditTheme($_POST["ThemeId"],$_POST["name"],$_POST["description"],
	(int)$_POST["enabled"],$Primary,(int)$_POST["CacheTimeout"], GetVar('StylesheetId'));
	// if ($Primary==1)
	// {
	// $objEditItems->SetPrimaryTheme($_POST["ThemeId"]);
	// }

	break;
	case "m_theme_delete":
	if($ro_perm) break;
	if (isset($_POST["itemlist"]))
	{
	$Themes = new clsThemeList();
	foreach($_POST["itemlist"] as $id)
	{
	$deleting_primary = (!$Themes->DeleteTheme($id));
	}
	}
	break;
	case "m_theme_primary":
	if($ro_perm) break;
	if( count($_POST['itemlist']) )
	{
	$ThemeId = array_shift( $_POST['itemlist'] );
	$t = new clsThemeList();
	$t->SetPrimaryTheme($ThemeId);
	}
	break;

	case "m_template_edit":
	if($ro_perm) break;
	$objSession->SetVariable("HasChanges", 1);
	$ThemeId = $_POST["ThemeId"];
	$FileId = $_POST["FileId"];
	$f = new clsThemeFile($FileId);

	$f->Set("Description", $_POST["Description"] );
	$f->Update();
	$c = stripslashes($_POST["contents"]);
	$f->SaveFileContents($c);
	break;
	case "m_template_add":
	if($ro_perm) break;
	$objSession->SetVariable("HasChanges", 1);
	$ThemeId = $_POST["ThemeId"];
	if( !is_object($f) ) $f = new clsThemeFile();

	$FilePath = $_POST['name'];

	if(!$FilePath)
	{
	$f->SetError('Template Name is required',3);
	break;
	}
	else
	{
	if( substr($FilePath,1) != '/' ) $FilePath = '/'.$FilePath;
	if( substr($FilePath,-3) != '.tpl' ) $FilePath .= '.tpl';
	$FileName = basename($FilePath);
	$FilePath = dirname($FilePath);

	// test if such file not already created

	$f->LoadFromDataBase( Array($FilePath,$FileName), Array('FilePath','FileName') );
	if( !$f->Get('FileId') )
	{
	$f->Set( Array('FilePath','FileName','ThemeId', 'Description'),
	Array($FilePath, $FileName,$_POST['ThemeId'], $_POST["Description"])
	);

	if( $f->IsWriteablePath(true) )
	{
	$f->Create();
	$c = stripslashes($_POST["contents"]);
	$f->SaveFileContents($c, true);
	}
	}
	else
	$f->SetError('Template with this name already exists',4);
	}
	break;
	case "m_template_delete":
	if($ro_perm) break;
	$objSession->SetVariable("HasChanges", 1);
	$dummy = new clsThemeFile();
	foreach($_POST["itemlist"] as $FileId)
	{
	$dummy->LoadFromDatabase($FileId);
	$dummy->Delete();
	}
	break;

	case "m_lang_add":
	$ado = &GetADODBConnection();
	$objEditItems = new clsLanguageList();
	$objEditItems->SourceTable = $objSession->GetEditTable("Language");

	$l = $objEditItems->AddLanguage($_POST["packname"],$_POST["localname"],
	(int)$_POST["enabled"],(int)$_POST["primary"],
	$_POST["icon"],$_POST["date_format"],$_POST["time_format"],
	$_POST["decimal"],$_POST["thousand"],$_POST['charset']);

	$rs = $ado->Execute("SELECT MIN(LanguageId) as MinValue FROM ".$objEditItems->SourceTable);
	$NewId = $rs->fields["MinValue"]-1;
	$sql = "UPDATE ".$objEditItems->SourceTable." SET LanguageId=".$NewId." WHERE LanguageId=".$l->Get("LanguageId");
	if($objSession->HasSystemPermission("DEBUG.LIST"))
	echo $sql."<br>\n";
	$ado->Execute($sql);
	if($_POST["importlabels"]==1 && $_POST["srcpack"]>0)
	{
	// Phrase import
	/*
	$sql = "SELECT * FROM ".GetTablePrefix()."Phrase WHERE LanguageId=".$_POST["srcpack"];
	if($objSession->HasSystemPermission("DEBUG.LIST"))
	echo $sql."<br>\n";

	$rs = $ado->Execute($sql);
	$plist = new clsPhraseList();
	$plist->SourceTable = $objSession->GetEditTable("Phrase");
	$sql = "SELECT MIN(PhraseId) as MinId FROM ".$plist->SourceTable;
	$as = $ado->Execute($sql);
	if($as && !$as->EOF)
	{
	$MinId = (int)$as->fields["MinId"];
	}
	else
	$MinId = 0;
	$MinId--;
	while($rs && !$rs->EOF)
	{
	$data = $rs->fields;
	$plist->AddPhrase($data["Phrase"],$NewId,$data["Translation"],$data["PhraseType"]);
	$sql = "UPDATE ".$plist->SourceTable." SET PhraseId=$MinId WHERE PhraseId=0 LIMIT 1";
	$ado->Execute($sql);
	$MinId--;
	$rs->MoveNext();
	}
	*/
	$sql='INSERT INTO '.$objSession->GetEditTable('Phrase').' SELECT Phrase, Translation, PhraseType, 0-PhraseId, '.$NewId.' FROM '.GetTablePrefix().'Phrase WHERE LanguageId='.$_POST['srcpack'];
	$ado->Execute($sql);
	// Events import
	$sql = "SELECT * FROM ".GetTablePrefix()."EmailMessage WHERE LanguageId=".$_POST["srcpack"];
	if($objSession->HasSystemPermission("DEBUG.LIST"))
	echo $sql."<br>\n";

	$rs = $ado->Execute($sql);

	$eList = new clsEmailMessageList();
	//$eList->SourceTable = $objSession->GetEditTable("EmailMessage");

	if (!$l->TableExists($objSession->GetEditTable("EmailMessage"))) {
	$eList->CreateEmptyEditTable("EmailMessageId", true);
	$eList->SourceTable = $objSession->GetEditTable("EmailMessage");
	}
	else {
	$eList->SourceTable = $objSession->GetEditTable("EmailMessage");
	}

	$sql = "SELECT MIN(EmailMessageId) as MinId FROM ".$eList->SourceTable;
	$as = $ado->Execute($sql);

	if($as && !$as->EOF)
	{
	$MinId = (int)$as->fields["MinId"];
	}
	else {
	$MinId = 0;
	}

	$MinId--;

	while($rs && !$rs->EOF)
	{
	$data = $rs->fields;
	$eList->AddEmailEvent($data["Template"], $data["MessageType"], $NewId, $data["EventId"]);

	$sql = "UPDATE ".$eList->SourceTable." SET EmailMessageId=$MinId WHERE EmailMessageId=0 LIMIT 1";
	$ado->Execute($sql);

	$MinId--;

	$rs->MoveNext();
	}
	}
	break;
	case "m_lang_export":
	if($ro_perm) break;
	include_once($pathtoroot."kernel/include/xml.php");
	$Ids = $_POST["LangList"]; // language ids list to export phrases from

	$phrase_types = GetVar('langtypes');
	$phrase_types = ($phrase_types !== false) ? implode(',',$phrase_types) : null;

	$filename=$_POST["filename"];
	if(strlen($filename)>0)
	{
	$ExportFilename = $pathtoroot.$admin."/export/".$filename;
	$ExportResult = $objLanguages->ExportPhrases($ExportFilename,$Ids, $phrase_types);
	}
	break;

	case "m_lang_edit":
	$ado = &GetADODBConnection();
	$objEditItems = new clsLanguageList();
	$objEditItems->SourceTable = $objSession->GetEditTable("Language");

	$objEditItems->EditLanguage($_POST["LanguageId"],$_POST["packname"],
	$_POST["localname"],(int)GetVar('enabled'),
	(int)GetVar('primary'), $_POST["icon"],$_POST["date_format"],
	$_POST["time_format"], $_POST["decimal"],$_POST["thousand"],
	$_POST['charset']);

	if( GetVar('importlabels') && $_POST["srcpack"]>0)
	{
	$rs = $ado->Execute("SELECT * FROM ".GetTablePrefix()."Phrase WHERE LanguageId=".$_POST["srcpack"]);
	$plist = new clsPhraseList();
	$plist->SourceTable = $objSession->GetEditTable("Phrase");
	$sql = "SELECT MIN(PhraseId) as MinId FROM ".$plist->SourceTable;
	$as = $ado->Execute($sql);
	if($as && !$as->EOF)
	{
	$MinId = (int)$as->fields["MinId"];
	}
	else
	$MinId = 0;
	$MinId--;
	while($rs && !$rs->EOF)
	{
	$data = $rs->fields;
	$plist->AddPhrase($data["Phrase"],$_POST["LanguageId"],$data["Translation"],$data["PhraseType"]);
	$sql = "UPDATE ".$plist->SourceTable." SET PhraseId=$MinId WHERE PhraseId=0 LIMIT 1";
	$ado->Execute($sql);
	$MinId--;
	$rs->MoveNext();
	}
	unset($plist);

	// Events import
	$sql = "SELECT * FROM ".GetTablePrefix()."EmailMessage WHERE LanguageId=".$_POST["srcpack"];
	if($objSession->HasSystemPermission("DEBUG.LIST"))
	echo $sql."<br>\n";

	$rs = $ado->Execute($sql);

	$eList = new clsEmailMessageList();
	//$eList->SourceTable = $objSession->GetEditTable("EmailMessage");
	$l = new clsEmailMessage();
	if (!$l->TableExists($objSession->GetEditTable("EmailMessage"))) {
	$eList->CreateEmptyEditTable("EmailMessageId", true);
	$eList->SourceTable = $objSession->GetEditTable("EmailMessage");
	}
	else {
	$eList->SourceTable = $objSession->GetEditTable("EmailMessage");
	}

	$sql = "SELECT MIN(EmailMessageId) as MinId FROM ".$eList->SourceTable;
	$as = $ado->Execute($sql);

	if($as && !$as->EOF)
	{
	$MinId = (int)$as->fields["MinId"];
	}
	else {
	$MinId = 0;
	}

	$MinId--;

	while($rs && !$rs->EOF)
	{
	$data = $rs->fields;
	$eList->AddEmailEvent($data["Template"], $data["MessageType"], $_POST["LanguageId"], $data["EventId"]);

	$sql = "UPDATE ".$eList->SourceTable." SET EmailMessageId=$MinId WHERE EmailMessageId=0 LIMIT 1";
	$ado->Execute($sql);

	$MinId--;

	$rs->MoveNext();
	}
	unset($eList);
	}

	break;
	case "m_lang_delete":
	if($ro_perm) break;
	if (isset($_POST["itemlist"]))
	{
	$Phrases = new clsPhraseList();
	$Messages = new clsEmailMessageList();
	foreach($_POST["itemlist"] as $id)
	{
	$objLanguages->DeleteLanguage($id);
	$Phrases->DeleteLanguage($id);
	$Messages->DeleteLanguage($id);
	}
	unset($Phrases);
	unset($Messages);
	}
	break;

	case "m_lang_select":
	if($ro_perm) break;
	$LangId = (int)$_POST["langselect"];
	if($LangId)
	{
	if($objSession->Get("PortalUserId")>0)
	{
	//echo "$LangId";
	$objSession->SetPersistantVariable("Language",$LangId);
	}
	$objSession->Set("Language",$LangId);
	$objSession->Update();
	$m_var_list_update["lang"] = $LangId;
	$m_var_list["lang"] = $LangId;
	}
	break;

	case "m_phrase_edit":
	if( !GetVar('direct') ) $objSession->SetVariable("HasChanges", 1);
	$objPhraseList = new clsPhraseList();
	if((int)$_POST["direct"] != 1)
	$objPhraseList->SourceTable = $objSession->GetEditTable("Phrase");
	$Phrases = $_POST["name"];
	foreach($Phrases as $PhraseId =>$name)
	{
	if($PhraseId>0)
	{
	$objPhraseList->EditPhrase($PhraseId,$_POST["name"][$PhraseId],$_POST["LanguageId"],$_POST["translation"][$PhraseId],$_POST["phrasetype"][$PhraseId]);
	}
	}

	if(strlen($_POST["name"][0]) && strlen($_POST["translation"][0]) && $_POST['Action1'] == "new")
	{
	$r = $objPhraseList->AddPhrase($_POST["name"][0],$_POST["LanguageId"],$_POST["translation"][0],$_POST["phrasetype"][0]);
	if ($r != "Error") {
	$ado = &GetADODBConnection();
	$rs = $ado->Execute("SELECT MIN(PhraseId) as MinValue FROM ".$objPhraseList->SourceTable);
	$NewId = $rs->fields["MinValue"]-1;
	$sql = "UPDATE ".$objPhraseList->SourceTable." SET PhraseId=".$NewId." WHERE PhraseId=$PhraseId";
	if($objSession->HasSystemPermission("DEBUG.LIST"))
	echo $sql."<br>\n";
	$ado->Execute($sql);
	}
	else {
	$add_error = "Language tag with the same name already exists!";
	}
	}
	else if ($_POST['Action1'] == "new") {
	$add_error = "Fields name and translation are required!";
	}
	unset($objPhraseList);
	break;
	case "m_config_missing_phrase":
	if($ro_perm) break;
	$LangId = $_POST["LangId"];
	$ThemeId = $_POST["ThemeId"];
	if(is_array($_POST["Phrase"]))
	{
	$objPhraseList = new clsPhraseList();
	$objPhraseList->SourceTable = $objSession->GetSessionKey()."_".$ThemeId."_labels";

	foreach($_POST["Phrase"] as $p => $value)
	{
	if(strlen($value))
	{
	$obj = $objPhraseList->GetItemByField("Phrase",$p,TRUE);
	if(is_object($obj))
	{
	if($obj->Get("Phrase")==$p)
	{
	$obj->Set("Translation",$value);
	$obj->Update();
	}
	else
	$objPhraseList->AddPhrase($p,$LangId,$value,1);
	}
	else
	$objPhraseList->AddPhrase($p,$LangId,$value,1);
	}
	}
	}
	break;
	case "m_phrase_delete":
	$objSession->SetVariable("HasChanges", 1);
	if (isset($_POST["itemlist"]))
	{
	foreach($_POST["itemlist"] as $id)
	{
	$sql = "UPDATE ".$objSession->GetEditTable("Phrase")." SET LanguageId = 0 WHERE PhraseId = ".$id;
	$ado = &GetADODBConnection();
	$ado->Execute($sql);
	}
	}
	unset($objPhraseList);
	break;
	case "m_emailevent_disable":
	if($ro_perm) break;
	$objEvents = new clsEventList();
	if (isset($_POST["itemlist"]))
	{
	foreach($_POST["itemlist"] as $id)
	{
	$m =& $objEvents->GetItem($id);
	$m->Set("Enabled",0);
	$m->Update();
	}
	}
	unset($objEvents);
	break;
	case "m_emailevent_enable":
	if($ro_perm) break;
	$objEvents = new clsEventList();
	if (isset($_POST["itemlist"]))
	{
	foreach($_POST["itemlist"] as $id)
	{
	$m =& $objEvents->GetItem($id);
	$m->Set("Enabled",1);
	$m->Update();
	}
	}
	unset($objEvents);
	break;
	case "m_emailevent_frontonly":
	if($ro_perm) break;
	$objEvents = new clsEventList();
	if (isset($_POST["itemlist"]))
	{
	foreach($_POST["itemlist"] as $id)
	{
	$m =& $objEvents->GetItem($id);
	$m->Set("Enabled",2);
	$m->Update();
	}
	}
	unset($objEvents);
	break;
	case "m_dlid":
	echo $Action.":".$DownloadId;
	die();
	break;
	case "m_emailevent_user":
	if($ro_perm) break;
	$objEvents = new clsEventList();
	//phpinfo(INFO_VARIABLES);
	//$objEvents->SourceTable = $objSession->GetEditTable("Events");
	$ids = $_POST["EventId"];
	$ids = str_replace("[","",$ids);
	$ids = str_replace("]","",$ids);
	$ids = str_replace("\"","",$ids);
	$ids = str_replace("\\","",$ids);


	$idlist = explode(",",$ids);
	foreach($idlist as $EventId)
	{
	$id = (int)stripslashes($EventId);
	$e =& $objEvents->GetItem((int)$EventId);
	$e->Set("FromUserId", $_POST["FromUserId"]);
	$e->Update();
	}
	$objEvents->Clear();
	unset($objEvents);
	break;
	case "m_emailevent_edit":
	$Template = $_POST["headers"];
	if(strlen($Template))
	{
	$Template .= "\n";
	}
	$Template = str_replace("\n\n","",$Template);
	$Template .= "Subject: "._unhtmlentities($_POST['subject'])."\n\n";
	$Template .= $_POST["messageBody"];
	$objMessages = new clsEmailMessageList();
	$objMessages->SourceTable = $objSession->GetEditTable("EmailMessage");
	$m =& $objMessages->GetItem($_POST["MessageId"]);
	if(is_object($m))
	{
	if($_POST["sendhtml"]==1)
	{
	$m->Set("MessageType","html");
	}
	else
	$m->Set("MessageType","text");

	$m->Set("Template",$Template);
	$m->Update();
	}
	break;
	case "m_config_edit":
	//phpinfo(INFO_VARIABLES);
	if($ro_perm) break;
	$objAdmin = new clsConfigAdmin();
	$objAdmin->module = $_POST["module"];
	$objAdmin->section = $_POST["section"];
	if($objAdmin->section=="in-portal:configure_users")
	{
	if(strlen($_POST["RootPass"]) && strlen($_POST["RootPassVerify"]))
	{
	if($_POST["RootPass"]==$_POST["RootPassVerify"])
	{
	$_POST["RootPass"] = md5($_POST["RootPass"]);
	}
	}
	else
	{
	$_POST["RootPass"] = $objConfig->Get("RootPass");
	$_POST["RootPassVerify"] = $objConfig->Get("RootPassVerify");
	}
	}
	$objAdmin->LoadItems(FALSE);
	$objAdmin->SaveItems($_POST);
	break;

	case "m_mod_enable":
	if($ro_perm) break;
	if (isset($_POST["itemlist"]))
	{
	foreach($_POST["itemlist"] as $id)
	{
	$m =& $objModules->GetItemByField("Name",$id);
	if(is_object($m))
	{
	$m->Set("Loaded",1);
	$m->Update();
	}
	}
	$_GET["Refresh"] = 1;
	}
	break;
	case "m_mod_disable":
	if($ro_perm) break;
	if (isset($_POST["itemlist"]))
	{
	foreach($_POST["itemlist"] as $id)
	{
	if($id != "In-Portal")
	{
	$m =& $objModules->GetItemByField("Name",$id);
	if(is_object($m))
	{
	$m->Set("Loaded",0);
	$m->Update();
	}
	}
	}
	$_GET["Refresh"] = 1;
	}
	break;

	case "m_img_add":
	$objImageList = new clsImageList();
	$objImageList->SourceTable = $objSession->GetEditTable("Images");
	$LocalImage=0;
	$LocalThumb=0;
	$DestDir = "kernel/images/";

	$UserThumbSource = (int)$_POST["imgLocalThumb"];
	$LocalThumb = $UserThumbSource;

	$thumb_url = !$LocalThumb? $_POST["imgThumbUrl"] : "";

	if($_POST["imgSameImages"])
	{
	$LocalImage = $LocalThumb;
	$full_url = $thumb_url;
	}
	else
	{
	$LocalImage = (int)$_POST["imgLocalFull"];
	$file = $_FILES["imgFullFile"];
	$full_url = $LocalImage? "" : $_POST["imgFullUrl"];
	}

	if((!strlen($thumb_url) && !$LocalThumb) \|\| (!strlen($full_url) && !$LocalImage))
	{
	break;
	}

	$ado = &GetADODBConnection();
	$NewId = $ado->GetOne('SELECT MIN(ImageId) as MinValue FROM '.$objImageList->SourceTable);
	if($NewId > 0) $NewId = 0;
	$NewId--;
	$img = $objImageList->Add($_POST["imgName"], $_POST["imgAlt"], $_POST["ResourceId"], $LocalImage, $LocalThumb, $full_url, $thumb_url, (int)$_POST["imgEnabled"], 0, (int)$_POST["imgDefault"], 0,(int)$_POST["imgSameImages"], $NewId);
	$img->Set("ImageId", $NewId);

	// $img->debuglevel=1;

	/*
	$sql = "UPDATE ".$objImageList->SourceTable." SET ImageId=".$NewId." WHERE ImageId=0";
	$ado->Execute($sql);

	// $img->Update();
	*/
	// echo "SL: $sql $NewId<BR>";

	// $img->debuglevel=1;

	$img->Pending=false;
	if($LocalImage)
	{
	$file = $_FILES["imgFullFile"];
	if(is_array($file))
	{
	if($file["size"]>0)
	{
	$img->Set("LocalPath",$img->StoreUploadedImage($file,1, $DestDir,0));
	$uploaded=1;
	}
	}
	}

	if($LocalThumb)
	{
	$thumb = $_FILES["imgThumbFile"];
	if(is_array($thumb))
	{
	if($thumb["size"]>0)
	{
	$img->Set("ThumbPath",$img->StoreUploadedImage($thumb,1, $DestDir,1));
	$uploaded=1;
	}
	}
	}
	if($uploaded==1)
	$img->Update();

	break;

	case "m_img_edit":

	$objImageList = new clsImageList();
	$objImageList->SourceTable = $objSession->GetEditTable("Images");

	// $img->debuglevel=1;

	$img = $objImageList->GetItem($_POST["ImageId"]);

	## Get original values
	$LocalImage = $img->Get("LocalImage");
	$LocalThumb = $img->Get("LocalThumb");
	$SameImages = $img->Get("SameImages");
	$ThumbPath = $img->Get("ThumbPath");

	## New values
	$LocalThumbN = (int)$_POST["imgLocalThumb"];
	$LocalImageN = (int)$_POST["imgLocalFull"];

	$FULLFile = $_FILES["imgFullFile"];
	$THFile = $_FILES["imgThumbFile"];

	$DestDir = "kernel/images/";
	$img->Pending = FALSE;

	$SameImagesN = 0;
	$uploaded = 0;

	## Images were the same, but not any more
	if ($SameImages && !$_POST["imgSameImages"])
	{
	## TH was a local file
	if ($LocalThumb)
	{
	## TH image
	{
	## Try to Delete OLD FULL
	$img->DeleteLocalImage(FALSE, TRUE);

	## FULL image select, but field EMPTY - make a copy of old TH as FULL
	if ($LocalImageN && !(int)$FULLFile["size"])
	{
	// echo $pathToPending = $img->GetImageDir();
	if (!eregi("pending/$", $pathToPending))
	$pathToPending.= "pending/";

	$LocalThumb_File = $img->GetFileName(1);

	// echo "<b>CAN'T FIND FILE:</b> ".$pathToPending.$LocalThumb_File."<BR>";

	if (file_exists($pathToPending.$LocalThumb_File))
	{
	$LocalThumb_FileN = eregi_replace("^th_", "", $LocalThumb_File);
	$LocalThumb_FullFileN = $pathToPending.$LocalThumb_FileN;
	@unlink($LocalThumb_FullFileN);
	@copy($pathToPending.$LocalThumb_File, $LocalThumb_FullFileN);

	$uploaded = 1;
	$copied = 1;
	// echo "COPING: ".$DestDir."pending/".$LocalThumb_FileN." <BR>";
	}
	else
	{
	// echo "CAN'T FIND FILE: ".$pathToPending.$LocalThumb_File."<BR>";
	}
	}
	## Upload new FULL image
	elseif ($LocalImageN && (int)$FULLFile['size'])
	{
	$FULL_FileToUpload = $FULLFile;
	$FULL_URL = "";

	// echo " Upload new FULL image";
	}
	## Full is URL
	elseif (!$LocalImageN)
	{
	$img->DeleteLocalImage(FALSE, TRUE);
	$FULL_URL = $_POST['imgFullUrl'];
	$FULL_FileToUpload = "";
	}
	else
	{
	// echo " ## Unknow condition";
	}

	## Take care of Thumbnail here
	if ($LocalThumbN)
	{
	## Delete old if NEW TH image selected
	if ((int)$THFile['size'])
	{
	$img->DeleteLocalImage(TRUE, FALSE);
	$TH_FileToUpload = $THFile;
	}
	else
	$TH_FileToUpload = "";
	}
	else
	{
	$img->DeleteLocalImage(TRUE, FALSE);
	$TH_FileToUpload = "";
	$TH_URL = $_POST['imgThumbUrl'];
	}
	}
	}
	## TH was URL
	else
	{
	## Take care of FULL image here
	if ($LocalImageN && (int)$FULLFile["size"])
	{
	$FULL_FileToUpload = $FULLFile;
	$FULL_URL = "";
	}
	## Full is URL (or image size 0)
	else
	{
	$FULL_FileToUpload = "";
	$FULL_URL = $_POST['imgFullUrl'];
	}

	## Take care of Thumbnail here
	if ($LocalThumbN)
	{
	$TH_FileToUpload = (int)$THFile['size']? $THFile : "";
	$TH_URL = "";
	}
	else
	{
	$TH_FileToUpload = "";
	$TH_URL = $_POST['imgThumbUrl'];
	}
	}
	}
	## Images were the same, and still the same
	elseif ($SameImages && $_POST['imgSameImages'])
	{
	## Take care of Thumbnail & FULL here
	if ($LocalThumbN)
	{
	if ((int)$THFile['size'])
	{
	$img->DeleteLocalImage(TRUE, FALSE);
	$TH_FileToUpload = $THFile;
	}
	else
	$TH_FileToUpload = "";

	$FULL_URL = $TH_URL = "";
	}
	else
	{
	$TH_FileToUpload = $FULL_FileToUpload = "";
	$FULL_URL = $TH_URL = $_POST['imgThumbUrl'];
	}

	## Delete old FULL image
	$img->DeleteLocalImage(FALSE,TRUE);

	$SameImagesN = 1;
	}
	## Images were NOT the same, and selected as the same now
	elseif (!$SameImages && $_POST["imgSameImages"])
	{
	## Take care of Thumbnail & FULL here
	if ($LocalThumbN)
	{
	if ((int)$THFile['size'])
	{
	$img->DeleteLocalImage(TRUE, FALSE);
	$TH_FileToUpload = $THFile;
	}
	else
	$TH_FileToUpload = "";


	$FULL_URL = $TH_URL = "";
	}
	else
	{
	$img->DeleteLocalImage(TRUE, FALSE);
	$TH_FileToUpload = $FULL_FileToUpload = "";
	$FULL_URL = $TH_URL = $_POST['imgThumbUrl'];
	}

	## Clean up FULL image
	$img->DeleteLocalImage(FALSE, TRUE);

	$SameImagesN = 1;
	}
	## Images were NOT the same, and selected as NOT the same
	elseif (!$SameImages && !$_POST["imgSameImages"])
	{
	## Take care of Thumbnail
	if ($LocalThumbN)
	{
	if ((int)$THFile['size'])
	{
	$img->DeleteLocalImage(TRUE, FALSE);
	$TH_FileToUpload = $THFile;
	}
	else
	$TH_FileToUpload = "";

	$TH_URL = "";
	}
	else
	{
	$img->DeleteLocalImage(TRUE, FALSE);
	$TH_FileToUpload = "";
	$TH_URL = $_POST['imgThumbUrl'];
	}

	## Take care of FULL here
	if ($LocalImageN)
	{
	if ((int)$FULLFile['size'])
	{
	$img->DeleteLocalImage(FALSE, TRUE);
	$FULL_FileToUpload = $FULLFile;
	}
	else
	$FULL_FileToUpload = "";

	$FULL_URL = "";
	}
	else
	{
	$img->DeleteLocalImage(FALSE, TRUE);
	$FULL_FileToUpload = "";
	$FULL_URL = $_POST['imgFullUrl'];
	}
	}
	## Unknow condition
	else
	{
	;
	}

	$img = $objImageList->Edit($_POST["ImageId"],$_POST["imgName"], $_POST["imgAlt"], $_POST["ResourceId"], $LocalImageN, $LocalThumbN, $FULL_URL, $TH_URL, (int)$_POST["imgEnabled"], (int)$_POST["imgPriority"], (int)$_POST["imgDefault"], 0, $SameImagesN);

	// echo "<B>DATA:</B> <BR> LocalImageN: $LocalImageN, LocalThumbN: $LocalThumbN, FULL_URL: $FULL_URL, TH_URL: $TH_URL, SameImagesN: $SameImagesN <BR>";


	$img->Pending = TRUE;

	if (!empty($FULL_FileToUpload))
	{
	$img->Set("LocalPath",$img->StoreUploadedImage($FULL_FileToUpload, 1, $DestDir, 0));
	$uploaded = 1;
	}
	/*
	elseif (!$LocalImageN)
	{
	$img->Set("LocalPath", "");
	$uploaded = 1;
	}
	*/

	if (!empty($TH_FileToUpload))
	{
	$img->Set("ThumbPath", $img->StoreUploadedImage($TH_FileToUpload, 1, $DestDir, 1));
	$uploaded = 1;
	}

	if ($copied)
	{
	$img->Set("LocalPath", $DestDir."pending/".$LocalThumb_FileN);
	$uploaded = 1;
	}

	if($uploaded==1)
	$img->Update();

	break;
	case "m_img_move_up":
	if (isset($_POST["itemlist"]))
	{
	$objImageList = new clsImageList();
	$objImageList->SourceTable = $objSession->GetEditTable("Images");
	foreach($_POST["itemlist"] as $id)
	{
	$img = $objImageList->GetItem($id);
	$img->MoveUp();
	}
	}
	break;
	case "m_img_move_down":
	if (isset($_POST["itemlist"]))
	{
	$objImageList = new clsImageList();
	$objImageList->SourceTable = $objSession->GetEditTable("Images");
	$itemlist=array_reverse($_POST["itemlist"]);
	foreach($itemlist as $id)
	{
	$img = $objImageList->GetItem($id);
	$img->MoveDown();
	}
	}
	break;

	case "m_img_delete":
	if(isset($_POST["itemlist"]))
	{
	$objImageList = new clsImageList();
	$objImageList->SourceTable = $objSession->GetEditTable("Images");
	foreach($_POST["itemlist"] as $id)
	{
	$img = $objImageList->GetItem($id);
	$img->Set("ResourceId", 0);
	$img->Update();
	//$img->Delete();
	}
	}
	break;
	case "m_restore_delete":
	if($ro_perm) break;
	$bdate = $_POST["backupdate"];
	if($bdate>0)
	{
	$BackupFile = $objConfig->Get("Backup_Path")."/dump".$bdate.".txt";
	if(file_exists($BackupFile))
	unlink($BackupFile);
	}
	break;

	case "m_taglib":
	include($pathtoroot."kernel/include/tag-class.php");
	ParseTagLibrary();
	break;

	case "m_sql_query":
	if($ro_perm) break;
	$SqlQuery = $_POST["sql"];
	$ado = &GetADODBConnection();
	if(strlen($sql))
	{
	$SqlResult = $ado->Execute(stripslashes($SqlQuery));
	$SqlError = $ado->ErrorMsg();
	$SqlErrorNum = $ado->ErrorNo();
	}
	break;
	case "m_purge_email_log":
	if($ro_perm) break;
	$ado = &GetADODBConnection();

	$sql = "DELETE FROM ".GetTablePrefix()."EmailLog";
	$ado->Execute($sql);
	break;
	case "m_session_delete":
	if($ro_perm) break;
	$ado = &GetADODBConnection();
	if (count($_POST['itemlist']) > 0) {
	foreach($_POST["itemlist"] as $id)
	{
	$sql = "DELETE FROM ".GetTablePrefix()."UserSession WHERE SessionKey='$id'";
	$ado->Execute($sql);
	$sql = "DELETE FROM ".GetTablePrefix()."SessionData WHERE SessionKey = '$id'";
	$ado->Execute($sql);
	}
	}
	else {
	$sql = "DELETE FROM ".GetTablePrefix()."UserSession WHERE Status='0'";
	$ado->Execute($sql);
	}
	break;
	case "m_add_rule":
	$objEditItems = new clsBanRuleList();
	$objEditItems->SourceTable = $objSession->GetEditTable("BanRules");
	//$ItemType,$RuleType,$ItemField,$ItemVerb,$ItemValue,$Priority,$Status;
	$objEditItems->AddRule($_POST["rule_itemtype"],$_POST["rule_type"],$_POST["rule_field"],
	$_POST["rule_verb"],$_POST["rule_value"],(int)$_POST["rule_priority"],
	(int)$_POST["rule_status"], $_POST['rule_error']);
	break;
	case "m_edit_rule":
	$objEditItems = new clsBanRuleList();
	$objEditItems->SourceTable = $objSession->GetEditTable("BanRules");
	//$ItemType,$RuleType,$ItemField,$ItemVerb,$ItemValue,$Priority,$Status;
	$objEditItems->EditRule($_POST["rule_id"],$_POST["rule_itemtype"],$_POST["rule_type"],$_POST["rule_field"],
	$_POST["rule_verb"],$_POST["rule_value"],(int)$_POST["rule_priority"],
	(int)$_POST["rule_status"], $_POST['rule_error']);
	break;
	case "m_rule_move_up":
	if($ro_perm) break;
	if(isset($_POST["itemlist"]))
	{
	foreach($_POST["itemlist"] as $id)
	{
	$i = $objBanList->GetItem($id);
	$i->Increment("Priority");
	}
	}
	break;
	case "m_rule_move_down":
	if($ro_perm) break;
	if(isset($_POST["itemlist"]))
	{
	foreach($_POST["itemlist"] as $id)
	{
	$i = $objBanList->GetItem($id);
	$i->Decrement("Priority");
	}
	}
	break;

	case "m_rule_delete":
	if($ro_perm) break;
	if(isset($_POST["itemlist"]))
	{
	foreach($_POST["itemlist"] as $id)
	{
	$i = $objBanList->GetItem($id);
	$i->Delete();
	}
	}
	break;
	case "m_ban_user":
	if($ro_perm) break;
	if($_POST["UserEditStatus"]==1)
	{
	$UserId = $_POST["user_id"];
	$objUsers->SetTable('edit');
	$u = $objUsers->GetItem($UserId);
	if(is_object($u))
	{
	if((int)$_POST["ban_login"])
	{
	if(strlen($_POST["user_login"]))
	$objBanList->AddRule(6,0,"Login",3,$_POST["user_login"],0,1);
	}
	if((int)$_POST["ban_email"])
	{
	if(strlen($_POST["user_email"]))
	$objBanList->AddRule(6,0,"Email",3,$_POST["user_email"],0,1);
	}
	if((int)$_POST["ban_ip"])
	{
	if(strlen($_POST["user_ip"]))
	$objBanList->AddRule(6,0,"ip",3,$_POST["user_ip"],0,1);
	}
	$u->Deny();
	}
	$objUsers->SetTable('restore');
	}
	break;


	case 'm_rebuild_cache':
	$objSession->SetVariable('PermCache_UpdateRequired', 1);
	break;

	}

	/* image upload management */
	if( isset($_POST['img']) && $_POST['img'] == 1 )
	{
	foreach($_FILES as $img => $FILE)
	{
	$name = $_POST["img_Name_$img"];
	$alt = $_POST["img_Alt_$img"];
	$url = $_POST["img_Url_$img"];
	$res_id = $_POST["img_Res_$img"];
	$relvalue = $_POST["img_Rel_$img"];
	$thumb = (int)$_POST["img_Thumb_$img"];
	$dest = AddSlash($_POST["img_DestDir_$img"]);
	if($_POST["img_Del_$img"]=="Delete")
	{
	$img = $objImageList->GetImageByResource($res_id,$relvalue);
	$img->Delete();
	unset($img);
	$objImageList->Clear();
	}
	else
	{
	if($FILE["size"]>0)
	{
	/* an image was uploaded */
	$objImageList->HandleImageUpload($FILE,$res_id,$relvalue,$dest, $name,$alt,$thumb);
	}
	else
	{ /* remote images handled here */
	if(strlen($url)>0)
	{
	if($relvalue>0)
	{
	$img = $objImageList->GetImageByResource($res_id,$relvalue);
	$img->Set("Name",$name);
	$img->Set("AltName", $alt);
	$img->Set("IsThumbnail",$thumb);
	$img->Set("Url",$url);
	$img->Update();
	}
	else
	{
	$relvalue = $objImageList->GetNextRelateValue($res_id);
	$objImageList->NewRemoteImage($url,$res_id,$relvalue, $name, $alt, $thumb);
	}
	}
	}
	}
	}
	}

	// ALL Saving Stuff From Temp Tables Heppens Here

	//echo "==== BEGIN ==== <br>";
	$has_perm = $objSession->HasSystemPermission("SYSTEM_ACCESS.READONLY");
	//echo "PortalUserID: [".$objSession->Get("PortalUserId")."]<br>";
	//print_pre($objSession);
	//echo "PermSet: [".$has_perm."]<br>";

	if( !$has_perm )
	{
	if( GetVar('ReviewEditStatus') == 1 )
	{
	$objReviews=new clsItemReviewList();
	$objReviews->CopyFromEditTable_Direct();
	}

	if( GetVar('ReviewEditStatus') == -1 )
	{
	$objReviews=new clsItemReviewList();
	$objReviews->PurgeEditTable();
	}

	/* category Edit */
	if( GetVar('CatEditStatus') == 1 )
	{
	$adodbConnection = &GetADODBConnection();
	// $sql = "SELECT * FROM ".$objSession->GetEditTable("Category")." WHERE CategoryId=0";
	$sql = "SELECT ParentId FROM ".$objSession->GetEditTable("Category")." WHERE CategoryId=-1";

	$rs = $adodbConnection->Execute($sql);
	while ($rs && !$rs->EOF)
	{
	if($rs->fields["ParentId"] > 0) RunUp($rs->fields["ParentId"],"Increment_Count");
	$rs->MoveNext();
	}

	$cat_ids = $objCatList->CopyFromEditTable("CategoryId");
	if($cat_ids)
	{
	$db =& GetADODBConnection();
	$sql = 'SELECT ResourceId FROM '.$objCatList->SourceTable.' WHERE CategoryId IN ('.implode(',', $cat_ids).')';
	$rids = $db->GetCol($sql);
	$objCustomDataList->CopyFromEditTable("CustomDataId", $rids);
	}
	$objCatList->Clear();

	if($_REQUEST['CategoryId'] > 0) // not root category is updated
	{
	$objImages = new clsImageList();
	$objImages->CopyFromEditTable("ImageId");
	}
	}

	if( GetVar('CatEditStatus') == 2 )
	{
	$objCatList->PurgeEditTable("CategoryId");
	$objCustomDataList->PurgeEditTable("CustomDataId");
	if($_REQUEST['CategoryId'] > 0) // not root category is updated
	{
	$objImages = new clsImageList();
	//$objImages->CopyFromEditTable("ImageId");
	$objImages->PurgeEditTable("ImageId");
	}
	$objCatList->Clear();
	}

	/* User Edit */
	if( GetVar('UserEditStatus') == 1 )
	{
	$objUserGroupsList = new clsUserGroupList();
	$objUserGroupsList->CopyFromEditTable("PortalUserId");

	$user_ids = $objUsers->CopyFromEditTable("PortalUserId");
	if($user_ids)
	{
	$db =& GetADODBConnection();
	$sql = 'SELECT ResourceId FROM '.$objUsers->SourceTable.' WHERE PortalUserId IN ('.implode(',', $user_ids).')';
	$rids = $db->GetCol($sql);
	$objCustomDataList->CopyFromEditTable("CustomDataId", $rids);
	}

	$objGroups->Clear();
	$objImages = new clsImageList();
	$objImages->CopyFromEditTable("ImageId");
	}
	if( GetVar('UserEditStatus') == 2 )
	{
	$objUserGroupsList = new clsUserGroupList();
	$objGroups->PurgeEditTable("PortalUserId");
	$objUserGroupsList->PurgeEditTable("PortalUserId");
	$objCustomDataList->PurgeEditTable("CustomDataId");
	$objGroups->Clear();
	}

	/* Group Edit */
	if( GetVar('GroupEditStatus') == 1 )
	{
	$objUserGroupsList = new clsUserGroupList();
	$objUserGroupsList->CopyFromEditTable("GroupId");
	$objGroups->CopyFromEditTable("GroupId");
	$objCustomDataList->CopyFromEditTable("CustomDataId");
	$objGroups->Clear();
	}
	if( GetVar('GroupEditStatus') == 2 )
	{
	$objUserGroupsList = new clsUserGroupList();
	$objGroups->PurgeEditTable("GroupId");
	$objCustomDataList->PurgeEditTable("CustomDataId");
	$objUserGroupsList->PurgeEditTable("PortalUserId");
	$objGroups->Clear();
	}

	/* Theme Edit */
	if( GetVar('ThemeEditStatus') == 1 )
	{
	$objThemes->CopyFromEditTable();
	$objThemes->Clear();
	}

	if( GetVar('ThemeEditStatus') == 2 )
	{
	$objThemes->PurgeEditTable();
	$objThemes->Clear();
	}

	/* Language Edit */
	if( GetVar('LangEditStatus') == 1 )
	{
	$objLanguages->CopyFromEditTable();
	$objLanguages->Clear();
	$objLanguages->PurgeEditTable();

	$Phrases = new clsPhraseList();
	$Phrases->CopyFromEditTable();
	$Phrases->Clear();
	$Phrases->PurgeEditTable();

	$Messages = new clsEmailMessageList();
	$Messages->CopyFromEditTable();
	$Messages->Clear();
	}
	if( GetVar('LangEditStatus') == 2 )
	{
	$objLanguages->PurgeEditTable();
	$objLanguages->Clear();
	$Phrases = new clsPhraseList();
	$Phrases->PurgeEditTable();
	$Messages = new clsEmailMessageList();
	$Messages->PurgeEditTable();
	}

	if( GetVar('MissingLangEditStatus') == 1 )
	{
	$objPhraseList = new clsPhraseList();
	$objPhraseList->SourceTable = $objSession->GetSessionKey()."_".$ThemeId."_labels";

	$objEditList = new clsPhraseList();
	$objEditList->SourceTable = $objSession->GetEditTable("Phrase");

	$ado = &GetADODBConnection();
	$rs = $ado->Execute("SELECT MIN(PhraseId) as MinValue FROM ".$objEditList->SourceTable);
	$NewId = $rs->fields["MinValue"]-1;

	$objPhraseList->Query_Item("SELECT * FROM ".$objPhraseList->SourceTable);
	foreach($objPhraseList->Items as $p)
	{
	if(strlen($p->Get("Translation"))>0)
	{
	$p->tablename = $objEditList->SourceTable;
	$p->Dirty();
	$p->UnsetIDField();
	$p->Set("PhraseId",$NewId);
	$NewId--;
	$p->Create();
	}
	}
	$ado->Execute("DROP TABLE IF EXISTS ".$objPhraseList->SourceTable);
	}

	if( GetVar('MissingLangEditStatus') == 2 )
	{
	$table = $objSession->GetSessionKey()."_".$ThemeId."_labels";
	$ado = &GetADODBConnection();
	$ado->Execute("DROP TABLE IF EXISTS ".$table);
	}

	/* Ban Rule Edit */
	if( GetVar('RuleEditStatus') == 1 )
	{
	$objBanList->CopyFromEditTable("RuleId");
	$objBanList->Clear();
	}
	if( GetVar('RuleEditStatus') == 2 )
	{
	$objBanList->PurgeEditTable("RuleId");
	$objBanList->Clear();
	}
	}
	elseif( defined('DEBUG_ACTIONS') )
	{
	if( isset($_REQUEST['Action']) && $_REQUEST['Action'] )
	echo "<b>USER HAS RO-ACCESS</b> on action [<b>".$_REQUEST['Action']."</b>]<br>";
	}

	//echo "==== END ==== <br>";

	?>
	\ No newline at end of file

	Property changes on: trunk/kernel/action.php
	___________________________________________________________________
	Modified: cvs2svn:cvs-rev
	## -1 +1 ##
	-1.100
	\ No newline at end of property
	+1.101
	\ No newline at end of property
	Index: trunk/admin/install/upgrades/changelog_1_1_5.txt
	===================================================================
	--- trunk/admin/install/upgrades/changelog_1_1_5.txt (revision 3526)
	+++ trunk/admin/install/upgrades/changelog_1_1_5.txt (revision 3527)
	@@ -1,84 +1,88 @@
	File in-portal/admin/include/elements.php changed
	File in-portal/admin/install/inportal_data.sql changed
	File in-portal/admin/install/langpacks/english.lang changed
	File in-portal/admin/install/upgrades/changelog_1_1_5.txt is new
	File in-portal/admin/install/upgrades/inportal_upgrade_v1.1.4.php changed
	File in-portal/admin/install/upgrades/inportal_upgrade_v1.1.5.sql is new
	File in-portal/admin/install/upgrades/readme_1_1_5.txt is new
	File in-portal/admin/listview/listview.php changed
	File in-portal/kernel/action.php changed
	+File in-portal/kernel/startup.php changed
	File in-portal/kernel/admin/include/help/configure_general.txt changed
	+File in-portal/kernel/include/custommetadata.php changed
	File in-portal/kernel/include/emailmessage.php changed
	File in-portal/kernel/include/image.php changed
	File in-portal/kernel/include/itemreview.php changed
	File in-portal/kernel/include/parseditem.php changed
	File in-portal/kernel/include/relationship.php changed
	File in-portal/kernel/include/smtp.php changed
	File in-portal/kernel/include/usersession.php changed
	File in-portal/kernel/units/categories/categories_event_handler.php changed
	File in-portal/kernel/units/general/inp_ses_storage.php changed
	File in-portal/kernel/units/users/users_event_handler.php changed
	File kernel4_dev/kernel4/application.php changed
	+File kernel4_dev/kernel4/globals.php changed
	File kernel4_dev/kernel4/parser/tags.php changed
	File kernel4_dev/kernel4/processors/main_processor.php changed
	File kernel4_dev/kernel4/session/session.php changed
	+File kernel4_dev/kernel4/utility/debugger.php changed
	File kernel4_dev/kernel4/utility/email.php changed
	File kernel4_dev/kernel4/utility/formatters.php changed
	File cmseditor/fckconfig.js changed


	Changes in phrases and events:


	Added label "la_config_use_js_redirect" of type "1"
	Changed label "la_Description_in-link:inlink_paid_listings" of type "1"
	Changed label "la_Description_in-link:inlink_paid_listings" of type "1"
	Changed label "la_Description_in-portal:configure_styles" of type "1"
	Changed label "la_Description_in-portal:configure_styles" of type "1"
	Changed label "la_event_user.membership_expiration_notice" of type "1"
	Changed label "la_event_user.membership_expired" of type "1"
	Changed label "la_event_user.membership_expiration_notice" of type "1"
	Changed label "la_event_user.membership_expired" of type "1"
	Changed label "la_MembershipExpirationReminder" of type "1"
	Changed label "la_MembershipExpirationReminder" of type "1"
	Changed label "la_promt_ReferrerCheck" of type "1"
	Changed label "la_promt_ReferrerCheck" of type "1"
	Changed label "la_users_assign_all_to" of type "1"
	Changed label "la_users_assign_all_to" of type "1"
	Changed label "lu_fieldcustom__a" of type "2"
	Changed label "lu_fieldcustom__a" of type "2"
	Changed label "lu_fieldcustom__samplefield" of type "2"
	Changed label "lu_fieldcustom__samplefield" of type "2"
	Added label "lu_fieldcustom__user_from" of type "2"
	Changed event "USER.VALIDATE" of type "1"
	Changed event "USER.APPROVE" of type "0"
	Changed event "USER.UNSUBSCRIBE" of type "0"
	Changed event "CATEGORY.ADD.PENDING" of type "0"
	Added event "USER.PSWD" of type "0"
	Changed event "USER.SUBSCRIBE" of type "1"
	Changed event "USER.APPROVE" of type "0"
	Changed event "USER.DENY" of type "1"
	Changed event "USER.UNSUBSCRIBE" of type "0"
	Changed event "USER.VALIDATE" of type "0"
	Changed event "CATEGORY.ADD.PENDING" of type "1"
	Changed event "USER.ADD" of type "1"
	Changed event "USER.SUBSCRIBE" of type "1"
	Removed event "USER.ADD" of type "1"
	Removed event "CATEGORY.APPROVE" of type "1"
	Removed event "USER.DENY" of type "1"
	Removed event "CATEGORY.ADD.PENDING" of type "1"
	Removed event "CATEGORY.DENY" of type "0"
	Removed event "CATEGORY.APPROVE" of type "0"
	Added event "CATEGORY.APPROVE" of type "1"
	Added event "USER.VALIDATE" of type "0"
	Changed event "CATEGORY.ADD" of type "0"
	Changed event "CATEGORY.APPROVE" of type "0"
	Changed event "CATEGORY.DENY" of type "0"
	Changed event "USER.PSWDC" of type "0"
	Changed event "CATEGORY.ADD.PENDING" of type "0"
	Changed event "CATEGORY.ADD" of type "0"
	Added event "USER.PSWDC" of type "0"
	Removed event "USER.ADD.PENDING" of type "0"
	Removed event "USER.PSWD" of type "0"
	Added event "USER.ADD.PENDING" of type "0"
	Added event "USER.VALIDATE" of type "1"

	Property changes on: trunk/admin/install/upgrades/changelog_1_1_5.txt
	___________________________________________________________________
	Modified: cvs2svn:cvs-rev
	## -1 +1 ##
	-1.9
	\ No newline at end of property
	+1.10
	\ No newline at end of property
	Index: trunk/core/kernel/utility/debugger.php
	===================================================================
	--- trunk/core/kernel/utility/debugger.php (revision 3526)
	+++ trunk/core/kernel/utility/debugger.php (revision 3527)
	@@ -1,1023 +1,1023 @@
	<?php

	if( !class_exists('Debugger') )
	{
	function dbg_ConstOn($const_name)
	{
	return defined($const_name) && constant($const_name);
	}

	function dbg_safeDefine($const_name,$const_value)
	{
	if(!defined($const_name)) define($const_name,$const_value);
	}

	unset($_REQUEST['debug_host'], $_REQUEST['debug_fastfile']); // this var messed up whole detection stuff :(

	// Detect fact, that this session beeing debugged by Zend Studio
	foreach($_REQUEST as $rq_name=>$rq_value)
	{
	if( substr($rq_name,0,6)=='debug_' )
	{
	dbg_safeDefine('DBG_ZEND_PRESENT', 1);
	break;
	}
	}

	dbg_safeDefine('DBG_ZEND_PRESENT',0);

	// set default values for debugger constants
	$dbg_constMap=Array('DBG_OPTIONS'=>0,
	'DBG_USE_HIGHLIGHT'=>1,
	'DBG_USE_SHUTDOWN_FUNC'=>DBG_ZEND_PRESENT?0:1,
	'DBG_HANDLE_ERRORS'=>DBG_ZEND_PRESENT?0:1,
	'DBG_IGNORE_STRICT_ERRORS'=>1,
	'DBG_DOMVIEWER'=>'/temp/domviewer.html',
	'DOC_ROOT'=> str_replace('\\', '/', realpath($_SERVER['DOCUMENT_ROOT']) ), // windows hack
	'DBG_LOCAL_BASE_PATH'=>'w:');

	foreach($dbg_constMap as $dbg_constName=>$dbg_constValue)
	{
	dbg_safeDefine($dbg_constName,$dbg_constValue);
	}

	// only for IE, in case if no windows php script editor defined
	/*if(!defined('WINDOWS_EDITOR'))
	{
	$dbg_editor = 0;
	$dbg_editors[0] = Array('editor' => 'c:\Program Files\UltraEdit\uedit32.exe', 'params' => '%F/%L');
	$dbg_editors[1] = Array('editor' => 'c:\Program Files\Zend\ZendStudio-4.0Beta\bin\ZDE.exe', 'params' => '%F');
	define('WINDOWS_EDITOR',$dbg_editors[$dbg_editor]['editor'].' '.$dbg_editors[$dbg_editor]['params']);
	unset($dbg_editors,$dbg_editor);
	}*/

	class Debugger
	{
	/**
	* Debugger data for building report
	*
	* @var Array
	*/
	var $Data = Array();
	var $ProfilerData = Array();
	var $ProfilerTotals = Array();
	var $ProfilerTotalCount = Array();
	var $RecursionStack = Array(); // prevent recursion when processing debug_backtrace() function results

	var $TraceNextError=false;

	var $Options = 0;
	var $OptionsMap = Array('shutdown_func' => 1, 'error_handler' => 2,
	'output_buffer' => 4, 'highlight_output' => 8);


	var $longErrors=Array();

	/**
	* Amount of memory used by debugger itself
	*
	* @var Array
	* @access private
	*/
	var $memoryUsage=Array();

	var $IncludesData=Array();
	var $IncludeLevel=0;

	var $reportDone = false;

	function Debugger()
	{
	$this->profileStart('kernel4_startup', 'Startup and Initialization of kernel4');
	$this->profileStart('script_runtime', 'Script runtime');
	ini_set('display_errors',dbg_ConstOn('DBG_ZEND_PRESENT')?0:1);
	$this->memoryUsage['error_handling']=0; // memory amount used by error handler
	$this->appendRequest();
	}

	function initOptions()
	{

	}

	function mapLongError($msg)
	{
	$key=$this->generateID();
	$this->longErrors[$key]=$msg;
	return $key;
	}

	function setOption($name,$value)
	{
	if( !isset($this->OptionsMap[$name]) ) die('undefined debugger option: ['.$name.']<br>');
	if($value)
	{
	$this->Options\|=$this->OptionsMap[$name];
	}
	else
	{
	$this->Options=$this->Options&~$this->OptionsMap[$name];
	}
	}

	function getOption($name)
	{
	if( !isset($this->OptionsMap[$name]) ) die('undefined debugger option: ['.$name.']<br>');
	return ($this->Options & $this->OptionsMap[$name]) == $this->OptionsMap[$name];
	}

	/**
	* Set's flag, that next error that occurs will
	* be prepended by backtrace results
	*
	*/
	function traceNext()
	{
	$this->TraceNextError=true;
	}

	function dumpVars()
	{
	$dumpVars = func_get_args();
	foreach($dumpVars as $varValue)
	{
	$this->Data[] = Array('value' => $varValue, 'debug_type' => 'var_dump');
	}
	}

	function prepareHTML($dataIndex)
	{
	$Data =& $this->Data[$dataIndex];
	if($Data['debug_type'] == 'html') return $Data['html'];

	switch($Data['debug_type'])
	{
	case 'error':
	$fileLink = $this->getFileLink($Data['file'],$Data['line']);
	$ret = '<b class="debug_error">'.$this->getErrorNameByCode($Data['no']).'</b>: '.$Data['str'];
	$ret .= ' in <b>'.$fileLink.'</b> on line <b>'.$Data['line'].'</b>';
	return $ret;
	break;

	case 'var_dump':
	return $this->highlightString( print_r($Data['value'], true) );
	break;

	case 'trace':
	ini_set('memory_limit','500M');
	$trace =& $Data['trace'];

	//return 'sorry';
	//return $this->highlightString(print_r($trace,true));


	$i = 0; $traceCount = count($trace);
	$ret = '';
	while($i < $traceCount)
	{
	$traceRec =& $trace[$i];
	$argsID = 'trace_args_'.$dataIndex.'_'.$i;

	$has_args = isset($traceRec['args']);

	if(isset($traceRec['file']))
	{
	$func_name=isset($traceRec['class'])?$traceRec['class'].$traceRec['type'].$traceRec['function']:$traceRec['function'];
	$args_link = $has_args ? '<a href="javascript:toggleTraceArgs(\''.$argsID.'\');" title="Show/Hide Function Arguments"><b>Function</b></a>' : '<b>Function</b>';

	$ret .= $args_link.': '.$this->getFileLink($traceRec['file'],$traceRec['line'],$func_name);
	$ret .= ' in <b>'.basename($traceRec['file']).'</b> on line <b>'.$traceRec['line'].'</b><br>';
	}
	else
	{
	$ret .= 'no file information available';
	}

	// ensure parameter value is not longer then 200 symbols
	if($has_args)
	{
	$this->processTraceArguments($traceRec['args']);
	$args = $this->highlightString(print_r($traceRec['args'], true));
	$ret .= '<div id="'.$argsID.'" style="display: none;">'.$args.'</div>';
	}
	$i++;
	}
	return $ret;
	break;

	case 'profiler':
	$profileKey = $Data['profile_key'];
	$Data =& $this->ProfilerData[$profileKey];
	$runtime = ($Data['ends'] - $Data['begins']); // in seconds
	return '<b>Name</b>: '.$Data['description'].'<br><b>Runtime</b>: '.$runtime.'s';
	break;

	default:
	return 'incorrect debug data';
	break;
	}
	}

	function isApplication(&$object)
	{
	$app_class = defined('APPLICATION_CLASS') ? strtolower(APPLICATION_CLASS) : 'kApplication';
	return get_class($object) == $app_class;
	}

	function processTraceArguments(&$traceArgs)
	{
	if(!$traceArgs) return '';

	$array_keys = array_keys($traceArgs);
	foreach($array_keys as $argID)
	{
	$argValue =& $traceArgs[$argID];

	if( is_array($argValue) \|\| is_object($argValue) )
	{
	if(is_object($argValue) && !in_array(get_class($argValue),$this->RecursionStack) )
	{
	array_push($this->RecursionStack, get_class($argValue));

	if( get_class($argValue) == 'kfactory' \|\| $this->isApplication($argValue) \|\| get_class($argValue) == 'templateparser' )
	{
	$argValue = null;
	continue;
	}

	// object & not in stack - ok
	settype($argValue,'array');
	$this->processTraceArguments($argValue);
	array_pop($this->RecursionStack);
	}
	elseif(is_object($argValue) && in_array(get_class($argValue),$this->RecursionStack) )
	{
	// object & in stack - recursion
	$traceArgs[$argID] = '** RECURSION *';
	}
	else
	{
	// normal array here
	$this->processTraceArguments($argValue);
	}
	}
	else
	{
	$traceArgs[$argID] = $this->cutStringForHTML($traceArgs[$argID]);
	}
	}
	}

	function cutStringForHTML($string)
	{
	if( strlen($string) > 200 ) $string = substr($string,0,50).' ...';
	return $string;
	}

	/**
	* Format SQL Query using predefined formatting
	* and highlighting techniques
	*
	* @param string $sql
	* @return string
	*/
	function formatSQL($sql)
	{
	$sql = preg_replace('/(\n\|\t\| )+/is',' ',$sql);
	$sql = preg_replace('/(CREATE TABLE\|DROP TABLE\|SELECT\|UPDATE\|SET\|REPLACE\|INSERT\|DELETE\|VALUES\|FROM\|LEFT JOIN\|INNER JOIN\|LIMIT\|WHERE\|HAVING\|GROUP BY\|ORDER BY) /is', "\n\t$1 ",$sql);
	return $this->highlightString($sql);
	}

	function highlightString($string)
	{
	if( dbg_ConstOn('DBG_USE_HIGHLIGHT') )
	{
	$string = str_replace( Array('\\', '/') , Array('_no_match_string_', '_n_m_s_'), $string);
	$string = highlight_string('<?php '.$string.'?>', true);
	$string = str_replace( Array('_no_match_string_', '_n_m_s_'), Array('\\', '/'), $string);
	return preg_replace('/<\?(.)php (.)\?>/s', '$2', $string);
	}
	else
	{
	return $string;
	}
	}

	function getFileLink($file, $lineno = 1, $title = '')
	{
	if(!$title) $title = $file;
	$is_mozilla=strpos(strtolower($_SERVER['HTTP_USER_AGENT']),'firefox')!==false?true:false;
	if($is_mozilla)
	{
	return '<a href="file://'.$this->getLocalFile($file).'">'.$title.'</a>';
	}
	else
	{
	return '<a href="javascript:editFile(\''.$this->getLocalFile($file).'\','.$lineno.');" title="'.$file.'">'.$title.'</a>';
	}

	}

	function getLocalFile($remoteFile)
	{
	return str_replace(DOC_ROOT, DBG_LOCAL_BASE_PATH, $remoteFile);
	}

	function appendTrace()
	{
	$trace = debug_backtrace();
	array_shift($trace);
	$this->Data[] = Array('trace' => $trace, 'debug_type' => 'trace');
	}

	function appendMemoryUsage($msg, $used=null)
	{
	if (!isset($used)) $used = round(memory_get_usage()/1024);
	$this->appendHTML('<b>Memory usage</b> '.$msg.' '.$used.'Kb');
	}

	function appendHTML($html)
	{
	$this->Data[] = Array('html' => $html,'debug_type' => 'html');
	}

	/**
	* Change debugger info that was already generated before.
	* Returns true if html was set.
	*
	* @param int $index
	* @param string $html
	* @param string $type = {'append','prepend','replace'}
	* @return bool
	*/
	function setHTMLByIndex($index,$html,$type='append')
	{
	if( !isset($this->Data[$index]) \|\| $this->Data[$index]['debug_type'] != 'html' )
	{
	return false;
	}

	switch ($type)
	{
	case 'append':
	$this->Data[$index]['html'] .= '<br>'.$html;
	break;
	case 'prepend':
	$this->Data[$index]['html'] = $this->Data[$index]['html'].'<br>'.$html;
	break;
	case 'replace':
	$this->Data[$index]['html'] = $html;
	break;
	}
	return true;
	}

	/**
	* Move $debugLineCount lines of input from debug output
	* end to beginning.
	*
	* @param int $debugLineCount
	*/
	function moveToBegin($debugLineCount)
	{
	$lines = array_splice($this->Data,count($this->Data)-$debugLineCount,$debugLineCount);
	$this->Data = array_merge($lines,$this->Data);
	}

	function moveAfterRow($new_row, $debugLineCount)
	{
	$lines = array_splice($this->Data,count($this->Data)-$debugLineCount,$debugLineCount);
	$rows_before = array_splice($this->Data,0,$new_row,$lines);
	$this->Data = array_merge($rows_before,$this->Data);
	}

	function appendRequest()
	{
	- $script = $_SERVER['SCRIPT_FILENAME'];
	+ $script = $_SERVER['PHP_SELF'];
	$this->appendHTML('ScriptName: <b>'.$this->getFileLink($script,1,basename($script)).'</b> (<b>'.dirname($script).'</b>)');

	$this->appendHTML('<a href="http://www.brainjar.com/dhtml/domviewer/" target="_blank">DomViewer</a>: <input id="dbg_domviewer" type="text" value="window" style="border: 1px solid #000000;"/> <button class="button" onclick="return dbg_OpenDOMViewer();">Show</button>');

	ob_start();
	?>
	<table border="0" cellspacing="0" cellpadding="0" class="dbg_flat_table" style="width: 100%;">
	<thead style="font-weight: bold;">
	<td width="20">Src</td><td>Name</td><td>Value</td>
	</thead>
	<?php
	foreach($_REQUEST as $key => $value)
	{
	if( !is_array($value) && trim($value) == '' )
	{
	$value = '<b class="debug_error">no value</b>';
	}
	else
	{
	$value = htmlspecialchars(print_r($value, true));
	}

	$in_cookie = isset($_COOKIE[$key]);
	$src = isset($_GET[$key]) && !$in_cookie ? 'GE' : (isset($_POST[$key]) && !$in_cookie ? 'PO' : ($in_cookie ? 'CO' : '?') );
	echo '<tr><td>'.$src.'</td><td>'.$key.'</td><td>'.$value.'</td></tr>';
	}
	?>
	</table>
	<?php
	$this->appendHTML( ob_get_contents() );
	ob_end_clean();
	}

	function appendSession()
	{
	if( isset($_SESSION)&&$_SESSION )
	{
	$this->appendHTML('PHP Session: [<b>'.ini_get('session.name').'</b>]');
	$this->dumpVars($_SESSION);
	$this->moveToBegin(2);
	}
	}

	function profileStart($key, $description)
	{
	$timeStamp = $this->getMoment();
	$this->ProfilerData[$key] = Array('begins' => $timeStamp, 'ends' => 5000, 'debuggerRowID' => count($this->Data), 'description' => $description);
	$this->Data[] = array('profile_key' => $key, 'debug_type' => 'profiler');
	}

	function profileFinish($key)
	{
	$this->ProfilerData[$key]['ends'] = $this->getMoment();
	}

	function profilerAddTotal($total_key, $key=null, $value=null)
	{
	if (!isset($this->ProfilerTotals[$total_key])) {
	$this->ProfilerTotals[$total_key] = 0;
	$this->ProfilerTotalCount[$total_key] = 0;
	}
	if (!isset($value)) {
	$value = $this->ProfilerData[$key]['ends'] - $this->ProfilerData[$key]['begins'];
	}
	$this->ProfilerTotals[$total_key] += $value;
	$this->ProfilerTotalCount[$total_key]++;
	}

	function getMoment()
	{
	list($usec, $sec) = explode(' ', microtime());
	return ((float)$usec + (float)$sec);
	}

	function generateID()
	{
	list($usec, $sec) = explode(" ",microtime());

	$id_part_1 = substr($usec, 4, 4);
	$id_part_2 = mt_rand(1,9);
	$id_part_3 = substr($sec, 6, 4);
	$digit_one = substr($id_part_1, 0, 1);
	if ($digit_one == 0) {
	$digit_one = mt_rand(1,9);
	$id_part_1 = ereg_replace("^0","",$id_part_1);
	$id_part_1=$digit_one.$id_part_1;
	}
	return $id_part_1.$id_part_2.$id_part_3;
	}


	function getErrorNameByCode($errorCode)
	{
	switch($errorCode)
	{
	case E_USER_ERROR:
	return 'Fatal Error';
	break;

	case E_WARNING:
	case E_USER_WARNING:
	return 'Warning';
	break;

	case E_NOTICE:
	case E_USER_NOTICE:
	return 'Notice';
	break;

	case E_STRICT:
	return 'PHP5 Strict';
	break;

	default:
	return '';
	break;
	}
	}

	/**
	* Generates report
	*
	*/
	function printReport($returnResult = false, $clean_output_buffer = true)
	{
	if($this->reportDone) return '';

	if( dbg_ConstOn('DBG_SKIP_REPORTING') ) return;

	$this->profileFinish('script_runtime');
	if( dbg_ConstOn('DBG_ZEND_PRESENT') ) return;

	dbg_safeDefine('DBG_RAISE_ON_WARNINGS',0);
	dbg_safeDefine('DBG_WINDOW_WIDTH', 700);

	$this->memoryUsage['debugger_start']=memory_get_usage();

	// show php session if any
	$this->appendSession();

	// ensure, that 1st line of debug output always is this one:
	$this->appendHTML('<a href="javascript:toggleDebugLayer(27);">Hide Debugger</a>');
	$this->moveToBegin(1);

	if( dbg_ConstOn('DBG_SQL_PROFILE') && isset($this->ProfilerTotals['sql']) )
	{
	$this->appendHTML('<b>SQL Total time:</b> '.$this->ProfilerTotals['sql'].' Number of queries: '.$this->ProfilerTotalCount['sql']);
	}

	if( dbg_ConstOn('DBG_PROFILE_MEMORY') )
	{
	$this->appendHTML('<b>Memory used by Objects:</b> '.round($this->ProfilerTotals['objects']/1024, 2).'Kb');
	}

	if( dbg_ConstOn('DBG_INCLUDED_FILES') )
	{
	$files = get_included_files();
	$this->appendHTML('<b>Included files:</b>');
	foreach ($files as $file)
	{
	$this->appendHTML($this->getFileLink($this->getLocalFile($file)).' ('.round(filesize($file)/1024, 2).'Kb)');
	}
	}

	if( dbg_ConstOn('DBG_PROFILE_INCLUDES') )
	{
	$this->appendHTML('<b>Included files statistics:</b>'.( dbg_ConstOn('DBG_SORT_INCLUDES_MEM') ? ' (sorted by memory usage)':''));
	$totals = Array( 'mem' => 0, 'time' => 0);
	$totals_configs = Array( 'mem' => 0, 'time' => 0);
	if ( dbg_ConstOn('DBG_SORT_INCLUDES_MEM') ) {
	array_multisort($this->IncludesData['mem'], SORT_DESC, $this->IncludesData['file'], $this->IncludesData['time'], $this->IncludesData['level']);
	}
	foreach ($this->IncludesData['file'] as $key => $file_name) {
	$this->appendHTML( str_repeat(' -> ', ($this->IncludesData['level'][$key] >= 0 ? $this->IncludesData['level'][$key] : 0)).$file_name.' Mem: '.sprintf("%.4f Kb", $this->IncludesData['mem'][$key]/1024).' Time: '.sprintf("%.4f", $this->IncludesData['time'][$key]));
	if ($this->IncludesData['level'][$key] == 0) {
	$totals['mem'] += $this->IncludesData['mem'][$key];
	$totals['time'] += $this->IncludesData['time'][$key];
	}
	else if ($this->IncludesData['level'][$key] == -1) {
	$totals_configs['mem'] += $this->IncludesData['mem'][$key];
	$totals_configs['time'] += $this->IncludesData['time'][$key];
	}
	}
	$this->appendHTML('<b>Sub-Total classes:</b> '.' Mem: '.sprintf("%.4f Kb", $totals['mem']/1024).' Time: '.sprintf("%.4f", $totals['time']));
	$this->appendHTML('<b>Sub-Total configs:</b> '.' Mem: '.sprintf("%.4f Kb", $totals_configs['mem']/1024).' Time: '.sprintf("%.4f", $totals_configs['time']));
	$this->appendHTML('<span class="error"><b>Grand Total:</b></span> '.' Mem: '.sprintf("%.4f Kb", ($totals['mem']+$totals_configs['mem'])/1024).' Time: '.sprintf("%.4f", $totals['time']+$totals_configs['time']));
	}


	$i = 0; $lineCount = count($this->Data);
	if( !ob_get_length() ) ob_start();
	?>
	<style type="text/css">

	.dbg_flat_table {
	border-collapse: collapse;
	width: auto;
	}

	.dbg_flat_table TD {
	border: 1px solid buttonface;
	padding: 4px;
	}

	.debug_layer_table {
	border-collapse: collapse;
	width: <?php echo DBG_WINDOW_WIDTH - 20; ?>px;
	}

	.debug_text, .debug_row_even TD, .debug_row_odd TD {
	color: #000000;
	font-family: Verdana;
	font-size: 11px;
	word-wrap: break-word;
	}

	.debug_cell {
	border: 1px solid #FF0000;
	padding: 4px;
	word-wrap: break-word;
	text-align: left;
	}

	.debug_row_even {
	background-color: #CCCCFF;
	}

	.debug_row_odd {
	background-color: #FFFFCC;
	}

	.debug_layer_container {
	left: 2px;
	top: 1px;
	width: <?php echo DBG_WINDOW_WIDTH; ?>px;
	z-index: +1000;
	position: absolute;
	overflow: auto;
	border: 2px solid;
	padding: 3px;
	border-top-color: threedlightshadow;
	border-left-color: threedlightshadow;
	border-right-color: threeddarkshadow;
	border-bottom-color: threeddarkshadow;
	background-color: buttonface;
	}

	.debug_layer {
	padding: 0px;
	width: <?php echo DBG_WINDOW_WIDTH - 20; ?>px;
	}

	.debug_error {
	color: #FF0000;
	}
	</style>
	<div id="debug_layer" class="debug_layer_container" style="display: none;">
	<div class="debug_layer">
	<table width="100%" cellpadding="0" cellspacing="1" border="0" class="debug_layer_table">
	<?php
	while ($i < $lineCount)
	{
	echo '<tr class="debug_row_'.(($i % 2) ? 'odd' : 'even').'"><td class="debug_cell">'.$this->prepareHTML($i).'</td></tr>';
	$i++;
	}
	?>
	</table>
	</div>
	</div>
	<script language="javascript">

	function dbg_OpenDOMViewer()
	{
	var $value = document.getElementById('dbg_domviewer').value;
	DOMViewerObj = ($value.indexOf('"') != -1) ? document.getElementById( $value.substring(1,$value.length-1) ) : eval($value);
	window.open('<?php echo constant('DBG_DOMVIEWER'); ?>');
	return false;
	}

	function getEventKeyCode($e)
	{
	var $KeyCode = 0;
	if($e.keyCode) $KeyCode = $e.keyCode;
	else if($e.which) $KeyCode = $e.which;
	return $KeyCode;
	}

	function keyProcessor($e)
	{
	if(!$e) $e = window.event;
	var $KeyCode = getEventKeyCode($e);
	if($KeyCode==123\|\|$KeyCode==27) // F12 or ESC
	{
	toggleDebugLayer($KeyCode);
	$e.cancelBubble = true;
	if($e.stopPropagation) $e.stopPropagation();
	}
	}

	function toggleDebugLayer($KeyCode)
	{
	var $isVisible=false;
	var $DebugLayer = document.getElementById('debug_layer');
	if( typeof($DebugLayer) != 'undefined' )
	{
	$isVisible = ($DebugLayer.style.display == 'none')?false:true;
	if(!$isVisible&&$KeyCode==27) return false;

	resizeDebugLayer(null);
	$DebugLayer.style.display = $isVisible?'none':'block';
	}
	}

	function prepareSizes($Prefix)
	{
	var $ret = '';
	$ret = eval('document.body.'+$Prefix+'Top')+'; ';
	$ret += eval('document.body.'+$Prefix+'Left')+'; ';
	$ret += eval('document.body.'+$Prefix+'Height')+'; ';
	$ret += eval('document.body.'+$Prefix+'Width')+'; ';
	return $ret;
	}

	function resizeDebugLayer($e)
	{
	if(!$e) $e = window.event;
	var $DebugLayer = document.getElementById('debug_layer');
	var $TopMargin = 1;

	var $pageWidth = document.all ? document.body.offsetWidth - 4 : window.innerWidth;
	var $pageHeight = document.all ? document.body.clientHeight : window.innerHeight; // document.body.offsetHeight - 2

	var $pageTop = document.all ? document.body.offsetTop + document.body.scrollTop : window.scrollY;

	if( typeof($DebugLayer) != 'undefined' )
	{
	if(document.all)
	{
	$DebugLayer.style.top = ($pageTop + 2) + 'px';
	$DebugLayer.style.height = ($pageHeight - 2 - 4) + 'px';
	}
	else
	{
	$DebugLayer.style.top = ($pageTop + 2) + 'px';
	$DebugLayer.style.height = ($pageHeight - 2 - 15) + 'px';
	}
	}
	// window.parent.status = 'OFFSET: '+prepareSizes('offset')+' \| SCROLL: '+prepareSizes('scroll')+' \| CLIENT: '+prepareSizes('client');
	// window.parent.status += 'DL Info: '+$DebugLayer.style.top+'; S.AH: '+screen.availHeight;
	return true;
	}

	function SetClipboard(copyText)
	{
	if(window.clipboardData)
	{
	// IE send-to-clipboard method.
	window.clipboardData.setData('Text', copyText);
	}
	else if (window.netscape)
	{
	// You have to sign the code to enable this or allow the action in about:config by changing user_pref("signed.applets.codebase_principal_support", true);
	netscape.security.PrivilegeManager.enablePrivilege('UniversalXPConnect');

	// Store support string in an object.
	var str = Components.classes["@mozilla.org/supports-string;1"].createInstance(Components.interfaces.nsISupportsString);
	if (!str) return false;
	str.data=copyText;

	// Make transferable.
	var trans = Components.classes["@mozilla.org/widget/transferable;1"].createInstance(Components.interfaces.nsITransferable);
	if (!trans) return false;

	// Specify what datatypes we want to obtain, which is text in this case.
	trans.addDataFlavor("text/unicode");
	trans.setTransferData("text/unicode",str,copyText.length*2);

	var clipid=Components.interfaces.nsIClipboard;
	var clip = Components.classes["@mozilla.org/widget/clipboard;1"].getService(clipid);
	if (!clip) return false;

	clip.setData(trans,null,clipid.kGlobalClipboard);
	}

	}

	function showProps($Obj, $Name)
	{
	var $ret = '';
	for($Prop in $Obj)
	{
	$ret += $Name+'.'+$Prop+' = '+$Obj[$Prop]+"\n";
	}
	return $ret;
	}

	function editFile($fileName,$lineNo)
	{
	if(!document.all)
	{
	alert('Only works in IE');
	return;
	}

	var $editorPath = '<?php echo defined('WINDOWS_EDITOR') ? addslashes(WINDOWS_EDITOR) : '' ?>';
	if($editorPath)
	{
	var $obj = new ActiveXObject("LaunchinIE.Launch");
	$editorPath = $editorPath.replace('%F',$fileName);
	$editorPath = $editorPath.replace('%L',$lineNo);
	$obj.LaunchApplication($editorPath);
	}
	else
	{
	alert('Editor path not defined!');
	}
	}

	function toggleTraceArgs($ArgsLayerID)
	{
	var $ArgsLayer = document.getElementById($ArgsLayerID);
	$ArgsLayer.style.display = ($ArgsLayer.style.display == 'none') ? 'block' : 'none';
	}


	document.onkeydown = keyProcessor;
	window.onresize = resizeDebugLayer;
	window.onscroll = resizeDebugLayer;
	window.focus();
	if( typeof($isFatalError) != 'undefined' && $isFatalError == 1 \|\| <?php echo DBG_RAISE_ON_WARNINGS; ?> )
	{
	toggleDebugLayer();
	}
	if( typeof($isFatalError) != 'undefined' && $isFatalError == 1)
	{
	document.getElementById('debug_layer').scrollTop = 10000000;
	}
	</script>
	<?php

	dbg_safeDefine('DBG_SHOW_MEMORY_USAGE', 1);
	if( dbg_ConstOn('DBG_SHOW_MEMORY_USAGE') )
	{
	$this->memoryUsage['debugger_finish']=memory_get_usage();
	$this->memoryUsage['print_report']=$this->memoryUsage['debugger_finish']-$this->memoryUsage['debugger_start'];
	$this->memoryUsage['total']=$this->memoryUsage['print_report']+$this->memoryUsage['error_handling'];
	$this->memoryUsage['application']=memory_get_usage()-$this->memoryUsage['total'];
	}

	if($returnResult)
	{
	$ret = ob_get_contents();
	if($clean_output_buffer) ob_clean();
	if( dbg_ConstOn('DBG_SHOW_MEMORY_USAGE') ) $ret .= $this->getMemoryUsageReport();
	$this->reportDone = true;
	return $ret;
	}
	else
	{
	if( !dbg_ConstOn('DBG_HIDE_FULL_REPORT') )
	{
	ob_end_flush();
	}
	else
	{
	if($clean_output_buffer) ob_clean();
	}
	if( dbg_ConstOn('DBG_SHOW_MEMORY_USAGE') ) echo $this->getMemoryUsageReport();
	$this->reportDone = true;
	}
	}

	/**
	* Format's memory usage report by debugger
	*
	* @return string
	* @access private
	*/
	function getMemoryUsageReport()
	{
	if( !dbg_ConstOn('DBG_SHOW_MEMORY_USAGE') ) return '';

	$info = Array('<a href="javascript:self.location.reload()">printReport</a>'=>'print_report',
	'saveError'=>'error_handling',
	'Total'=>'total',
	'Application'=>'application');
	$ret=Array();
	foreach($info as $title => $value_key)
	{
	$ret[]='<tr><td>'.$title.':</td><td><b>'.$this->formatSize($this->memoryUsage[$value_key]).'</b></td></tr>';
	}
	return '<table class="dbg_flat_table">'.implode('',$ret).'</table>';
	}


	/**
	* User-defined error handler
	*
	* @param int $errno
	* @param string $errstr
	* @param string $errfile
	* @param int $errline
	* @param array $errcontext
	*/
	function saveError($errno, $errstr, $errfile = '', $errline = '', $errcontext = '')
	{
	$memory_used=Array();
	$memory_used['begin']=memory_get_usage();

	$errorType = $this->getErrorNameByCode($errno);
	if(!$errorType)
	{
	trigger_error('Unknown error type ['.$errno.']', E_USER_ERROR);
	return false;
	}

	if( dbg_ConstOn('DBG_IGNORE_STRICT_ERRORS') && defined('E_STRICT') && ($errno == E_STRICT) ) return;

	$long_id_pos=strrpos($errstr,'#');
	if($long_id_pos!==false)
	{
	// replace short message with long one (due triger_error limitations on message size)
	$long_id=substr($errstr,$long_id_pos+1,strlen($errstr));
	$errstr=$this->longErrors[$long_id];
	unset($this->longErrors[$long_id]);
	}


	/*in /www/kostja/in-commerce4/kernel/kernel4/parser/construct_tags.php(177) : runtime-created function on line

	[PRE-PARSED block, $line 13]: Undefined variable: IdField*/
	/*
	if( strpos($errfile,'runtime-created') !== false ) {
	$errfile = ' PRE-PARSED block <b>'.$this->CurrentPreParsedBlock.'</b> ';
	}*/

	if( strpos($errfile,'eval()\'d code') !== false )
	{
	$errstr = '[<b>EVAL</b>, line <b>'.$errline.'</b>]: '.$errstr;
	$tmpStr = $errfile;
	$pos = strpos($tmpStr,'(');
	$errfile = substr($tmpStr,0,$pos);
	$pos++;
	$errline = substr($tmpStr,$pos,strpos($tmpStr,')',$pos)-$pos);
	}
	// if($this->TraceNextError \|\| $errno == E_USER_ERROR)
	if($this->TraceNextError)
	{
	$this->appendTrace();
	$this->TraceNextError=false;
	}
	$this->Data[] = Array('no' => $errno, 'str' => $errstr, 'file' => $errfile, 'line' => $errline, 'context' => $errcontext, 'debug_type' => 'error');
	$memory_used['end']=memory_get_usage();
	$this->memoryUsage['error_handling']+=$memory_used['end']-$memory_used['begin'];
	if( substr($errorType,0,5) == 'Fatal')
	{
	echo '<script language="javascript">var $isFatalError = 1;</script>';
	if( !dbg_ConstOn('DBG_USE_SHUTDOWN_FUNC') ) $this->printReport();
	exit;
	}
	}

	function saveToFile($msg)
	{
	$fp = fopen($_SERVER['DOCUMENT_ROOT'].'/vb_debug.txt', 'a');
	fwrite($fp,$msg."\n");
	fclose($fp);
	}

	/**
	* Formats file/memory size in nice way
	*
	* @param int $bytes
	* @return string
	* @access public
	*/
	function formatSize($bytes)
	{
	if ($bytes >= 1099511627776) {
	$return = round($bytes / 1024 / 1024 / 1024 / 1024, 2);
	$suffix = "TB";
	} elseif ($bytes >= 1073741824) {
	$return = round($bytes / 1024 / 1024 / 1024, 2);
	$suffix = "GB";
	} elseif ($bytes >= 1048576) {
	$return = round($bytes / 1024 / 1024, 2);
	$suffix = "MB";
	} elseif ($bytes >= 1024) {
	$return = round($bytes / 1024, 2);
	$suffix = "KB";
	} else {
	$return = $bytes;
	$suffix = "Byte";
	}
	$return .= ' '.$suffix;
	return $return;
	}

	}

	if( !function_exists('memory_get_usage') )
	{
	function memory_get_usage(){ return -1; }
	}

	if( !dbg_ConstOn('DBG_ZEND_PRESENT') )
	{
	$debugger = new Debugger();
	}

	if( dbg_ConstOn('DBG_HANDLE_ERRORS') )
	{
	if( class_exists('kApplication') )
	{
	$application =& kApplication::Instance();
	$application->Debugger =& $debugger;
	$application->errorHandlers[] = Array(&$debugger, 'saveError');
	}
	else
	{
	set_error_handler( Array(&$debugger, 'saveError') );
	}
	}

	if( dbg_ConstOn('DBG_USE_SHUTDOWN_FUNC') ) register_shutdown_function( Array(&$debugger, 'printReport') );
	}
	?>
	\ No newline at end of file

	Property changes on: trunk/core/kernel/utility/debugger.php
	___________________________________________________________________
	Modified: cvs2svn:cvs-rev
	## -1 +1 ##
	-1.30
	\ No newline at end of property
	+1.31
	\ No newline at end of property
	Index: trunk/core/kernel/utility/email.php
	===================================================================
	--- trunk/core/kernel/utility/email.php (revision 3526)
	+++ trunk/core/kernel/utility/email.php (revision 3527)
	@@ -1,434 +1,440 @@
	<?php

	class kEmailMessage extends kBase {

	var $Compiled;
	var $Headers;
	var $HeadersArray;
	var $BodyText;
	var $BodyHtml;
	var $Body;
	var $Subject;
	// var $From;
	// var $To;
	// var $ReplyTo;
	// var $CC;
	// var $BCC;
	var $Charset;
	var $LineFeed;
	var $TransferEncoding;
	var $From;
	var $To;


	var $IsMultipart;
	var $Parts;
	var $Files;


	var $TextBoundary;
	var $EmailBoundary;

	function kEmailMessage(){
	parent::kBase();
	//$this->TextBoundary = uniqid(adodb_mktime());
	$this->EmailBoundary = uniqid(adodb_mktime());
	$this->LineFeed = "\n";
	$this->Charset='ISO-8859-1';
	$this->TransferEncoding='8bit';
	$this->Body = '';
	$this->setHeader('Subject', 'Automatically generated message');
	$this->HeadersArray=array();

	$this->setHeader('Mime-Version', '1.0');
	}

	function setHeader($header, $value){
	$this->HeadersArray[$header] = $value;
	$this->Compiled = false;
	}

	function setHeaders($headers){
	$headers=str_replace("\r", "", $headers);
	$headers_lines = explode("\n", $headers);
	foreach ($headers_lines as $line_num => $line){
	list($header_field, $header_value) = explode(':', $line, 2);
	$header_value = trim($header_value);
	$this->setHeader($header_field, $header_value);
	if ($header_field == 'Subject') $this->Subject = $header_value;
	}

	}

	function appendHeader($header, $value){
	$this->HeadersArray[$header][] = $value;
	$this->Compiled = false;
	}


	function setFrom($from, $name=''){

	$this->From = $from;

	if ($name!=''){
	$from = trim($name).' <'.$from.'>';
	}
	$this->setHeader('From', trim($from));
	}

	function setTo($to, $name=''){

	$this->To = $to;

	if ($name!=''){
	$to = trim($name).' <'.$to.'>';
	}

	$this->setHeader('To', trim($to));
	}

	function setSubject($subj){
	$this->setHeader('Subject', $subj);
	}

	function SetCC($to_cc){
	$this->appendHeader('CC', $to_cc);
	}

	function SetBCC($to_bcc){
	$this->appendHeader('BCC', $to_bcc);
	}

	function setReplyTo($reply_to){
	$this->setHeader('Reply-to', $reply_to);
	}

	function Clear()
	{
	$this->Compiled = false;
	$this->Body = '';
	$this->BodyHtml = '';
	$this->BodyText = '';
	$this->Headers = '';
	$this->Files = '';
	$this->From = '';
	$this->To = '';
	}

	function setTextBody($body_text){

	$this->BodyText = $body_text;
	$this->Compiled = false;
	}

	function setHTMLBody($body_html){

	$this->BodyHtml = $body_html;
	$this->IsMultipart = true;
	$this->Compiled = false;
	}

	function compileBody(){
	$search = array (
	"'(<\/td>.)[\r\n]+(.<td)'i",//formating text in tables
	"'(<br[ ]?[\/]?>)\|(<\/p>)\|(<\/div>)\|(<\/tr>)'i",
	"'<head>(.*?)</head>'si",
	"'<style(.*?)</style>'si",
	"'<title>(.*?)</title>'si",
	"'<script(.*?)</script>'si",
	// "'^[\s\n\r\t]+'", //strip all spacers & newlines in the begin of document
	// "'[\s\n\r\t]+$'", //strip all spacers & newlines in the end of document
	"'&(quot\|#34);'i",
	"'&(amp\|#38);'i",
	"'&(lt\|#60);'i",
	"'&(gt\|#62);'i",
	"'&(nbsp\|#160);'i",
	"'&(iexcl\|#161);'i",
	"'&(cent\|#162);'i",
	"'&(pound\|#163);'i",
	"'&(copy\|#169);'i",
	"'&#(\d+);'e"
	);

	$replace = array (
	"\\1\t\\2",
	"\n",
	"",
	"",
	"",
	"",
	// "",
	// "",
	"\"",
	"&",
	"<",
	">",
	" ",
	chr(161),
	chr(162),
	chr(163),
	chr(169),
	"chr(\\1)"
	);
	if($this->BodyHtml){


	$not_html = preg_replace ($search, $replace, $this->BodyHtml);
	$not_html = strip_tags($not_html);
	// $not_html = $this->removeBlankLines($not_html);
	// Fixing problem with add exclamation characters "!" into the body of the email.
	$not_html = wordwrap($not_html, 72);
	$this->BodyHtml = wordwrap($this->BodyHtml, 72);

	$this->Body = '';
	//$this->Body .= 'Content-Type: multipart/alternative;'.$this->LF()." ".'boundary="----='.$this->TextBoundary.'"'.$this->LF();
	//$this->Body .= $this->LF();
	$this->Body .= '------='.$this->EmailBoundary.$this->LF();
	$this->Body .= 'Content-Type: text/plain;'.$this->LF()." ".'charset="'.$this->Charset.'"'.$this->LF();
	$this->Body .= $this->LF();
	$this->Body .= $not_html.$this->LF().$this->LF();
	$this->Body .= '------='.$this->EmailBoundary.$this->LF();
	$this->Body .= 'Content-Type: text/html;'.$this->LF()." ".'charset="'.$this->Charset.'"'.$this->LF();
	$this->Body .= 'Content-Transfer-Encoding: '.$this->TransferEncoding.$this->LF();
	$this->Body .= 'Content-Description: HTML part'.$this->LF();
	$this->Body .= 'Content-Disposition: inline'.$this->LF();
	$this->Body .= $this->LF();

	$this->BodyHtml = str_replace("\r", "", $this->BodyHtml);
	$this->BodyHtml = str_replace("\n", $this->LF(), $this->BodyHtml);

	$this->Body .= $this->BodyHtml;
	$this->Body .= $this->LF().$this->LF();


	$this->IsMultipart = true;

	}else{
	$not_html = preg_replace ($search, $replace, $this->BodyText);
	$not_html = strip_tags($not_html);
	// $not_html = $this->removeBlankLines($not_html);
	// Fixing problem with add exclamation characters "!" into the body of the email.
	$not_html = wordwrap($not_html, 72);


	if ($this->IsMultipart){
	$this->Body .= '------='.$this->EmailBoundary.$this->LF();
	$this->Body .= 'Content-Type: text/plain;'.$this->LF()." ".'charset="'.$this->Charset.'"'.$this->LF();
	$this->Body .= 'Content-Disposition: inline'.$this->LF();
	$this->Body .= $this->LF();
	$this->Body .= $not_html.$this->LF().$this->LF();
	}else{
	//$this->BodyText = str_replace("\r", "", $this->BodyText);
	//$this->BodyText = str_replace("\n", $this->LF(), $this->BodyText);
	$this->Body = $not_html;
	}

	}

	}



	function setCharset($charset){
	$this->Charset = $charset;
	$this->Compiled = false;
	}

	function setLineFeed($linefeed){
	$this->LineFeed=$linefeed;
	}



	function attachFile($filepath, $mime="application/octet-stream"){

	if(is_file($filepath)){
	$file_info = array('path'=>$filepath, 'mime'=>$mime);
	$this->Files[] = $file_info;
	}else{
	die('File "'.$filepath.'" not exist...'."\n");
	}

	$this->IsMultipart = true;
	$this->Compiled = false;
	}

	function LF($str=''){
	$str = str_replace("\n", "", $str);
	$str = str_replace("\r", "", $str);
	return $str.$this->LineFeed;
	}

	function getContentType(){
	$content_type="";
	if ($this->IsMultipart){
	$content_type .= $this->LF('multipart/alternative;');
	$content_type .= $this->LF(" ".'boundary="----='.$this->EmailBoundary.'"');
	}else{
	$content_type .= $this->LF('text/plain;');
	$content_type .= $this->LF(" ".'charset='.$this->Charset);
	}

	return $content_type;

	}

	// ========================================

	function compileHeaders(){

	$this->Headers="";

	// $this->Headers .= "From: ".$this->LF($this->From);
	//if ($this->ReplyTo){
	// $this->Headers .= "Reply-To: ".$this->ReplyTo.$this->LF();
	//}
	//$this->Headers .= "To: ".$this->LF($this->To);
	//$this->Headers .= "Subject: ".$this->LF($this->Subject);
	/*
	if (sizeof($this->CC)){
	$this->Headers .= "Cc: ";
	foreach ($this->Cc as $key => $addr){
	$this->Headers.=$this->LF($addr.',');
	}
	}

	if (sizeof($this->BCC)){
	$this->Headers .= "Bcc: ";
	foreach ($this->BCC as $key => $addr){
	$this->Headers.=$this->LF($addr.',');
	}
	}
	*/

	foreach ($this->HeadersArray as $key => $val){
	if ($key=="To" \|\| $key=="") continue; // avoid duplicate "To" field in headers
	if (is_array($val)){
	$val = chunk_split(implode(', ', $val),72, $this->LF().' ');


	$this->Headers .= $key.": ".$val.$this->LF();
	}else{
	$this->Headers .= $key.": ".$val.$this->LF();
	}

	}

	$this->Headers .= "Content-Type: ".$this->getContentType();

	//$this->Headers .= "Content-Transfer-Encoding: ".$this->TransferEncoding.$this->LF();


	}

	function compileFiles(){
	if ($this->Files){
	foreach($this->Files as $key => $file_info)
	{
	$filepath = $file_info['path'];
	$mime = $file_info['mime'];
	$attachment_header = $this->LF('------='.$this->EmailBoundary);
	$attachment_header .= $this->LF('Content-Type: '.$mime.'; name="'.basename($filepath).'"');
	$attachment_header .= $this->LF('Content-Transfer-Encoding: base64');
	$attachment_header .= $this->LF('Content-Description: '.basename($filepath));
	$attachment_header .= $this->LF('Content-Disposition: attachment; filename="'.basename($filepath).'"');
	$attachment_header .= $this->LF('');

	$attachment_data = fread(fopen($filepath,"rb"),filesize($filepath));
	$attachment_data = base64_encode($attachment_data);
	$attachment_data = chunk_split($attachment_data,72);

	$this->Body .= $attachment_header.$attachment_data.$this->LF('');
	$this->IsMultipart = true;
	}
	}
	}

	function compile(){

	if ($this->Compiled) return;

	$this->compileBody();

	$this->compileFiles();

	$this->compileHeaders();

	// Compile
	if ($this->IsMultipart){
	$this->Body .= '------='.$this->EmailBoundary.'--'.$this->LF();
	}

	$this->Compiled = true;
	}

	// ========================================

	function getHeaders(){

	$this->Compile();
	return $this->Headers;
	}

	function getBody(){

	$this->Compile();
	return $this->Body;
	}

	function send(){

	return mail($this->HeadersArray['To'], $this->HeadersArray['Subject'], "", $this->getHeaders().$this->LF().$this->LF().$this->getBody());
	//return mail($this->HeadersArray['To'], $this->HeadersArray['Subject'], "", $this->getHeaders().$this->LF().$this->LF().$this->getBody(), '-f'.$this->From);

	}

	function sendSMTP(&$smtp_object, $smtp_host, $user, $pass, $auth_used = 0){

	$params['host'] = $smtp_host; // The smtp server host/ip
	$params['port'] = 25; // The smtp server port
	$params['helo'] = $_SERVER['HTTP_HOST']; // What to use when sending the helo command. Typically, your domain/hostname
	$params['auth'] = TRUE; // Whether to use basic authentication or not
	$params['user'] = $user; // Username for authentication


	$params['pass'] = $pass; // Password for authentication
	$params['debug'] = 1;
	if ($auth_used == 0){
	$params['authmethod'] = 'NOAUTH'; // forse disabling auth
	}


	- $send_params['recipients'] = array($this->To); // The recipients (can be multiple)
	+ if (strpos($this->To, ',') !== false) {
	+ $this->To = str_replace(' ', '', $this->To);
	+ $send_params['recipients'] = explode(',', $this->To);
	+ }
	+ else {
	+ $send_params['recipients'] = array($this->To); // The recipients (can be multiple)
	+ }
	$send_params['headers'] = array(
	'From: '.$this->HeadersArray['From'], // Headers
	'To: '.$this->HeadersArray['To'],
	'Subject: '.$this->HeadersArray['Subject'],
	'Content-type: '.$this->getContentType(),
	$this->getBody(),
	);
	$send_params['from'] = $this->From; // This is used as in the MAIL FROM: cmd
	// It should end up as the Return-Path: header
	$send_params['body']="\n";


	if($smtp_object->connect($params) && $smtp_object->send($send_params)){
	return true;
	}
	else {
	if ( $this->Application->isDebugMode() )
	{
	$this->Application->Debugger->appendHTML('<pre>'.$smtp_object->debugtext.'</pre>');
	//define('DBG_REDIRECT', 1);
	}
	return false;
	}

	}


	}



	?>

	Property changes on: trunk/core/kernel/utility/email.php
	___________________________________________________________________
	Modified: cvs2svn:cvs-rev
	## -1 +1 ##
	-1.10
	\ No newline at end of property
	+1.11
	\ No newline at end of property

in-portalNo OneTemporaryActions

File Metadata

in-portalView Options

Event Timeline

in-portal
No OneTemporary
Actions

in-portal
View Options