+ my $tcp = getprotobyname('tcp');
+ if (!defined $tcp) {
+ push(@{$errs}, "getprotobyname failed for tcp");
+ return 0;
+ }
+ my $syslog = getservbyname('syslog','tcp');
+ $syslog = getservbyname('syslogng','tcp') unless (defined $syslog);
+ if (!defined $syslog) {
+ push(@{$errs}, "getservbyname failed for tcp");
+ return 0;
+ }
+
+ my $this = sockaddr_in($syslog, INADDR_ANY);
+ my $that = sockaddr_in($syslog, inet_aton($host));
+ if (!$that) {
+ push(@{$errs}, "can't lookup $host");
+ return 0;
+ }
+ if (!socket(SYSLOG,AF_INET,SOCK_STREAM,$tcp)) {
+ push(@{$errs}, "tcp socket: $!");
+ return 0;
+ }
+ setsockopt(SYSLOG, SOL_SOCKET, SO_KEEPALIVE, 1);
+ setsockopt(SYSLOG, IPPROTO_TCP, TCP_NODELAY, 1);
+ if (!CORE::connect(SYSLOG,$that)) {
+ push(@{$errs}, "tcp connect: $!");
+ return 0;
+ }
+ $syslog_send = \&_syslog_send_socket;
+ return 1;
+}
+
+sub connect_udp {
+ my ($errs) = @_;
+ unless ($host) {
+ require Sys::Hostname;
+ my($host_uniq) = Sys::Hostname::hostname();
+ ($host) = $host_uniq =~ /([A-Za-z0-9_.-]+)/; # allow FQDN (inc _)
+ }
+ my $udp = getprotobyname('udp');
+ if (!defined $udp) {
+ push(@{$errs}, "getprotobyname failed for udp");
+ return 0;
+ }
+ my $syslog = getservbyname('syslog','udp');
+ if (!defined $syslog) {
+ push(@{$errs}, "getservbyname failed for udp");
+ return 0;
+ }
+ my $this = sockaddr_in($syslog, INADDR_ANY);
+ my $that = sockaddr_in($syslog, inet_aton($host));
+ if (!$that) {
+ push(@{$errs}, "can't lookup $host");
+ return 0;
+ }
+ if (!socket(SYSLOG,AF_INET,SOCK_DGRAM,$udp)) {
+ push(@{$errs}, "udp socket: $!");
+ return 0;
+ }
+ if (!CORE::connect(SYSLOG,$that)) {
+ push(@{$errs}, "udp connect: $!");
+ return 0;
+ }
+ # We want to check that the UDP connect worked. However the only
+ # way to do that is to send a message and see if an ICMP is returned
+ _syslog_send_socket("");
+ if (!connection_ok()) {
+ push(@{$errs}, "udp connect: nobody listening");
+ return 0;
+ }
+ $syslog_send = \&_syslog_send_socket;
+ return 1;
+}
+
+sub connect_stream {
+ my ($errs) = @_;
+ # might want syslog_path to be variable based on syslog.h (if only
+ # it were in there!)
+ $syslog_path = '/dev/conslog';
+ if (!-w $syslog_path) {
+ push(@{$errs}, "stream $syslog_path is not writable");
+ return 0;
+ }
+ if (!open(SYSLOG, ">" . $syslog_path)) {
+ push(@{$errs}, "stream can't open $syslog_path: $!");
+ return 0;
+ }
+ $syslog_send = \&_syslog_send_stream;
+ return 1;
+}
+
+sub connect_unix {
+ my ($errs) = @_;
+ if (length _PATH_LOG()) {
+ $syslog_path = _PATH_LOG();