projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
service refactor!
[freeside.git]
/
rt
/
sbin
/
license_tag
diff --git
a/rt/sbin/license_tag
b/rt/sbin/license_tag
index
cd1a971
..
906d349
100644
(file)
--- a/
rt/sbin/license_tag
+++ b/
rt/sbin/license_tag
@@
-1,11
+1,11
@@
#!/usr/bin/perl
#!/usr/bin/perl
-#
{{{ BEGIN BPS TAGGED BLOCK
+#
BEGIN BPS TAGGED BLOCK {{{
#
# COPYRIGHT:
#
#
# COPYRIGHT:
#
-# This software is Copyright (c) 1996-200
4
Best Practical Solutions, LLC
+# This software is Copyright (c) 1996-200
5
Best Practical Solutions, LLC
# <jesse@bestpractical.com>
#
# (Except where explicitly superseded by other copyright notices)
# <jesse@bestpractical.com>
#
# (Except where explicitly superseded by other copyright notices)
@@
-45,12
+45,12
@@
# works based on those contributions, and sublicense and distribute
# those contributions and any derivatives thereof.
#
# works based on those contributions, and sublicense and distribute
# those contributions and any derivatives thereof.
#
-#
}}} END BPS TAGGED BLOCK
+#
END BPS TAGGED BLOCK }}}
my $LICENSE = <<'EOL';
COPYRIGHT:
my $LICENSE = <<'EOL';
COPYRIGHT:
-This software is Copyright (c) 1996-200
4
Best Practical Solutions, LLC
+This software is Copyright (c) 1996-200
5
Best Practical Solutions, LLC
<jesse@bestpractical.com>
(Except where explicitly superseded by other copyright notices)
<jesse@bestpractical.com>
(Except where explicitly superseded by other copyright notices)
@@
-116,16
+116,16
@@
sub tag_mason {
print "$pm - ";
print "$pm - ";
- if ($file =~ /^%#
{{{ BEGIN BPS TAGGED BLOCK
/ms) {
+ if ($file =~ /^%#
BEGIN BPS TAGGED BLOCK {{{
/ms) {
print "has license section";
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;
+ $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";
} else {
print "no license section";
- $file ="%#
{{{ BEGIN BPS TAGGED BLOCK\n$pmlic%# }}} END BPS TAGGED BLOCK
\n". $file;
+ $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;
+ $file =~ s/%#
END BPS TAGGED BLOCK }}}(\n+)/%# END BPS TAGGED BLOCK }}}
\n/mg;
print "\n";
print "\n";
@@
-148,16
+148,16
@@
sub tag_makefile {
print "$pm - ";
print "$pm - ";
- if ($file =~ /^#
{{{ BEGIN BPS TAGGED BLOCK
/ms) {
+ if ($file =~ /^#
BEGIN BPS TAGGED BLOCK {{{
/ms) {
print "has license section";
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;
+ $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";
} else {
print "no license section";
- $file ="#
{{{ BEGIN BPS TAGGED BLOCK\n$pmlic# }}} END BPS TAGGED BLOCK
\n". $file;
+ $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;
+ $file =~ s/#
END BPS TAGGED BLOCK }}}(\n+)/# END BPS TAGGED BLOCK }}}
\n/mg;
print "\n";
print "\n";
@@
-181,16
+181,16
@@
sub tag_pm {
print "$pm - ";
print "$pm - ";
- if ($file =~ /^#
{{{ BEGIN BPS TAGGED BLOCK
/ms) {
+ if ($file =~ /^#
BEGIN BPS TAGGED BLOCK {{{
/ms) {
print "has license section";
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;
+ $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";
} else {
print "no license section";
- $file ="#
{{{ BEGIN BPS TAGGED BLOCK\n$pmlic# }}} END BPS TAGGED BLOCK
\n". $file;
+ $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;
+ $file =~ s/#
END BPS TAGGED BLOCK }}}(\n+)/# END BPS TAGGED BLOCK }}}
\n/mg;
print "\n";
print "\n";
@@
-213,21
+213,21
@@
sub tag_script {
$pmlic =~ s/^/# /msg;
print "$pm - ";
$pmlic =~ s/^/# /msg;
print "$pm - ";
- if ($file =~ /^#
{{{ BEGIN BPS TAGGED BLOCK
/ms) {
+ if ($file =~ /^#
BEGIN BPS TAGGED BLOCK {{{
/ms) {
print "has license section";
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;
+ $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/) {
} else {
print "no license section";
if ($file =~ /^(#!.*?)\n/) {
- my $lic ="#
{{{ BEGIN BPS TAGGED BLOCK\n$pmlic# }}} END BPS TAGGED BLOCK
\n";
+ my $lic ="#
BEGIN BPS TAGGED BLOCK {{{\n$pmlic# END BPS TAGGED BLOCK }}}
\n";
$file =~ s/^(#!.*?)\n/$1\n$lic/;
}
}
$file =~ s/^(#!.*?)\n/$1\n$lic/;
}
}
- $file =~ s/#
}}} END BPS TAGGED BLOCK(\n+)/# }}} END BPS TAGGED BLOCK
\n/mg;
+ $file =~ s/#
END BPS TAGGED BLOCK }}}(\n+)/# END BPS TAGGED BLOCK }}}
\n/mg;
print "\n";
print "\n";