diff options
author | diego <diego@b3059339-0415-0410-9bf9-f77b7e298cf2> | 2004-08-03 00:37:05 +0000 |
---|---|---|
committer | diego <diego@b3059339-0415-0410-9bf9-f77b7e298cf2> | 2004-08-03 00:37:05 +0000 |
commit | b3179e503f740651ae16cced2f6cfe8e83d2c8a0 (patch) | |
tree | 61d2e52d6f9840cbdfc8dcb6d71e3a4fe77029ab /debian-build/config | |
parent | c9d95b0d26eef73217e5b294ecb3ee0a3f116715 (diff) | |
download | mpv-b3179e503f740651ae16cced2f6cfe8e83d2c8a0.tar.bz2 mpv-b3179e503f740651ae16cced2f6cfe8e83d2c8a0.tar.xz |
This alternative Debian directory was never used, so I'm removing it with
the consent of Attila, who originally added it.
git-svn-id: svn://svn.mplayerhq.hu/mplayer/trunk@12940 b3059339-0415-0410-9bf9-f77b7e298cf2
Diffstat (limited to 'debian-build/config')
-rw-r--r-- | debian-build/config | 99 |
1 files changed, 0 insertions, 99 deletions
diff --git a/debian-build/config b/debian-build/config deleted file mode 100644 index 5a342d139c..0000000000 --- a/debian-build/config +++ /dev/null @@ -1,99 +0,0 @@ -#!/usr/bin/perl -w - -# Script to configure mplayer -# based on etherconf by John Goerzen <jgoerzen@progenylinux.com> - -use Debconf::Client::ConfModule qw(:all); - - -my $version = version(2.0); -title('MPlayer Configuration'); -my $PRIORITY = 'high'; -#TODO: 'medium' -my $next = 'mainmenu'; -my $isediting = 0; - -my @nextargs = (); - -checkupgrade(); # Find out if we have to upgrade. -mainloop(letsgo()); - -sub checkupgrade { - open(MCFG, "</etc/mplayer/mplayer.conf") || return 1; - my $line = <MCFG>; - return 1 if ($line =~ /mplayer DEBCONF AREA/); - exit(0) if (input($PRIORITY, 'mplayer/replace-existing-files') eq "question skipped"); - go(); - if (get('mplayer/replace-existing-files') eq 'false') { - input($PRIORITY, 'mplayer/replace-existing-files-bail'); - go(); - exit(); - } - close MCFG; -} - -sub mainloop { - $next = shift @_; - do { - my @retval = &$next(@nextargs); - # if ($retval[0] eq 'BACK') { - # $retval[0] = $backups{$next}; - # } - ($next, @nextargs) = @retval; - } while ($next ne 'Exit'); -} - -sub letsgo { -#useless! - return "configure"; -} - -sub configure { - subst("mplayer/voutput", "vochoices", "xv, xmga, mga, x11, gl, sdl, xvidix"); - # db_subst mplayer/output vo xc,xmga,mga,x11,gl,sdl - exit(0) if (input($PRIORITY, "mplayer/voutput") eq "question skipped"); - go(); - exit 0 unless (get("mplayer/voutput") eq 'true'); - #return 'audioout'; - return 'mainmenu'; -} - -sub mainmenu { - go(); # To catch spare things from before - my @choices = ( - 'Video Output: ' . scalar(get("mplayer/voutput"))); - #, - $choices = join(', ', @choices); - $isediting = 1; - - subst('mplayer/mainmenu', 'choices', $choices); - input($PRIORITY, 'mplayer/mainmenu'); - go(); - - my $selection = get('mplayer/mainmenu'); - if ($selection =~ /^Exit/) { - return 'Exit'; - } - - # Set to redisplay. - fset('mplayer/mainmenu', 'isdefault', 'true'); - - $_ = $selection; - - return 'configure' if /^Video/; -# return 'aoutput' if /^Aoutput/; - return 'Exit'; -} - -sub editreturn { - my @args = @_; - return 'mainmenu' if $isediting; - return @args; -} - -sub editfix { - my $template = shift @_; - if ($isediting) { - fset($template, 'isdefault', 'true'); - } -} |