--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/scripts/commit_count/commits.pl	Thu Jan 28 16:26:30 2010 +0000
@@ -0,0 +1,76 @@
+#!/usr/bin/perl
+
+use Getopt::Long;
+my $log_file;
+my $log_data;
+
+
+
+
+sub printhelp
+{
+  print "\ncounting commits in log file
+  \noptions:
+  \n\t-f (mandaory) mercurial access log file\n";
+  exit;
+
+}
+
+sub cmd_options
+{
+
+  my $help;
+  
+
+
+  GetOptions('h' => \$help,'f=s'=> \$log_file);
+
+  
+  if ($help) {
+    printhelp;
+  }
+  
+  if (not $log_file) {
+    print "ERROR  - LOG File not provided\n ";
+    printhelp;
+  }
+
+                                    
+
+}
+
+
+#main
+cmd_options();
+
+open(DATA, "<".$log_file);
+open(COMMITOUT, ">output_commits.csv");
+
+while (<DATA>){
+     $log_data = $_;
+     if ($log_data =~ m/POST/ & $log_data =~ m/MCL(.*?)\?.*?\" 200 /)  { 
+        $pkg = $1;
+        if ($log_data =~ m/([0-9]+)\/([A-z]+)\/([0-9]+)/) {
+          
+          $tcommit = $1."-".$2."-".$3;   
+            
+        } else {
+          $tcommit = "NOTFOUND_TIME";
+        }
+        
+        if ($log_data =~ m/(\d+\.\d+\.\d+\.\d+)/) {
+          
+          $ipcommit = $1;   
+            
+        } else {
+          $ipcommit = "NOTFOUND_IP";
+        }
+        
+        
+        print COMMITOUT "$pkg\t$tcommit\t$ipcommit\n"; 
+     }
+
+}
+
+close (DATA);
+close (COMMITOUT);
\ No newline at end of file