source: openpam/trunk/misc/history2wiki.pl @ 578

Last change on this file since 578 was 578, checked in by des, 3 years ago

As previously mentioned, move from 2-clause BSD to 3-clause BSD.

  • Property svn:executable set to *
File size: 2.1 KB
Line 
1#!/usr/bin/perl -Tw
2#-
3# Copyright (c) 2012 Dag-Erling Smørgrav
4# All rights reserved.
5#
6# Redistribution and use in source and binary forms, with or without
7# modification, are permitted provided that the following conditions
8# are met:
9# 1. Redistributions of source code must retain the above copyright
10#    notice, this list of conditions and the following disclaimer
11#    in this position and unchanged.
12# 2. Redistributions in binary form must reproduce the above copyright
13#    notice, this list of conditions and the following disclaimer in the
14#    documentation and/or other materials provided with the distribution.
15# 3. The name of the author may not be used to endorse or promote
16#    products derived from this software without specific prior written
17#    permission.
18#
19# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
20# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
21# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
22# ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
23# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
24# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
25# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
26# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
27# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
28# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
29# SUCH DAMAGE.
30#
31# $Id$
32#
33
34use strict;
35use warnings;
36
37while (<>) {
38    if (m/^OpenPAM ([A-Z][a-z]+)\t+(\d\d\d\d-\d\d-\d\d)\s*$/) {
39        my ($relname, $reldate) = ($1, $2);
40        my $wikitext = "= OpenPAM $relname =\n" .
41            "\n" .
42            "OpenPAM $relname was released on $reldate.\n";
43        while (<>) {
44            last if m/^=+$/;
45            $wikitext .= $_;
46        }
47        $wikitext .= "\n" .
48            "[http://sourceforge.net/projects/openpam/files/openpam/$relname/ Download from Sourceforge]\n";
49        open(my $fh, ">", "$relname.txt")
50            or die("$relname.txt: $!\n");
51        print($fh $wikitext);
52        close($fh);
53        print("|| $reldate || [[Releases/$relname|$relname]] ||\n");
54    }
55}
56
571;
Note: See TracBrowser for help on using the repository browser.