- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
function &_extract(&$array, $path) {
$element = &$array;
while(count($path)) {
$key = array_shift($path);
$element = &$element[$key];
}
return $element;
}
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+158
function &_extract(&$array, $path) {
$element = &$array;
while(count($path)) {
$key = array_shift($path);
$element = &$element[$key];
}
return $element;
}
+96
procedure TForm1.RegHttpRedirect(Sender: TObject; var dest: String;
var NumRedirect: Integer; var Handled: Boolean;
var VMethod: TIdHTTPMethod);
begin
Log('Redirect № ' + IntToStr(NumRedirect)+ ' - '+ Dest , true, MainClr);
end;
procedure TForm1.HTTPCoreStatus(ASender: TObject; const AStatus: TIdStatus;
const AStatusText: String);
begin
Log('Статус: '+ AStatusText, true, MainClr);
end;
{procedure TForm1.RegHttpW0rk(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
end;}
лошарский код
+147
if ($result and mysql_num_rows($result) > 0) {
/*здесь код*/
}
бля..... ну это же php...
+85
// ComPort1: TComPort; компонент для работы RS-232
type
Tst5=string[5];
var
Form1: TForm1;
lastcnl:byte;
CommonShiftTT:integer;
roundtt:integer;
Start_Proces:boolean;
intN,intdg0,intdg50:integer;
cerr,cerr0,cerr50:integer;
intdg:integer;
cnl:integer;
b:array [1..5]of byte;
s,sdg50,sdg0,ss:Tst5;
tt,realdg:real;
implementation
{$R *.dfm}
procedure TForm1.ComPort1RxBuf(Sender: TObject; const Buffer;
Count: Integer);
var
i:integer;
p:pointer;
begin
for i:=1 to 5 do b[i]:=0;
ListBox1.Items.clear;
if ComPort1.Connected then begin
p:=@Buffer;
b[1]:=byte(p^);
end
else begin
exit;
end;
cnl:=b[1];
if cnl=0 then begin
Start_Proces:=true;
end;
ListBox1.Items.Add(inttostr(cnl));
if Start_Proces=true then begin
b[2]:=Byte(pointer(longint(p)+1)^);
b[3]:=Byte(pointer(longint(p)+2)^);
b[4]:=Byte(pointer(longint(p)+3)^);
b[5]:=Byte(pointer(longint(p)+4)^);
if (b[2] and $20)>0 then ss[1]:='+' else ss[1]:='-';
if (b[2] and $40)>0 then ss[2]:='0' else ss[2]:='1';
FOR i:=3 TO 5 DO begin
case b[i] of
$82:ss[i]:='0';
$CF:ss[i]:='1';
$A4:ss[i]:='2';
$85:ss[i]:='3';
$C9:ss[i]:='4';
$91:ss[i]:='5';
$90:ss[i]:='6';
$C7:ss[i]:='7';
{min}$80:ss[i]:='8';
$81:ss[i]:='9';
$FF:ss[i]:='x'
else ss[i]:=chr(b[i]);
end;
ss[0]:=#5;
case cnl of
0:begin
vaL(ss,intdg0,cerr0);
stR(intdg0,sdg0);
Label1.Caption:=inttostr(intdg0);
end;
1:begin
vaL(ss,intdg50,cerr50);
stR(intdg50,sdg50);
Label2.Caption:=inttostr(intdg50);
end;
2..26:begin
vaL(ss,intN,cerr);
intN:=intN-intdg0+CommonShiftTT;
realdg:=intN/((intdg50-intdg0)/500);{real type}
intdg:=SMALLINT(round(realdg));{integer type}
tt:=intdg/10;
roundtt:=SMALLINT(round(tt));{integer}
stR(roundtt:5,s);
end;
end;
end;
ListBox1.Items.Add('float='+floattostr(tt));
ListBox1.Items.Add(inttostr(cnl)+'='+ss+' = '+inttostr(roundtt));
end;
end;
Процедура приема и обработки Кодов АЦП с контроллера. Контроллер обрабатывает данные полученные с температурных (аналоговых) датчиков и передает на COM в цифровом виде.
Сделано для АКГУП Индустриальный г. Барнаул
+157
if(!$model->sourse->access->firstname == 1)
$model->sourse->access->firstname - либо 0, либо 1... Нужно просто иногда высыпаться :(
+159
<?php
//////////
static function AddKeyDis($meta_key,$meta_dis=null){
if(is_array($meta_key)){
return self::$result=array("meta_key"=>$meta_key['meta_key'],"meta_dis"=>$meta_key['meta_dis']);
}elseif($meta_dis!==null){
return self::$result=array("meta_key"=>$meta_key,"meta_dis"=>$meta_dis);
}
return null;
}
//////////
?>
эх =)
+160
if ($this->Session->check('_userJustRegistered')) {
switch (($tmpJR = $this->Session->read('_userJustRegistered'))) {
case 'confirmed':
$this->Session->delete('_userJustRegistered');
break;
case 'not_confirmed_first':
$this->Session->write('_userJustRegistered', 'not_confirmed');
break;
}
}
Кусочек многоступенчатой системы по определению статуса юзера.
+180
...
#define EXT12 //Не комментировать эту директиву. Иначе не работает.
...
#define EXT34 //Эта директива почти не используется. Может перерефакторим без неё?
//Ну убирай.
//Давай ты.
//Там есть пару мест, где она используется. Поэтому я не хочу.
//Но ведь нужно. Эти директивы можно заменить на полиморфизм классов.
//Ну займись. Я не хочу. Вдруг сломается.
...
У нас 2 человека работают над одной веткой проекта на С++. Люди работают в отделах на разных этажах (один на этаж выше другого). Им лень сходить друг к другу или поговорить по жаберу. Я уже как полгода наблюдаю за картиной: они переговариваются через комментарии в коде через систему контроля версий. Я не против переговоров в системе контроля версий, но они уже месяц осбуждают EXT34, а так ничего с ним и не сделали. Хоть бы комментарии удалили, если делать ничего не собираюются. Может с них 0.125 премии снять?
Как-нибудь ещё переговоры повеселее выложу.
+163
function IndexDownloadsAddVote()
{
global $db, $config, $site, $user;
$ip = getip();
$file = SafeEnv($_GET['file'], 11, int); // ид файла
$cat = SafeEnv($_GET['cat'], 11, int); // категория
$vote = SafeEnv($_POST['vote'], 1, int); // голос
$site->OtherMeta .= '<meta http-equiv="REFRESH" content="2; URL=index.php?name=downloads&op=full&cat='.$cat.'&file='.$file.'">';
$where = "`id`='$file' and `active`='1'"; // where для downloads
$ex_where = GetWhereByAccess('view'); // видимость
if($ex_where != ''){
$where .= ' and ('.$ex_where.')';
}
$db->Select('downloads', $where); // ищем файл
if($db->NumRows() > 0){ // существует ли файл
$dfile = $db->FetchRow(); // пищем файл в переменную
if($dfile['allow_votes']=='1'){ // оценки разрешены
if($user->Auth) {
$where = "`user_id` = '".$user->Get('u_id')."'";
} else {
$where = "`ip` = '".$ip."'";
}
$db->Select('downloads_rating', $where); // Делаем запрос
if($vote==0){
$site->AddTextBox('','<center>Вы не выбрали оценку.<br /><br /><a href="javascript:history.go(-1)">Назад</a></center>');
} else {
$user->ChargePoints($config['points']['download_rating']);
$time = time();
if($db->NumRows()>0) {
$db->Update('downloads_rating', "`vote` = '$vote'", "(`user_id` = '".($user->Auth ? $user->Get('u_id') : 0)."' or `ip` = '$ip') and `downid` = '$file'");
$numvotes = SafeDB($dfile['votes_amount'],11,int);
} else {
$db->Insert('downloads_rating',"'','$file','$ip','$time','$vote','".($user->Auth ? $user->Get('u_id') : 0)."'");
$numvotes = SafeDB($dfile['votes_amount'],11,int)+1;
}
$vote = SafeDB($dfile['votes'],11,int)+$vote;
$db->Update('downloads',"votes_amount='$numvotes',votes='$vote'","`id`='$file'");
$site->AddTextBox('','<center>Спасибо за вашу оценку.<br><br><a href="javascript:history.go(-1)">Назад</a></center>');
}
}else{
//Оценка запрещена
$site->AddTextBox('','<center>Извините, оценка этого файла запрещена.<br><br><a href="javascript:history.go(-1)">Назад</a></center>');
}
}else{
//Файл не существует
$site->AddTextBox('','<center>Произошла ошибка. Файл, который вы пытаетесь оценить, не найден в нашем файловом архиве. Возможно он был удален.<br><br><a href="javascript:history.go(-1)">Назад</a></center>');
}
}
Функция оценки файла из русской CMS
+164
if ((AnalysisType == 0) || (!m_UseExtraInfo)) {
o1 = o2 = -1;
do {
fseek(F, o1, SEEK_END); Buf[0] = fgetc(F);
if ((Buf[0] == 0xFF) || ((Buf[0] == 0x7F) && (AnalysisType == 0))) {
o2 = o1; o1--; FFcnt = 1;
do {
fseek(F, o1, SEEK_END); Buf[0] = fgetc(F);
if ((Buf[0] == 0xFF) || ((Buf[0] == 0x7F) && (AnalysisType == 0)))
FFcnt++;
o1--;
}
while ((Buf[0] == 0xFF) || ((Buf[0] == 0x7F) && (AnalysisType == 0)));
if ((FFcnt == 71) || (FFcnt == 73)) PosTavern = o2;
if ((PosCheater == -1) && (FFcnt > 50)) {
PosCheater = o2; fseek(F, o2, SEEK_END);
do {
Buf[0] = fgetc(F);
if (Buf[0] != 0x00) PosCheater++;
}
while (Buf[0] != 0x00);
}
}
else o1--;
}
while ((o1 > -sz) &&
(((AnalysisType == 1) && (PosTavern == -1)) ||
((AnalysisType == 0) && (PosCheater == -1))));
}
else {
o1 = o2 = -200;
oFFcnt = -1;
do {
fseek(F, o1, SEEK_END);
Buf[0] = fgetc(F); Buf[1] = fgetc(F);
if ((Buf[0] == HL) && (Buf[1] == HR)) {
o2 = o1 + 86;
FFcnt = 0;
do {
fseek(F, o2, SEEK_END);
Buf[0] = fgetc(F);
if (Buf[0] == 0xFF) {
FFcnt++; o2--;
}
}
while (Buf[0] == 0xFF);
if ((oFFcnt == -1) || (abs(72 - FFcnt) < abs(72 - oFFcnt))) {
PosTavern = o1; oFFcnt = FFcnt;
}
}
o1--;
}
while (o1 > -sz);
if (PosTavern != -1)
PosTavern = PosTavern + 86 + 0x91 * (7 - PN);
if (m_ChangeHeroes && ((HL_new >= 0) || (HR_new >= 0))) {
o1 = o2 = -1;
do {
fseek(F, o1, SEEK_END); Buf[0] = fgetc(F);
if ((Buf[0] == 0xFF) || (Buf[0] == 0x7F)) {
o2 = o1; o1--; FFcnt = 1;
do {
fseek(F, o1, SEEK_END); Buf[0] = fgetc(F);
if ((Buf[0] == 0xFF) || (Buf[0] == 0x7F)) FFcnt++;
o1--;
}
while ((Buf[0] == 0xFF) || (Buf[0] == 0x7F));
if (FFcnt > 50) {
PosCheater = o2; fseek(F, o2, SEEK_END);
do {
Buf[0] = fgetc(F);
if (Buf[0] != 0x00) PosCheater++;
}
while (Buf[0] != 0x00);
}
}
else o1--;
}
while ((o1 > -sz) && (PosCheater == -1));
}
}
Кустарно-мистический анализатор сейвов для Героев 3.
Так я писал пять с половиной лет назад...