4 # Logfile Module (3.6.1998)
6 # USAGE: tie *HANDLE, 'Logfile', '<filename>', '<modulename';
18 my @timestr=localtime(time);
20 $name=~s/\%d/$timestr[3]/eg;
21 $name=~s/\%m/$timestr[4]+1/eg;
22 $name=~s/\%y/$timestr[5]+1900/eg;
27 # no reading from logfile
28 sub READLINE { return undef; }
29 sub READ { return undef; }
30 sub GETC { return undef; }
35 my @timestr=localtime(time);
39 if ((scalar(@text)>1) && ($text[0]=~/^\d+$/)) {
40 my($level)=shift(@text);
41 return if ($level<$$obj{'loglevel'});
44 if (open(OUT,">>".$$obj{'filename'})) {
47 printf OUT ("%02d.%02d.%s %02d:%02d:%02d [%d] %s: %s",
51 $timestr[2],$timestr[1],$timestr[0],
62 $$obj{'filename'}=&mkname(shift);
63 $$obj{'module'}=shift;
64 $$obj{'loglevel'}=(shift || 0);
66 bless $obj, 'Logfile';