|
Клиенты для игры Все что связано с клиентами для игры. Jmc, MMC, ZMud etc... |
|
Опции темы | Опции просмотра |
17.01.2007, 08:25 | #1 |
Отличник форума
Регистрация: 03.05.2006
Адрес: Новосибирск
Сообщений: 337
|
логи в ммс формата html
хочу собственно иметь красивые логи, в перле не очень силен, знающие люди помогите советом, рассикжите может принцип, каим образом делается субж? )
|
17.01.2007, 22:58 | #2 |
Старший Мадер
Регистрация: 06.03.2004
Адрес: Москва
Сообщений: 239
|
Значит так.
1. Включаем цветные логи: В Conf.pm меняем строку Код:
$Conf::ansi_log=1; # write ansi escapes into logs if true Код:
hook { my ($day, $mon, $year) = (localtime)[3,4,5]; $year += 1900; $mon += 1; my $logname = "logs/#$day-$mon-$year.log"; MUD::logopen $logname; } "connect"; Код:
$Conf::timedlog=1; # timestamp each logged line Код:
sub clog($) { if ($Conf::timedlog) { my ($sec, $min, $hour) = (localtime)[0,1,2]; $sec = "0$sec" if length $sec < 2; $min = "0$min" if length $min < 2; $hour = "0$hour" if length $hour < 2; print $logfile "\033[1;30m$hour:$min:$sec>\033[0;37m ",($Conf::ansi_log?toansi($_[0]):CL::strip_colors($_[0])), "\n" if $logfilename; } else { print $logfile ($Conf::ansi_log?toansi($_[0]):CL::strip_colors($_[0])), "\n" if $logfilename; } } Берем log-colorizer от dikiy отсюда: http://d.scn.ru/proj/mud/log-colorizer/ Ставим perl если не стоит: для винды - http://www.activestate.com/store/activeperl/download/, для всего остального - http://www.perl.org/get.html) Натравливаем log-colorizer на ansi-лог: Код:
perl log-colorizer.pl --from logname.log --to logname.html Напоследок пример лога, который я получил вот этим способом. Файлик надо в .html переименовать. Кстати, лог пишется после того, как проведены все замены и хайлайты. |