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

Всего: 11

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

−180

01
02
03
04
05
06
07
08
09
10
11

my $success=0;
my $error=0;

...        

my $result_mail=MailUtils::attach_mail(-to=>$share_email,-message=>$message,-subject=>'Новый рецепт',-src_enc => $Cfg::encoding,-attach=>\@att) or die 'no';
unlink($file) if $result_mail;
$error=1 if !$result_mail;

$success=1 if $error==0;
print CGI::redirect($Cfg::url{root}."/woman/recipes/share/?success=$success&error=$error");

Используем две переменных для статуса, видимо, для надёжности

Suor, 01 Сентября 2011

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

Python / Говнокод #7281

−91

1
2
3

def _format_price(price):
    price = '%.3f' % (float(price)/1000) if price > 999 else '%d' % price
    return price.replace('.', ' ')

Suor, 19 Июля 2011

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

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

−119

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

sub getMessages{
local($mop,$pg,$all)=@_;

if(!&db_query("select insurance_faq_main.id,date_format(insurance_faq_main.date,'%d.%m.%Y'),insurance_faq_main.name,insurance_faq_main.email,insurance_faq_main.www,insurance_faq_main.city,insurance_faq_main.message,insurance_faq_main.ip,answer from insurance_faq_main, insurance_faq_ans where insurance_faq_ans.idm=insurance_faq_main.id order by id desc limit ".$pg*$mop.",$mop")) {$body .= $db_message; return -1}

$id;
@date;
@name;
@email;
@www;
@city;
@msg;
@ip;
@answer;

for(local $i=0;defined($rows->[$i]);$i++)
    {
    $id[$i]=$rows->[$i]->[0];
    $date[$i]=$rows->[$i]->[1];
    $name[$i]=$rows->[$i]->[2];
    $email[$i]=$rows->[$i]->[3];
    $www[$i]=$rows->[$i]->[4];
    $city[$i]=$rows->[$i]->[5];
    $msg[$i]=$rows->[$i]->[6];
    $ip[$i]=$rows->[$i]->[7];
    $answer[$i]=$rows->[$i]->[8];
    }
return $i;
}

Мужской способ возвращать результаты из функции

Suor, 26 Апреля 2010

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

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

+66.2

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

<!-- Подготавливаем счётчик для цикла -->
<xsl:variable name="i-tree">
        <i/><i/><i/><i/><i/><i/>
    <i/><i/>    <i/><i/>    <i/><i/>
        <i/><i/><i/>    <i/><i/><i/> <i/>
        <i/><i/><i/><i/><i/><i/><i/>
        <i/>                  <i/>
        <i/><i/><i/><i/><i/><i/>
</xsl:variable>
<xsl:variable name="i" select="exslt:node-set($i-tree)/i" />

<!-- Подготавливаем параметр ссылок -->
<xsl:variable name="links">
    <links next="0" previous="1">
    <xsl:for-each select="$i[position() &lt;= $date/@mday]">
        <link mday="{position()}" />
    </xsl:for-each>
    </links>
</xsl:variable>

<div id="archive">
    <xsl:call-template name="calendar">
        <xsl:with-param name="title" select="'Архив'" />
        <xsl:with-param name="url" select="concat($url_path,'%date%/')" />
        <xsl:with-param name="links" select="exslt:node-set($links)/links" />
    </xsl:call-template>
</div>

Вот так и мучаемся без for циклов в xsl

Suor, 12 Марта 2010

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

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

+129.5

1
2
3

<table cellpadding="5"><tr>
<td width="90%"><input id="dezsearch" type="text" value="" class="text" onKeyDown="if(event.keyCode==13) {parent.location='/ads/find/?section=all&find='+document.getElementById('dezsearch').value;}"></td>
<td><img src="/img/najti.gif" onClick="parent.location='/ads/find/?section=all&find='+document.getElementById('dezsearch').value"></td></tr></table>

Вот так вот... Находится не в фрейме

Suor, 08 Февраля 2010

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

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

−106.3

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

$str=~/(.+?)<\/h2><p>(.+)/;
($d2,$str)=($1,$2);
($d2,undef)=split (/\,/,$d2);
($aday,$amn)=split (/ /,$d2);
if ($amn=~/^я/i) {$amon='01'}
elsif ($amn=~/^ф/i) {$amon='02'}
elsif ($amn=~/^мар/i) {$amon='03'}
elsif ($amn=~/^ап/i) {$amon='04'}
elsif ($amn=~/^мая/i) {$amon='05'}
elsif ($amn=~/^июн/i) {$amon='06'}
elsif ($amn=~/^июл/i) {$amon='07'}
elsif ($amn=~/^ав/i) {$amon='08'}
elsif ($amn=~/^с/i) {$amon='09'}
elsif ($amn=~/^о/i) {$amon='10'}
elsif ($amn=~/^н/i) {$amon='11'}
elsif ($amn=~/^д/i) {$amon='12'}

Ещё один фрагмент граббера. Славное определение месяца :)

Suor, 22 Декабря 2009

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

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

−106.6

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

# ВЫШЕ БУДЕТ МАСИВ С 1 до 7 за семь дней дабы делать выборку
for ($indx=0; $indx<7; $indx++) {	## каждый раз работаем с датой
@sql=();

my $bindings = 0;

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time+$indx*86400); # а тут надо будет написать что умножить эл. масива на чтото
$date=($year+1900).'-'.($mon<9?'0':'').($mon+1).'-'.($mday<10?'0':'').$mday;
$url2=$url.$date;
#####$url2=$url;

$cinema=&get($url2);

...

} # это скобка массива

Вот такой фрагмент парсера. Комменты читать по 3-4 раза для полного впечатления

Suor, 22 Декабря 2009

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

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

−110.6

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

my $style_doc = $parser->parse_string(q~
   ... Здесь идёт нормальный такой шаблон xslt
~);
my $stylesheet = $xslt->parse_stylesheet($style_doc);

my $results = $stylesheet->transform( $source );
my $shit = $stylesheet->output_string($results);

$shit =~ s%(<table.*?<table.*?</table>.*?</table>)\s*(<table.*?<table.*?</table>.*?</table>)\s*(<table.*?<table.*?</table>.*?</table>)%<tr><td valign="top">$1</td><td valign="top">$2</td><td valign="top">$3</td></tr>%gs;

$shit = qq{<table cellpadding="0" cellspacing="8" border="0">${shit}</table>};
print 'document.write('.JsUtils::js_object($shit).');';

В xslt, очевидно, всё не осилили - добъём регуляркой :)

Suor, 16 Декабря 2009

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

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

−154.8

1
2
3
4
5

create table user.profile (
  ...
  gender boolean,
  ...
)

Очевидно, true - это мужик :D

Suor, 06 Октября 2009

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

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

+65.2

1

perl -MIO::All -e 'print io("-index-.cgi")->all' > index.dev.cgi

А как ещё скопировать файл начинающий на -?

Suor, 30 Сентября 2009

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

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