git://source.jalview.org
/
jalview.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
avoid exceptions for orphaned windows
[jalview.git]
/
utils
/
patchGt.pl
diff --git
a/utils/patchGt.pl
b/utils/patchGt.pl
index
07811b0
..
19cb131
100644
(file)
--- 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;
defined($GTID) or $GTID="UA-9060947-1";
my $SCRIPT = <<FOO;
+<body>
<script type="text/javascript">
var gaJsHost = (("https:" == document.location.protocol) ?
"https://ssl." : "http://www.");
<script type="text/javascript">
var gaJsHost = (("https:" == document.location.protocol) ?
"https://ssl." : "http://www.");
@@
-17,7
+18,6
@@
try{
pageTracker._trackPageview();
} catch(err) {}
</script>
pageTracker._trackPageview();
} catch(err) {}
</script>
-</body>
FOO
while (scalar @ARGV)
FOO
while (scalar @ARGV)
@@
-28,8
+28,10
@@
while (scalar @ARGV)
if (open OF,">$f.".$GTID) {
if (open IF,"$f") {
while (<IF>) {
if (open OF,">$f.".$GTID) {
if (open IF,"$f") {
while (<IF>) {
- if ($_=~m!</body>!) {
- $_=~s!</body>!$SCRIPT!;
+ if ($_=~m!<body>!) {
+ $_=~s!<body>!$SCRIPT!;
+ } else {
+# $_=~s!href="([~"]+)"!href="$1" onclick="
}
print OF $_;
}
}
print OF $_;
}