</head>
<body text="#000000" bgcolor="#ffffff">
<h1>IRC log for $channel on $date</h1>
+<script async src="//pagead2.googlesyndication.com/pagead/js/adsbygoogle.js"></script>
+<!-- Default -->
+<ins class="adsbygoogle"
+ style="display:inline-block;width:728px;height:90px"
+ data-ad-client="ca-pub-1563266826402652"
+ data-ad-slot="5026919875"></ins>
+<script>
+(adsbygoogle = window.adsbygoogle || []).push({});
+</script>
+<form action="http://www.google.com" id="cse-search-box">
+ <div>
+ <input type="hidden" name="cx" value="partner-pub-1563266826402652:3301963896" />
+ <input type="hidden" name="ie" value="UTF-8" />
+ <input type="text" name="q" size="55" />
+ <input type="submit" name="sa" value="Search" />
+ </div>
+</form>
+<script type="text/javascript" src="http://www.google.com/coop/cse/brand?form=cse-search-box&lang=en"></script>
};
if ( $STYLE =~ /table/ ) {
if ( &IsParam('logType') and $param{'logType'} =~ /DAILY/i ) {
my ( $day, $month, $year ) = ( gmtime time() )[ 3, 4, 5 ];
- my $logDir = $file{log} . sprintf('%04d', $year + 1900);
+ my $logDir = $file{log} . sprintf('%04d', $year + 1900);
unless(-d $logDir) {
&status("openLog: making $logDir.");
mkdir $logDir, 0755 or &status("Cannot mkdir $logDir");;
sub DEBUG {
return unless ( &IsParam('DEBUG') );
+ my (undef,undef,$line,$subroutine,undef) = caller(1);
- &status("${b_green}!DEBUG!$ob $_[0]");
+ &status("${b_green}!DEBUG!$ob ".$subroutine.'['.$line."] $_[0]");
}
sub ERROR {
- &status("${b_red}!ERROR!$ob $_[0]");
+ return unless ( &IsParam('DEBUG') );
+ my (undef,undef,$line,$subroutine,undef) = caller(1);
+
+ &status("${b_red}!ERROR!$ob ".$subroutine.'['.$line."] $_[0]");
}
sub WARN {
return if ( $_[0] =~ /^PERL: Subroutine \S+ redefined at/ );
- &status("${b_yellow}!WARN!$ob $_[0]");
+ my ($package,$filename,$line,$subroutine,undef) = caller(1);
+
+ &status("${b_yellow}!WARN!$ob ".$subroutine.'['.$line."] $_[0]");
}
sub FIXME {
- &status("${b_cyan}!FIXME!$ob $_[0]");
+ my ($package,$filename,$line,$subroutine,undef) = caller(1);
+
+ &status("${b_cyan}!FIXME!$ob ".$subroutine.'['.$line."] $_[0]");
}
sub TODO {
- &status("${b_cyan}!TODO!$ob $_[0]");
+ my ($package,$filename,$line,$subroutine,undef) = caller(1);
+
+ &status("${b_cyan}!TODO!$ob ".$subroutine.'['.$line."] $_[0]");
}
sub VERB {