X-Git-Url: http://source.jalview.org/gitweb/?a=blobdiff_plain;f=utils%2FpatchGt.pl;h=6f8162cd5d2711182bc86018f6fb2cb69acf0be2;hb=fc77dfd068b74f1ba81927c098b97667eb01e255;hp=07811b0b32ee903b8491ce52c8a6130a7349e7e3;hpb=ff6fa95e2c5f7a9a0eb19422f292d31341d830f7;p=jalview.git diff --git a/utils/patchGt.pl b/utils/patchGt.pl index 07811b0..6f8162c 100644 --- a/utils/patchGt.pl +++ b/utils/patchGt.pl @@ -1,10 +1,29 @@ #!/bin/perl +## +# Jalview - A Sequence Alignment Editor and Viewer ($$Version-Rel$$) +# Copyright (C) $$Year-Rel$$ The Jalview Authors +# +# 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 . +# The Jalview Authors are detailed in the 'AUTHORS' file. +## use strict; use Env qw($GTID); defined($GTID) or $GTID="UA-9060947-1"; my $SCRIPT = < - FOO while (scalar @ARGV) @@ -28,8 +46,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 $_; }