[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