identd & authname

diff --git a/iceaccessd b/iceaccessd
index b47e3db..4fd4e1f 100644 (file)
--- a/iceaccessd
+++ b/iceaccessd
@@ -32,7 +32,9 @@ while (1) {
     next if /^$/;
     #rootwood.haze.st - - [24/Dec/2001:15:33:50 -0800] "GET / HTTP/1.0" 200 1388544 "-" "xmms/1.2.5" 89
     /^
-      ([\w\-\.]+)\ -\ -\  #hostname
+      ([\w\-\.]+)\  #hostname
+      ([\w\-]+)\  #identd!! 
+      ([\w\-]+)\  #authname
       \[(\d{2})\/(\w{3})\/(\d{4}):(\d{2}):(\d{2}):(\d{2})\ -(\d{4})\]\  #date
       "GET\ ([\/\w\-\.]+)\ HTTP\/\d\.\d"\  # request string
       (\d{3})\  #staus resonse
@@ -49,14 +51,14 @@ while (1) {
 
     my $hostname = $1;
     my( $mday, $mon, $year, $hours, $min, $sec, $zone ) =
-      (    $2,   $3,    $4,     $5,   $6,   $7,    $8 );
+      (    $4,   $5,    $6,     $7,   $8,   $9,   $10 );
 
-    my $mountpoint = $9;
-    my $status = $10;
-    my $bytes = $11;
-    my $referer = $12;
-    my $useragent = $13;
-    my $seconds = $14;
+    my $mountpoint = $11;
+    my $status = $12;
+    my $bytes = $13;
+    my $referer = $14;
+    my $useragent = $15;
+    my $seconds = $16;
 
     $SIG{HUP} = sub { $eof=1 };
     print join("\t",