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

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

−861

01
02
03
04
05
06
07
08
09
10

CREATE FUNCTION "insert_payment" (integer) RETURNS integer AS '                                                                                                                     
DECLARE                                                                                                                                                                             
        l_payment       integer;                                                                                                                                                    
BEGIN                                                                                                                                                                               
        INSERT INTO payments (client,type_,pdate,number_)                                                                                                                           
        VALUES ($1,4,current_date,nextval_(''payments_number_1_seq''));                                                                                                             
                                                                                                                                                                                    
        SELECT INTO l_payment last_value FROM payments_id_seq;                                                                                                                      
        RETURN l_payment;                                                                                                                                                           
END;' LANGUAGE 'plpgsql';

Функция должна вставлять платеж и возвращать его id.
Под нагрузкой конечно же 8 строка возвращает нен тот id. (когда несколько параллельных транзакций успевают сделать вставку.)
Что интересно - возвращаемый функцией id используется другой хранимкой для проставления суммы платежа. И это пости всегда работает :)
Перл от "отцов основателей".

SanityIO, 12 Января 2011

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

C# / Говнокод #5234

+116

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19

public RabotaJurnal(string ceh, string kod, string nameN, string nameM, string nameP, string shet, string tip, string statya, string obj, string nomen, string edIzm, double normaTime, double normaVir, double rascenka, DateTime dateFrom, DateTime dateTo)
{
               Ceh = ceh;
               Kod = kod;
               NameN = nameN;
               NameM = nameM;
               NameP = nameP;
               Shet = shet;
               Tip = tip;
               Statya = statya;
               Obj = obj;
               Nomen = nomen;
               EdIzm = edIzm;
               NormaTime = normaTime;
               NormaVir = normaVir;
               Rascenka = rascenka;
               DateFrom = dateFrom;
               DateTo = dateTo;
}

Конструктор =)

Guid, 12 Января 2011

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

Perl / Говнокод #5233

−119

1
2
3
4
5
6
7

$max_conn = 150;
# ...

socket(SERVER, PF_INET, SOCK_STREAM, getprotobyname('tcp') )  || LOG_FLUSH && die "socket: $!";
setsockopt(SERVER, SOL_SOCKET, SO_REUSEADDR, 1)   || LOG_FLUSH && die "setsockopt: $!";
bind(SERVER, sockaddr_in($port, inet_aton($interface))) ||  LOG_FLUSH && die "bind: $!";
listen(SERVER,$max_conn) || LOG_FLUSH && die "listen: $!";

Перл от создателя. $max_conn - это якобы должно быть максимальное число дочерних процессов (причем количество child процессов не проверяется). хотя все знаю что должно передаваться как аргумент backlog :)

SanityIO, 12 Января 2011

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

JavaScript / Говнокод #5232

+159

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

function calls() {                                                                                                                                                                  
        //document.frm_param.form.value="client_calls";
        //document.frm_param.title_.value="Работа с клиентом | Звонки";
        s_url="$bill_cgi$?form=calls"+
                "&date_begin=01.01.1990"+
                "&date_end=01.01.2010"+
                "&call_type=100"+
                "&phone="+
                "&to_phone="+
                "&client=$client$"+
                "&town_code="+
                "&direction="+
                "&zone="+
                "&order_by=date_"+
                "&order_by2="+
                "&group_by="+
                "&calls_recalc="+
                "&calls_print=1";

        window.top.location=s_url;

}

(c) Руслан Залата

SanityIO, 12 Января 2011

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

Perl / Говнокод #5231

−116

1
2
3
4

$answer=~ s/\\/\\\\/g;                                                                                                                                                      
$answer=~ s/\'/\\\'/g;
# ...
$dbh->do("INSERT INTO docflow_rules (type_,state1,state2,p,entity,subj_require,comm_require) VALUES ($doctype,$from_,$to_,'$answer',$entity,$subj_r,$comm_r)");

Еще от неизменного автора.

SanityIO, 12 Января 2011

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

Perl / Говнокод #5230

−118

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74

if(
    ( $session_begin ge $tariff_ref->{date} ) &&
    ( !$tariff_ref->{date_end} || $session_begin le $tariff_ref->{date_end} ) &&
    ( !$tariff_ref->{nas_id} || $tariff_ref->{nas_id} eq $nas_id) &&
    ( !$tariff_ref->{ppp_type} || $tariff_ref->{ppp_type} eq $ppp_type) &&
    ( $notariffzone || !$tariff_ref->{tariff_zone} ||
                    $tariff_ref->{tariff_zone} eq $tariff_zone) &&
    ( !$tariff_ref->{client_type} || $tariff_ref->{client_type} eq $client_type) &&
    ( !$tariff_ref->{day_type} || $tariff_ref->{day_type} eq
                    &common::type_of_day($oper_id,$session_begin) ) &&

    (
            (!$divide_by_time_zone &&
                    (!$tariff_ref->{time_from} || !$tariff_ref->{time_to}  ||
                            &common::check_time_zone(
                            $session_begin,
                            $tariff_ref->{time_from},
                            $tariff_ref->{time_to}
                            )
                    )
            ) ||
            ($divide_by_time_zone &&
                    (!$tariff_ref->{time_from} || !$tariff_ref->{time_to}  ||

                            &common::check_time_zone(
                            $session_begin,
                            $tariff_ref->{time_from},
                            $tariff_ref->{time_to}
                            ) ||

                            &common::check_time_zone(
                            $session_end,
                            $tariff_ref->{time_from},
                            $tariff_ref->{time_to}
                            ) ||

                            &common::check_time_zone(
                            $tariff_ref->{time_from},
                            common::get_time_from_str($session_begin),
                            common::get_time_from_str($session_end),
                            )
                    )


                )
    ) &&

    (
            (!$divide_by_counter &&
                    (!defined($tariff_ref->{counter1_from}) || !defined($tariff_ref->{counter1_to})

                            || ($tariff_ref->{counter1_from} <= $resource_begin &&
                            $resource_begin < $tariff_ref->{counter1_to} )
                    )
            ) ||
            ($divide_by_counter &&
                        (!defined($tariff_ref->{counter1_from}) || !defined($tariff_ref->{counter1_to})
                            || ($tariff_ref->{counter1_from} <= $resource_begin &&
                            $resource_begin < $tariff_ref->{counter1_to} )

                            || ($tariff_ref->{counter1_from} <= $resource_end  &&
                            $resource_end < $tariff_ref->{counter1_to} )

                            || ($resource_begin <= $tariff_ref->{counter1_from} &&
                            $tariff_ref->{counter1_from} < $resource_end)
                    )

            )


    )


) {

Один if от создателя :) Еще (с) Руслан Залата

SanityIO, 12 Января 2011

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

Perl / Говнокод #5229

−179

1
2
3
4
5
6

if (! $where_oper_id ) {                                                                                                                                                            
        $where_oper_id = " base_clients.oper_id = 'THERE IS NO FUCKING PROVIDERS DEFINED FOR THIS OPERATOR' " ;                                                                     
        $where_service_oper_id = " oper_id = 'THERE IS NO FUCKING PROVIDERS DEFINED FOR THIS OPERATOR' " ;                                                                          
}                                                                                                                                                                                   
                                                                                                                                                                                    
$where_oper_id = " ( $where_oper_id ) ";

Еще от творца.

SanityIO, 12 Января 2011

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

Perl / Говнокод #5228

−81

1
2
3

$search =~ s/[\ \%\*\[\]\^\$\']+/\%/g; # '                                                                                                                                          
my $search_str = '%' . $search . '%';                                                                                                                                               
$search_str =~ s/\%+/\%/g;

эскейп стринга для БД (с) Руслан Залата

SanityIO, 12 Января 2011

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

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

+97

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

if MethodName = AnsiUpperCase('Зробити_все_чудово_пречудово') then
  begin
    Screen.Cursor := crHourGlass;
    try
      for LowIndex := 0 to 200 do
      begin
        Application.ProcessMessages;
        Sleep(10);
      end;
      ShowInfo('Тепер все чудово-пречудово.'#13#10'Посміхніться!');
    finally
      Screen.Cursor := crDefault;
    end;
  end

Внутренний скрипотвый язык

stokito, 12 Января 2011

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

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

+101

1
2
3
4
5
6
7
8
9

procedure TwndMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
  s: string;
begin
  s := UpperCase(GetCompName);
  CanClose :=
    ((Pos('VADIM', s) <> 0) and (DM.DefDBID = 0)) or
    (ShowConfirmation('Ви дійсно бажаєте вийти з програми?') = mrYes);
end;

Программиста Вадима реально задолбало это сообщение :)

stokito, 12 Января 2011

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

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

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

C# / Говнокод #5234

Perl / Говнокод #5233

JavaScript / Говнокод #5232

Perl / Говнокод #5231

Perl / Говнокод #5230

Perl / Говнокод #5229

Perl / Говнокод #5228

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

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