X-Git-Url: http://source.jalview.org/gitweb/?a=blobdiff_plain;ds=inline;f=utils%2FpatchGt.pl;h=3aa3303d7910f6b45cae6072d73fc9a4bb73d38b;hb=3e462b3323ccf43864d73d6cdfccd0fd84301a30;hp=07811b0b32ee903b8491ce52c8a6130a7349e7e3;hpb=ff6fa95e2c5f7a9a0eb19422f292d31341d830f7;p=jalview.git diff --git a/utils/patchGt.pl b/utils/patchGt.pl index 07811b0..3aa3303 100644 --- a/utils/patchGt.pl +++ b/utils/patchGt.pl @@ -1,10 +1,28 @@ #!/bin/perl +#******************************************************************************* +# Jalview - A Sequence Alignment Editor and Viewer (Version 2.8) +# Copyright (C) 2012 J Procter, AM Waterhouse, LM Lui, J Engelhardt, G Barton, M Clamp, S Searle +# +# This file is part of Jalview. +# +# Jalview is free software: you can redistribute it and/or +# modify it under the terms of the GNU General Public License +# as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version. +# +# Jalview is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty +# of MERCHANTABILITY or FITNESS FOR A PARTICULAR +# PURPOSE. See the GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License along with Jalview. If not, see . +#******************************************************************************* use strict; use Env qw($GTID); defined($GTID) or $GTID="UA-9060947-1"; my $SCRIPT = < - FOO while (scalar @ARGV) @@ -28,8 +45,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 $_; }