freebsd-ports/Tools/make_readmes
2011-08-12 06:56:44 +00:00

50 lines
1 KiB
Perl

#!/usr/bin/perl
# $FreeBSD$
$PORTSDIR="/usr/ports";
$TEMPLATES=$ENV{TEMPLATES} || "${PORTSDIR}/Templates";
$README=`cat ${TEMPLATES}/README.port`;
while(<>) {
(@F)=split(/\|/, $_);
$PKG=$F[0];
$PORT=$F[1];
$COMMENT=$F[3];
$DESCR=$F[4];
$EMAIL=$F[5];
$BUILD_DEPENDS=$F[7];
$RUN_DEPENDS=$F[8];
$WEBSITE=$F[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
}