Tools/make_readmes


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47

#!/usr/bin/perl

$README=`cat Templates/README.port`;

while(<>) {
    split '\|';

    $PKG=$_[0];
    $PORT=$_[1];
    $COMMENT=$_[3];
    $DESCR=$_[4];
    $EMAIL=$_[5];
    $BUILD_DEPENDS=$_[7];
    $RUN_DEPENDS=$_[8];
    $WEBSITE=$_[9];

    $DESCR=~s|^\Q$PORT/\E||;
    $PORT=~s|`pwd`||;

    if($WEBSITE) {
        $WEBSITE=" and/or visit the <a href=\"$WEBSITE\">web site</a> for futher informations"
    };
    if($BUILD_DEPENDS) {
        $BUILD_DEPENDS="This port requires package(s) \"$BUILD_DEPENDS\" to build."
    };
    if($RUN_DEPENDS) {
        $RUN_DEPENDS="This port requires package(s) \"$RUN_DEPENDS\" to run."
    };

    $TOP=$PORT;
    $TOP=~s|[^/]+|..|g;

    $tmp=$README;
    $tmp=~s|%%PKG%%|$PKG|g;
    $tmp=~s|%%PORT%%|$PORT|g;
    $tmp=~s|%%COMMENT%%|$COMMENT|g;
    $tmp=~s|%%DESCR%%|$DESCR|g;
    $tmp=~s|%%EMAIL%%|$EMAIL|g;
    $tmp=~s|%%WEBSITE%%|$WEBSITE|g;
    $tmp=~s|%%BUILD_DEPENDS%%|$BUILD_DEPENDS|g;
    $tmp=~s|%%RUN_DEPENDS%%|$RUN_DEPENDS|g;
    $tmp=~s|%%TOP%%|$TOP|g;

    open F,">$PORT/README.html";
    print F $tmp;
    close F
}