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