- 1
 
@filemtime($cache_f) < time()-(600+((integer)rand(-100,100)))
                                    Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+151
@filemtime($cache_f) < time()-(600+((integer)rand(-100,100)))
                                    плавающий кеш? о_О
+151
//клас для отправления писем через smtp
//способ приминения
//функция хеадерс(ящик куда отправлять,ящик откуда отправляется,почтовик(пример @yandex.ru), тема письма)
//$headers = $post->headers($users[$i]."@yandex.ru",$users[$i]."@yandex.ru","@yandex.ru",$result['title']);
//функция отправка (текст письма, заголовок, ящик получателя, адрес отправителя,имя пользователя, пароль, домен почтовика(пример yandex.ru))
//$post->send($result_text,$headers,$users[$i]."@yandex.ru",$users[$i]."@yandex.ru",$users[$i],$pass[$i],"yandex.ru");
  class mailer
{
    
  function get_data($smtp_conn)
  {
  $data="";
  while($str = fgets($smtp_conn,515))
  {
    $data .= $str;
    if(substr($str,3,1) == " ") { break; }
  }
  return $data;
  }
  
  
  
 function headers($to,$from,$prefix,$zag)
 { 
$header="Date: ".date("D, j M Y G:i:s")." +0700\r\n";
$header.="From: <".$from.">\r\n";
$header.="X-Mailer: The Bat! (v3.99.3) Professional\r\n";
$header.="X-Priority: 3 (Normal)\r\n";
$header.="Message-ID: <172562218.".date("YmjHis").$prefix.">\r\n";
$header.="To: <".$to.">\r\n";
$header.="Subject: ".$zag."\r\n";
$header.="MIME-Version: 1.0\r\n";
$header.="Content-Type: text/html; charset=utf-8\r\n";
$header.="Content-Transfer-Encoding: 8bit\r\n";
return $header; 
 }
 
 
 
 function send($text, $header, $to, $from, $login , $pass, $mailer)
 {
 
  $fin = new mailer;
  
  
 $smtp_conn = fsockopen("smtp.".$mailer, 25,$errno, $errstr, 10);  
 $data = $fin->get_data($smtp_conn); 
  
 fputs($smtp_conn,"EHLO ".$mailer."\r\n");
$data = $fin->get_data($smtp_conn);
fputs($smtp_conn,"AUTH LOGIN\r\n");
$data = $fin->get_data($smtp_conn);
fputs($smtp_conn,base64_encode($login)."\r\n");
$data = $fin->get_data($smtp_conn);
fputs($smtp_conn,base64_encode($pass)."\r\n");
$data = $fin->get_data($smtp_conn);
fputs($smtp_conn,"MAIL FROM:".$from."\r\n");
$data = $fin->get_data($smtp_conn);
fputs($smtp_conn,"RCPT TO:".$to."\r\n");
$data = $fin->get_data($smtp_conn);
fputs($smtp_conn,"DATA\r\n");
$data = $fin->get_data($smtp_conn);
fputs($smtp_conn,$header."\r\n".$text."\r\n.\r\n");
$data = $fin->get_data($smtp_conn);
fputs($smtp_conn,"QUIT\r\n");
$data = $fin->get_data($smtp_conn);
 }
}
                                    клас для отправления писем через smtp
+151
public virtual Type GetFields() {
    //Must be overridden!!!
    return null;
}
public virtual Enum[] GetCompareFields() {
    //Must be overridden!!!
    return null;
}
                                    Про абстракиные методы нам ещё не рассказывали :-D
+151
private function GetUnitType($unitType)
	{
		if($unitType)
			if(!UnitType::Exist($unitType))
			{
				Debug::error("WebPartCommentsList:: UnitType не найден");
				exit;
			}
			else
				$this->UnitType = UnitType::GetUnitTypeId($this->UnitType);
	}
                                    
            проверка на существование сущности внутри класса, причём реально $unitType == $this->UnitType
писал ...
        
+151
foreach ($polzavateli as $polzavatel){
$i++;
echo $polzavatel[$i];
}
                                    профессиональный обход массива :)
+151
// Защита от вставки HTML-кодов
function filter($string)
{
 $string=stripslashes($string); 
 $string=ereg_replace("<","<",$string);
 $string=ereg_replace(">",">",$string); 
 $string=ereg_replace('\\\"',""",$string);
 $string=ereg_replace("!","!",$string);
 $string=ereg_replace("\r","",$string);
 $string=ereg_replace("\n","<BR>",$string);
 $string=ereg_replace("%","%",$string);
 $string=ereg_replace("^ +","",$string);
 $string=ereg_replace(" +$","",$string);
 $string=ereg_replace(" +"," ",$string);
 $string=ereg_replace("\|"," ",$string);
 return $string;
}
                                    Из LS Guestbook (http://linesoft.org)
+151
<?php
$code = "<table> <tr><td>1</td></tr> <tr><td>2</td></tr> </table>";
$out_arr = array();
while($line = substr( ($code = substr($code, strpos($code, ($s = "<tr><td>")) + strlen($s))), 0,
                      ($s = strpos($code, "</td></tr>"))) and $s and array_push($out_arr, $line) );
print_r($out_arr);
?>
                                    
            лень было с регекспами заниматься ^_^
упрощеный вариант
        
+151
@$sel = $_POST["sel"]?$_POST["sel"]:$_GET["sel"];
                                    из огромной кучи (продолжение следует)
+151
procedure TWorld.Update(dTime: Single);
var
  i,j: integer;
  temp: TVector2f;
begin
  for i:=0 to Count-1 do
  begin
    if Bodyes[i]^.Static then break else
    for j:=0 to Bodyes[i]^.Count-1 do
    begin
      Bodyes[i]^.AccumulateForces[j]:=Gravitation;
      temp:=Bodyes[i]^.Position[j];
      Bodyes[i]^.Position[j].x:=Bodyes[i]^.Position[j].x+
          (Bodyes[i]^.Position[j].x-Bodyes[i]^.OldPosition[j].x)+
           Bodyes[i]^.AccumulateForces[j].x*dTime*dTime;
      Bodyes[i]^.Position[j].y:=Bodyes[i]^.Position[j].y+
          (Bodyes[i]^.Position[j].y-Bodyes[i]^.OldPosition[j].y)+
           Bodyes[i]^.AccumulateForces[j].y*dTime*dTime;
      Bodyes[i]^.OldPosition[j]:=temp;
    end;
  end;
end;
                                    Моделирование системы частиц через интегрирование Верлета
+151
Док = СоздатьОбъект("Документ.Документ1");
Док.ВыбратьДокументы(Дата1, Дата2);            
Пока Док.ПолучитьДокумент()=1 Цикл   
    Док.ВыбратьСтроки();
    Пока Док.ПолучитьСтроку() = 1 Цикл
        Док2 = СоздатьОбъект("Документ.Документ2");
        Док2.ВыбратьДокументы(Дата1,Дата2);  
        Сумма = 0;
        Пока Док2.ПолучитьДокумент()=1 Цикл        
            Опер = СоздатьОбъект("Операция");
            Если Опер.НайтиОперацию(Док2) = 1 Тогда 
                Опер.ВыбратьПроводки();
                Пока Опер.ПолучитьПроводку() = 1 Цикл                      
                    Если (Опер.Кредит.Субконто(1) = Док.Контрагент)  Тогда            
                        Сумма = Сумма + Опер.Сумма; 
                    КонецЕсли;    
                КонецЦикла;
            КонецЕсли;    
        КонецЦикла;
    КонецЦикла;                 
КонецЦикла;
                                    Больше циклов по одним и тем же данным!