Line # Revision Author
1 3 ahitrov@rambler.ru <%ARGS>
2 $_URL => 'rate/ok.html'
3 $id => undef
4 $vote => undef
5 </%ARGS>
6 <%ONCE>
7 use Apache::Cookie;
8 use Rate::Main;
9 </%ONCE>
10 <%INIT>
11 &abort404() unless ($id);
12 &abort404() unless ($vote=~/^[1-5]$/);
13
14 my $document;
15 foreach (@{$state->rate->allowed_classes}) {
16 $document = $keeper->get_document_by_id($id,class=>$_);
17 last if $document;
18 }
19 &abort404() unless $document;
20
21 my $ip = $r->header_in("X-Real-IP");
22 my (@ip_list) = split(/\s*,\s*/, $ip);
23 my $real_ip = shift @ip_list;
24
25 my $referer = $r->header_in("Referer");
26
27
28 my $cookie_name = $state->rate->cookie;
29 my $cookie = Apache::Cookie->new($r);
30 my $cookies = $cookie->parse;
31 my $key = $cookies->{$cookie_name} ? $cookies->{$cookie_name}->value() : $real_ip;
32
33 #here we have user key and both values
34 Rate::Main->write_one($key, $id, $vote, $real_ip, $referer, time());
35
36 $_URL =~ s/^\///;
37 $r->header_out("Location", "/".$_URL);
38 $r->status(302);
39 $r->send_http_header();
40 $m->out('<html><body>redirect</body></html>');
41 $m->abort();
42 </%INIT>

Небольшая справка по веткам

cnddist – контейнер, в котором хранятся все дистрибутивы всех библиотек и программных пакетов, которые использовались при построении различных версий Contenido. Если какой-то библиотеки в данном хранилище нет, инсталлятор сделает попытку "подтянуть" ее с веба (например, с CPAN). Если библиотека слишком старая, есть очень большая вероятность, что ее там уже нет. Поэтому мы храним весь хлам от всех сборок. Если какой-то дистрибутив вдруг отсутствует в cnddist - напишите нам, мы положим его туда.

koi8 – отмирающая ветка, чей код, выдача и все внутренние библиотеки заточены на кодировку KOI8-R. Вносятся только те дополнения, которые касаются внешнего вида и функционала админки, баги ядра, обязательные обновления портов и мелочи, которые легко скопипастить. В дальнейшем планируется полная остановка поддержки по данной ветке.

utf8 – актуальная ветка, заточенная под UTF-8.

Внутри каждой ветки: core – исходники ядра; install – скрипт установки инсталляции; plugins – плагины; samples – "готовые к употреблению" проекты, которые можно поставить, запустить и посмотреть, как они работают.