+ my $docbase_fh = IO::File->new("debian/lilypond-doc-$type-${lang}.doc-base-special",'w') or
+ die "Unable to open debian/lilypond-doc-$type-${lang}.doc-base-special for writing: $!";
+ print {$docbase_fh} <<EOF;
+Document: lilypond
+Title: GNU LilyPond, the music typesetter
+Author: Various
+Abstract: This documentation describes LilyPond (the GNU Project music
+ typesetter), the LilyPond music input language, and the Mutopia project,
+ a.k.a. "Music To the People."
+Section: Typesetting
+
+EOF
+ if ($type eq 'html') {
+ print {$docbase_fh} <<EOF;
+Format: HTML
+Index: /usr/share/doc/lilypond/html/index.${lang}.html
+Files: /usr/share/doc/lilypond/html/*/*/*.${lang}.html /usr/share/doc/lilypond/html/*/*.${lang}.html /usr/share/doc/lilypond/html/*.${lang}.html
+EOF
+
+ } else {
+ print {$docbase_fh} <<EOF;
+Format: PDF
+Files: /usr/share/doc/lilypond/html/Documentation/*.${lang}.pdf
+EOF
+ }
+ close ($docbase_fh);