recover gracefully from syslog failures

1 files changed, 8 insertions, 1 deletions

diff --git a/IkiWiki.pm b/IkiWiki.pm
index 87ddb1b56..2c0b1153c 100644
--- a/IkiWiki.pm
+++ b/IkiWiki.pm
@@ -728,6 +728,7 @@ sub debug ($) {
 }
 
 my $log_open=0;
+my $log_failed=0;
 sub log_message ($$) {
 	my $type=shift;
 
@@ -738,9 +739,15 @@ sub log_message ($$) {
 			Sys::Syslog::openlog('ikiwiki', '', 'user');
 			$log_open=1;
 		}
-		return eval {
+		eval {
 			Sys::Syslog::syslog($type, "[$config{wikiname}] %s", join(" ", @_));
 		};
+                if ($@) {
+                    print STDERR "failed to syslog: $@" unless $log_failed;
+                    $log_failed=1;
+                    print STDERR "@_\n";
+                }
+                return $@;
 	}
 	elsif (! $config{cgi}) {
 		return print "@_\n";