distrib/notes/common/list-portmasters.pl

   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
  41 while(<>) {
  42     chomp;
  43     last if /Port.*Name.*E-mail.*Address/;
  44 }
  45
  46 while(<>) {
  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 }