['CyberCash',      'warn',            ''],

sub parse_warn {
my($name, $val) = @_;

return '' unless $val;

::logGlobal({level => 'info'},
      errmsg("Directive %s no longer supported at line %s of %s.",
          $name,
          $.,
          $configfile,
      )
);
}