sub check_configs {
  my ($kernel, $heap) = @_[KERNEL, HEAP];

  my $RCS = Rcs->new;
     $RCS->bindir('/usr/bin');
     $RCS->workdir($heap->{cfg}->{default}->{destination});
     $RCS->rcsdir($heap->{cfg}->{default}->{rcsdir});
     $RCS->quiet(1);

  print "\nStart CFG check at: ".localtime()."\n";

  foreach my $name (@{ $heap->{cfg}->{devices} }) {
    my $CFG = $heap->{cfg}->{device}->{$name}->{localfile};
    if (-f $CFG) {
      my $md5 = eliminate_timestamps($CFG);
      $RCS->file(basename($CFG));
      $RCS->ci('-l', "-t-Configfile for $name", "-mMD5-sum: $md5");
    }
    else {
      print "Error: File $CFG does not exist\n";
    }
  }
}