1 files changed, 42 insertions, 0 deletions
diff --git a/gnome-users-guide/gnome-users-guide-1.4/C/applets/applet2ug b/gnome-users-guide/gnome-users-guide-1.4/C/applets/applet2ug
new file mode 100755
index 0000000..c1c2be5
--- /dev/null
+++ b/gnome-users-guide/gnome-users-guide-1.4/C/applets/applet2ug
@@ -0,0 +1,42 @@
+#!/usr/bin/perl -w
+#
+# THIS SCRIPT CHANGES THE SECTION LABELLING
+#
+# example input name: sound-monitor or sound-monitor.sgml
+# example output name: sound-monitor.sgml.ug
+#
+
+$_ =  shift @ARGV;
+s/.sgml//;
+$basename=$_;
+$infilename=$basename . ".sgml";
+$outfilename=$basename . "-ug.sgml";
+
+print ("Reading: $infilename\n");
+open (IN,$infilename) || die "can't open file: $!";
+print ("Writing: $outfilename\n");
+open (OUT,">$outfilename") || die "can't open file for writing: $!";
+
+while (<IN>) {
+	# Now comment out the license
+	s/<sect2 id="license">/<!-- 
+   <sect2 id="license">/;
+	s/<\/sect1>/--> 
+ <\/sect1>/;
+
+	# Start by substituting sections (sect4->sect5, sect3->sect4, ...)
+	s/sect4/sect5/;
+	s/sect3/sect4/;
+	s/sect2/sect3/;
+	s/sect1/sect2/;
+
+	# Now try to pluck out any id's which could be problematic
+	s/id="authors"/id="$basename-authors"/;
+	s/id="bugs"/id="$basename-bugs"/;
+	s/id="prefs"/id="$basename-prefs"/;
+	s/id="usage"/id="$basename-usage"/;
+
+	print OUT $_;
+}
+close (IN) || die "can't close $infilename: $!";
+close (OUT) || die "can't close $outfilename: $!";