X-Git-Url: http://source.jalview.org/gitweb/?a=blobdiff_plain;f=utils%2FpatchGt.pl;h=9599519e76bf1c7dac36c0e8a2ca558de507e036;hb=3ab582bfeeab1563bedf60e97994e63e672d2e31;hp=07811b0b32ee903b8491ce52c8a6130a7349e7e3;hpb=ff6fa95e2c5f7a9a0eb19422f292d31341d830f7;p=jalview.git diff --git a/utils/patchGt.pl b/utils/patchGt.pl index 07811b0..9599519 100644 --- a/utils/patchGt.pl +++ b/utils/patchGt.pl @@ -1,10 +1,29 @@ #!/bin/perl +## +# Jalview - A Sequence Alignment Editor and Viewer (Version 2.9.0b2) +# Copyright (C) 2015 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 $_; }