50 lines
1.0 KiB
Perl
50 lines
1.0 KiB
Perl
#!/usr/bin/perl
|
|
|
|
$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
|
|
}
|