Perl — Говнокод.ру

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

+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
42
43

<html>
<head>
<script type="text/javascript">
	var url = location.href;
	var key = '<meta name="keywords" content="" />';
	var dsc = '<meta name="description" content="Радиозавод – одно из ведущих предприятий, выпускающее hd ресиверы – цифровые, спутниковые, кабельные, приставки dvb с, а также инфракрасные сушки для овощей и фруктов, зерновые сеялки и светодиодные светильники для жкх. Кроме того мы предлагаем вниманию наших клиентов мобильную медицинскую технику: передвижной пункт забора крови, стоматологический кабинет и т.д." />';
	url = url.replace('http://','');
	url = url.replace('www.','')

	if(url == "domen.ru") {
	    dsc = '<meta name="description" content=""Радиозавод" осуществляет производство светодиодных светильников. Инфракрасная сушка одно из приоритетных направлений деятельности. Производители светодиодных светильников это группа компаний "Радиозавод"." />';
	    key = '<meta name="keywords" content="производство светодиодных светильников, производители светодиодных светильников, инфракрасная сушка" />';
	}
	if(url == "domen.ru/catpv.5.htm") {
	    dsc = '<meta name="description" content="передвижной стоматологический кабинет" />';
	    key = '<meta name="keywords" content="Передвижной стоматологический кабинет от компании "Радиозавод" это универсальное решение для любых условий эксплуатации." />';
	}
	if(url == "domen.ru/catp.19.htm") {
	    dsc = '<meta name="description" content=""Радиозавод" предлагает сеялку зерновую точного высева. Купить сеялку можно уже сейчас, доставляем в регионы." />';
	    key = '<meta name="keywords" content="купить сеялку, сеялка зерновая, сеялка точного высева" />';
	}
	if(url == "domen.ru/catpv.103.htm") {
	    dsc = '<meta name="description" content="Сеялка пневматическая универсальное решение для сельхозработ от компании "Радиозавод"" />';
	    key = '<meta name="keywords" content="сеялка пневматическая" />';
	}
	
	if(url == "domen.ru/catpv.104.htm") {
	    dsc = '<meta name="description" content="Сеялка овощная как наверное оборудовение подойдет для  любых тракторов. Всегда в наличие овощная сеялка точного высева." />';
	    key = '<meta name="keywords" content="овощная сеялка точного высева, сеялка овощная" />';
	}
	
	if(url == "domen.ru/catpv.108.htm") {
	    dsc = '<meta name="description" content=""Радиозавод" реализует светильники для теплиц в любом количестве. Светильник тепличный соответствует всем современным стандартам." />';
	    key = '<meta name="keywords" content="светильники для теплиц, светильник тепличный" />';
	}

	/* ... тут еще куча такого же высера ... */

	document.writeln(key);
	document.writeln(dsc);
</script>

<title><TMPL_IF "header2"><TMPL_VAR "header2"><TMPL_ELSE><TMPL_VAR "start_header"><TMPL_IF "header"> - </TMPL_IF><TMPL_VAR "header"></TMPL_IF></title>

Я даже вначале не знал в какую категорию это отнести.
Сайт написан на Perl. Так как я не мастер в нем не буду выкладывать из него говнокод, вдруг он окажется мастер классом :)
+ Весело наблюдать закрытие тега meta в HTML.

oooZinka, 10 Мая 2012

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

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

+2

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

sub create_sid {
    my $uid = shift @_;
    
    return undef if (!defined $uid);
    
    my $sid;
    my $rand = 1;
    my $is_ok = 0;
    my(@itoa) = ('0' .. '9','a' .. 'z','A' .. 'Z');
    my $itoa_len = $#itoa;
    
    while ($is_ok != 1){
		$sid = '';
		for(0..8) {						#создание нового сида
		    $rand = rand(25*240*17 + $rand + $uid);
		    $sid .= $itoa[$rand & $itoa_len];
		}
		my $exists = $RR::Init::memd->get('sid'.$sid);		#проверка что такого не существует
		$is_ok = 1 if (!defined $exists);
    }
    return $sid;
}

Смотрим на $itoa[$rand & $itoa_len] и офигеваем=)

PSIAlt, 23 Марта 2012

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

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

+4

1

if (!defined $login || (defined $login && length($login)<3 && length($login>16))) {

PSIAlt, 22 Марта 2012

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

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

+5

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

my $uid = 0;
	my $parse_uid = $parse_sid->{uid} || 0;
	my $memd_uid  = $RR::Init::memd->get('sid'.$sid) || 0;
	# Авторизуем при помощи memd
	if ($parse_uid==$memd_uid){
		$uid = $memd_uid;
	}

	# Запоминаем в Куку
	$r->pnotes('USER_SID' => $sid);
	$param{sid} = $sid;
	
	# Захватываем sid
	unless (defined $uid){
		$RR::Init::memd->set('sid'.$sid, 0);
	}
	# Всяке артефакты лезут
	$uid||=undef;

Лезут всякие артефакты видите ли...

PSIAlt, 22 Марта 2012

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

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

+2

1

my $res_id = $q->param('ordernumber')?$q->param('ordernumber'):$q->param('order_idp')?$q->param('order_idp'):undef

santa_microbe, 16 Февраля 2012

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

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

+7

1
2
3
4
5
6
7
8
9

if ($movie->{'genre'}=~m/\,+/)  {
                my @genre = split(',',$movie->{'genre'}) if $movie->{'genre'};
                my $genre = join(",", split(',', $movie->{'genre'}, 2));
                for (my $i = 0; $i <=1; $i++) {
                    $genre .= $genre[$i].',' if @genre;
                };
                $genre =~s/\,$//;
                $movie->{'genre'} = $genre if ($genre);
};

На чем-то конкретном внимание заострять не буду.
Код достаточно прост, но довольно неуклюж.

santa_microbe, 09 Декабря 2011

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

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

+5

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

sub GenRandomHash()
{
	my $self=shift;
	my $number=shift||10;
	my $plain='';
	my @chars=('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z','a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z');
	for (my $i=0;$i<$number;$i++)
	{   
		$plain.=$chars[rand(59)+2];
	}
return $plain;
}

Мне бы было лень вбить столько символов :)

Alikus, 30 Ноября 2011

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

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

+5

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23

sub addOrUpdateContr {
	my $doc   =  shift;

	my( $id ) = $common->dbh->selectrow_array( 
		qq|SELECT contrid FROM... | );

	$id = $id || 0; 

	if ( $id ) {
             # вариант действий 1 ....
             return $id;
	}

	if( !$id ) {
             # вариант действий 2 (делает INSERT)....
             return $id;
	} else {
             # вариант действий 3 ....
             return $id;
	}  

	return $id;
}

Просто красивая функция.
И то, что при названии addOrUpdateContr никакого апдэйта она не делает в ней далеко не самое замечательное.

Mihard, 26 Октября 2011

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

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

−2

1
2
3
4
5
6
7
8

$sth = $dbh->prepare("select *,DATE(DTime),DATE(RDTime),MONTH(DTime),DAY(DTime),HOUR(DTime),MINUTE(DTime),UNIX_TIMESTAMP(DTime) 
from tt_list where Type!=0  $where order $order");
...
if ($row->{'HOUR(DTime)'}<10) {$row->{'HOUR(DTime)'}="0$row->{'HOUR(DTime)'}"};
if ($row->{'MINUTE(DTime)'}<10) {$row->{'MINUTE(DTime)'}="0$row->{'MINUTE(DTime)'}"};
...
print "...<td width=60 nowrap><img src=../images/icon_clock.gif width=16 height=16 border=0>
 $row->{'HOUR(DTime)'}:$row->{'MINUTE(DTime)'}</td>...";

Выводим время...

Raynor, 07 Сентября 2011