LINUX.ORG.RU

Сообщения VeroLom

 

[MySQL][Perl][DBI][UTF8] Проблемы с кодировкой

Обнаружил проблемы с кодировкой. У базы DEFAULT CRARACTER SET 'utf8' COLLATE 'utf8_general_ci'; MySQL 5.1, Ubuntu Lucid

Записываю через консольный клиент в базу 'Никита', JS-скрипт (AJAX через перловый бэкенд) получает 'Никита', если записываю в базу через скрипт, в базе вопросительные знаки, скрипт выводит 'Никита'. Что и где пилить для Нормального Русского Языка?

UPD: Решилось добавлением mysql_enable_utf8 => 1 при соединении:

	$DB = DBIx::Simple->connect(@$config{qw(dsn user pass)}, {
			RaiseError		=> 1,
			mysql_enable_utf8	=> 1
	});

 , ,

VeroLom
()

[perl][recursion] Вывод деревьев сообщений

Есть код:

#!/usr/bin/perl -w

use strict;
use warnings;
use v5.10;

my $messages = [
	{
		id			=> 1,
		root_id		=> 0,
		reply_to	=> 0,
		from_id		=> 1,
		to_id		=> 2,
		content		=> "Hello!\t"
	},
	{
		id			=> 2,
		root_id		=> 1,
		reply_to	=> 1,
		from_id		=> 2,
		to_id		=> 1,
		content		=> "> Hello!\tHi\t"
	},
	{
		id			=> 3,
		root_id		=> 0,
		reply_to	=> 0,
		from_id		=> 1,
		to_id		=> 2,
		content		=> "Privet! Kak dela?"
	},
	{
		id			=> 4,
		root_id		=> 3,
		reply_to	=> 3,
		from_id		=> 2,
		to_id		=> 2,
		content		=> "nHx!"
	},
	{
		id			=> 5,
		root_id		=> 1,
		reply_to	=> 2,
		from_id		=> 1,
		to_id		=> 2,
		content		=> ">> Hello!\t> Hi\tWhat's up?\t"
	}
];

sub get_tree {
	my ($tree, $pid) = @_;

	my $msg = "\n";

	foreach my $row (@{$tree}) {
		if($row->{reply_to} eq $pid) {
			$msg .= "# ".$row->{content}.&get_tree($tree, $row->{id});
		}
	}

	return $msg;
}

print &get_tree($messages, 0, 0);

Как сделать проход не только по `reply_to`, но и сначала по `root_id`? `root_id` - идентификатор сообщения-корневого узла дерева треда.

 ,

VeroLom
()

[Ubuntu] ALSA troubles

Из-за чего-то стал пропадать из звука бас. Появилось это после пары aptitude update. При выполнении sudo alsa force-reload ругается:

ver@219ver:~$ sudo alsa force-reload
lsof: WARNING: can't stat() fuse.gvfs-fuse-daemon file system /home/ver/.gvfs
      Output information may be incomplete.
Terminating processes: 8441lsof: WARNING: can't stat() fuse.gvfs-fuse-daemon file system /home/ver/.gvfs
      Output information may be incomplete.
lsof: WARNING: can't stat() fuse.gvfs-fuse-daemon file system /home/ver/.gvfs
      Output information may be incomplete.
.
lsof: WARNING: can't stat() fuse.gvfs-fuse-daemon file system /home/ver/.gvfs
      Output information may be incomplete.
Unloading ALSA sound driver modules: snd-seq-dummy snd-seq-oss snd-seq-midi snd-rawmidi snd-seq-midi-event snd-seq snd-seq-device snd-pcm-oss snd-mixer-oss snd-hda-intel snd-hda-codec-realtek snd-hda-codec snd-hwdep snd-pcm snd-timer snd-page-alloc.
Loading ALSA sound driver modules: snd-seq-dummy snd-seq-oss snd-seq-midi snd-rawmidi snd-seq-midi-event snd-seq snd-seq-device snd-pcm-oss snd-mixer-oss snd-hda-intel snd-hda-codec-realtek snd-hda-codec snd-hwdep snd-pcm snd-timer snd-page-alloc.

ALSA 1.0.21 codec Realtek ALC888

Как это можно исправить? Что за ругательство про gvfs?

 

VeroLom
()

[perl][sql][jstree][nested-sets] Вывод содержимого таблицы в виде дерева

Для хранения структуры страниц использую модель nested sets. Данные для примера:

id, parent_id, level, lkey, rkey, name
1,  0,         1,     1,    14,   index
2,  1,         2,     2,     7,   info
3,  1,         2,     8,    13,   test
4,  2,         3,     3,     4,   about
5,  2,         3,     5,     6,   help
6,  3,         3,     9,    10,   test1
7,  3,         3,     11,   12,   test2

Получаю ветку таким запросом (SQL::Abstract, $db->query($sql)->hashes()):

SELECT id, parent_id, level, lkey, rkey, name
FROM   pages
WHERE  lkey > $lkey AND
       rkey < $rkey
ORDER BY rkey

Не могу сообразить, как из полученного хеша получить структуру для jsTree т.е. примерно такую:

[
    {
        data: 'index',
        children: [
            {
                data: 'info',
                children: [
                    {
                        data: 'about'
                    },
                    {
                        data: 'help',
                    }
                ]
            },
            {
                data: 'test',
                children: [
                    {
                        data: 'test1'
                    },
                    {
                        data: 'test2'
                    }
                ]
            }
        ]
    }
]

Второй день туплю с этими деревьями :(

 ,

VeroLom
()

[mojo][mojolicious][routing][auth] Проблема с роутингом и авторизацией в Mojolicious

Есть контроллер Auths с методом check

Есть контроллер Pages с методом show

Есть «дефолтная» страница /profile

Необходимо сделать редирект на неё с /, если пользователь авторизован, и редирект со всех страниц на / с формой авторизации, если пользователь не авторизован. Моё не хочет нормально работать (сделал на основе FastNotes) :(

auths#create_form - html-шаблон с формой авторизации.

    $r->route('/')							->to('auths#create_form')			->name('auths_create_form');
    $r->route('/login')						->to('auths#create')				->name('auths_create');
    $r->route('/logout')					->to('auths#delete')				->name('auths_delete');
    $r->route('/signup')	->via('get')	->to('users#create_form')			->name('users_create_form');
    $r->route('/signup')	->via('post')	->to('users#create')				->name('users_create');
    #$r->route('/profile')	->via('get')	->to('pages#show', id => 'profile')	->name('pages_profile');

    my $rn = $r->bridge('/')->to('auths#check');
    $rn->route								->to('pages#show', id => 'profile')	->name('pages_profile');

#=for comm
	$rn->route('/core/:controller/:action/:id')
	   ->to(controller	=> 'pages',
			action		=> 'show',
			id			=> 'profile')
	   ->name('pages_profile');
#=cut

	# Route to the default, page controller
	$r->route('/(*id)')->to('pages#show')->name('pages_show');

 , ,

VeroLom
()

[lighttpd][perl][mojoliciuos] Непонятки с установкой

Может ли перловый web-фреймворк mojolicious работать под lighttpd? Если да, то как настроить?

 ,

VeroLom
()

[deb][ubuntu][local repo] Установка LAMP на комп без нета

Есть «сервер» с LAMP (+ модули Perl, установленные через CPAN) на Ubuntu. Есть комп с Ubuntu без доступа в Интернет Необходима работа нашего ПО на втором компе т.е. нужно установить апач, мускуль, PHP, Perl и т.д. с необходимыми модулями. Думаю добавить в sources.lst репу «copy», но как узнать, какие пакеты надо копировать на флешку? И как установить модули, скачанные через CPAN?

UPD1: Вроде, решил с помощью apt-offline...

 ,

VeroLom
()

[gentoo][vpn] Corbina (Beeline) Internet with Gentoo

Провели вчера кабель Корбины (Билайн), на нетбуке (Win7) настроили, но от линукса отказались. В итоге имею - сетевой провод, компьютер с Gentoo и eth0, логин и пароль к VPN. Как настроить интернет?

З.Ы. Есть кто из Питера, юзающий Корбину-Билайн «Домашнюю сеть»?

ADD: Сеть настроил, lk.beeline.ru (Личный Кабинет) грузится, но инет (VPN) не пашет

 ,

VeroLom
()

[deb] Не ставятся зависимости

Сделал мета-пакет с таким содержимым DEBIAN/control:

Package: ids-meta
Version: 0.10
Section: main
Priority: optional
Architecture: all
Pre-Depends: apache2, php5, php5-mysql, php5-json, mysql-server, perl, libxml-libxml-perl, libmysql++-dev, sqlite3
Installed-Size: 
Maintainer: VeroLom
Description: metapackage for web environment

При установке пакета (sudo dpkg -i ids-meta.deb) оно ругается:

idsadmin@idsmain:~$ sudo dpkg -i ids-meta.deb 
dpkg: regarding ids-meta.deb containing ids-meta, pre-dependency problem:
 ids-meta pre-depends on apache2
  apache2 is not installed.
dpkg: error processing ids-meta.deb (--install):
 pre-dependency problem - not installing ids-meta
Errors were encountered while processing:
 ids-meta.deb

aptitude -f install молчит, как партизан

 

VeroLom
()

[gentoo][alsa][hda_intel] Нет звука

Стоит gentoo, ведро 2.6.36, alsa 1.0.23 и звуковуха hda_intel. Нет звука. В микшере всё на максимум поставил, модуль ядра загружен. alsaconf говорит, что найдена не поддерживаемая звуковая карта. Куда копать? -_-

До переустановки gentoo (крахнулся винт) всё работало, сейчас почему-то не хочет. В конфиге ведра, вроде, всё, что нужно было, включил.

WTF?

 ,

VeroLom
()

Looking for game resource grabber

Ищутся софтинки для граббинга игровых ресурсов из оффтопичного бинарника. Ресурсы, ес-но, не в стандартном виде. Что для этого есть?

VeroLom
()

[clisp][gui][ide] Ищу простенькую IDE для Common Lisp

Сабж. Хочется чего-то, типа Geany. К сожалению, там нет поддержки LISP, а допиливать лениво. Гуишное и не емаксовое.

 ,

VeroLom
()

[misc][X.org] Программирование «системных» тулзов

Что есть почитать на тему написания программ, типа WM, систреев, панелей и т.д.? Какой есть окноманагер на Perl?

P.S. Как я понял, надо курить на тему Xlib?

 

VeroLom
()

[search][alt-tab][systray] Ищу софтинки

Какие есть софтины для отображения окон (названий или миниатюр) при переключении по <Alt>+<Tab>? Нужна небольшая, как довесок к FluxBox. Так же рассматриваются варианты систрея.

 ,

VeroLom
()

[git][ssh][2] Перенос репозитория

Дано: git-репозиторий на локальном компьютере; сервер в локалке, к которому есть доступ по ssh (Ubuntu 10.04).

Задача: скопировать репозиторий на сервер, создать там ещё несколько и дать доступ другим юзерам, что бы не надо было вводит пароль после каждого коммита.

Вопрос: как?

 ,

VeroLom
()

[git][repos][тупняк] Перенос репозитория

Туплю сегодня =( Первое - нужно перенести git-репозиторий с локального компа на местный сервер, что бы главным был на сервере. Второе - я так и не разобрался с правами. Надо после переноса репы дать всем, кроме меня, права RO.

 ,

VeroLom
()

[git][warn] refname 'HEAD' is ambigous

git ругается сабжем. Как исправить? Вроде, это появилось, когда я переименовал и удалил некоторые файлы: chart1.php => del chart2.php => del chart3.php => chart.php

Из-за этой проблемы в qgit не показывается working.

 

VeroLom
()

[gentoo][GLX][fuckup] Хрень какая-то с glx.

После, млин, обновления ядра и мира упал GLX. Дрова от нвидии после обновлений поставил заново. glxinfo выдаёт такую вот хрень:

Xlib: extension «GLX» missing on display ":0.0".

Error: couldn't find RGB GLX visual or fbconfig

.....

41 GLXFBConfigs:

visual x bf lv rg d st colorbuffer ax dp st accumbuffer ms cav

id dep cl sp sz l ci b ro r g b a bf th cl r g b a ns b eat

----------------------------------------------------------------------

Ошибка сегментирования

В xorg.conf присутствует [b]Load «glx»[/b]

В Xorg.0.log такая хрень:

[ 15.837] (II) LoadModule: «glx»

[ 15.853] (WW) Warning, couldn't open module glx

[ 15.853] (II) UnloadModule: «glx»

[ 15.853] (EE) Failed to load module «glx» (module does not exist, 0)

Что за фигня?

 , ,

VeroLom
()

[gentoo][fb][tty] Проблема с графической консолью после обновления мира

После обновления мира что-то упало и теперь не работает графический режим в консоли. Тупо чёрный экран. Что же такое упало и как это поднять?

Драйвер от нвидии, ведро 2.6.35. Возможно, с драйвером что-то ибо так же не работает GLX в иксах.

 ,

VeroLom
()

[gentoo][sdl][ufo:ai] Не запускается UFO:AI после обновления ядра, дров и мира

Хелп! Поставил ядро 2.6.35, пересобрал дрова нвидии, обновил мир и при попытке запустить UFO: AI вылезает такое http://paste.pocoo.org/show/256862/. Как починить?

 ,

VeroLom
()

RSS подписка на новые темы