[Orca-users] How to use date_parse ??

[xlheel]

Hi All

I have log-file for the use of my drives in the format
drivekap.yyyymmdd with contains like

00:00:02 10  3  0 30.00% 0.00%
00:15:01 10  6  0 60.00% 0.00%
00:30:00 10  6  0 60.00% 0.00%
00:45:00 10  5  0 50.00% 0.00%
01:00:01 10  5  0 50.00% 0.00%
01:15:00 10  8  0 80.00% 0.00%
01:30:00 10  8  0 80.00% 0.00%
01:45:01 10  7  0 70.00% 0.00%
02:00:05 10  7  0 70.00% 0.00%
02:15:01 10  6  0 60.00% 0.00%
02:30:00 10  5  0 50.00% 0.00%
02:45:01 10  6  0 60.00% 0.00%
03:00:00 10  6  0 60.00% 0.00%
03:15:00 10  9  0 90.00% 0.00%
03:30:00 10  9  0 90.00% 0.00%
03:45:00 10  9  0 90.00% 0.00%
04:00:03 10  9  0 90.00% 0.00%
04:15:00 10  7  0 70.00% 0.00%
04:30:00 10  8  0 80.00% 0.00%
04:45:00 10  8  0 80.00% 0.00%
05:00:02 10  7  0 70.00% 0.00%
05:15:01 10  5  0 50.00% 0.00%
05:30:01 10  3  0 30.00% 0.00%

I have made a perl subroutine that returns the epoch-time based on
the filename and the first column, but I can't get to function in the
config_file.

Extract from config_file

date_source column_name time
date_parse sub {
use Time::Local;
my $file=$_[0];
my $time=$_[1];
.
.
.
return epoch;
}

Any ideas to what I am doing wrong ??

Thanks in advance
Michael