www/prep/wrappers-and-scripts ftp_convert.pl

[Therese Godefroy]

CVSROOT:        /webcvs/www
Module name:    www
Changes by:     Therese Godefroy <th_g> 24/01/25 05:09:29

Modified files:
        prep/wrappers-and-scripts: ftp_convert.pl 

Log message:
        Start a second list 'Special Mirrors'; add anchors to <h4>.

CVSWeb URLs:
http://web.cvs.savannah.gnu.org/viewcvs/www/prep/wrappers-and-scripts/ftp_convert.pl?cvsroot=www&r1=1.21&r2=1.22

Patches:
Index: ftp_convert.pl
===================================================================
RCS file: /webcvs/www/www/prep/wrappers-and-scripts/ftp_convert.pl,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -b -r1.21 -r1.22
--- ftp_convert.pl      18 Jul 2022 15:55:39 -0000      1.21
+++ ftp_convert.pl      25 Jan 2024 10:09:28 -0000      1.22
@@ -1,5 +1,5 @@
 #!/usr/local/bin/perl -w
-# $Id: ftp_convert.pl,v 1.21 2022/07/18 15:55:39 th_g Exp $
+# $Id: ftp_convert.pl,v 1.22 2024/01/25 10:09:28 th_g Exp $
 #
 # Converts the FTP file to a html file - just prints on the standard out
 # and it is the responsibility of who ever running this to redirect to a
@@ -84,6 +84,12 @@
       }
       $start_of_ftp_list = 0;
     }
+    if ($printstr eq "Special mirrors") {
+      $start_of_ftp_list = 1;
+      $last_place = "";
+      $list_open = 0;
+    }
+
     (my $anchor_id = $printstr) =~ tr/ A-Z/_a-z/;
     print "\n\n";
     print "<h$headlvl id=\"$anchor_id\">$printstr</h$headlvl>\n";
@@ -145,7 +151,8 @@
         $list_open = 0;
       }
       $last_place = "";
-      print "\n<h4>$1</h4>\n<ul>\n";
+      (my $anchor_id = $1) =~ tr/ A-Z/_a-z/;
+      print "\n<h4 id=\"$anchor_id\">$1</h4>\n<ul>\n";
       $print_current_output = 0;
       next;
     }