- Rename .sgml files to .xml

- Reflect the rename in referencing files

Approved by:	doceng (implicit)

1 files changed, 9 insertions, 9 deletions

diff --git a/ja_JP.eucJP/htdocs/ports/portindex b/ja_JP.eucJP/htdocs/ports/portindex
index d7d95778d6..1b6e060585 100755
--- a/ja_JP.eucJP/htdocs/ports/portindex
+++ b/ja_JP.eucJP/htdocs/ports/portindex
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# 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
@@ -294,7 +294,7 @@ sub main {
 
     	# Add an entry to the master index
 
-	# workaround for SGML bug, `--' is not allowed in comments
+	# workaround for XML syntax, `--' is not allowed in comments
 	my $sname = $name;
 	$sname =~ s/--/-=/g;
     	$master[$portnumber] = 
@@ -303,9 +303,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 -- グループによる分類");
 
     print $moutf <<EOF;
@@ -337,7 +337,7 @@ EOF
 
 
 	    # 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";
@@ -358,9 +358,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 -- アルファベット順");
 
     print $moutf <<EOF;
@@ -385,9 +385,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 一覧");
     print $mindex "<p>\n";
     print $mindex sort @master;