1#!/usr/bin/env perl
2
3$PORTSDIR=$ENV{PORTSDIR} || "/usr/mports";
4$TEMPLATES=$ENV{TEMPLATES} || "${PORTSDIR}/Templates";
5$README=`cat ${TEMPLATES}/README.port`;
6
7while(<>) {
8	(@F)=split(/\|/, $_);
9	$PKG=$F[0];
10	$PORT=$F[1];
11	$COMMENT=$F[3];
12	$DESCR=$F[4];
13	$EMAIL=$F[5];
14	$BUILD_DEPENDS=$F[7];
15	$RUN_DEPENDS=$F[8];
16	$WEBSITE=$F[9];
17
18
19	$DESCR=~s|^\Q$PORT/\E||;
20	$PORT=~s|/usr/mports/||;
21	$PORT=~s|`pwd`||;
22
23	if($WEBSITE) {
24		$WEBSITE=" and/or visit the <a href=\"$WEBSITE\">web site</a> for futher informations"
25	};
26	if($BUILD_DEPENDS) {
27		$BUILD_DEPENDS="This port requires package(s) \"$BUILD_DEPENDS\" to build."
28	};
29	if($RUN_DEPENDS) {
30		$RUN_DEPENDS="This port requires package(s) \"$RUN_DEPENDS\" to run."
31	};
32
33	$TOP=$PORT;
34	$TOP=~s|[^/]+|..|g;
35
36	$tmp=$README;
37	$tmp=~s|%%PKG%%|$PKG|g;
38	$tmp=~s|%%PORT%%|$PORT|g;
39	$tmp=~s|%%COMMENT%%|$COMMENT|g;
40	$tmp=~s|%%DESCR%%|$DESCR|g;
41	$tmp=~s|%%EMAIL%%|$EMAIL|g;
42	$tmp=~s|%%WEBSITE%%|$WEBSITE|g;
43	$tmp=~s|%%BUILD_DEPENDS%%|$BUILD_DEPENDS|g;
44	$tmp=~s|%%RUN_DEPENDS%%|$RUN_DEPENDS|g;
45	$tmp=~s|%%TOP%%|$TOP|g;
46
47	open F,">$PORT/README.html";
48	print F $tmp;
49	close F
50}
51