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

    Всего: 3

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

    −122

    1. 1
    2. 2
    3. 3
    my $title=$self->{ditems}->get_field_value({SET=>'City', itemid=>$cityid, field=>'genitive_case', notitle=>1});
$title='в '.$self->{ditems}->get_field_value({SET=>'City', itemid=>$cityid, field=>'prepositional_case', notitle=>1}) unless length($title);
return '' if $title eq 'в ';

    poltora, 22 Сентября 2009

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

  3. Perl / Говнокод #1530

    −117.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
    my $cache_sql="SELECT `content`, `insertTime` FROM _cache WHERE `confid`='$$conf{confid}'";
...
    $cache_sql.=" AND `location`=".$self->{dbh}->quote($url);
...
    $cache_sql.=" AND `cgiparams`=".$self->{dbh}->quote($cgi_hash);
...
    $cache_sql.=" AND `callparams`=".$self->{dbh}->quote($callp_hash);
...
    $cache_sql.=" AND `userid`=".int($$params{userid});
...
    $cache_sql.=" AND `groupid`=".int($$params{groupid});

   my $replace_sql=$cache_sql;
   $replace_sql=~s/SELECT.*?FROM\s+_cache\s+WHERE/REPLACE INTO _cache SET/s;

    perl+sql

    poltora, 11 Августа 2009

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

  4. Perl / Говнокод #1529

    −101

    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
    my $iref=$self->{ditems}->_get_item({itemid=>$weather_itemid, set=>'Weather', fields=>['MinT', 'MaxT', 'Precip', 'Cloud', 'twater'], prefix=>$$p{prefix}});
    if ($$iref{$$p{prefix}.'MinT'}<0 && $$iref{$$p{prefix}.'MaxT'}<=0) {
        my $tmp=$$iref{$$p{prefix}.'MaxT'};
        $$iref{$$p{prefix}.'MaxT'}=$$iref{$$p{prefix}.'MinT'};
        $$iref{$$p{prefix}.'MaxT'}=$tmp;
    };
    #warn $$iref{$$p{prefix}.'MinT'} if !$$iref{$$p{prefix}.'MinT'}>0;
    $$iref{$$p{prefix}.'T'}=int( ($$iref{$$p{prefix}.'MinT'}+$$iref{$$p{prefix}.'MaxT'})/2 );
    $$iref{$$p{prefix}.'T'}='+'.$$iref{$$p{prefix}.'T'} if $$iref{$$p{prefix}.'T'}>0;
    #$$iref{$$p{prefix}.'T'}=~s/\-/\&\#150\;/gs;
    $$iref{$$p{prefix}.'MinT'}='+'.$$iref{$$p{prefix}.'MinT'} if ($$iref{$$p{prefix}.'MinT'}>0);
    $$iref{$$p{prefix}.'MaxT'}='+'.$$iref{$$p{prefix}.'MaxT'} if ($$iref{$$p{prefix}.'MaxT'}>0);
    $$iref{$$p{prefix}.'twater'}='+'.$$iref{$$p{prefix}.'twater'} if ($$iref{$$p{prefix}.'twater'}>0);
    
    $$iref{$$p{prefix}.'time'}=$$p{daystart}+$$p{hour}*3600;

    poltora, 11 Августа 2009

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