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

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

−113.6

1
2
3
4

sub append {
    my $appendstring = @_[0];
    $returnstring = "$returnstring$appendstring";
}

Из плагина к nagios'у, который проверяет состояние интерфейсов на cisco-девайсах. http://svn.opsview.org/opsview/trunk/opsview-core/nagios-plugins/check_snmp_cisco_ifstatus .

aag, 20 Января 2010

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

Куча / Говнокод #2456

+156

1
2
3
4
5

Как корабль назовешь, как говорится...
Кто сможет объяснить, почему пользователь sbb (т.е. я) на говнокоде присутствует 2 раза?

http://www.govnokod.ru/user/92
http://www.govnokod.ru/user/91

sbb, 20 Января 2010

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

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

+170.7

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

$ssil=$count/10;

$ssil1=round($ssil);

if ($ssil==$ssil1)
{
$ssil=$ssil;
}
else
{
$ssil=$ssil+1;
}

Да какое уж тут описание...

dmitry, 19 Января 2010

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

Куча / Говнокод #2454

+141.8

01
02
03
04
05
06
07
08
09
10
11

proc redraw_level {level val} {
    global lnames countries towns provinces sublocations positions

    set parent [expr $level - 1]
    set pvalue [.f$parent.l get [lindex $positions $parent]]
    set curlist [lindex $lnames $level]($pvalue)
    if {$val!=""} {lappend $curlist $val}
    .f$level.l delete 2 end
    eval set list_vals $$curlist
    eval .f$level.l insert end $list_vals
}

Поскольку начал писать на TCL пару дней назад, ну просто не знаю, как изящно сделать. Опять на DCL смахивает...

nil, 19 Января 2010

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

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

+103.8

1
2
3
4

TblCashBook.First();
    while not TblCashBook.Eof do begin
      if not (TblCashBook.FieldByName('Date').AsDateTime <=
          ReportDate) then Continue;

GovnocoderJr, 19 Января 2010

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

C++ / Говнокод #2452

+67.9

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

char blt=0;
void WriteBit(bool bit)
{
	if(BitCount<9)
	{
		if(bit){blt|=(1<<BitCount);BitCount++;}
		if(!bit){blt&=~(1<<BitCount);BitCount++;}	

	}
	else
	{
		out_file<<blt;
		BitCount=0;
		blt=0;
	}
}

че-то типа запись в байт битов))

fekrado, 19 Января 2010

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

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

−861.2

1
2
3
4
5
6
7
8
9

SELECT * FROM obj WHERE telephon LIKE '***' AND off = 0;

SELECT obj.* FROM 
obj 
INNER JOIN obj2ls ON obj.ObjID = obj2ls.ObjKod AND obj2ls.Bdate <= CURDATE() AND obj2ls.Edate >= CURDATE() AND obj2ls.off = 0 
INNER JOIN ls ON obj2ls.LsKod = ls.lsid AND ls.off = 0
INNER JOIN ls2contr ON ls.lsid = ls2contr.lskod AND ls2contr.bdate <= CURDATE() AND ls2contr.edate >= CURDATE() AND ls2contr.off = 0
INNER JOIN contr ON ls2contr.contrkod = contr.contrid AND contr.off = 0
WHERE obj.telephon LIKE '***' AND obj.off = 0 AND contr.contr_type = 2;

О плохом проектировании базы данных.
Был простой запрос, к нему добавили проверку 1го(!) доп. условия.
Еще умиляют JOINы в духе *Kod = *Id.

Mihard, 19 Января 2010

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

C++ / Говнокод #2450

+52.6

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

#include <iostream.h>
#include <conio.h>
using namespace std;

int main (int argc, char *argv[])
{
 
  system ("Title Kaлькyлятop");

  int x, y, otvet;
  char znak;
 
  cin >> x >> znak >> y;
    
  if (znak == '+') otvet = x+y;
  if (znak == '-') otvet = x-y;
  if (znak == '*') otvet = x*y;
  if (znak == '/') otvet = x/y;

  system ("cls");

  cout << x << znak << y << "=" << otvet;

  getch();
  return 0;
}

Kaлькyлятop

men, 19 Января 2010

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

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

+175.6

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

<?php
if (isset ($_POST['OOO'])) {$OOO = $_POST['OOO'];}
if (isset ($_POST['OAO'])) {$OAO = $_POST['OAO'];}
if (isset ($_POST['ZAO'])) {$ZAO = $_POST['ZAO'];}
if (isset ($_POST['nazvanierus'])) {$nazvanierus = $_POST['nazvanierus'];}
if (isset ($_POST['name'])) {$name = $_POST['name'];}
if (isset ($_POST['email'])) {$email = $_POST['email'];}
if (isset ($_POST['nazvanieeng'])) {$nazvanieeng = $_POST['nazvanieeng'];}
if (isset ($_POST['juradres'])) {$juradres = $_POST['juradres'];}
if (isset ($_POST['kapital'])) {$kapital = $_POST['kapital'];}
if (isset ($_POST['denvznos'])) {$denvznos = $_POST['denvznos'];}
if (isset ($_POST['imushvznos'])) {$imushvznos = $_POST['imushvznos'];}
if (isset ($_POST['obich'])) {$obich = $_POST['obich'];}
if (isset ($_POST['usn6'])) {$usn6 = $_POST['usn6'];}
if (isset ($_POST['usn15'])) {$usn15 = $_POST['usn15'];}
if (isset ($_POST['direktor'])) {$direktor = $_POST['direktor'];}
if (isset ($_POST['gendirektor'])) {$gendirektor = $_POST['gendirektor'];}
if (isset ($_POST['izuchr'])) {$izuchr = $_POST['izuchr'];}
if (isset ($_POST['novoelico'])) {$novoelico = $_POST['novoelico'];}
if (isset ($_POST['novoelico1'])) {$novoelico1 = $_POST['novoelico1'];}
if (isset ($_POST['izuchrbuh'])) {$izuchrbuh = $_POST['izuchrbuh'];}
if (isset ($_POST['novoelicobuh'])) {$novoelicobuh = $_POST['novoelicobuh'];}
if (isset ($_POST['buh'])) {$buh = $_POST['buh'];}
if (isset ($_POST['zaiavitel'])) {$zaiavitel = $_POST['zaiavitel'];}
if (isset ($_POST['deiat'])) {$deiat = $_POST['deiat'];}
if (isset ($_POST['inet'])) {$inet = $_POST['inet'];}
if (isset ($_POST['press'])) {$press = $_POST['press'];}
if (isset ($_POST['rekomend'])) {$rekomend = $_POST['rekomend'];}
if (isset ($_POST['inoe'])) {$inoe = $_POST['inoe'];}
if (isset ($_POST['koment'])) {$koment = $_POST['koment'];}
if (isset ($_POST['name'])) {$name = $_POST['name'];}
if (isset ($_POST['vashtel'])) {$vashtel = $_POST['vashtel'];}
if (isset ($_POST['Submit'])) {$Submit = $_POST['Submit'];}
$address = '[email protected]';
$sub = "Сообщение с моего сайта от посетителя по имени". $name."Его адрес". $email;
$mes = "Текст: $nazvanierus \n Указал свой адрес: $email \n Содержание письма: $message \n Русское название: $nazvanierus \n Англиское название: $nazvanieeng \n Юридический адрес: $juradres \n Уставной капитал: $kapital \n Денежный взнос: $denvznos \n Имущественный взнос: $imushvznos \n Обычное налогообложение: $obich \n УСН 6%: $usn6 \n УСН 15%: $usn15 \n Директор: $direktor \n Генеральный директор: $gendirektor \n Из учредителей: $izuchr \n Новое лицо: $novoelico \n Бух из учредителей: $izuchrbuh \n  Бух новое лицо: $novoelicobuh \n Бухгалтер: $buh \n Заявитель: $zaiavitel \n Деятельность: $deiat \n Из интернета: $inet \n Из прессы: $press \n По рекомендации: $rekomend \n Иное: $inoe \n Коментарий: $koment \n Имя: $name \n Телефон для связи: $vashtel \n";
$verify = mail ($address,$sub,$mes,"Content-type:text/plain; 
charset = windows-1251\r\nFrom:$email"); 
If ($verify ='true') {echo "Всё отлично, ваше сообщение отправлено!";}
Else {echo "Из-за сбоев сообщение не может быть доставлено";}
?>

atarix12, 19 Января 2010

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

VisualBasic / Говнокод #2448

−124.3

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

'...
        Dim l0 As New List(Of Integer)
        Dim num = Convert.ToInt32(Console.ReadLine)
        For i = 1 To num Step 1
            Dim nn, nm As Double
            nn = num / i
            nm = Convert.ToInt32(num / i)
            If nn = nm Then
                l0.Add(i)
            End If
        Next
        If l0.Count = 2 Then
            Console.WriteLine("Number {0} is simply.", num)
        Else
            Console.WriteLine("Number {0} is not simply.", num)
        End If
        Console.ReadKey()
'...

Эх, детство, детство... Когда-то нужно было написать программу проверки числа на простоту.

psina-from-ua, 19 Января 2010

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

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