summaryrefslogtreecommitdiff
path: root/scripts/gdparams.pm
diff options
context:
space:
mode:
Diffstat (limited to 'scripts/gdparams.pm')
-rwxr-xr-xscripts/gdparams.pm336
1 files changed, 0 insertions, 336 deletions
diff --git a/scripts/gdparams.pm b/scripts/gdparams.pm
deleted file mode 100755
index 35aa319..0000000
--- a/scripts/gdparams.pm
+++ /dev/null
@@ -1,336 +0,0 @@
-##################################################
-#
-# GiantDisc mp3 Jukebox
-#
-# © 2000, Rolf Brugger
-#
-##################################################
-
-package gdparams;
-
-#use lib '/usr/local/bin';
-use strict;
-use Getopt::Long;
-
-my @mp3dirs;
-
-############################################################
-### Global variables (accessible from anywhere)
-
-# IMPORTANT ERROR! all modules refer to gdparms::varname instead
-# of gdparams::varname
-# ... however, it works ... I just don't know why :-/
-
-
-#my ($dbhost, $shutdowncmd, $extmp3player, $defrecbitrate,
-# $systemonline);
-
-
-### Global constants
-my $minfreehdspace = 1000; # minimal space required for a directory,
- # that it can be used to record and
- # compress a cd (in MB)
-
-
-############################################################
-###
-
-sub get_configfile_params{
- ### Parameters: Call-by-reference
-
- my ($dbhost,
- $commmode,
- $serialdevice, $serialspeed,
- $tcpiphost, $tcpipport,
- $playerhost, $playertype, $snddevice,
- $playerapp, $mp3playerparams, $oggplayerparams, $ptlogger,
- $mp3encoder, $logtarget, $shutdowncmd,
- $extmp3player, $defrecbitrate, $systemonline
- ) = @_;
-
-
- ### Read configuration file im home directory
- open (CONF, "< ".gdbase()."/.gdconfig")
- or die "Error: could not open configuration file .gdconfig\n";
-
- my $line;
- while(<CONF>){
- $line = $_;
- chop $line;
- $line =~ tr/\r/ /;
- # \w word-char
- # \w non-word-char
- # \s whitespace-char
- # \S non-whitespace-char
-
- if($line =~ m/^dbhost.*=\s*(\S+)/i ){
- $$dbhost = $1;
- }
-
- if($line =~ m/^commmode.*=\s*([0-9]+)/i ){
- $$commmode = $1;
- }
-
- if($line =~ m/^serialdevice.*=\s*([\w\/]+)/i ){
- $$serialdevice = $1;
- }
-
- if($line =~ m/^serialspeed.*=\s*([0-9]+)/i ){
- $$serialspeed = $1;
- }
-
- if($line =~ m/^tcpiphost.*=\s*(\S+)/i ){
- $$tcpiphost = $1;
- }
-
- if($line =~ m/^tcpipport.*=\s*([0-9]+)/i ){
- $$tcpipport = $1;
- }
-
- if($line =~ m/^playerhost.*=\s*(\S+)/i ){
- $$playerhost = $1;
- }
-
- if($line =~ m/^playertype.*=\s*([0-9]+)/i ){
- $$playertype = $1;
- }
-
- if($line =~ m/^playerapp.*=\s*(\S+)/i ){
- $$playerapp = $1;
- }
-
- if($line =~ m/^playerparams.*=\s*(.*)$/i ){ # match anything to end of line
- print "\nWARNING: as of v1.20 the option 'playerparams' has been replaced by\n";
- print " 'mp3playerparams' and 'oggplayerparams'. Update .gdconfig accordingly\n\n";
- #$$playerparams = $1;
- }
- if($line =~ m/^mp3playerparams.*=\s*(.*)$/i ){ # match anything to end of line
- $$mp3playerparams = $1;
- }
- if($line =~ m/^oggplayerparams.*=\s*(.*)$/i ){ # match anything to end of line
- $$oggplayerparams = $1;
- }
-
- if($line =~ m/^shutdowncmd.*=\s*(.*)$/i ){ # match anything to end of line
- $$shutdowncmd = $1;
- }
-
- if($line =~ m/^extmp3player.*=\s*(.*)$/i ){ # match anything to end of line
- $$extmp3player = $1;
- }
-
- if($line =~ m/^sounddevice.*=\s*(\S+)/i ){
- $$snddevice = $1;
- }
-
- if($line =~ m/^mp3encoder.*=\s*(\w+)/i ){
- $$mp3encoder = $1;
- }
-
- if($line =~ m/^logtarget.*=\s*(\w+)/i ){
- if ($1 eq "stdout" || $1 eq "logfile" || $1 eq "devnull"){
- $$logtarget = $1;
- }
- }
-
- if($line =~ m/^ptlogger.*=\s*(\S+)/i ){
- $$ptlogger = $1;
- }
-
- if($line =~ m/^defrecbitrate.*=\s*(.+)/i ){ # match anything to end of line
- $$defrecbitrate = $1;
- }
-
- if($line =~ m/^systemonline.*=\s*([0-9])/i ){
- $$systemonline = $1;
- }
-
- }
-
- close (CONF);
-}
-
-
-############################################################
-###
-
-sub get_otherclients_params{
- ### Parameters: Call-by-reference
-
- my ($keymap # type: reference to an empty hash
- )= @_;
-
-
- ### Read configuration file im home directory
- open (CONF, "< ".gdbase()."/.gdconfig")
- or die "Error: could not open configuration file .gdconfig\n";
-
- my $line;
- while(<CONF>){
- $line = $_;
- chop $line;
- $line =~ tr/\r/ /;
- # \w word-char
- # \w non-word-char
- # \s whitespace-char
- # \S non-whitespace-char
-
- if($line =~ m/^keymap.*=\s*(\S+)\s*-\s*(\S+)\s*$/i ){
- print ("keymap: key: $1, val: $2\n");
- $$keymap{$1} = $2;
- }
-
-
- }
-
- close (CONF);
-}
-
-
-############################################################
-### translate logtarget string to integer
-sub logtarget_to_int{
- my ($logtargetstr) = @_;
- if ($logtargetstr eq "devnull") {return 0;}
- if ($logtargetstr eq "logfile") {return 1;}
- if ($logtargetstr eq "stdout" ) {return 2;}
- return 2; # default
-}
-
-
-############################################################
-###
-
-sub get_commandline_params{
-
- my ($dbhost,
- $commmode,
- $serialdevice, $serialspeed,
- $tcpiphost, $tcpipport,
- $playerhost, $playertype, $snddevice,
- $playerapp,
- $mp3playerparams, $oggplayerparams,
- $ptlogger,
- $mp3encoder, $logtarget) = @_;
- # ARGV passed implicitly
-
-
- my $help;
- $Getopt::Long::autoabbrev=1;
- GetOptions(
- "help" => \$help,
- "dbhost:s" => $dbhost, # $dbhost is already a reference
- "commmode:i" => $commmode,
- "serialdevice:s" => $serialdevice,
- "serialspeed:i" => $serialspeed,
- "tcpiphost:s" => $tcpiphost,
- "tcpipport:i" => $tcpipport,
- "playertype:i" => $playertype,
- "playerhost:s" => $playerhost,
- "sounddevice:s" => $snddevice,
- "mp3playerparams=s" => $mp3playerparams,
- "oggplayerparams=s" => $oggplayerparams,
- "ptlogger:s" => $ptlogger,
- "mp3encoder:s" => $mp3encoder,
- "logtarget:s" => $logtarget
- );
-
- if ($help){
- print <<EOF;
-gdd.pl: GiantDisc Server Script
-Option possible values
-
---dbhost (string) address or hostname of mysql database server
- Default value: localhost
-
---commmode (number) Communication mode between Palm and server.
- 1: serial line RS232
- 2: generic TCP/IP (server - accepts incoming connections)
- 3: generic TCP/IP (client - connects to server)
- Default value: 1
-
---serialdevice (string) Device, where Palm is connected to.
- Only used if --commmode 1
- Default value: /dev/ttyS0
-
---serialspeed (number) Communication speed over serial line in
- Bits per second.
- Only used if --commmode 1
- Default value: 19200
-
---tcpiphost (string) Host, that accepts socket connections.
- Only used if --commmode 2 or 3
- Default value: localhost
-
---tcpipport (number) Port used for TCP/IP communication mode.
- Only used if --commmode 2 or 3
- Default value: 26468
-
---playertype (number) main audio out device type
- 0: soundcard (first audio channel)
- 20: network attached audio streaming device
- Default value: 0
-
---playerhost (string) address or hostname where the audio stream
- is sent to.
- playertype 0: host of soundcard (not used)
- playertype 20: audio stream decoder host
- Default value: localhost
-
---sounddevice (string) Device where audio stream is sent to.
- playertype 0: soundcard device (not used)
- playertype 20: port number of TCP stream
- Default value: 2020
-
---mp3playerparams (string) Optional parameters to the mp3 or ogg
---oggplayerparams (string) decoder. Example: "--buffer 1024" to
- increase the audio output buffer size of
- "mpg123".
- Default value:
-
---ptlogger (string) The application that updates at least
- once per second the playtime of the
- currently played track (needed by Palm
- to display the playtime).
- Default value: gdplatimefilter
-
---mp3encoder lame, Application to be used to encode ripped
- notlame, wav files into mp3 format.
- l3enc Default value: lame
-
---logtarget stdout, Target, where log-messages of the
- logfile, server script should be sent to.
- or devnull 'stdout' sends to standard out, 'logfile'
- sends to a log file in ~music/tmp and
- devnull supresses all logging.
- Default value: stdout
-
-EOF
- exit 0;
- }
-}
-
-
-############################################################
-###
-
-sub gdbase{ # returns base path of gd files
- # The path must not end with a slash!
- return "/home/music";
-}
-
-sub mp3dirs{ # returns list of mp3 directories
- # Scans the music directory for 2-digit directories
-
- opendir MUSICDIR, gdbase() or die "ERROR: can't scan music directory\n";
- @mp3dirs = grep /^[0-9][0-9]$/ , readdir MUSICDIR;
- closedir MUSICDIR;
- #print "MP3dirs: ",@mp3dirs, "\n";
- return ( @mp3dirs );
-}
-
-
-
-
-1;
-#
generated by cgit v1.2.3 (git 2.25.1) at 2025-07-15 10:23:25 +0000