uawdijnntqw1x1x1
IP : 216.73.216.54
Hostname : www.vorobey-market.ru
Kernel : Linux www.vorobey-market.ru 3.10.0-514.el7.x86_64 #1 SMP Tue Nov 22 16:42:41 UTC 2016 x86_64
Disable Function : None :)
OS : Linux
PATH:
/
home
/
..
/
usr
/
src
/
..
/
libexec
/
..
/
src
/
..
/
src
/
..
/
share
/
perl5
/
Module
/
..
/
vendor_perl
/
Munin
/
Node
/
Logger.pm
/
/
package Munin::Node::Logger; # $Id$ use warnings; use strict; BEGIN { use Exporter(); our @ISA = qw(Exporter); our @EXPORT = qw(&logger); } sub logger { my $text = shift; my @date = localtime (time); chomp ($text); $text =~ s/\n/\\n/g; printf STDERR ("%d/%02d/%02d-%02d:%02d:%02d [%d] %s\n", $date[5]+1900, $date[4]+1, $date[3], $date[2], $date[1], $date[0], $$, $text, ); return; } 1; __END__ =head1 NAME Munin::Node::Logger - The logger for munin node. =head1 SYNOPSIS Exports a logger() subroutine. use Munin::Node::Logger; logger("Nice log message"); =head1 SUBROUTINES =over =item B<< logger() >> logger($message); Writes $message to STDERR together with the timestamp and process id. =back
/home/../usr/src/../libexec/../src/../src/../share/perl5/Module/../vendor_perl/Munin/Node/Logger.pm