diff options
Diffstat (limited to 'rt/sbin/license_tag')
-rw-r--r-- | rt/sbin/license_tag | 243 |
1 files changed, 0 insertions, 243 deletions
diff --git a/rt/sbin/license_tag b/rt/sbin/license_tag deleted file mode 100644 index ed1d4eb..0000000 --- a/rt/sbin/license_tag +++ /dev/null @@ -1,243 +0,0 @@ -#!/usr/bin/perl - - -# BEGIN BPS TAGGED BLOCK {{{ -# -# COPYRIGHT: -# -# This software is Copyright (c) 1996-2007 Best Practical Solutions, LLC -# <jesse@bestpractical.com> -# -# (Except where explicitly superseded by other copyright notices) -# -# -# LICENSE: -# -# This work is made available to you under the terms of Version 2 of -# the GNU General Public License. A copy of that license should have -# been provided with this software, but in any event can be snarfed -# from www.gnu.org. -# -# This work 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 this program; if not, write to the Free Software -# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA -# 02110-1301 or visit their web page on the internet at -# http://www.gnu.org/copyleft/gpl.html. -# -# -# CONTRIBUTION SUBMISSION POLICY: -# -# (The following paragraph is not intended to limit the rights granted -# to you to modify and distribute this software under the terms of -# the GNU General Public License and is only of importance to you if -# you choose to contribute your changes and enhancements to the -# community by submitting them to Best Practical Solutions, LLC.) -# -# By intentionally submitting any modifications, corrections or -# derivatives to this work, or any other work intended for use with -# Request Tracker, to Best Practical Solutions, LLC, you confirm that -# you are the copyright holder for those contributions and you grant -# Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable, -# royalty-free, perpetual, license to use, copy, create derivative -# works based on those contributions, and sublicense and distribute -# those contributions and any derivatives thereof. -# -# END BPS TAGGED BLOCK }}} -my $LICENSE = <<'EOL'; - -COPYRIGHT: - -This software is Copyright (c) 1996-2007 Best Practical Solutions, LLC - <jesse@bestpractical.com> - -(Except where explicitly superseded by other copyright notices) - - -LICENSE: - -This work is made available to you under the terms of Version 2 of -the GNU General Public License. A copy of that license should have -been provided with this software, but in any event can be snarfed -from www.gnu.org. - -This work 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 this program; if not, write to the Free Software -Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA -02110-1301 or visit their web page on the internet at -http://www.gnu.org/copyleft/gpl.html. - - -CONTRIBUTION SUBMISSION POLICY: - -(The following paragraph is not intended to limit the rights granted -to you to modify and distribute this software under the terms of -the GNU General Public License and is only of importance to you if -you choose to contribute your changes and enhancements to the -community by submitting them to Best Practical Solutions, LLC.) - -By intentionally submitting any modifications, corrections or -derivatives to this work, or any other work intended for use with -Request Tracker, to Best Practical Solutions, LLC, you confirm that -you are the copyright holder for those contributions and you grant -Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable, -royalty-free, perpetual, license to use, copy, create derivative -works based on those contributions, and sublicense and distribute -those contributions and any derivatives thereof. - -EOL - -use File::Find; - -my @MAKE = qw(Makefile); - -File::Find::find({ no_chdir => 1, wanted => \&tag_pm}, 'lib'); -File::Find::find({ no_chdir => 1, wanted => \&tag_mason}, 'html'); -File::Find::find({ no_chdir => 1, wanted => \&tag_script}, 'sbin'); -File::Find::find({ no_chdir => 1, wanted => \&tag_script}, 'bin'); -tag_makefile ('Makefile.in'); -tag_makefile ('README'); - - -sub tag_mason { - my $pm = $_; - next unless (-f $pm); - next if ($pm =~ /images/); - open(FILE,"<$pm") || die "Failed to open $pm"; - my $file = (join "", <FILE>); - close (FILE); - my $pmlic = $LICENSE; - $pmlic =~ s/^/%# /mg; - - - print "$pm - "; - if ($file =~ /^%# BEGIN BPS TAGGED BLOCK {{{/ms) { - print "has license section"; - $file =~ s/^%# BEGIN BPS TAGGED BLOCK {{{(.*?)%# END BPS TAGGED BLOCK }}}/%# BEGIN BPS TAGGED BLOCK {{{\n$pmlic%# END BPS TAGGED BLOCK }}}/ms; - - - } else { - print "no license section"; - $file ="%# BEGIN BPS TAGGED BLOCK {{{\n$pmlic%# END BPS TAGGED BLOCK }}}\n". $file; - } - $file =~ s/%# END BPS TAGGED BLOCK }}}(\n+)/%# END BPS TAGGED BLOCK }}}\n/mg; - print "\n"; - - - - - open (FILE, ">$pm") || die "couldn't write new file"; - print FILE $file; - close FILE; - -} - - -sub tag_makefile { - my $pm = shift; - open(FILE,"<$pm") || die "Failed to open $pm"; - my $file = (join "", <FILE>); - close (FILE); - my $pmlic = $LICENSE; - $pmlic =~ s/^/# /mg; - - - print "$pm - "; - if ($file =~ /^# BEGIN BPS TAGGED BLOCK {{{/ms) { - print "has license section"; - $file =~ s/^# BEGIN BPS TAGGED BLOCK {{{(.*?)# END BPS TAGGED BLOCK }}}/# BEGIN BPS TAGGED BLOCK {{{\n$pmlic# END BPS TAGGED BLOCK }}}/ms; - - - } else { - print "no license section"; - $file ="# BEGIN BPS TAGGED BLOCK {{{\n$pmlic# END BPS TAGGED BLOCK }}}\n". $file; - } - $file =~ s/# END BPS TAGGED BLOCK }}}(\n+)/# END BPS TAGGED BLOCK }}}\n/mg; - print "\n"; - - - - - open (FILE, ">$pm") || die "couldn't write new file"; - print FILE $file; - close FILE; - -} - - -sub tag_pm { - my $pm = $_; - next unless $pm =~ /\.pm/s; - open(FILE,"<$pm") || die "Failed to open $pm"; - my $file = (join "", <FILE>); - close (FILE); - my $pmlic = $LICENSE; - $pmlic =~ s/^/# /mg; - - - print "$pm - "; - if ($file =~ /^# BEGIN BPS TAGGED BLOCK {{{/ms) { - print "has license section"; - $file =~ s/^# BEGIN BPS TAGGED BLOCK {{{(.*?)# END BPS TAGGED BLOCK }}}/# BEGIN BPS TAGGED BLOCK {{{\n$pmlic# END BPS TAGGED BLOCK }}}/ms; - - - } else { - print "no license section"; - $file ="# BEGIN BPS TAGGED BLOCK {{{\n$pmlic# END BPS TAGGED BLOCK }}}\n". $file; - } - $file =~ s/# END BPS TAGGED BLOCK }}}(\n+)/# END BPS TAGGED BLOCK }}}\n/mg; - print "\n"; - - - - - open (FILE, ">$pm") || die "couldn't write new file $pm"; - print FILE $file; - close FILE; - -} - - -sub tag_script { - my $pm = $_; - return unless (-f $pm); - open(FILE,"<$pm") || die "Failed to open $pm"; - my $file = (join "", <FILE>); - close (FILE); - my $pmlic = $LICENSE; - $pmlic =~ s/^/# /msg; - - print "$pm - "; - if ($file =~ /^# BEGIN BPS TAGGED BLOCK {{{/ms) { - print "has license section"; - $file =~ s/^# BEGIN BPS TAGGED BLOCK {{{(.*?)# END BPS TAGGED BLOCK }}}/# BEGIN BPS TAGGED BLOCK {{{\n$pmlic# END BPS TAGGED BLOCK }}}/ms; - - - } else { - print "no license section"; - if ($file =~ /^(#!.*?)\n/) { - - my $lic ="# BEGIN BPS TAGGED BLOCK {{{\n$pmlic# END BPS TAGGED BLOCK }}}\n"; - $file =~ s/^(#!.*?)\n/$1\n$lic/; - - } - } - $file =~ s/# END BPS TAGGED BLOCK }}}(\n+)/# END BPS TAGGED BLOCK }}}\n/mg; - print "\n"; - - - open (FILE, ">$pm") || die "couldn't write new file"; - print FILE $file; - close FILE; - -} - |