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

    Всего: 11

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

    −180

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 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)
  3. Python / Говнокод #7281

    −91

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

    Suor, 19 Июля 2011

    Комментарии (3)
  4. Perl / Говнокод #3109

    −119

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 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)
  5. Куча / Говнокод #2767

    +66.2

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 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)
  6. Куча / Говнокод #2571

    +129.5

    1. 1
    2. 2
    3. 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)
  7. Perl / Говнокод #2309

    −106.3

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 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)
  8. Perl / Говнокод #2307

    −106.6

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 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)
  9. Perl / Говнокод #2287

    −110.6

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 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)
  10. SQL / Говнокод #1942

    −154.8

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    create table user.profile (
      ...
      gender boolean,
      ...
    )

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

    Suor, 06 Октября 2009

    Комментарии (67)
  11. Куча / Говнокод #1915

    +65.2

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

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

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

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