]>
git.ipfire.org Git - people/pmueller/ipfire-2.x.git/blob - config/mpfire/mpfire.pl
6 require '/var/ipfire/general-functions.pl';
7 require "${General::swroot}/lang.pl";
8 require "${General::swroot}/header.pl";
15 if ($ARGV[0] eq 'scan') {
16 my $command = "find ";
18 $command .= "\"$ARGV[1]\"";
19 if ($ARGV[2] eq 'off'){$command .= " -maxdepth 1";}
20 $command .= " -name *.mp3";
21 my @files = `$command`;
30 open(DATEI
, ">${General::swroot}/mpfire/db/songs.db") || die "Kann Datenbank nicht speichern";
35 if ($ARGV[0] eq 'getdb') {
39 elsif ($ARGV[0] eq 'play') {
42 if ($debug){print "Yes we are called and we will play $ARGV[1]\n";}
43 system("/usr/bin/mpg123 -b 1024 --aggressive -q \"$ARGV[1]\" 2>/dev/null >/dev/null &");
45 elsif ($ARGV[0] eq 'stop') {
46 my $PID = `ps -ef \| grep "wget -qO" \| head -1 \| grep -v "sh -c" \| awk '{ print \$2 }'`;
48 if ($debug){print "Stopping $PID\n";}
49 system("kill -KILL $PID");
50 my $PID = `ps -ef \| grep "mpg123 -b 1024 --aggressive -Zq -" \| head -1 \| grep -v "sh -c" \| awk '{ print \$2 }'`;
51 if ($debug){print "Killing Process $PID\n";}
52 system("kill -KILL $PID");
55 my $PID = `ps -ef \| grep mpg123 \| grep playlist \| head -1 \| grep -v "sh -c" \| awk '{ print \$2 }'`;
56 if ($debug){print "Stopping $PID\n";}
57 system("kill -KILL $PID");
60 elsif ($ARGV[0] eq 'volup') {
61 if ($debug){print "Increasing Volume\n";}
62 system("/usr/bin/amixer set Master $ARGV[1]%+ 2>/dev/null >/dev/null");
63 system("/usr/bin/amixer set PCM $ARGV[1]%+ 2>/dev/null >/dev/null");
65 elsif ($ARGV[0] eq 'voldown') {
66 if ($debug){print "Decreasing Volume\n";}
67 system("/usr/bin/amixer set Master $ARGV[1]%- 2>/dev/null >/dev/null");
68 system("/usr/bin/amixer set PCM $ARGV[1]%- 2>/dev/null >/dev/null");
70 elsif ($ARGV[0] eq 'playall') {
73 if ($debug){print "Playing everything\n";}
74 system("/usr/bin/mpg123 -b 1024 --aggressive -Zq@ /var/ipfire/mpfire/playlist 2>/dev/null >/dev/null &");
76 elsif ($ARGV[0] eq 'pause') {
77 my $PID = `ps -ef \| grep mpg123 \| grep playlist \| head -1 \| grep -v "sh -c" \| grep -v "grep" \| awk '{ print \$2 }'`;
78 if ($debug){print "Pausing Process $PID\n";}
79 system("kill -STOP $PID");
81 elsif ($ARGV[0] eq 'resume') {
82 my $PID = `ps -ef \| grep mpg123 \| grep playlist \| head -1 \| grep -v "sh -c" \| grep -v "grep" \| awk '{ print \$2 }'`;
83 if ($debug){print "Resuming Process $PID\n";}
84 system("kill -CONT $PID");
86 elsif ($ARGV[0] eq 'next') {
87 if ($debug){print "Next Song\n";}
88 my $PID = `ps -ef | grep mpg123 | grep playlist | head -1 | awk '{ print \$2 }'`;
89 system("kill -SIGINT $PID");
91 elsif ($ARGV[0] eq 'song') {
93 my $song = `lsof -nX \| grep mpg123 \| grep REG \| grep mem | grep mp3 \| grep -v "sh -c" \| grep -v "grep"`;
94 my @song = split(/\//,$song);
97 my $song = `ps -ef \| grep "wget -qO" \| grep -v "sh -c" \| grep -v "grep"`;
98 my @song = split(/http\:\/\
//,$song);
100 my @song = split(/ /,$temp);
103 else { print $song[$i-1];}
105 elsif ($ARGV[0] eq 'playweb') {
106 &General
::readhash
("${General::swroot}/proxy/settings", \
%proxysettings);
109 if ($proxysettings{'UPSTREAM_PROXY'}) {
110 if ($proxysettings{'UPSTREAM_USER'}) {
112 if ($debug){print "Playing webstream\n";}
113 system("wget -qO - `wget -qO - http://$proxysettings{'UPSTREAM_USER'}:$proxysettings{'UPSTREAM_PASSWORD'}@$proxysettings{'UPSTREAM_PROXY'}$ARGV[1]` | mpg123 -b 1024 --aggressive -Zq - 2>/dev/null >/dev/null &");
116 &checkm3uproxyuser
();
117 if ($debug){print "Playing webstream\n";}
118 system("wget -qO - `wget -qO - http://$proxysettings{'UPSTREAM_PROXY'}$ARGV[1]` | mpg123 -b 1024 --aggressive -Zq - 2>/dev/null >/dev/null &");}
121 if ($debug){print "Playing webstream\n";}
122 system("wget -qO - `wget -qO - http://$ARGV[1]` | mpg123 -b 1024 --aggressive -Zq - 2>/dev/null >/dev/null &");
125 elsif ($ARGV[0] eq 'volume') {
127 $temp .= `amixer get Master \| tail -2 \| awk '{ print \$2" "\$5 }'`;
128 $temp .= "<break>PCM -";
129 $temp .= `amixer get PCM \| tail -2 \| awk '{ print \$2" "\$5 }'`;
134 my $mp3 = MP3
::Tag
->new($filename);
135 my ($title, $track, $artist, $album, $comment, $year, $genre) = $mp3->autoinfo();
136 my $info = get_mp3info
($filename);
138 $songs{$filename} = "|".$artist."|".$title."|".$track."|".$album."|".$year."|".$genre."|".$info->{MM
}."|".$info->{SS
}."|".$info->{BITRATE
}."|".$info->{FREQUENCY
}."|".$info->{MODE
}."\n";
141 sub getExistingSongs
(){
142 open(DATEI
, "<${General::swroot}/mpfire/db/songs.db") || die "Keine Datenbank vorhanden";
143 my @Zeilen = <DATEI
>;
146 my @Zeile = split(/\|/,$_);
147 $songs{$Zeile[0]} = "|".$Zeile[1]."|".$Zeile[2]."|".$Zeile[3]."|".$Zeile[4]."|".$Zeile[5]."|".$Zeile[6]."|".$Zeile[7]."|".$Zeile[8]."|".$Zeile[9]."|".$Zeile[10]."|".$Zeile[11]."\n";
152 my $Datei = "/var/ipfire/mpfire/playlist";
153 my @Info = stat($Datei);
154 if ( $Info[7] eq '' || $Info[7] eq '0' ){print "There is no playlist";exit(1);}
158 $temp = `amixer get Master \| tail -2`;
159 my @Master = split(/ /,$temp);
160 $temp = `amixer get PCM \| tail -2`;
161 my @PCM = split(/ /,$temp);
162 if ( $PCM[7] =~ /off/ ){
163 if ($debug){print "PCM was muted - umuting.\n";}
164 system("amixer set PCM toggle");
166 if ( $Master[7] =~ /off/ ){
167 if ($debug){print "Master was muted - umuting.\n";}
168 system("amixer set Master toggle");
173 my $Datei = system("wget -q --spider http://$ARGV[1]");
174 if ( $Datei ne '0' ){print "We are unable to get the stream";exit(1);}
178 my $Datei = system("wget -q --spider http://$ARGV[1]");
179 if ( $Datei ne '0' ){print "We are unable to get the stream";exit(1);}
182 sub checkm3uproxyuser
(){
183 my $Datei = system("wget -q --spider http://$ARGV[1]");
184 if ( $Datei ne '0' ){print "We are unable to get the stream";exit(1);}