summaryrefslogtreecommitdiffstats
path: root/debian-build/config
diff options
context:
space:
mode:
authordiego <diego@b3059339-0415-0410-9bf9-f77b7e298cf2>2004-08-03 00:37:05 +0000
committerdiego <diego@b3059339-0415-0410-9bf9-f77b7e298cf2>2004-08-03 00:37:05 +0000
commitb3179e503f740651ae16cced2f6cfe8e83d2c8a0 (patch)
tree61d2e52d6f9840cbdfc8dcb6d71e3a4fe77029ab /debian-build/config
parentc9d95b0d26eef73217e5b294ecb3ee0a3f116715 (diff)
downloadmpv-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/config99
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');
- }
-}