X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=debian%2Fpostinst;h=03e952e92c1aa1d3211463d403faa8b137e3dda2;hb=b1a521c92717244d4bff11bb0b2b1304e4355956;hp=e2bcee306c196c2f3dfcdb41e7873140b9e97343;hpb=abe92e217f0a3aab91fa2db330eea89680c2ebad;p=lilypond.git

diff --git a/debian/postinst b/debian/postinst
index e2bcee306c..03e952e92c 100644
--- a/debian/postinst
+++ b/debian/postinst
@@ -1,240 +1,29 @@
-#!/usr/bin/perl -w
+#!/bin/sh
 #
 # postinst script for the Debian GNU/Linux lilypond package
-#
 #   by Anthony Fok <foka@debian.org>
 #   Initial release:  Sun, 26 Oct 1997 03:23:00 -0700
-#     Last modified:  Sun, 23 Nov 1997 03:04:16 -0700
-
-use strict;
-use File::Copy;
-
-my ($package, $pkg_name, $font_supplier, $font_typeface, $std_TEXMF, $TEXMF,
-    $TEXINPUTS, $MFINPUTS, $TFMFONTS, @fonts);
-
-sub correct_opus_fonts ($$);
-sub check_texmfcnf ();
-sub run_texhash ();
-sub add_fonts ($$$$@);
-sub check_specialmap ();
-
-$| = 1;
-
-
-#######################
-# Variables  
-#######################
-
-$package = "lilypond";		# This is used for filenames!  Don't change it!
-$pkg_name = "GNU LilyPond";
-
-$font_supplier = "public";
-$font_typeface = "lilypond";
-@fonts = qw( feta );
-
-$std_TEXMF = "/usr/lib/texmf";  # Debian's standard $TEXMF
-$TEXINPUTS = "$std_TEXMF/tex/$package//";
-$MFINPUTS = "$std_TEXMF/fonts/source/$font_supplier/$font_typeface//";
-$TFMFONTS = "$std_TEXMF/fonts/tfm/$font_supplier/$font_typeface//";
-
-
-#######################
-# Subroutine
-#######################
-
-#----- Fix Opus font entries in special.map (called by check_specialmap()) ---
-#  I goofed up the Opus font entries in special.map, hence this fix.
-#  Note: This is a temporary fix.  Consider removing this in 1998.  ^_^
-
-sub correct_opus_fonts ($$) {
-    my $specialmap = $_[1];
-    my $supplier = "opustex";
-    my $typeface = "opus";
-    my @opusfonts = qw( opus opusline opusnum opussps osl );
-    my $font = "";
-    my $entries = "";
-
-    if ($_[0] =~ /(^\w+\s+public\s+$typeface\n)+/m) {
-	print " Correcting old font entries ...";
-	foreach $font (@opusfonts) {
-	    if (length($font) < 8) { $font .= "\t"; }
-	    $entries .= "$font\t$supplier\t\t$typeface\n";
-	}
-
-	($_[0] =~ s/(^\w+\s+public\s+$typeface\n)+/$entries/m)
-	    or die " Can't correct font entries in $specialmap: $!";
-
-	system(": \${MAKETEXDIR=$TEXMF/maketex}; " .
-	       "test -r \$MAKETEXDIR/maketex.site && . \$MAKETEXDIR/maketex.site; " .
-	       ": \${MT_DESTROOT=$TEXMF/fonts}; " .
-	       "rm -rf \$MT_DESTROOT/pk/*/public/$typeface");
-
-	print "\n";
-	return 1;
-    } else {
-	return 0;
-    }
-}
-
-#-------------------- Check/Modify texmf.cnf for custom teTeX installation ---
-#  Edit texmf.cnf to add search path /usr/lib/texmf
-#  for non-Debian teTeX installation
-
-sub check_texmfcnf () {
-    my $texmfcnf;
-
-    print "\n You have a custom teTeX installation in $TEXMF.\n";
-
-    chop($texmfcnf = `kpsewhich cnf texmf.cnf`);
-
-    if ($? == 0 and $texmfcnf ne "") {
-	my($filebuf, $line);
-	my $new = "$texmfcnf.new";
-	my $bak = "$texmfcnf.bak";
-
-	open(OLD, "< $texmfcnf") or die " Can't open $texmfcnf for reading: $!";
-
-	undef $/;
-	if ($filebuf = <OLD>) {
-	    if ($filebuf =~ /^(TEXMFL.*)$/m) {
-		$line = $1;
-		if ($line =~ /TEXMFL\s*=.*$std_TEXMF/) {
-		    print " Found $std_TEXMF in \$TEXMFL.  Leaving $texmfcnf untouched.\n";
-		} else {
-		    print " Adding $std_TEXMF to \$TEXMFL, updating $texmfcnf ...";
-
-		    $filebuf =~ s/^(TEXMFL\s*=\s*\S*)/$1,$std_TEXMF/m;
-		    open(NEW, "> $new")  or die "\n Can't open $new for writing: $!";
-		    (print NEW $filebuf) or die "\n Can't write to $new: $!";
-		    close(NEW);
-		    copy($texmfcnf, $bak) or die "\n Can't backup $texmfcnf: $!";
-		    rename($new, $texmfcnf)
-			or ( copy($new, $texmfcnf), unlink($new) )
-			or die "\n Can't update $texmfcnf: $!";
-		    print " done.\n";
-		}
-	    }
-	} else {
-	    warn " **\n";
-	    warn " ** Can't read from $texmfcnf: $!\n";
-	    warn " ** Please verify the content of $texmfcnf!\n";
-	    warn " **\n";
-	}
-	$/ = "\n";
-	close(OLD);
-    } else {
-        warn " **\n";
-	warn " ** Can't find texmf.cnf!\n";
-        warn " ** Please add $std_TEXMF to \$TEXMFL in your texmf.cnf.\n";
-	warn " **\n";
-    }
-}
-
-#------------------------------------------------------------- Run texhash ---
-
-sub run_texhash () {
-    print " Running texhash to update $TEXMF/ls-R ...\n";
-
-    if ( `which texhash` and -e "$TEXMF/ls-R" ) {
-	system("texhash");
-    } else {
-	warn " Error: texhash or $TEXMF/ls-R not found!\n";
-    }
-    print "\n";
-}
-
-#---------- Add font entries to special.map (called by check_specialmap()) ---
-
-sub add_fonts ($$$$@) {
-    my ($specialmap, $supplier, $typeface, $fonts) = @_[1..4];
-    my $font = "";
-    my $entries = "";
-    foreach $font (@fonts) {
-	if (length($font) < 8) { $font .= "\t"; }
-	$entries .= "$font\t$supplier\t\t$typeface\n";
-    }
-
-    $_[0] =~ /((^\w+\s+$supplier\s+$typeface\n)+)/m;
-
-    if ($1 ne $entries) {
-	($_[0] =~ s/(^\w+\s+$supplier\s+$typeface\n)+/$entries/m)
-	    or ($_[0] =~ s/(?=^beam\s+public\s+music\n)/$entries/m)
-	    or die " Can't add font entries to $specialmap: $!";
-	return 1;
-    } else {
-	return 0;
-    }
-}
-
-#---------------------------------- Check special.map and add font entries ---
-
-sub check_specialmap () {
-    my $fontmap;
-    my $specialmap = "$TEXMF/fontname/special.map";
-    my $new = "$specialmap.new";
-    my $bak = "$specialmap.bak";
-
-    print " Checking font entries in $specialmap ...\n";
-
-    open(OLD, "< $specialmap")  or die " Can't open $specialmap for reading: $!";
-    undef $/;
-    if ($fontmap = <OLD>) {
-	if (correct_opus_fonts($fontmap, $specialmap) |
-	    add_fonts($fontmap, $specialmap, $font_supplier, $font_typeface, @fonts))
-	{
-	    print " Adding $pkg_name font entries to $specialmap ...\n";
-	    open(NEW, "> $new")      or die " Can't open $new for writing: $!";
-	    (print NEW $fontmap)     or die " Can't write to $new: $!";
-	    close(NEW);
-	    copy($specialmap, $bak)  or die " Can't backup $specialmap: $!";
-	    rename($new, $specialmap)
-		or ( copy($new, $specialmap), unlink($new) )
-		or die " Can't update $specialmap: $!";
-	} else {
-	    print " Entries okay.  Leaving $specialmap untouched.\n";
-	}
-	undef $fontmap;
-    } else {
-	warn " **\n";
-	warn " ** Can't read from $specialmap: $!\n";
-	warn " ** Please verify the content of $specialmap!\n";
-	warn " **\n";
-    }
-    $/ = "\n";
-    close(OLD);
-    print "\n";
-}
-
-
-
-#######################
-# Main program 
-#######################
+#     Last modified:  Thu, 26 Apr 2001 03:20:10 -0600
 
-print " Checking teTeX directory \$TEXMF ...";
+set -e
 
-chop($TEXMF = `kpsetool -v '\$TEXMF'`);
+package=lilypond		# This is used for filenames!  Don't change it!
+pkg_name="GNU LilyPond"
 
-if ($? == 0 and $TEXMF ne "") {
-    print " okay.";
-} else {
-    warn "\n Error: kpsetool not found or \$TEXMF not set!\n";
-    warn " Assuming \$TEXMF=$std_TEXMF\n";
-    $TEXMF = $std_TEXMF;
-    if (not -d $TEXMF) {
-	warn " ... but directory '$TEXMF' does not exist either!\n";
-	die " Please check your teTeX configuration.\n"
-    }
-}
+std_TEXMFMAIN=/usr/share/texmf	# Debian's standard $TEXMFMAIN
 
-if ($TEXMF ne $std_TEXMF) {
-    check_texmfcnf();
-}
+TEXMFMAIN=`/usr/bin/kpsewhich -expand-var '$TEXMFMAIN'`
+: ${TEXMFMAIN:=$std_TEXMFMAIN}
 
-print "\n";
+echo " Running /usr/bin/mktexlsr $TEXMFMAIN..."
+/usr/bin/mktexlsr $TEXMFMAIN
 
-run_texhash();
-check_specialmap();
+install-info --quiet \
+	--section "Music" "Music" \
+	--description='LilyPond, the GNU Project music typesetter' \
+	/usr/share/info/lilypond.info.gz
 
-print " $pkg_name configuration completed.\n";
-print " Please read /usr/doc/$package/README.debian to get started.\n";
+#DEBHELPER#
+echo
+echo " $pkg_name configuration completed."
+echo " Please read /usr/share/doc/lilypond/README.Debian to get started."