CVS Update: gleipnir

[Dan Brosemer <odin@cleannorth.org>]

Log Message:
-----------
Only increase access count if the page was a GET - for spam protection

Modified Files:
--------------
    gleipnir/perllib/Gleipnir:
        Session.pm

Revision Data
-------------
Index: Session.pm
===================================================================
RCS file: /cvs/gleipnir/perllib/Gleipnir/Session.pm,v
retrieving revision 1.19
retrieving revision 1.20
diff -Lperllib/Gleipnir/Session.pm -Lperllib/Gleipnir/Session.pm -u -r1.19 -r1.20
--- perllib/Gleipnir/Session.pm
+++ perllib/Gleipnir/Session.pm
@@ -160,16 +160,18 @@
 		$this->save;
 		}
 
+	my $count = ($cgi->request_method() eq  'GET')?1:0;
+
 	$SQL = <<EOT;
 update common.session
    set atime = now(),
 	     validfor = ?,
-			 accesscount = accesscount + 1
+			 accesscount = accesscount + ?
  where sessionid = ?
 EOT
 
 	$cursor = $dbh->prepare($SQL);
-	$cursor->execute( $timeout, $this->{id} );
+	$cursor->execute( $timeout, $count, $this->{id} );
 
 	$SQL = <<EOT;
 select accesscount