no way to compare when less than two revisions

Differences

This shows you the differences between two versions of the page.

@@ Line 1: / Line 1: @@
+<code awk>
+#
+# parser_log.awk - identifica los ficheros de log de apache
+#
+#
+BEGIN {
+      IGNORECASE = 1;
+      pattern="\"#ip#\";\"#user#\";\"#pass#\";\"#date_raw#\";\"#date#\";";
+      pattern=pattern "\"#time#\";\"#timezone#\";\"#request#\";\"#code1#\";";
+      pattern=pattern "\"#code2#\";\"#referer#\";\"#agent#\"";
+      print pattern;
+      }
+/.*/  {
+        line = $0;
+        if( match( line, /([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+) (.*)/, a ) != 0 )
+        {
+          ip = a[1];
+          line = a[2]
+        }
+        else if( match( line, /([0-9]*:[0-9]*:[0-9]*) (.*)/, a ) != 0 )
+        {
+          ip = a[1];
+          line = a[2];
+        }
+        if( match( line, /([[:alnum:]]*|-) (.*)/, a ) != 0 )
+        {
+          user = a[1];
+          line = a[2];
+        }
+        if( match( line, /([[:alnum:]]*|-) (.*)/, a ) != 0 )
+        {
+          pass = a[1];
+          line = a[2];
+        }
+        # parse date and time
+        if( match( line, /\[(.*)\] (.*)/, a ) != 0 )
+        {
+          date_raw = a[1];
+          line = a[2];
+          # parse date_raw into date, time and timezone
+          rest = date_raw;
+          if( match( rest, /([[:digit:]]+\/[[:alnum:]]+\/[[:digit:]]+)(.*)/, a
+          {
+            date = a[1];
+            rest = a[2];
+            if( match( rest, /:([[:digit:]]+:[[:digit:]]+:[[:digit:]]+)(.*)/, a
+            {
+              time = a[1];
+              rest = a[2];
+              if( match( rest, /([+-]?[[:digit:]]+)/, a ) != 0 )
+              {
+                timezone = a[1];
+              }
+            }
+          }
+        }
+        # parse request
+        if( match( line, /"([^"]*)" (.*)/, a ) != 0 )
+        {
+          request = a[1];
+          line = a[2];
+        }
+        # parse response codes (200, 400, etc)
+        if( match( line, /([[:digit:]]+) (.*)/, a ) != 0 )
+        {
+          code1 = a[1];
+          line = a[2];
+        }
+        # parse response codes (200, 400, etc)
+        if( match( line, /([[:digit:]]+) (.*)/, a ) != 0 )
+        {
+          code2 = a[1];
+          line = a[2];
+        }
+        # parse referer
+        if( match( line, /"([^"]*)" (.*)/, a ) != 0 )
+        {
+          referer = a[1];
+          line = a[2];
+        }
+        # parse agent
+        if( match( line, /"([^"]*)"/, a ) != 0 )
+        {
+          agent = a[1];
+          line = a[2];
+        }
+        out = pattern;
+        out = gensub( "#ip#", ip, "g", out );
+        out = gensub( "#user#", user, "g", out );
+        out = gensub( "#pass#", pass, "g", out );
+        out = gensub( "#date_raw#", date_raw, "g", out );
+        out = gensub( "#date#", date, "g", out );
+        out = gensub( "#time#", time, "g", out );
+        out = gensub( "#timezone#", timezone, "g", out );
+        out = gensub( "#request#", request, "g", out );
+        out = gensub( "#code1#", code1, "g", out );
+        out = gensub( "#code2#", code2, "g", out );
+        out = gensub( "#referer#", referer, "g", out );
+        out = gensub( "#agent#", agent, "g", out );
+        print out;
+      }
+</code>