Список говнокодов пользователя kainwinterheart

Всего: 19

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

−165

1

our @hilight_critical_files = ( 'celebrities.txt', 'obscene.txt', 'lekarstva.txt' );

Глобальная переменная, неверно написанное английское слово, захардкоженные значения, транслит, транслит вперемешку с английскими словами<s>, и вообще perl</s>.

И всё это в одной короткой строке.

kainwinterheart, 08 Октября 2014

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

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

+160

1
2
3

this.isWait && result.push(campLinkCid);

result.push(this.isWait ? camp.bid : campLinkCid);

Нужно больше логики.

kainwinterheart, 23 Сентября 2014

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

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

−153

01
02
03
04
05
06
07
08
09
10

sub asd {
	
	print "WUT\n";
	
	return { 1 => 2 };
}

while( my ( $k, $v ) = each( %{ asd() } ) ) {
	
}

http://ideone.com/EvoMvV

kainwinterheart, 23 Июня 2014

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

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

−151

01
02
03
04
05
06
07
08
09
10

if( my $row = &dbselectrow( $sql ) )
        {
                if( $row -> { 'ofid' } == 9782 ) # moscow
                {
                        if( $row -> { 'jt' } =~ /Начальник /i )
                        {
                                &subscribe_to_management( $row -> { 'email' } );
                        }
                }
        }

Автоматическая подписка сотрудника руководящей должности на список рассылки для руководителей.

kainwinterheart, 13 Февраля 2014

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

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

−166

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
75
76
77
78
79

l.handler is null and
        s.serialn = l.serialn and
        n.serialn = s.serialn and
        k.kid = s.id and
        oc.id = k.cid and
        o.id = oc.orderid and
        c.id = d.country and
        d.id = (
     case

     when ( o.qr_dealer is not null ) then
      o.qr_dealer

     when ( s.pid = any( %s::int[] ) ) then
      ( case when (
       n.expires <= ( now() + '90 days'::interval )
      ) then (
       select
        c.dealer
       from
        table_name_hidden_1 c
       where
        s.serialn = any( c.serials ) and
        c.dealer is not null and
        c.status = any( %s::int[] )
       limit 1
      ) else null end )
     else
      (
       select
        d2.id
       from
        table_name_hidden_2 d2
       where
        d2.id = any( array[ s.dealer, o.for_partner ] ) and
        d2.active = true and
        (
         (
          d2.role = any( %s::int[] ) and
          (
           (
            exists((
             select
              1
             from
              table_name_hidden_3
             where
              table_name_hidden_3.dealer = d2.id
             limit 1
            ))
           ) or (
            o.for_partner is not null and
            d2.id = o.for_partner and
            exists((
             select
              1
             from
              table_name_hidden_2 d3
             where
              d3.id = s.dealer and
              d3.role = any( %s::int[] )
            ))
           )
          )
         ) or (
          d2.role = any( %s::int[] ) and
          (
           (
            o.for_partner is null
           ) or (
            o.for_partner = s.dealer
           )
          )
         )
        )
       limit 1
      )
     end
        )

Зато одним запросом.

kainwinterheart, 26 Декабря 2013

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

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

−158

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

sub get_number_from_possible_b64
{
        my $s = shift;

        my $rv = $s;

        if( $s =~ /^\d+$/ )
        {
                $rv = int( $s );

        } elsif( $s =~ /=$/ )
        {
                $rv = decode_base64( $rv );
        }

        return $rv;
}

Где-то есть что-то, что либо цифорка, либо строка, оканчивающаяся на знак равенства.

kainwinterheart, 27 Августа 2013

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

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

−139

1
2

>> # HTML/4.01 says that line breaks are represented as "CR LF" pairs (i.e., `%0D%0A')
>> $content =~ s/(?<!%0D)%0A/%0D%0A/g if defined($content);

HTTP::Request::Common 6.04, строка 86
http://cpansearch.perl.org/src/GAAS/HTTP-Message-6.04/lib/HTTP/Request/Common.pm

Оно просто берёт и изменяет передаваемый контент. Любой. В том числе просто бинарные данные.

kainwinterheart, 13 Августа 2013

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

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

−119

1
2

return { nocache => 1,
                 data => %{ &template_process() } -> { 'data' } };

Конечно же template_process возвращает HashRef сам по себе.

kainwinterheart, 13 Августа 2013

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

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

−145

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

sub is_home_license
{
        my $self = shift;

        my $rv = $self -> product() -> is_home_product();

        unless( $rv )
        {

                unless( $self -> product() -> is_nl_product() )
                {

                        if( ( int( $self -> licdata() -> { '1' } ) > 0 ) and ( int( $self -> licdata() -> { '1' } ) < 6 ) ) # 1 .. 5
                        {
                                $rv = 1;
                        }

                        unless( $self -> licdata() -> { '1' } )
                        {
                                if( $self -> licdata() -> { '8' } == 1 )
                                {
                                        $rv = 1;
                                }
                        }

                }
        }

        return $rv;
}

kainwinterheart, 30 Июля 2013

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

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

−149

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

sub is_demo_license
{
        my $self = shift;

        my $rv = 0;

        if( ( $self -> dealer() -> id() == 116 )
            and
            ( $self -> comments() =~ /^DEMO\s+STID/ ) )
        {
                $rv = 1;
        }

        return $rv;
}

kainwinterheart, 30 Июля 2013

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

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