Темы

1

Вакансии / Рекламному агентству Defa Gruppe требуется Web-программист

« : 05 Июля 2006, 12:40:36 »

Рекламному агентству Defa Gruppe требуется очень хороший Web-программист.

Специальные знания и навыки:

- профессиональное владение PHP (в т.ч. объектным), SQL (СУБД MySQL), представление о шаблонизаторах (Smarty - обязательно).
- умение работать в UNIX-консоли, с веб-сервером Apache.
- основные знания HTML/Javascript/CSS, знакомство с XML.
- использование технологии AJAX (либо аналогов).

Опыт работы:

- Необходим опыт по разработке web-сайтов с нуля, желательно - в команде, идеально - в компании аналогичного профиля.
- Обязательным условием наличие в портфолио более 10 полноценых готовых работ
- Необходима практика проектирования и программирования сложных CMS систем.

Дополнительные требования:

- знание Perl, представление о СУБД PostgreSQL и MSSQL
- опыт классического программирования на C/C++
- теоретическая подкованность в области ООП

Обязанности:

- Программирование сайтов.

Условия:

- м. Савёловская (Москва)
- полный рабочий день, дотация на питание
- дружный коллектив и хорошие условия работы
- з/п от 1500

Контакты: job@defa.ru

2

Perl / Perl аналог mysql_real_escape_string()

« : 24 Мая 2006, 11:05:08 »

Есть ли подобное в Perl?

3

Perl / Image::Magick и чтение изображения

« : 10 Марта 2006, 18:30:02 »

Столкнулся с такой задачей.

Необходимо, имея в переменной изображение (сгенерированное ранее с помощью иного модуля) что-либо сделать с ней при помощи данного модуля, не сохраняя предварительно это изображения в темп-файл.

Т.е., перескочить от запись в файл $img_file и его последущее чтение $x = $image->Read("$img_file"), а взять сразу данные из переменной $img.

Буду благодарен помощи.

4

PHP / Разбиение цифр пробелами

« : 07 Февраля 2006, 15:31:24 »

имеем число (целое, дробное) любой длины.
Н-р: $d=1234567;

Необходимо привести его к удобочитаемому виду: 1 234 567.

Как это сделать средствами php?
Заранее благодарю

5

Perl / Из windows-1251 в UTF-8

« : 02 Января 2006, 13:54:20 »

Подскажите какой-нибудь небольшой модулек (не более 100-200 Кб), который мог бы сделать вот это:
Есть переменная $text с текстом в кодировке windows-1251.
Нужно получить в переменной $utf_text текст из переменной $text, но в кодировке UTF-8.
Так же хотелось бы, что бы он конвертировал в UTF-8 и из других кодировок.

6

Интернет реклама / Быстрая регистрация в каталогах Вашего сайта

« : 25 Ноября 2005, 20:10:52 »

Запустил проект: Система автоматической регистрации в каталогах:

(Для некоммерческих проектов услуги бесплатны.)

• На данный момент в системе уже более 500 каталогов.
• Есть возможность использования различных вариантов описания (до 10) при авторегистрации в каталогах, т.е. на ваш сайт будут вести разные ключевики с каталогов.
• Приятный принцип регистрации в каталогах на не имеющий аналогов в русскоязычном Internet. Не надо тратить много времени и трафика на загрузку страниц - ответов каталогов. Наша система самостоятельно определяет, успешно ли прошла отправка данных в каталог или нет.
• Тестовая регистрация. Попробуйте.

Прокомментируйте, что стоит еще сделать?

7

Perl / Управление cron из перл-скриптов

« : 23 Ноября 2005, 10:57:51 »

Есть ли готовые скрипты или модули по сабжу?

8

Perl / Русская документация к модулю Template Toolkit

« : 18 Ноября 2005, 16:15:03 »

Вот, недавно обнаружил. На форуме, вроде об этом не писали.

http://www.template-toolkit.ru/Manual/index.html

9

Флейм / Лицензирование программного продукта под web (Россия, зарубеж)

« : 09 Марта 2005, 11:36:29 »

С чего начать?
Не доводилось ранее этого касаться, потому даже не могу представить, с чего начать.

Я хотел бы получить лицензию на программный продукт (платформа для создания полнофункционального портала платных internet-знакомств) и зарегистрировать его товарный знак ®
(необходима для выдачи лицензий на коммерческое использование)

Может, кто знает или сталкивался?

Заранее благодарю за любые наводки.

10

Базы данных / Анти sql иньекция

« : 25 Февраля 2005, 11:27:06 »

Собственно вопрос вот в чем.
Я обрабатываю все вводимые данные и экранирую эти символы:
<
>
\'
"
(
)
Пропустил ли я какие-нибудь спец-символы, благодаря которым можно будет осуществить sql иньекцию?

11

Поиск, изготовление скриптов и прочее... / Сколько стоит движок платного сервиса знакомств?

« : 09 Февраля 2005, 15:00:09 »

Доделываю свой движок (лоск навожу, все практически готово)
Perl+MySQL.

Хотел бы определиться с ценой на его продажу. (право на использование и только на использование)

Что в нем есть интересного, помимо обычных возможностей:

• Все страницы, не требующие авторизации, эмулируют статику (для поисковиков)
• Возможность закачивать пользователям до 6 фотографий с автоконвертацией размера на тот, который указал в настройках администратор.
• Внутренняя почта (нечто вроде привата)
• Система закладок (избранное)
• Уровни доступа (к примеру, девушки имеет право на переписку, а мужчины только после оплаты в течении определенного времени, или все имеют бесплатный доступ, или у всех требуется оплата и т.д.)
• Легко настраиваемый дизайн, возможность управления через администрилку всеми текстовками на сайте
• Заточенная интеграция с системой оплаты по кредиткам через один популярный трансферер (какой не скажу – будет реклама)
• Контроль над всеми автоматическими рассылками, их текстовками
• Пред. проверка анкет. Т.е. Человек зарегистрировался, закачал фото и только после этого попал на пред. проверку администратору. Тот проверяет анкету, если надо, правит ее и одобряет или удаляет. Только после одобрения зарегистрированная анкета становиться доступной к просмотру, а ее владелец к возможности переписки
• Система приоритета анкет. Т.е. каждая анкета оценивается при пред. просмотре (н-р, по качеству фотографии) от 1 до 5. Вывод анкет в поисках и галереях осуществляется таким образом: вначале идут те, что имеют оценку 5 (в порядке убывания даты регистрации), потом 4-ки, потом 3-ки, потом 2-ки, потом 1-цы. Если не ставить оценки, то анкеты будут сортироваться по дате регистрации
• При пред. проверке можно указывать, какие анкеты включать в рассылку новых анкет, а какие нет (н-р для рассылки только самых красивых девушек)
• Автоматическое включение и отключения доступа к переписке (если доступ указан, как платный)
• Естественно, полноу упрвеление анкетами
• Легкая возможность смены дизайна (шапка и ноги, стили, цвета)
• Изначальный английский интерфейс, созданный профессиональными переводчиками
• Куча отчетов с графиками и всеми необходимами цифрами

Есть так же еще один вариант, без продажи:
Движок поставляется с индивидуальным дизайном, созданным для заказчика, размещается на наших серверах, мы все поддерживаем, мониторим.

А владелец за это платит помесячную абонентку. Сколько за этот вариант брать в месяц? Установка бесплатная, дизайн идет как бесплатный бонус.

12

Perl / Базовая авторизация с хранением данных в БД

« : 28 Января 2005, 15:39:00 »

Как сделать так, что бы данные не сверялись с файлом  .htpasswd, через скрипт сверялись с БД?

Т.е. как передать данные самому скрипту и как получить этим скриптом данные полей логина и пароля?

Заранее благодарю

13

Perl / Авторизация, куки и жалобы 20% клиентов, о том, что нифига ничего не работает

« : 13 Января 2005, 12:01:52 »

Я уже давно использую авторизацию вот такого принципа:

При успешной проверке логин а пароля пользователю пишутся куки с логином пользователи и его сессией

   print "Set-Cookie: id=$id; expires=.date()+3600*24*100; path=/;\\n";
   print "Set-Cookie: sess=$sess;  expires=.date()+3600*24*100; path=/;\\n";

И в дальнейшем, при каждом обращении к пользовательской части сайта я вытягиваю эти куки с сверяю их с теми, что записаны в БД

   $cookhttp= $ENV{\'HTTP_COOKIE\'} || $ENV{\'COOKIE\'};
   @cookies = split (/\\; /,$cookhttp);
   foreach $cookies (@cookies)
   {
      ($n, $value) = split(/=/, $cookies);
      $n =~ tr/+/ /;
      $n =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
      $value =~ tr/+/ /;
      $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
      $C{$n} = $value;
   }
#$C{id} - id пользователя
#$C{sess} - сессия пользователя

Однако, приблизительно 20% пользователей с включенными кукисами ругаются, что не могут после успешной авторизации работать с сайтом, так как их опять выбрасывает на форму авторизации со словами о том, что вы не авторизованы.

Посмотрите пожалуйста приведенные коды. Все пролез, вроде все правильно. Но ведь работает через раз! Почему? Нутром чувствую, что что-то не так с записью или чтением кукисов

14

Perl / Помогите с Mod_perl

« : 25 Октября 2004, 10:57:48 »

Вот кусок на perl, отражающий все необходимые дейстивия для меня (пример).

#!/usr/bin/perl
use CGI::Carp qw (fatalsToBrowser);
use Geo::IP;
$komm=0.2;

print "Content-type: text/html\\n\\n";
print "";

$site="http://bannerdating.com";

$refer="$ENV{\'HTTP_REFERER\'}";
if ($ENV{HTTP_X_FORWARDED_FOR}){$ip ="$ENV{HTTP_X_FORWARDED_FOR}";}
else{$ip ="$ENV{REMOTE_ADDR}";}



if ($refer eq \'\')
{
   &system_banner;
}
elsif ($refer !~ /http\\:\\/\\//gi)
{
   &system_banner2;
}
else
{
      &viev;
}

sub viev
{

   use DBI;
   $dbh = DBI->connect("DBI:$db:$dbn:$host_db","$login_db", "$pass_db") || die $DBI::errstr;
   $users_info_table="info_users";

   ########Получаем данные
   read(STDIN, $buffer, $ENV{\'CONTENT_LENGTH\'});
   if (!$buffer)
   {
      $buffer=$ENV{\'QUERY_STRING\'};
   }
   @pairs = split(/&/, $buffer);
   foreach $pair (@pairs)
   {
      ($name, $value) = split(/=/, $pair);
      $value =~ tr/+/ /;
      $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
      $value =~ s/\\\'//gi;
      $value =~ s/\\"//gi;
      $F{$name} = $value;
   }

   ##Узнаем текущий час $hour (серверное время)
   $t=localtime();
   ($nedelya,$mesyac,$day,$time,$god)=split(/\\ /,$t);
   ($hour,$min,$sec)=split(/\\:/,$time);

   my $gi = Geo::IP->new(GEOIP_STANDARD);
   $country = $gi->country_code_by_addr("$ip");

   if ($country eq \'\' || ($country ne "AT" && $country ne "AU" && $country ne "CA" && $country ne "CN" && $country ne "DE" && $country ne "ES" && $country ne "FR" && $country ne "IL" && $country ne "IT" && $country ne "JP" && $country ne "RU" && $country ne "UA" && $country ne "US")) {$country="OT";}

   ##Получаем номер группы баннера
   $sql="select id,id_user from $users_info_table where status=\'1\' and h_$hour=\'1\' and $country=\'1\' and (day_r>day_b or day_r=\'0\') and balans>0 and id_user<>\'$F{id}\' ORDER BY RAND() LIMIT 1";

   $sth = $dbh->prepare("$sql");
   $sth->execute || die $dbh->errstr;
   @id_info=$sth->fetchrow;
   $sth->finish;
}



Так уж повелось, что я всегда учусь на примерах.
Вы не могли бы привести пример кода этого же куска, но уже под mod_perl?
Моя задача: ускорить скорость отработки скрипта для банерообменика (показывает баннер и ведет статистику по этому баннеру).

Заранее благодарю.

15

Perl / Mod_geo

« : 25 Октября 2004, 10:45:43 »

1)Mod_geo
В какой переменной храниться GEOIP_COUNTRY_CODE?