Mercurial > mplayer.hg
changeset 28985:1edc6f775ff4
Remove postinst script that asks for a TrueType font to use as default.
This also gets rid of the libconfhelper-perl dependency; a package that
no longer exists in current Debian versions, rendering the generated
Debian package uninstallable.
patch by Vladislav Naumov, vladislav.naumov gmail com
author | diego |
---|---|
date | Sat, 21 Mar 2009 09:31:57 +0000 |
parents | d903e09def74 |
children | ced556e1595a |
files | debian/control debian/postinst |
diffstat | 2 files changed, 1 insertions(+), 59 deletions(-) [+] |
line wrap: on
line diff
--- a/debian/control Sat Mar 21 09:18:36 2009 +0000 +++ b/debian/control Sat Mar 21 09:31:57 2009 +0000 @@ -7,7 +7,7 @@ Package: mplayer Architecture: any -Depends: ${shlibs:Depends},debconf,libconfhelper-perl +Depends: ${shlibs:Depends},debconf Description: The Ultimate Movie Player MPlayer is a movie player for LINUX (runs on many other Unices, and non-x86 CPUs, see the ports section). It plays most MPEG, VOB, AVI, OGG/OGM, VIVO,
--- a/debian/postinst Sat Mar 21 09:18:36 2009 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,58 +0,0 @@ -#!/usr/bin/perl -w - -# mplayer postinst - -require ConfHelper; - -use Debconf::Client::ConfModule qw(:all); -use IO::Handle; -use Fcntl; -my $version = version(2.0); -my $didupgrade = 0; - -dealwithupgrades(); - -my $mcfg = new ConfHelper('mplayer', "/etc/mplayer/mplayer.conf"); - - - -my $dcarea = "" ; -my $font = scalar(get("mplayer/ttfont")) ; - $dcarea .= "#truetype font\nfont=" . $font . "\n" if $font; -$mcfg->setconfarea($dcarea); - - - -sub dealwithupgrades { - open(OLDCONF, "</etc/mplayer/mplayer.conf") || return 1; - close OLDCONF; - - my $mconf = new ConfHelper("mplayer", "/etc/mplayer/mplayer.conf"); - return 1 if ($mconf->hasconfarea()); - undef $mconf; - - if ((get('mplayer/replace-existing-files') eq 'true') && - (fget('mplayer/replace-existing-files', 'isdefault') eq 'false')) { - $didupgrade = 1; - for my $file ("/etc/mplayer/mplayer.conf" ) { - debug("Moving away $file"); - rename($file,$file . ".old"); - } - } else { - debug("Upgrade refused, exiting"); - exit 0; - } -} - -sub debug { - print STDERR @_, "\n"; -} - - -# pass control to debhelper scripts.. -# -my $temp="set -e\nset -- @ARGV\n" . << 'DEBHELPER_EOF_'; -#DEBHELPER# -DEBHELPER_EOF_ -system ($temp) / 256 == 0 - or die "Problem with debhelper scripts: $!";