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

Last change on this file since 514 was 514, checked in by Dag-Erling Smørgrav, 10 years ago

Generate Trac-compatible wiki text for each release from HISTORY.

  • Property svn:executable set to *
File size: 2.0 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#
16# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
17# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
18# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
19# ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
20# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
21# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
22# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
23# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
24# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
25# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
26# SUCH DAMAGE.
27#
28# $Id$
29#
30
31use strict;
32use warnings;
33
34while (<>) {
35    if (m/^OpenPAM ([A-Z][a-z]+)\t+(\d\d\d\d-\d\d-\d\d)\s*$/) {
36        my ($relname, $reldate) = ($1, $2);
37        my $wikitext = "= OpenPAM $relname =\n" .
38            "\n" .
39            "OpenPAM $relname was released on $reldate.\n";
40        while (<>) {
41            last if m/^=+$/;
42            $wikitext .= $_;
43        }
44        $wikitext .= "\n" .
45            "[http://sourceforge.net/projects/openpam/files/openpam/$relname/ Download from Sourceforge]\n";
46        open(my $fh, ">", "$relname.txt")
47            or die("$relname.txt: $!\n");
48        print($fh $wikitext);
49        close($fh);
50        print("|| $reldate || [[Releases/$relname|$relname]] ||\n");
51    }
52}
53
541;
Note: See TracBrowser for help on using the repository browser.