From ff6fa95e2c5f7a9a0eb19422f292d31341d830f7 Mon Sep 17 00:00:00 2001
From: jprocter <Jim Procter>
Date: Mon, 1 Jun 2009 15:54:32 +0000
Subject: [PATCH] GA appender script

---
 utils/patchGt.pl |   50 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 50 insertions(+)
 create mode 100644 utils/patchGt.pl

diff --git a/utils/patchGt.pl b/utils/patchGt.pl
new file mode 100644
index 0000000..07811b0
--- /dev/null
+++ b/utils/patchGt.pl
@@ -0,0 +1,50 @@
+#!/bin/perl
+
+use strict;
+use Env qw($GTID);
+
+defined($GTID) or $GTID="UA-9060947-1";
+my $SCRIPT = <<FOO;
+<script type="text/javascript">
+    var gaJsHost = (("https:" == document.location.protocol) ?
+	"https://ssl." : "http://www.");
+    document.write(unescape("%3Cscript src=\'" + gaJsHost +
+	"google-analytics.com/ga.js\' type=\'text/javascript\'%3E%3C/script%3E"));
+</script>
+<script type="text/javascript">
+try{
+    var pageTracker = _gat._getTracker("'$GTID'");
+    pageTracker._trackPageview();
+} catch(err) {}
+</script>
+</body>
+FOO
+		
+while (scalar @ARGV)
+{
+    my $f=shift @ARGV;
+    if (-f $f) {
+	if (system("grep","-v","-q",'"'.$GTID.'"',$f)) {
+	    if (open OF,">$f.".$GTID) {
+		if (open IF,"$f") {
+		while (<IF>) {
+		    if ($_=~m!</body>!) {
+			$_=~s!</body>!$SCRIPT!;
+		    }
+		    print OF $_;
+		}
+		close(IF);
+		close(OF);
+		rename($f,$f.".old.".$GTID) or die("Couldn't rename $f to $f".".old.".$GTID,$@);
+		rename($f.".$GTID",$f) or die("Couldn't rename $f.".$GTID." to $f",$@);
+		unlink($f.".old.".$GTID) or die("Couldn't delete ".$f.".old.".$GTID,$@);
+		} else {
+		    warn("Can't open $f for reading.",$@);
+		}
+	    } else {
+		warn("Couldn't open new edited file $f.$GTID",$@);
+	    }
+	}
+    }
+}
+
-- 
1.7.10.2