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

Всего: 9

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

+4

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

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

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

+10.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

+2.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

+6.7

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

+2.4

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

+1.4

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

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

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

+15.2

1
2
3
4
5

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

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

Запостил: Suor, 06 Октября 2009

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

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

−1.8

1

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

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

Запостил: Suor, 30 Сентября 2009

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

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

+3

1
2
3
4
5
6

foreach my $current_item(@catalog_items)
{
    foreach($current_item)
    {
        my $id = $_->[0];
        ...

Запостил: Suor, 09 Сентября 2009

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

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