fork of the original source from Google Code SVN

contrib/access-log-client

@@ -0,0 +1,20 @@
+#!/bin/bash
+
+# ibuddy access log client
+# contributed by pablo muñoz-chapuli
+#
+
+HOST=nowhere.com
+APACHE_LOG=/var/log/apache2/access.log
+
+tail -f $APACHE_LOG  | awk '
+/ 200 / {
+        system("echo MACRO_GREEN|nc -u -q 0 $HOST 8888")
+}
+/ 404 / {
+        system("echo MACRO_RED|nc -u -q 0 $HOST 8888")
+}
+/ 500 / {
+        system("echo MACRO_BEAT2|nc -u -q 0 $HOST 8888")
+}'
+

contrib/weblog.pl

@@ -0,0 +1,37 @@
+#!/usr/bin/perl
+use strict;
+
+my $account='lala@lalalala.com';
+my $log_path=' /var/log/httpd/combined_log';
+
+
+use IO::Socket;
+my $sock = IO::Socket::INET->new(PeerPort  => 8888,
+                                 PeerAddr  => "127.0.0.1",
+                                 Proto     => "udp",    
+                                 LocalAddr => 'localhost'
+                                 ) 
+                             or die "Can't bind : $@\n";
+
+
+
+open(LOG,"ssh $account tail -f $log_path |");
+
+while(<LOG>) {
+   chomp;
+   if(/HTTP\/\d.\d\"\s200/) {
+        print "OK:$_\n";
+        $sock->send("MACRO_GREEN");
+   } elsif (/HTTP\/\d.\d\"\s404/) {
+        print "NOTFOUND:$_\n";
+        $sock->send("MACRO_RED");
+   } elsif (/HTTP\/\d.\d\"\s403/) {
+        print "FORBIDDEN:$_\n";
+        $sock->send("MACRO_RED");
+   } elsif(/HTTP\/\d.\d\"\s500/) {
+        print "ERROR:$_\n";
+        $sock->send("MACRO_BEAT");
+   } else {
+       print "RECVD:$_\n";
+   }
+}