1 files changed, 0 insertions, 149 deletions
diff --git a/scripts/gdsoundcard.pm b/scripts/gdsoundcard.pm
deleted file mode 100755
index 519181f..0000000
--- a/scripts/gdsoundcard.pm
+++ /dev/null
@@ -1,149 +0,0 @@
-##################################################
-#
-# GiantDisc mp3 Jukebox
-# 
-# © 2003, Rolf Brugger
-#
-##################################################
-
-package gdsoundcard;
-
-#
-# soundcard drivers to control volume etc
-#
-#
-#
-
-#use lib '/usr/local/bin';
-use strict;
-
-############################################################
-### Constants & global variables
-
-
-
-############################################################
-
-sub sndc_init{
-### initialize
-
-# actually not used yet
-
-  my ($playertype, $playerhost, $sounddevice) = @_;
-  
-  if    ($playertype == 0){  # local oss soundcard
-    ;
-  }
-  
-  elsif ($playertype == 20){ # exstreamer
-    ;
-  }
-  else{
-    print "Warning: unknown player type $playertype\n";
-  }
-}
-
-
-
-############################################################
-### Volume routines
-#   0 <= volume <= 100
-
-
-sub sndc_set_volume{
-### Set volume
-
-  my ($playertype, $playerhost, $sounddevice, $volume) = @_;
-  
-  if    ($playertype == 0){  # local oss soundcard
-    system "aumix -v$volume";
-  }
-  
-  elsif ($playertype == 20){ # exstreamer
-    use integer;
-    my $cmd = "v=".($volume/5)."\n";
-    gdgentools::exstreamer_command($playerhost, $cmd);
-  }
-  else{
-    print "Warning: unknown player type $playertype\n";
-  }
-}
-
-
-sub sndc_get_volume{
-### Get volume
-#   returns the currently set volume. 
-
-  my ($playertype, $playerhost, $sounddevice) = @_;
-  my $volume = 0;
-  
-  if    ($playertype == 0){  # local oss soundcard
-    my ($shcommand) = @_;
-    my ($res, $resline, @reslines);
-    $res = `aumix -vq`;
-    @reslines = split /\n/, $res;    
-    $resline = shift (@reslines);    
-    if ($resline =~ m/\D*(\d+).*/){
-      $volume = $1;
-    }
-    else{print "Warning: Get volume - can't match aumix output\n";}
-  }
-  
-  elsif ($playertype == 20){ # exstreamer
-    my $cmd = "v=\n";  # cmd get volume 
-    my $res = gdgentools::exstreamer_command_res($playerhost, $cmd);
-    if ($res =~ m/\<.*\>(\d+)\<.*\>/){
-      $volume = ($1)*5;
-    }
-    else{
-      $volume = 50;
-    }
-  }
-  else{
-    print "Warning: unknown player type $playertype\n";
-  }
-  return $volume;
-}
-
-
-sub sndc_save_volume{
-### Save default volume
-
-  my ($playertype, $playerhost, $sounddevice, $volume) = @_;
-  
-  if    ($playertype == 0){  # local oss soundcard
-    system "aumix -S";
-  }
-  elsif ($playertype == 20){ # exstreamer
-    # the exstreamer always saves the volume setting in its flash rom
-    ;
-  }
-  else{
-    print "Warning: unknown player type $playertype\n";
-  }
-}
-
-############################################################
-
-sub sndc_inc_volume{
-### Increases volume by 5%
-  my ($playertype, $playerhost, $sounddevice) = @_;
-  my $volume = sndc_get_volume($playertype, $playerhost, $sounddevice);
-  $volume += 5;
-  if ($volume>100){$volume=100;}
-  sndc_set_volume($playertype, $playerhost, $sounddevice, $volume);
-}
-
-sub sndc_dec_volume{
-### decreases volume by 5%
-  my ($playertype, $playerhost, $sounddevice) = @_;
-  my $volume = sndc_get_volume($playertype, $playerhost, $sounddevice);
-  $volume -= 5;
-  if ($volume<0){$volume=0;}
-  sndc_set_volume($playertype, $playerhost, $sounddevice, $volume);
-}
-
-############################################################
-
-1;
-#