- 1
- 2
- 3
- 4
- 5
procedure TfmEditAddDet.ControlExit(Sender: TObject);
begin
if Sender Is TEdit then TRIM(TEdit(Sender).Text)
else if Sender Is TMemo then TRIM(TEdit(Sender).Text);
end;
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+152
procedure TfmEditAddDet.ControlExit(Sender: TObject);
begin
if Sender Is TEdit then TRIM(TEdit(Sender).Text)
else if Sender Is TMemo then TRIM(TEdit(Sender).Text);
end;
Попытка вызова TRIM как процедуру.
−849
t.column :product_id, :integer
t.column :order_id, :integer
t.column :item_id, :string, :limit => 127
t.column :product_id, :integer
t.column :quantity, :integer
t.column :item_description, :string
t.column :unit_price, :decimal
+153
print "<a href=\"index.php\">Index</a> \\n";
print "<?php \\n";
$menu = getMenu();
print "?> \\n";
Файл пример платежки, в 10000 строках одного файла скрыты все фнкций. Каждая строка вывода хтмл кодов выглядит так print " \\n";
+149.9
/**
* Convert PHP tags to entities
*
* @access public
* @param string
* @return string
*/
function encode_php_tags($str)
{
$_POST[$this->_current_field] = str_replace(array('<?php', '<?PHP', '<?', '?>'), array('<?php', '<?PHP', '<?', '?>'), $str);
}
+165.6
<?
/******************************************************************************
Набор функций для фрмирования контента страницы сайт
******************************************************************************/
function GetAnnnounses($dp){
global $shopid,$db,$ll;
$qwe=$db->query("SELECT ap.position,ac.content,ac.name
FROM announce_pages ap,
announce_content ac
WHERE ap.owner=".$shopid."
AND ap.page=".$ll['id']."
AND ap.line".$dp."
AND ac.owner=".$shopid."
AND ac.id=ap.announse
AND ac.publish=1
GROUP BY 1,2
ORDER BY ac.updated");
while($v=$db->fetch_row($qwe)){
$an[$v[0]][] = $v[1]; //content
$at[$v[0]][] = $v[2]; //title
} //while v
if((is_array($an)) && (($ll['announse_before']+$ll['announse_after'])>0)){
$qwe=$db->query("SELECT id,main_shab,template_type,title
FROM templates
WHERE owner=".$shopid."
AND id IN(".$ll['announse_before'].",".$ll['announse_after'].")");
while($v=$db->fetch_row($qwe)){
if($v[1]=='') continue;
$i=($v[0]==$ll['announse_before']) ? 0 : 1;
$cnt=(is_array($an[$i])) ? join("\n",$an[$i]) : $an[$i];
//все объявления блока входят в один шаблон
if($v[2]==0) $an[$i]=str_replace(array("{title}","{content}"),
array($v[3],$cnt),
$v[1]);
//под каждое объявление свой экземпляр шаблона
else{
reset($an[$i]);
while(list($o,$vl)=each($an[$i])) $an[$i][$o]=str_replace(array("{title}","{content}"),
array($at[$i][$o],$vl),
************ ПРОПУЩЮ Г*********** И ДАЛЕЕ ПРОСТО ФИШИН!!!!!!!!!
function getMainContent(&$d,&$post,$shab=1){
global $shopid,$db,$path,$af,$dar,$dfc,$dtc,$ll,$cpc,$dir,$root,$domain,$swp,
$fl,$tv,$ln,$fr,$ud,$m,$u,$fn,$info,$ni,$bd,$ffp,$fn,$uf,$dfa,$dx,$fla,
$st,$ba,$ds,$mid,$mia,$pma,$tm,$mt,$dts,$ft,$sc,$dis,$fcnt,$pub,$auth,
$otp,$ans,$dh,$ds,$nms,$tps,$pgs,$dh,$str,$spr,$bid,$dr,$fdp,$mmm,
$ass,$dss,$clmn,$dclmn,$fn,$at,$aclmn,$fclmn,$da,$da2,$nc,$crs,$aodh,
$pcol,$rc,$vr,$cc,$cnm,$no,$lclmn,$cur,$tmp,$tdl,$cln,$fldc,$ms,$un,$ii,
$oid,$sid,$stb,$msh,$kid,$sqt,$stn,$sss,$tta,$ic,$view,$cid,$pid,$nt,$sord,
$add,$pr,$mas,$gd,$scc,$ppp,$rpr,$sclmn,$sln,$sos,$tov,$lim,$p,$r,$tic,
$ftp,$free,$did,$line,$dstr,$dm,$img,$script,$sid,$parent,$ordinal,$uf,
$cca,$csa,$ccc,$dop,$cba,$cfa,$cft,$cai,$cfd,$cfc,$ccs,$cur,$dtc,$dfc,
$repeat,$rh,$me,$sc,$dis,$tpl,$flt,$iw,$url,$dm,$ddd,$otmp,$fl,$ur,$ug,
$onload,$cl,$dr,$fdp,$pm,$dm,$num,$fmid,$url,$str,$mls,$dm,$pm,$mis,$way,
$pa,$pms,$val,$last,$prop,$url,$is,$us,$uw,$used,$na,$pat,$rep,$un,$sc,$dis,
$dt,$ga,$ds,$nms,$tps,$pgs,$fpg,$dln,$uln,$loc,$dms,$gt,$ni,$spam,$arr,
$fld,$cnt,$fa,$uf,$atf,$dfa,$fib,$equal,$c,$tid,$ttl,$short_ttl,$css,
$add,$oid,$sqt,$stb,$stn,$da,$da2,$pr,$clmn,$mas,$gd,$path,$scc,$tov,$svs,$sva,
$sss,$rpr,$sclmn,$sln,$sos,$ft,$aclmn,$tov,$lim,$ppp,$answ,$rln,$ver,$scom,
$cr,$sc,$cc,$ccn,$rc;
$me = $_SESSION['usr'][$shopid];
switch($post['i']){
case 1: //вносим изменения в свой профайл на сайте
if(!empty($me)){include($path."site/auth/edit_profile.php");}
break;
case 2: //форма запроса на восстановление пароля
if(empty($me)){include($path."site/auth/restore_pwd.php");}
break;
case 3: //аккаунт юзера заблокирован
case 4: //неверный логин/пароль
case 5: //удачная авторизация
case 18: //пароль изменен
include($path."panel/structure/dop_fields/announses/get_mes.php");
$spam = $gt = 1;
$mma = array(3=>9,4=>14,5=>15,18=>22);
$d = get_mes($mma[$post['i']],1);
break;
case 9: //subscribe :: не верно указан email
продолжение говноцмс, причем платная!!!!!!!!!
+152.4
<?
/******************************************************************************
Основной файл для работы с панелью управления
******************************************************************************/
if(isset($_REQUEST['usr'])){
unset($_SESSION['usr']);
die("don't hack me,please!");
} //if hack
session_start();
//коннект к базе данных
if(!is_object($db)){include_once($path."panel/lib/sql.php");}
$db->set_logs_level(0); //уровень логирования запросов
$db->set_logging_place(0); //0-file,1-database
$db->set_logs_filename("panel.log"); //файл для записи логов
//авторизация
if(empty($_SESSION['usr'][$shopid])) {include($path."panel/auth/start.php");}
if(!isset($_SESSION['ulang'][$shopid])){include($path."panel/auth/lang.php");}
unset($af,$rmes,$pat,$out,$content,$omrd,$mpt,$act,$nact,$msr,$error,$script,$opr);
//определяем, является ли юзер админом
if(empty($dar)) $af=1;
else{
$qwe=$db->query("SELECT user
FROM perm_user_group
WHERE owner=".$shopid."
AND user=".$_SESSION['usr'][$shopid]."
AND `group`=2");
$af=($db->num_rows($qwe)<1) ? 0 : 1;
} //else if empty(dar)
//======================================================
if($_SESSION['umenu'][$shopid]==''){
//элементы навигации для группы
include_once($path."panel/admin/group/create/panels.php");
if(empty($af)){
reset($sma);
$max = 0;
while(list(,$ord)=each($sma)) if($max<$ord) $max=$ord;
$qwe=$db->query("SELECT LPAD(BIN(BIT_OR(pg.menu)),".$max.",'0')
FROM perm_groups pg,
perm_user_group pug
WHERE pg.owner=".$shopid."
AND pg.publish=1
AND pug.owner=".$shopid."
AND pug.user=".$_SESSION['usr'][$shopid]."
AND pug.`group`>0
AND pg.id=pug.`group`");
list($_SESSION['umenu'][$shopid])=$db->fetch_row($qwe);
} //if no admin
else $_SESSION['umenu'][$shopid] = str_repeat('1',$max);
} //if umenu[shopid]==''
//работа с фреймами
$frm = (!isset($_REQUEST['frame'])) ? 0 : intval($_REQUEST['frame']);
//работами с ссылками на фрейм
if(!empty($_REQUEST['fp'])){
$dfp = intval($_REQUEST['fp']);
$fdp = "&frame=".$dfp;
$fcp = "<input type=hidden name=frame value=".$dfp.">\n";
} //if !empty(fp)
else if(!empty($frm)){
$fdp = "&frame=".$frm;
$fcp = "<input type=hidden name=frame value=".$frm.">\n";
} //else if !empty(fp)
if(($_REQUEST['go']%2)!=1){ //если выводим страницу,а не сохраняем данные
$dsql = (in_array($_REQUEST['ac'],array(37,70,109,851,859,910,956))) ? " AND go=".intval($_REQUEST['go']) : "";
$qwe=$db->query("SELECT shablon,used,menu
FROM panel_shablon
WHERE id=".$_SESSION['psh'][$shopid]."
AND frame=".$frm.$dsql);
list($mcnt,$used,$mmm)=$db->fetch_row($qwe);
} //if empty(go)
LoadLang('panel','panel',$mn,$ps);
$db->SetPhpLocale();
$pms=array("content","title","menu","top_menu","css","script","onload","img",
"self","error","user","begin","operations","user_full","search","noframes");
$apm=array(0=>0, 1=>2, 2=>3, 3=>4, 4=>12, 5=>5, 6=>12, 7=>6, 8=>6, 9=>0, 10=>-1,
11=>12, 19=>12, 30=>12, 36=>12, 37=>12, 45=>12, 51=>12, 60=>1, 70=>3, 101=>2, 137=>12,
138=>10, 152=>5, 153=>5, 154=>5, 190=>1, 200=>8, 240=>9, 260=>10, 266=>12, 800=>13, 872=>14,
900=>15, 930=>16, 950=>17, 970=>18, 980=>19);
$ptr=array("{name}","{src}","{submenu}","{image}");
while(list($imd,$qnm)=each($pms)){
if($used[$imd]!="1" && $imd!=0) continue;
unset($data);
switch($imd){
case 1: //title
$data=$head;
break;
case 2: //menu
case 3: //top_menu
$tmn = ($imd==2) ? 0 : 1;
Досталась в наследство говноцмс. И все в таком духе, ресурс с посещаемостью в 3к в сутки.
цмс загнулась, слишком много наворотов))))
+149
public function addMessage($text, $type = 'Error') {
if (empty($type)) $type = 'Error';
$this->_messages[$type][] = $text;
return true;
}
−296.6
this._parent._parent.registerTip(this._parent._parent['area'+this._parent.txtTarget._name.charAt(3)], this.txt.text);
Где-то объявлена функция, которой в качестве одного из параметров надо передать ссылку на мувиклип, который валяется тоже непойми где, и имя которого неочевидным образом вычисляется из имени другого мувиклипа, до которого ещё тоже надо добраться...
+147.5
$MEET = isset($_GET['search_meet2']) ? ($_GET['search_meet2'] == 'Y') : 0; // пришли с поиска встречь
$MSEARCH = 1;
if ($MEET) unset($MSEARCH); else unset($MEET);
"Прозрачная" логика
+162.1
define('QUERY_CITY_UPD_CITY_NUMBERS',"replace into ".CONFOBJECT_DB_TABLE_CITY_NUMBERS." set users=#users#,anketas=#anketas#,oid=#oid#,region_id=#region_id#,country_id=#country_id#");
define('QUERY_CITY_PURGE_CITY_NUMBERS',"delete from ".CONFOBJECT_DB_TABLE_CITY_NUMBERS." where oid not in (#cities#)");
define('QUERY_CITY_DEL_CITY_NUMBERS',"DELETE FROM ".CONFOBJECT_DB_TABLE_CITY_NUMBERS." WHERE oid=#city_id# AND region_id=#region_id# AND country_id=#country_id#");
define('QUERY_CITY_GET_CITY_CODES','SELECT SQL_CALC_FOUND_ROWS * FROM '.CONFOBJECT_DB_TABLE_CITY_CODES.' WHERE country_id=#country_id# AND region_id=#region_id# AND city_id=#city_id# #add_where# ORDER BY operator_id, code LIMIT #offset#,#limit# ');
define('QUERY_CITY_INS_CITY_CODES','INSERT INTO '.CONFOBJECT_DB_TABLE_CITY_CODES.' (country_id,region_id,city_id,operator_id,fdigit,code) VALUES (#country_id#,#region_id#,#city_id#,#operator#,#fdigit#,"#code#")');
define('QUERY_CITY_SET_CITY_CODES','UPDATE '.CONFOBJECT_DB_TABLE_CITY_CODES.' SET operator_id=#operator#,fdigit=#fdigit#,code="#code#" WHERE id=#id#');
define('QUERY_CITY_DEL_CITY_CODES','DELETE FROM '.CONFOBJECT_DB_TABLE_CITY_CODES.' WHERE id IN (#id#)');
define('QUERY_CITY_DEL_CITY_CODES_MASS','DELETE FROM '.CONFOBJECT_DB_TABLE_CITY_CODES.' WHERE #operator# country_id=#country_id# AND region_id=#region_id# AND city_id=#city_id# #code#');
define('QUERY_CITY_DEL_CITY_CODES_OPERATOR','UPDATE '.CONFOBJECT_DB_TABLE_CITY_CODES.' SET operator_id=0 WHERE operator_id=#operator_id#');
define('QUERY_CITY_CHANGING_LOCATION','UPDATE '.CONFOBJECT_DB_TABLE_CITY.' SET #set_list# WHERE #where_list#');
define('QUERY_CITY_NUMBERS_CHANGING_LOCATION','UPDATE '.CONFOBJECT_DB_TABLE_CITY_NUMBERS.' SET #set_list# WHERE #where_list#');
и так 400 строк кода, где запросы к БД хранятся в константах