[Scummvm-cvs-logs] SF.net SVN: scummvm: [23671] docs/trunk/docbook/faq_make_inc.pl

fingolfin at users.sourceforge.net fingolfin at users.sourceforge.net
Fri Aug 4 22:08:35 CEST 2006


Revision: 23671
Author:   fingolfin
Date:     2006-08-04 13:08:29 -0700 (Fri, 04 Aug 2006)
ViewCVS:  http://svn.sourceforge.net/scummvm/?rev=23671&view=rev

Log Message:
-----------
Modified faq_make_inc.pl to properly cut the last </div>, and to output a 'do not modify'

Modified Paths:
--------------
    docs/trunk/docbook/faq_make_inc.pl
Modified: docs/trunk/docbook/faq_make_inc.pl
===================================================================
--- docs/trunk/docbook/faq_make_inc.pl	2006-08-04 18:58:10 UTC (rev 23670)
+++ docs/trunk/docbook/faq_make_inc.pl	2006-08-04 20:08:29 UTC (rev 23671)
@@ -1,13 +1,22 @@
 #!/usr/bin/perl -w
 use strict;
 
+print "<!-- This file was generated by faq_make_inc.pl. Do *NOT* edit by hand! -->\n";
+
 while (<>) {
   last if (/<div class="qandaset">/);
 }
 
 print '<div class="qandaset">'."\n";
+# The end of the file is marked by five consecutive </div>s
+my $divs=0;
 while (<>) {
-  last if (/<\/body>/);
+  if (/<\/div>/) {
+    $divs++;
+  } else {
+    $divs = 0;
+  }
+  last if (/<\/body>/) || $divs == 5;
   print $_;
 }
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.





More information about the Scummvm-git-logs mailing list