- 1
my $end_date = ($request =~ /<end_date>(\d\d\d\d-\d\d-\d\d \d\d:\d\d:\d\d)<\/end_date>/io) ? $1 : '';
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
−119
my $end_date = ($request =~ /<end_date>(\d\d\d\d-\d\d-\d\d \d\d:\d\d:\d\d)<\/end_date>/io) ? $1 : '';
−176
<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.
−126
if (!defined $login || (defined $login && length($login)<3 && length($login>16))) {
−120
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;
Лезут всякие артефакты видите ли...
−118
my $res_id = $q->param('ordernumber')?$q->param('ordernumber'):$q->param('order_idp')?$q->param('order_idp'):undef
−147
вайп
−121
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);
};
На чем-то конкретном внимание заострять не буду.
Код достаточно прост, но довольно неуклюж.
−122
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;
}
Мне бы было лень вбить столько символов :)
−116
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 никакого апдэйта она не делает в ней далеко не самое замечательное.
−110
Понтовый язык. Не полный по Тьюрингу...