1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
#!/usr/bin/env perl
#
# convert-makefile-header.pl - perl script that converts old style Makefile
# headers to the new format.
#
# Created by: Emanuel Haupt <ehaupt@FreeBSD.org>
#
# MAINTAINER= ehaupt@FreeBSD.org
#
# $FreeBSD$
use strict;
use warnings;
use File::Basename;
use Getopt::Long qw(:config posix_default no_ignore_case);
sub usage() {
my $bn=basename($0);
print(<< "_ENOUSAGE");
Usage: $bn [OPTION] PORT
-c use 'created by' header (default)
-r use simple \$FreeBSD\$ RCS string header
(make sure the original creator is ok with this)
-h, --help this help
-n, --nowrite don't change file, just print what would be done
_ENOUSAGE
}
my $nicepeople="((\\s|<|^)(araujo|az|avilla|bapt|bdrewery|beat|crees|eadler|flo|flz|garga|kuriyama|linimon|makc|rm|tabthorpe|wxs)\@freebsd.org|cvs-src\@yandex\.ru|makc\@issp\.ac\.ru|villa\.alberto@|pgollucci\@p6m7g8\.com|bsdkaffee@|baptiste\.daroussin\@gmail.com)";
sub get_creator($) {
my $header=shift;
my $creator;
for my $line (@$header) {
if($line=~m'\s+whom:\s+(.*)'i) {
return $1;
} elsif($line=~m'\s+Created by:\s+(.*)'i) {
return $1;
}
}
return $creator;
}
sub get_mcom($) {
my $header=shift;
my $mcom;
for my $line (@$header) {
if ($line=~m'\$MCom:'i) {
return $line;
}
}
return "";
}
MAIN: {
# get options
my $opt={};
GetOptions($opt, 'help|h', 'rcsonly|r', 'createdby|c', 'nowrite|n');
if(defined($opt->{help})) {
usage();
exit 0;
}
if(not @ARGV) {
push(@ARGV, '.');
}
for my $arg (@ARGV) {
my @header;
my @makefile;
my $in_header=1;
if(-f "$arg/Makefile") {
my $mf=$arg . "/Makefile";
open(F,'<'.$mf);
while(my $line=<F>) {
chomp($line);
if($line=~m'^#' and $in_header) {
push(@header, $line);
} else {
$in_header=0;
push(@makefile, $line);
}
}
close(F);
my $outh;
if(defined($opt->{nowrite})) {
$outh = \*STDOUT;
} else {
open(MF,'>'.$mf.'.tmp_header_rename');
$outh = \*MF;
}
# write new Makefile
if(defined($opt->{rcsonly})) {
print $outh "# \$FreeBSD\$\n";
} elsif(defined($opt->{createdby}) || !defined($opt->{rcsonly})) {
my $creator=get_creator(\@header);
my $mcom=get_mcom(\@header);
if(defined($creator)) {
if ($creator!~m"$nicepeople"i) {
print $outh "# Created by: $creator\n";
}
} else {
print STDERR "$mf creator not found. Reverting to RCS string only.\n";
}
print $outh "# \$FreeBSD\$\n";
print $outh $mcom;
}
for my $line (@makefile) {
print $outh $line . "\n";
}
if(not defined($opt->{nowrite})) {
# move new Makefile
`mv $mf $mf.orig`;
`mv $mf.tmp_header_rename $mf`;
print STDERR "$mf converted.\n";
}
} else {
print STDERR "$arg/Makefile does not exist.\n";
}
}
}
|
