<div dir="ltr"><div><br></div>My humble contribution to the project. :)<br><div><br></div><div><div>#!/usr/bin/perl -w</div><div><br></div><div>open my $EL, "/var/log/icecast/error.log" || die;</div><div><br></div>
<div>$| = 1;</div><div><br></div><div>while(my $buf = <$EL>) {</div><div>    if ($buf =~ /Disconnect/) {</div><div>        $_ = $buf;</div><div>        s/\[|\]//g;</div><div>        my @tmp = split(/ +/);</div><div>
        my $time = $tmp[1];<br></div><div>        open my $AL, "/var/log/icecast/access.log" || die;</div><div>        my @lines = grep { /$time/ && /SOURCE/ } <$AL>;</div><div>        close($AL);</div>
<div>        print @lines;</div><div>    }</div><div>}</div><div><br></div><div>close($EL);</div></div><div><br></div><div><br></div></div>