aboutsummaryrefslogtreecommitdiff
path: root/en_US.ISO8859-1/htdocs/ports/portindex
diff options
context:
space:
mode:
Diffstat (limited to 'en_US.ISO8859-1/htdocs/ports/portindex')
-rwxr-xr-xen_US.ISO8859-1/htdocs/ports/portindex18
1 files changed, 9 insertions, 9 deletions
diff --git a/en_US.ISO8859-1/htdocs/ports/portindex b/en_US.ISO8859-1/htdocs/ports/portindex
index 86103305c3..f76b28ad36 100755
--- a/en_US.ISO8859-1/htdocs/ports/portindex
+++ b/en_US.ISO8859-1/htdocs/ports/portindex
@@ -1,6 +1,6 @@
#!/usr/bin/perl -w
-# convert a ports INDEX file to SGML files
+# convert a ports INDEX file to XML files
#
# by John Fieber <jfieber@FreeBSD.org>
# Mon May 13 10:31:58 EST 1996
@@ -273,7 +273,7 @@ sub main {
# Add an entry to the master index
- # workaround for SGML bug, `--' is not allowed in comments
+ # workaround XML syntax, `--' is not allowed in comments
my $sname = $name;
$sname =~ s/--/-=/g;
$master[$portnumber] =
@@ -282,9 +282,9 @@ sub main {
$portnumber++;
}
- # create categories-grouped.sgml and <category>.sgml
+ # create categories-grouped.xml and <category>.xml
- $moutf->open(">categories-grouped.sgml");
+ $moutf->open(">categories-grouped.xml");
header($moutf, "FreeBSD Ports Categories Listed By Groups");
print $moutf <<EOF;
@@ -316,7 +316,7 @@ EOF
print $moutf "</li>\n";
# Create the category file
- $outf->open(">$key.sgml");
+ $outf->open(">$key.xml");
header($outf, "FreeBSD Ports: \u$key");
if ($category_description{$key}{desc}) {
print $outf "<h3>", $category_description{$key}{desc}, "</h3>\n";
@@ -337,9 +337,9 @@ EOF
footer($moutf, "");
$moutf->close;
- # create categories-alpha.sgml
+ # create categories-alpha.xml
- $moutf->open(">categories-alpha.sgml");
+ $moutf->open(">categories-alpha.xml");
header($moutf, "FreeBSD Ports Categories Listed Alphabetically");
print $moutf <<EOF;
@@ -364,9 +364,9 @@ EOF
footer($moutf, "");
$moutf->close;
- # Create master-index.sgml
+ # Create master-index.xml
- $mindex->open(">master-index.sgml");
+ $mindex->open(">master-index.xml");
header($mindex, "FreeBSD Ports Collection Index");
print $mindex "<p>\n";
print $mindex sort @master;