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

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

−176

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 / Говнокод #9736

−126

1

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

PSIAlt, 22 Марта 2012

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

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

−120

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

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

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

−118

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 / Говнокод #8892

−147

1

вайп

TarasGovno, 04 Января 2012

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

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

−121

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

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

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

−122

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

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

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

−116

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 / Говнокод #7903

−110

1

Понтовый язык. Не полный по Тьюрингу...

alexoy, 20 Сентября 2011

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

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

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