Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
−119
$max_conn = 150;
# ...
socket(SERVER, PF_INET, SOCK_STREAM, getprotobyname('tcp') ) || LOG_FLUSH && die "socket: $!";
setsockopt(SERVER, SOL_SOCKET, SO_REUSEADDR, 1) || LOG_FLUSH && die "setsockopt: $!";
bind(SERVER, sockaddr_in($port, inet_aton($interface))) || LOG_FLUSH && die "bind: $!";
listen(SERVER,$max_conn) || LOG_FLUSH && die "listen: $!";Перл от создателя. $max_conn - это якобы должно быть максимальное число дочерних процессов (причем количество child процессов не проверяется). хотя все знаю что должно передаваться как аргумент backlog :)
SanityIO,
12 Января 2011
+159
function calls() {
//document.frm_param.form.value="client_calls";
//document.frm_param.title_.value="Работа с клиентом | Звонки";
s_url="$bill_cgi$?form=calls"+
"&date_begin=01.01.1990"+
"&date_end=01.01.2010"+
"&call_type=100"+
"&phone="+
"&to_phone="+
"&client=$client$"+
"&town_code="+
"&direction="+
"&zone="+
"&order_by=date_"+
"&order_by2="+
"&group_by="+
"&calls_recalc="+
"&calls_print=1";
window.top.location=s_url;
}(c) Руслан Залата
SanityIO,
12 Января 2011
−116
$answer=~ s/\\/\\\\/g;
$answer=~ s/\'/\\\'/g;
# ...
$dbh->do("INSERT INTO docflow_rules (type_,state1,state2,p,entity,subj_require,comm_require) VALUES ($doctype,$from_,$to_,'$answer',$entity,$subj_r,$comm_r)");Еще от неизменного автора.
SanityIO,
12 Января 2011
−118
if(
( $session_begin ge $tariff_ref->{date} ) &&
( !$tariff_ref->{date_end} || $session_begin le $tariff_ref->{date_end} ) &&
( !$tariff_ref->{nas_id} || $tariff_ref->{nas_id} eq $nas_id) &&
( !$tariff_ref->{ppp_type} || $tariff_ref->{ppp_type} eq $ppp_type) &&
( $notariffzone || !$tariff_ref->{tariff_zone} ||
$tariff_ref->{tariff_zone} eq $tariff_zone) &&
( !$tariff_ref->{client_type} || $tariff_ref->{client_type} eq $client_type) &&
( !$tariff_ref->{day_type} || $tariff_ref->{day_type} eq
&common::type_of_day($oper_id,$session_begin) ) &&
(
(!$divide_by_time_zone &&
(!$tariff_ref->{time_from} || !$tariff_ref->{time_to} ||
&common::check_time_zone(
$session_begin,
$tariff_ref->{time_from},
$tariff_ref->{time_to}
)
)
) ||
($divide_by_time_zone &&
(!$tariff_ref->{time_from} || !$tariff_ref->{time_to} ||
&common::check_time_zone(
$session_begin,
$tariff_ref->{time_from},
$tariff_ref->{time_to}
) ||
&common::check_time_zone(
$session_end,
$tariff_ref->{time_from},
$tariff_ref->{time_to}
) ||
&common::check_time_zone(
$tariff_ref->{time_from},
common::get_time_from_str($session_begin),
common::get_time_from_str($session_end),
)
)
)
) &&
(
(!$divide_by_counter &&
(!defined($tariff_ref->{counter1_from}) || !defined($tariff_ref->{counter1_to})
|| ($tariff_ref->{counter1_from} <= $resource_begin &&
$resource_begin < $tariff_ref->{counter1_to} )
)
) ||
($divide_by_counter &&
(!defined($tariff_ref->{counter1_from}) || !defined($tariff_ref->{counter1_to})
|| ($tariff_ref->{counter1_from} <= $resource_begin &&
$resource_begin < $tariff_ref->{counter1_to} )
|| ($tariff_ref->{counter1_from} <= $resource_end &&
$resource_end < $tariff_ref->{counter1_to} )
|| ($resource_begin <= $tariff_ref->{counter1_from} &&
$tariff_ref->{counter1_from} < $resource_end)
)
)
)
) {Один if от создателя :) Еще (с) Руслан Залата
SanityIO,
12 Января 2011
−179
if (! $where_oper_id ) {
$where_oper_id = " base_clients.oper_id = 'THERE IS NO FUCKING PROVIDERS DEFINED FOR THIS OPERATOR' " ;
$where_service_oper_id = " oper_id = 'THERE IS NO FUCKING PROVIDERS DEFINED FOR THIS OPERATOR' " ;
}
$where_oper_id = " ( $where_oper_id ) ";Еще от творца.
SanityIO,
12 Января 2011
−81
$search =~ s/[\ \%\*\[\]\^\$\']+/\%/g; # '
my $search_str = '%' . $search . '%';
$search_str =~ s/\%+/\%/g;эскейп стринга для БД (с) Руслан Залата
SanityIO,
12 Января 2011
+97
if MethodName = AnsiUpperCase('Зробити_все_чудово_пречудово') then
begin
Screen.Cursor := crHourGlass;
try
for LowIndex := 0 to 200 do
begin
Application.ProcessMessages;
Sleep(10);
end;
ShowInfo('Тепер все чудово-пречудово.'#13#10'Посміхніться!');
finally
Screen.Cursor := crDefault;
end;
endВнутренний скрипотвый язык
stokito,
12 Января 2011
+101
procedure TwndMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
s: string;
begin
s := UpperCase(GetCompName);
CanClose :=
((Pos('VADIM', s) <> 0) and (DM.DefDBID = 0)) or
(ShowConfirmation('Ви дійсно бажаєте вийти з програми?') = mrYes);
end;Программиста Вадима реально задолбало это сообщение :)
stokito,
12 Января 2011
+158
if(($res = GetMysqlRes("SELECT id,name,price,anons2,colors,sizes,anons,content2,content,maker,title FROM {$oCfg->prefX}core WHERE top=".$pid." and act=1 ORDER BY date DESC LIMIT ".($pnum-1)*$eop.",".$eop."",array($pid),false)) != false)
{
while (($row = $db->fetch_row($res)) !== false)
{
...<script type='text/javascript'>
function chs".$row[0]."() {
document.getElementById(\"s_size".$row[0]."\").innerHTML = document.getElementById(\"sel_size".$row[0]."\").value;
}
function chc".$row[0]."() {
document.getElementById(\"s_color".$row[0]."\").innerHTML = document.getElementById(\"sel_color".$row[0]."\").value;
}
</script>...
}
}
это находилось в цикле. К этому же потом обращались для добавления в корзину товара.
Три точки значат что там есть еще код.
P.S. Опять же привет мазе.
De-Luxis,
12 Января 2011
+159
$res = GetMysqlRes("SELECT anons2 FROM {$oCfg->prefX}core WHERE id=93");
while ($row = mysql_fetch_array($res, MYSQL_ASSOC)) {
$to = $row[0];
}
В CMS есть поле E-Mail, куда отправлять новые заказы.
Так же есть поле anons, куда обычно пишется анонс статьи или страницы.
В данном случае для хранения мыла, была создана отдельная строка anons2, туда же записывался адрес.
P.S. Мазе привет.
De-Luxis,
12 Января 2011
Follow us!