From a6f45fefc0db0783d7039309313571dd9ee328ee Mon Sep 17 00:00:00 2001 From: jprocter Date: Thu, 4 Jun 2009 08:38:04 +0000 Subject: [PATCH] script goes at beginning of body to allow linkthrus to be embedded. --- utils/patchGt.pl | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/utils/patchGt.pl b/utils/patchGt.pl index 07811b0..19cb131 100644 --- a/utils/patchGt.pl +++ b/utils/patchGt.pl @@ -5,6 +5,7 @@ use Env qw($GTID); defined($GTID) or $GTID="UA-9060947-1"; my $SCRIPT = < - FOO while (scalar @ARGV) @@ -28,8 +28,10 @@ while (scalar @ARGV) if (open OF,">$f.".$GTID) { if (open IF,"$f") { while () { - if ($_=~m!!) { - $_=~s!!$SCRIPT!; + if ($_=~m!!) { + $_=~s!!$SCRIPT!; + } else { +# $_=~s!href="([~"]+)"!href="$1" onclick=" } print OF $_; } -- 1.7.10.2