#!/usr/bin/perl -w

# determine RTL/RTAI and set modlist
if( -f "/usr/src/rtl/rtai") {
    @modlist    = (qw(rtai modules/rtai_sched));
    $moddir     = "/usr/src/rtl/";
} else {
    @modlist    = (qw(rtl_time rtl_sched));
    $moddir     = "";
}
# make sure the test module is unloaded
system("/sbin/rmmod jitter_rt 2>/dev/null");

# insmod basic rt modules
foreach(@modlist) {
    if($ret = `/sbin/insmod $moddir$_ 2>&1`) {
        warn($ret) unless $ret =~ /already exists/;
    }
}
system("/sbin/insmod ./jitter_rt.o");
warn <<TXT

To display max/min jitter values, type: 
	cat /proc/jitter
For a continuous display, type:
	while true; do cat /proc/jitter; done

TXT
