По колено в коде — Говнокод.ру

SQL / Говнокод #5045

−188

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

UPDATE 
	phplist_user_user 
SET 
	email = (
		SELECT 
			Email 
		FROM 
			User, phplist_usersubscribers 
		WHERE 
			phplist_usersubscribers.userid = User.Id 
			AND 
			phplist_usersubscribers.subscribersid = phplist_user_user.id 
			AND 
			NOT (Email IS NULL) 
			LIMIT 1
			) 
	WHERE 
		NOT (
			(SELECT 
				id 
			FROM 
				phplist_usersubscribers 
			WHERE 
				phplist_usersubscribers.subscribersid = phplist_user_user.id 
			LIMIT 1
			) IS NULL
			)

Вот на такой код наткнулся в корпоративном фреймворке. Стоит ли говорить, что весь запрос был написан в одну строку.

maghamed, 24 Декабря 2010

Комментарии (29)

Pascal / Говнокод #5042

+97

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

var sum,x1,x2,y1,y2,i,k,l,m,n:longint;
a:array[1..1000,1..2] of longint;
b:array[1..100,1..100] of longint;

procedure ws(x,y,c:longint);
var k:longint;
begin
  if (not((x-2<1)or(y-1<1)or(x-2>n)or(y-1>N))and(b[x-2,y-1]=0)) then begin inc(m);a[m,1]:=x-2;a[m,2]:=y-1;b[x-2,y-1]:=b[x,y]+1;end;
  if (not((x+2<1)or(y-1<1)or(x+2>n)or(y-1>N))and(b[x+2,y-1]=0)) then begin inc(m);a[m,1]:=x+2;a[m,2]:=y-1;b[x+2,y-1]:=b[x,y]+1;end;
  if (not((x-1<1)or(y-2<1)or(x-1>n)or(y-2>N))and(b[x-1,y-2]=0)) then begin inc(m);a[m,1]:=x-1;a[m,2]:=y-2;b[x-1,y-2]:=b[x,y]+1;end;
  if (not((x+1<1)or(y-2<1)or(x+1>n)or(y-1>N))and(b[x+1,y-2]=0)) then begin inc(m);a[m,1]:=x+1;a[m,2]:=y-2;b[x+1,y-2]:=b[x,y]+1;end;
  if (not((x-2<1)or(y+1<1)or(x-2>n)or(y+1>N))and(b[x-2,y+1]=0)) then begin inc(m);a[m,1]:=x-2;a[m,2]:=y+1;b[x-2,y+1]:=b[x,y]+1;end;
  if (not((x+2<1)or(y+1<1)or(x+2>n)or(y+1>N))and(b[x+2,y+1]=0)) then begin inc(m);a[m,1]:=x+2;a[m,2]:=y+1;b[x+2,y+1]:=b[x,y]+1;end;
  if (not((x-1<1)or(y+2<1)or(x-1>n)or(y+2>N))and(b[x-1,y+2]=0)) then begin inc(m);a[m,1]:=x-1;a[m,2]:=y+2;b[x-1,y+2]:=b[x,y]+1;end;
  if (not((x+1<1)or(y+2<1)or(x+1>n)or(y+2>N))and(b[x+1,y+2]=0)) then begin inc(m);a[m,1]:=x+1;a[m,2]:=y+2;b[x+1,y+2]:=b[x,y]+1;end;
end;

begin
reset(input,'input.txt');
rewrite(output,'output.txt');
read(n);
read(x1,y1);
read(x2,y2);
b[1,1]:=0;
a[1,1]:=x1;a[1,2]:=y1;
i:=0;m:=1;l:=1;
while i<=m do begin inc(i);
  ws(a[i,1],a[i,2],i);
end;
write(b[x2,y2]);
close(input);
close(output);
end.

вот он, венец человеческого ума - рабочий поиск в ширину без использования рекурсии, написал сам, меня очень просили запостить тут))

faraon124, 24 Декабря 2010

Комментарии (9)

PHP / Говнокод #5041

+162

1
2
3
4

$e=mysql_fetch_assoc(mysql_query(" select * from conf_news where razdel='{$_GET["kind"]}' AND pub='yes' order by `date` desc limit 1 ")) ;
$max_year=substr($e["date"],0,4);
$e=mysql_fetch_assoc(mysql_query(" select * from conf_news where razdel='{$_GET["kind"]}' AND pub='yes' order by `date` limit 1 ")) ;
$min_year=substr($e["date"],0,4);

Как определить минимальную и максимальную дату в списке новостей? А вот как!
Да, кстати, $_GET нигде не проверяется на SQL-инъекцию.

(с) разработка под названием "CMS9"

may_cat, 24 Декабря 2010

Комментарии (18)

PHP / Говнокод #5040

+168

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

function getAlphabetList($list = null)
{   
    $alphabet = split(' ', 'A B C D E F G H I J K L M N O P Q R S T U V W X Y Z');

    foreach($alphabet as $letter)
    {
        $has_letter = false;
        if(is_array($list))
        {
            foreach ($list as $value) 
            {
                    if(substr(strtoupper($value),0,1) == strpos($letter,$value,1))
                    {
                        $has_letter = true;
                    }                   
            }
        }
        
        if($has_letter)
        {               
            $output .= '<a href="?letter='.$letter.'">'.$letter.'</a> ';
        } else {
            $output .= $letter.' ';
        }
    }
    return $output;
}

Шерстим список записей, определяем, на какие буквы они начинаются, и для имеющихся букв генерируем гиперссылки. Мужика попросили разобраться, почему каталог на 126000 записей тормозит при отображении, и он увидел в коде это.
http://thedailywtf.com/Articles/Thorough-Letter-Checking.aspx

telnet, 24 Декабря 2010

Комментарии (34)

PHP / Говнокод #5039

+144

01
02
03
04
05
06
07
08
09
10
11

<?php

error_reporting(E_ALL);
if (isset($_GET["src"])) {
if (stripos($_GET["src"], "http://") !== false || stripos($_GET["src"], "https://") !== false) { 
die("Анонимус, пошёл на /*
вырезано
*/
if($ext == "jpg" or $ext == "jpeg"){
    $img = imagecreatefromjpeg($src);
}

защита от инклудов по HTTP от нашего любимого анального клоуна lstem aka komprenda

Анонимус, 24 Декабря 2010

Комментарии (8)

PHP / Говнокод #5038

+145

1
2
3
4
5

case "exit":
            unset($_SESSION["SITE_ADMIN"]);
            header("location: {$_SERVER["PHP_SELF"]}");
            die;
        break;

выход "по-мишустински"
не знаю как вам, а я словил лулзы

цопырайты уходят komprenda, он же "Istem"

Lure Of Chaos, 24 Декабря 2010

Комментарии (1)

Pascal / Говнокод #5037

+92

1
2

Result := not FExecuting;
if not Result then Exit;

сейчас работаю над правкой компонента доставшегося от другого разработчика :), причем эта вершина мысли была обнаружена в недрах левого компонента, используемого моим компонентом :) ,который использовал этот разработчик :), Сам код соправождаемого мною компонента не далеко по стилю ушел от этого куска

ageron, 23 Декабря 2010

Комментарии (40)

Java / Говнокод #5036

+73

01
02
03
04
05
06
07
08
09
10
11
12

public abstract class EntityCRUDManager<DataObject extends Serializable, DataKey extends Serializable, Filter, DaoObject extends GenericDao<DataObject, DataKey>>
		extends EntityManager<DaoObject> implements CRUDManager<DataObject, DataKey, Filter> {
...
}

public interface CRUDManager<DataObject extends Serializable, DataKey extends Serializable, Filter>{
...
}

public abstract class EntityManager<DaoObject extends GenericDao> extends Manager{
...
}

Во как!!!

KILA, 23 Декабря 2010

Комментарии (2)

Говнокод: по колено в коде.