|
|||||||
| Клиенты для игры Все что связано с клиентами для игры. Jmc, MMC, ZMud etc... |
![]() |
|
|
Опции темы | Опции просмотра |
|
|
#1 |
|
Отличник форума
![]() Регистрация: 03.05.2006
Адрес: Новосибирск
Сообщений: 337
|
хочу собственно иметь красивые логи, в перле не очень силен, знающие люди помогите советом, рассикжите может принцип, каим образом делается субж? )
|
|
|
|
|
|
#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 переименовать. Кстати, лог пишется после того, как проведены все замены и хайлайты. |
|
|
|