Прошу прощения за столь долгое отсутствие обновлений =) работа… понимаете ли…
Сегодня я кратко расскажу о том, как запустить Perl скрипт в FastCGI моде.

Опыт случился такой — есть тяжелый Perl проект, запущенный под Apache.
В какой-то прекрасный день Apache был «задвинут за nginx», чтобы разгрузить оный, избавив его от передачи статики.
Но проблема оставалась — мы видели много процессов apache в статусе W (Sending Content), просматривая /server-status…

Это был скрипт, который работал в CGI-моде и отрабатывал не столь быстро.

Было решено — пробуем перевести этот процесс в FastCGI, дабы не грузить его в память на каждый запрос (которых, скажу я Вам, было ОЧЕНЬ много)

После ряда экспериментов (и нехитрого чтения CPAN), я пришел к следующему решению:
fast.cgi

#!/usr/bin/perl

# перенаправление ввода/вывода
sub assign_std_out {
# в null! все в null! (c)
open(STDIN, "+>/dev/null") or die "Can't open STDIN: $!";
open(STDOUT, "+>&STDIN") or die "Can't open STDOUT: $!";
open(STDERR, "+>&STDIN") or die "Can't open STDERR: $!";
};


Вот и все. Ставим скрипту 755. Делаем по нему «ТЫЦ».
Смотрим ps auxf | grep perl-fcgi
И видим один родительский процесс, и 10 потомков :) РАДУЕМСЯ!!!

Перенаправляем нужные запросы из nginx на FastCGI «сервер»:

server {
listen 0.0.0.0:80;
server_name domain.com www.domain.com;
charset utf8;

if ( $use_fastcgi ) {
rewrite "^/fastcgi$" /cgi-bin/fast.cgi$request_uri last;
break;
}
}


Стартуем/перезапускаем nginx. Пробуем:

http://www.domain.com/fast?test_param=1&param2=value_

Если все получилось правильно, то вы увидите что-то типа вот этого:

$VAR1 = 'Data::Dumper';
$VAR2 = {
'test_param' => '1',
'param2' => 'value_'
};


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

PS: если Вы нашли ошибку или у вас появились вопросы — без смущения оставляйте комментарий к посту :)

Всем удачного дня!

В общем-то все ничего, но Iceweasel мне не пришелся по нраву… А т.к. Firefox пользую почти везде, то и озадачился его установкой.

Пост… Точнее, краткая заметка, не рассчитана на то, чтобы решить все проблемы при установке Firefox на Debian Squeeze 64bit. Скорее, написана она для себя любимого и расценивается как пункт в «склерознике». Если возникнут вопросы — не стесняйтесь, задавайте в комментах. Буду отвечать :)

Кстати да, речь пойдёт о KDE ;)
Для начала, качаем архив с FireFox той версии, которая Вам больше нравится, отсюда — ftp://ftp.mozilla.org/pub/firefox/releases/ВЕРСИЯ/linux-x86_64/en-US/, где ВЕРСИЯ та, что Вы выберете =) Я выбрал 7.0.4b :)

Качаем, распаковываем в /usr/local/firefox. Делаем symlink:

sudo ln -s /usr/local/firefox/firefox /usr/bin/firefox

Запускаем :) погут понадобиться дополнительные либы — ставим, не стесняемся, на это нам есть apt-get :)

САМОЕ ДИКОЕ, что кинулось в глаза… Ессна оформление, все корявое, квадратное и противное. Поэтому нам нужен пакет kde-config-gtk-style
Настраиваем, смотрим, вроде всё ок. НО, в том же GMail, да и вообще везде, кнопки и чекбоксы просто моснтрообразные! :) Огромные и ужасные :)
А вот для этого, нам нужен пакет gtk2-engines-qtcurve
После его установки идем в настройки Gtk для KDE и заставляем его пользовать тему QtCurve. Сохраняем настройки, перезапускаем FireFox — получаем все хорошо! =)

На практике всё тоже очень просто:
1. находим PID процесса dd (допустим, мы получили 7865)
pgrep -l ^.*?dd$
2. посылаем сигнал USR1
kill -USR1 7865

dd выведет прогресс и продолжит.

Всё просто, но хотелось бы автоматизировать процесс, не так ли? Каждый раз ручками посылать сигнал процессу — не айс :)

watch -n 10 kill -USR1 7865

И… voila! В консоли, где запущен dd, каждые 10 секунд мы будем получать отчет о статусе копирования ;)

Берегите нервы! :)

Этот скрипт запускается так, как вам будет угодно (crontab) и, проверяя загрузку за последние 15 минут, высылает email, с загрузкой и снапшотом команды top, на указанные адреса.

1
2
3
4
5
6
7
8
9
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
44
45
46
47
48
49
50
51
52

#!/bin/bash
#
# Скрипт для оповещения администратора о том, что загрузка Linux/FreeBSD превысила лимит
# При условии превышения лимита загрузки администратору будет выслан email.
#
# Все права защищены 2005 (c) nixCraft project
# Свободный скрипт под лицензией GNU GPL v2.0 или ниже.
# Проверено на системах:
# * RedHat Linux
# * Debain Linux
# * FreeBSD
# -------------------------------------------------------------------------
# Устанавливаем верхнюю границу, по достижении которой будет выслан email (при лимите 0.0 письмо будет высылаться при каждом запуске скрипта)
NOTIFY="0.0"
# Указываем email
EMAIL="admin@fakedomain.com"
# Тема письма
SUBJECT="Внимание! На сервере $(hostname) слишком высокая загрузка"
# -----------------------------------------------------------------
# OS-специфичные "костыли", менять здесь ничего не нужно ;)
OS="$(uname)"
TRUE="1"
if [ "$OS" == "FreeBSD" ]; then
        TEMPFILE="$(mktemp /tmp/$(basename $0).tmp.XXX)"
        FTEXT='load averages:'
elif [ "$OS" == "Linux" ]; then
        TEMPFILE="$(mktemp)"
        FTEXT='load average:'
fi
# загрузка за последние 5 минут
F5M="$(uptime | awk -F "$FTEXT" '{ print $2 }' | cut -d, -f1)"
# 10 минут
F10M="$(uptime | awk -F "$FTEXT" '{ print $2 }' | cut -d, -f2)"
# 15 минут
F15M="$(uptime | awk -F "$FTEXT" '{ print $2 }' | cut -d, -f3)"
# составляем письмецо
echo "Загрузка сервера превысила $NOTIFY." >> $TEMPFILE
echo "Хост: $(hostname)" >> $TEMPFILE
echo "Дата и Время на сервере : $(date)" >> $TEMPFILE
# Проверяем превышение
# сравниваем лимит с загрузкой за последние 15 минут
RESULT=$(echo "$F15M > $NOTIFY" | bc)
# если превышает, то высылаем письмо
if [ "$RESULT" == "$TRUE" ]; then
    echo "-------------------------------------------" >> $TEMPFILE
    echo "Вывод top:" >> $TEMPFILE
    echo "-------------------------------------------" >> $TEMPFILE
    top -b -n1 >> $TEMPFILE
        mail -s "$SUBJECT" "$EMAIL" < $TEMPFILE
fi
# не забываем убирать за собой мусор
rm -f $TEMPFILE

Все просто:

<html>
  <head>
    <style type="text/css">
      #footerwrap { position: absolute; width: 100%; bottom: 0px; }
      #footer { position: relative; margin: 0 auto; height: 46px; border: 1px dashed black; width: 760px; }
    </style>
  </head>
  <body>
    <div id="footerwrap">
      <div id="footer">Эта штука имеет ширину 760px и выровнена по центру, что можно увидеть с помощью обрамления</div>
    </div>
  </body>
</html>

Радуемся жизни :)

Вроде бы всё ясно, нет указателя на коннект в базой… Но какого же, простите, чёрта его нет? Почему он undef? При условии, что Catalyst в логах усердно твердит «Connected to the database via dsn: XXX»…

После потугов найти баг в своём коде, я полез в сорцы Catalyst::Model::DBI и увидел (о чудо!):

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

sub connect {
my $self = shift;
my $dbh;
eval {
$dbh = DBI->connect(
$self->{dsn},
$self->{username} || $self->{user},
$self->{password} || $self->{pass},
$self->{options}
);
};
if ($@) { $self->{log}->debug( qq{Couldn't connect to the database "$@"} ) if $self->{debug} }
else { $self->{log}->debug ( 'Connected to the database via dsn:' . $self->{dsn} ) if $self->{debug}; }
$self->_pid( $$ );
$self->_tid( threads->tid ) if $INC{'threads.pm'};
return $dbh;
}

Ничего странного? А не угадаете, случаем, почему Catalyst в логах сообщал «Connected to the database via dsn: XXX», а потом напрочь отказывался исполнять запросы?
В общем, в ходе раскопок было выявлено, что у меня mysql.sock лежал не в /var/run/mysql, а в /var/lib/mysql, и, собственно, это было исправлено. Но ЯВНОЙ ошибки MySQL я не получил. Потому что DBI->connect не падает в die сам по себе, а просто возвращает undef.

Дык, в общем, в чем соль? А в том, что в этот кусочек кода (при условии проверки eval на $@) нужно добавить || die DBI->errstr в строку вызова DBI->connect.

Выглядеть это будет следующим образом:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

sub connect {
my $self = shift;
my $dbh;
eval {
$dbh = DBI->connect(
$self->{dsn},
$self->{username} || $self->{user},
$self->{password} || $self->{pass},
$self->{options}
) || die DBI->errstr;  ### вот строчка, спасающая в таких ситуациях
};
if ($@) { $self->{log}->debug( qq{Couldn't connect to the database "$@"} ) if $self->{debug} }
else { $self->{log}->debug ( 'Connected to the database via dsn:' . $self->{dsn} ) if $self->{debug}; }
$self->_pid( $$ );
$self->_tid( threads->tid ) if $INC{'threads.pm'};
return $dbh;
}

А вот в ЭТОМ случае, мы увидим ошибку «Can’t connect to MySQL via socket /var/run/mysql/mysql.sock» и её решение займёт чуть меньше 2-3 минут, против получаса.

P.S.: баг я засабмитил, сейчас версия модели 0.28, и скорее всего это всё же будет исправлено в версии 0.29.
P.P.S.: ничего критичного, и лично к автору я никаких претензий не имею =) но это в очередной раз доказывает, что надо быть внимательнее :)

Это "телодвижение" было нужно для минимизации кол-ва действий, которые должен выполнить пользователь, чтобы увидеть отчёт из системы на бумаге :)

Не буду вдаваться в подробности о том, почему именно такой способ был нужен, и что это за система, но, был вопрос — вот ответ :) Нашёл его, для себя, юзабельным. И очень надеюсь на то, что кому-нибудь он тоже пригодится :)

К делу: как и всегда, немного погуглив, я отыскал вполне себе такой хороший модуль на search.cpan.org :) Называется он — PDF::Reuse. Модуль позволяет совершать не малое кол-во манипуляций с готовыми PDF-файлами (подробнее…)

Модуль очень даже подошёл для моих нужд, т.к. PDF может содержать JavaScript код (что не может не радовать, но оговорка чуть ниже), и диалог печати довольно просто с помощью этого JS вызывается. По сему его и решил использовать, а PDF::Reuse, по счастливой случайности, позволяет добавлять в PDF тот самый JavaScript код :)

Добавлено 9 февраля 2010: сразу оговорюсь, вариант будет выглядеть следующим образом — открывается PDF, если viewer поддерживает JS в PDF, то будет вызван диалог печати (примерно так же поступает Google Docs при попытке напечатать документ из меню File) :) Оговорка прийдётся очень кстати, потому как, допустим, xpdf не оправдает ваших ожиданий :)

Получить нужный результат можно следующим способом

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

#!/usr/bin/perl
 
use strict;
use PDF::Reuse;
use CGI qw/param/;
 
my $path = '/tmp/test/';    # путь до исходного PDF-файла
 
print "Content-type: text/html;charset=utf-8\n\n";
 
unlink($path.'test1.pdf') if (-e $path.'test1.pdf');    # удаляем старый результат
 
if (param('test') eq '1') {
    prFile($path.'test1.pdf');    # открываем файл
    prText(10,300,'Hello,');    # добавляем произвольный текст
    prText(30,340,'WORLD!!!');    # в файл
    prJs('function prn() { this.print(); } prn();');    # добавляем JS-код, который будет вызывать диалог печати
    prEnd();    # открываем PDF
    print "<script>window.open('http://www.sdenix.net/test/test1.pdf')</script>";
}
print "<html><head><title>PDF test</title></head><body>\n";
print "<form action='/test_pdf'><input type='hidden' name='test' value='1'  /><input type='submit' value='Смотрим пример с авто-печатью'  /></form><br  />\n\n";
print "</body></html>";

Вот, собственно, и всё! Посмотреть живой пример можно тут. Теперь включаем фантазию и используем этот модуль в своих целях :)

Я столкнулся со следующей проблемой: IE6 поддерживает селектор :hover далеко не для всех элементов HTML (пожалуй, только для <a>), но меню на сайте было построено на <ul><li> элементах, где использовался этот селектор для элемента <li>.

Решение #1: после некоторого времени гугления я нашёл решение, хоть и не тру-css, но тем не менее работает :) 

Итак, в стилях нужно прописать:

html { behavior: url("hover.htc"); }
/* в оригинале файл называется csshover3.htc, а прикрепленный к посту hover.htc */

и положить вот этот вот файлик в корень сайта ) обновляем страницу, и "вуа ля" у нас работает селектор :hover для любого HTML элемента .

Хак грязный, да, но работает =)

PS: на всякий случай продублирую этот файл у себя

Решение #2: с использованием jQuery (решил уделить внимание, т.к. эта либа довольно активно пользуется разработчиками)

$.ie6CssFix = function() {
	if($.browser.msie && $.browser.version < 7) {
		var cssRules = [], newStyleSheet = document.createStyleSheet();
		$("style,link[type=text/css]").each(function() {
				if(this.href) {
					$.get(this.href,function(cssText) {
						parseStyleSheet(cssText);
					});
				} else {
					parseStyleSheet(this.innerHTML);
				}
		});
		function parseStyleSheet(cssText) {
			var cssText = cssText.replace(/\s+/g,'');
			var arr = cssText.split("}");
			var l = arr.length;
			for(var i=0; i < l; i++) {
				if(arr[i] != "") {
					parseRule(arr[i] + "}");
				}
			}
		}
		function parseRule(rule) {
			var pseudo = rule.replace(/[^:]+:([a-z-]+).*/i, '$1');
			if(/(hover|after|focus)/i.test(pseudo)) {
				var prefix = "ie6fix-";
				var element = rule.replace(/:(hover|after|before|focus).*$/, '');
				var className = prefix + pseudo;
				var style = rule.match(/\{(.*)\}/)[1];
				var h =  getPseudo(pseudo);
				if(h) {
					h(element,className);
				}
				newStyleSheet.addRule(element + "." + className,style);
			}
		}
	        function handleHover(e,c) {
			$(e).hover(function() {$(this).addClass(c);}, function() {$(this).removeClass(c);});
		}
		function handleFocus(e,c) {
			$(e).focus(function() { $(this).addClass(c); }).blur(function() {$(this).removeClass(c);});
		}
		function handleAfter(e,c) {
			$(e).after(
				$("<" + e + ">").addClass(c)
			);
		}
		function getPseudo(pseudo) {
			switch (pseudo) {
				case "hover": return handleHover;
				case "focus": return handleFocus;
				case "after": return handleAfter;
				default: return false;
			}
		}
	}
};

$(function() {
	$.ie6CssFix();
});

Всё! :) только перед этим кодом нужно сделать include скрипта jQuery :)
 

• Authentication
• Session
• Session::Store::FastMmap
• Session::State::Cookie

Их же мы должны включить в главном модуле приложения (допустим, что приложение называется Test, тогда этот модуль будет называться Test.pm):

use Catalyst qw/   
      Static::Simple
      Authentication
      Session
      Session::Store::FastMmap
      Session::State::Cookie
/;

 

Далее, в конфигурации модуля указываем параметры сессии:

Test->config(

…

‘Plugin::Session’ => {expires => 3600, storage => ‘/tmp/session’},

‘authentication’ => {
      ‘default_realm’ => ‘default’,
      ‘use_session’ => 1,
      ‘realms’ => {
          ‘default’ => {
              ‘credential’ => {
                  ‘class’ => ‘Password’,
                  ‘password_field’ => ‘user_password’,    # поле в таблице, пароль
                  ‘password_type’ => ‘clear’,
              },
              ‘store’ => {
                  ‘class’ => ‘DBI’,    # я решил использовать DBI, т.к. таблица с пользователями хранится в MySQL
                  ‘user_table’ => ‘users’,    # таблица пользователей
                  ‘user_key’ => ‘id_user’,    # ключ, id пользователя
                  ‘user_name’ => ‘user_login’,    # логин
              },
          },
      },
},
 

…

);

После столь не сложных манипуляций, можем использовать авторизацию =)

Создаем контроллер Login (для примера), после чего в функцию index пишем следующее:

sub index :Path {
my ($self, $c) = @_;
my $req = $c->request();

if ($req->param(‘login’) ne » && $req->param(‘key’) ne ») {
  unless ($c->authenticate({‘user_login’ => $req->param(‘login’),’user_password’ => md5_hex($req->param(‘key’)),}))
  {
   $c->stash->{error} = ‘Неверный логин/пароль’;
   $c->stash->{template} = "service/auth.tt";    # я использую TemplateToolkit (TT) как шаблонизатор (View/TT.pm)
 }
 else
 {
   $c->stash->{error} = "";
   $c->response->redirect(‘/’);
 }
} else {
   $c->stash->{template} = "service/auth.tt";   # я использую TemplateToolkit (TT) как шаблонизатор (View/TT.pm)
}
}
     

Всё, теперь можете проверять залогинен ли пользователь с помощью $c->user_exists и обращаться ко всем свойствам/параметрам/полям пользователя через $c->user->get(‘parameter_name’).

Этот способ отличается от предыдущего настройками сервера и запуском FastCGI сервера вашего приложения. Считается, что модуль mod_fastcgi уже установлен (Catalyst и всё прочее тоже). Итак:

1. Создаём приложение Catalyst, пусть это будет Test :)
2. В конфиге vurtual host’а пишем:
   

   LoadModule fastcgi_module /usr/lib/apache2/mod_fastcgi.so # у меня OpenSUSE 11.0 и модуль лежит здесь

   <IfModule mod_fastcgi.c>
           FastCgiIpcDir /var/lib/apache2/fastcgi
           AddHandler fastcgi-script fcg fcgi fpl pl cgi
   </IfModule>
    

   FastCgiExternalServer /srv/www/vhosts/test/cgi-bin/script/test_fastcgi.pl -host 127.0.0.1:82 -idle-timeout 500

   <VitualHost 127.0.0.1:81>

   ### эти настройки опущу =) предположу, что вы знаете как настраивать virtual host’ы

    Alias /test /srv/www/vhosts/test/cgi-bin/script/test_fastcgi.pl/
    Alias /static /srv/www/vhosts/test/htdocs/static

   </VirtualHost>

3. Далее, перезапускаем Apache
4. Идем в директорию script/ (для данного примера это /srv/www/vhosts/test/cgi-bin/script/) и запускаем FastCGI сервер вашего приложения:
   

   ./test_fastcgi.pl -l :82 -n 3 -p /tmp/test_catalyst.pid -d

Теперь радостно открываем свой любимый браузер и резво набираем там http://127.0.0.1:81/ должны увидеть результат работы пустого приложения Catalyst :)

Если что не получилось — милости прошу за ответами на вопросы :) Опять же, этот микропост не претендует на проф. документацию :)