Changeset 665 for server

Timestamp:

Feb 25, 2008, 4:26:46 PM (17 years ago)

Author:

quentin

Message:

Make Zephyrs more useful and move to -c scripts-auto

File:

• server/fedora/config/etc/syslog-ng/d_zroot.pl (modified) (2 diffs)

server/fedora/config/etc/syslog-ng/d_zroot.pl

@@ -5 +5 @@
 use Sys::Hostname;
 
-sub sendmsg {
-    my ($message) = @_;
-    open(ZWRITE, "|-", qw|/usr/bin/zwrite -d -c scripts-auto|, '-i', 'root.'.hostname, '-s', hostname) or die "Couldn't open zwrite";
+sub sendmsg($;$$) {
+    my ($message, $class, $instance) = @_;
+    $class ||= "scripts-auto";
+    $instance ||= 'root.'.hostname;
+    open(ZWRITE, "|-", qw|/usr/bin/zwrite -d -c|, $class, '-i', $instance, '-s', hostname) or die "Couldn't open zwrite";
     print ZWRITE $message;
     close(ZWRITE);
@@ -25 +27 @@
             sendmsg($send);
         }
+    } elsif ($message =~ m|session \S+ for user root |) {
+        sendmsg($message);
     }
+
     $last = $message;
 }