1#!/usr/bin/env perl
2#
3# Copyright (c) 2004, 2008 The NetBSD Foundation, Inc.
4# All rights reserved.
5#
6# This code is derived from software contributed to The NetBSD Foundation
7# by Hubert Feyrer <hubert@feyrer.de>.
8#
9# Redistribution and use in source and binary forms, with or without
10# modification, are permitted provided that the following conditions
11# are met:
12# 1. Redistributions of source code must retain the above copyright
13#    notice, this list of conditions and the following disclaimer.
14# 2. Redistributions in binary form must reproduce the above copyright
15#    notice, this list of conditions and the following disclaimer in the
16#    documentation and/or other materials provided with the distribution.
17#
18# THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
19# ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
20# TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
21# PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
22# BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
23# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
24# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
25# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
26# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
27# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
28# POSSIBILITY OF SUCH DAMAGE.
29
30#
31# Usage:
32# 1) lynx -dump http://www.netbsd.org/people/port-maintainers.html \
33#    | perl list-portmasters.pl
34#    >x
35# 2) Sort: sort +1 x >xx ; mv xx x
36# 3) merge "x" into src/distrib/notes/common/main's "portmasters" section
37#
38# Note:  If the *second* portmaster of a port has a link as part of the
39#        Name field, it will cause this script to error out.
40
41while(<>) {
42    chomp;
43    last if /Port.*Name.*E-mail.*Address/;
44}
45
46while(<>) {
47    chomp;
48    s/^\s*//;
49    s/\s*$//;
50    @a = split(/\s+/);
51
52    $port=shift(@a);
53    $email=pop(@a);
54    $name="@a";
55
56    if ($port && $port !~ /\[\d+\]/) {
57	# Port name is wrong - probably because of dual portmasters.
58	# Fix it up.
59	$name = "$port $name";
60
61	$port = $last_port;
62    }
63
64    # valid data is now in $last_*,
65    # $* is saved for possible further processing
66
67    $last_port=~s,\s*\[\d+\],,;
68    $last_name=~s,\s*\[\d+\],,;
69    $last_email=~s,\s*\[\d+\],,;
70    $last_email=~s,\<,,;
71    $last_email=~s,\>,,;
72
73    $last_name=~s,�,\\(/o,g;		# S�ren => S\(/oren
74
75    # output
76    print ".It ";
77    printf("Ta %-30s", $last_name);
78    print " ";
79    printf("Ta Mt %20s", $last_email);
80    print " ";
81    printf("Ta Sy %s", $last_port);
82    print "\n";
83
84    $last_port=$port;
85    $last_email=$email;
86    $last_name=$name;
87
88    last if $name=~/______________/;
89}
90