bind8/syslog_logs.pl

   1 # Contains a function to supply the syslog module with extra logs
   2
   3 do 'bind8-lib.pl';
   4
   5 # syslog_getlogs()
   6 # Returns a list of structures containing extra log files known to this module
   7 sub syslog_getlogs
   8 {
   9 local $conf = &get_config();
  10 local $logging = &find("logging", $conf);
  11 return ( ) if (!$logging);
  12 local @chans = &find("channel", $logging->{'members'});
  13 local @rv;
  14 foreach my $c (@chans) {
  15         local $file = &find("file", $c->{'members'});
  16         if ($file) {
  17                 push(@rv, { 'file' => $file->{'values'}->[0],
  18                             'active' => 1,
  19                             'desc' => $text{'syslog_desc'} });
  20                 }
  21         }
  22 return @rv;
  23 }
  24