Control Skripe korrigiert
[people/pmueller/ipfire-2.x.git] / config / mpfire / mpfire.pl
1 #!/usr/bin/perl
2
3 use MP3::Tag;
4 use MP3::Info;
5
6 require '/var/ipfire/general-functions.pl';
7 require "${General::swroot}/lang.pl";
8 require "${General::swroot}/header.pl";
9
10 my $filename = "";
11 my %songs = "";
12 my $debug = 1;
13
14 if ($ARGV[0] eq 'scan') {
15 my $command = "find ";
16 chomp $ARGV[1];
17 $command .= "\"$ARGV[1]\"";
18 if ($ARGV[2] eq 'off'){$command .= " -maxdepth 1";}
19 $command .= " -name *.mp3";
20 my @files = `$command`;
21
22 &getExistingSongs();
23
24 foreach (@files){
25 $filename = $_;
26 chomp($filename)
27 &getSongInfo();
28 }
29 open(DATEI, ">${General::swroot}/mpfire/db/songs.db") || die "Kann Datenbank nicht speichern";
30 print DATEI %songs;
31 close(DATEI);
32 }
33
34 if ($ARGV[0] eq 'getdb') {
35 &getExistingSongs();
36 print %songs;
37 }
38 elsif ($ARGV[0] eq 'play') {
39 if ($debug){print "Yes we are called and we will play $ARGV[1]\n";}
40 system("/usr/bin/mpg123 -b 1024 --aggressive -q \"$ARGV[1]\" 2>/dev/null >/dev/null &");
41 }
42 elsif ($ARGV[0] eq 'stop') {
43 my $PID = `ps -ef | grep mpg123 | grep playlist | head -1 | awk '{ print \$2 }'`;
44 if ( $PID ne "" ){
45 if ($debug){print "Stopping $PID\n";}
46 system("kill -KILL $PID");
47 }
48 else {&stopweb();}
49 }
50 elsif ($ARGV[0] eq 'volup') {
51 if ($debug){print "Increasing Volume\n";}
52 system("/usr/bin/amixer set Master $ARGV[1]%+ 2>/dev/null >/dev/null");
53 }
54 elsif ($ARGV[0] eq 'voldown') {
55 if ($debug){print "Decreasing Volume\n";}
56 system("/usr/bin/amixer set Master $ARGV[1]%- 2>/dev/null >/dev/null");
57 }
58 elsif ($ARGV[0] eq 'playall') {
59 if ($debug){print "Playing everything\n";}
60 system("/usr/bin/mpg123 -b 1024 --aggressive -Zq@ /var/ipfire/mpfire/playlist 2>/dev/null >/dev/null &");
61 }
62 elsif ($ARGV[0] eq 'pause') {
63 my $PID = `ps -ef | grep mpg123 | grep playlist | head -1 | awk '{ print \$2 }'`;
64 if ($debug){print "Pausing Process $PID\n";}
65 system("kill -STOP $PID");
66 }
67 elsif ($ARGV[0] eq 'resume') {
68 my $PID = `ps -ef | grep mpg123 | grep playlist | head -1 | awk '{ print \$2 }'`;
69 if ($debug){print "Resuming Process $PID\n";}
70 system("kill -CONT $PID");
71 }
72 elsif ($ARGV[0] eq 'next') {
73 if ($debug){print "Next Song\n";}
74 my $PID = `ps -ef | grep mpg123 | grep playlist | head -1 | awk '{ print \$2 }'`;
75 system("kill -SIGINT $PID");
76 }
77 elsif ($ARGV[0] eq 'song') {
78 my $song = `lsof -nX \| grep mpg123 \| grep REG \| grep mem | grep mp3 \| grep -v "sh -c"`;
79 my @song = split(/\//,$song);
80 my $i = @song;
81 if ( $i == 0 ){
82 my $song = `ps -ef \| grep wget \| grep EXTM3U \| grep -v "sh -c"`;
83 my @song = split(/\//,$song);
84 print $song[2];
85 }
86 else { print $song[$i-1];}
87 }
88 elsif ($ARGV[0] eq 'playweb') {
89 &General::readhash("${General::swroot}/proxy/settings", \%proxysettings);
90 if ($debug){print "Playing webstream\n";}
91 if ($proxysettings{'UPSTREAM_PROXY'}) {
92 if ($proxysettings{'UPSTREAM_USER'}) {
93 system("wget -qO - `wget -qO - $ARGV[1]` | mpg123 -b 1024 --aggressive -Zq - -p $proxysettings{'UPSTREAM_USER'}:$proxysettings{'UPSTREAM_PASSWORD'}@$proxysettings{'UPSTREAM_PROXY'} 2>/dev/null >/dev/null &");
94 }
95 else { system("wget -qO - `wget -qO - $ARGV[1]` | mpg123 -b 1024 --aggressive -Zq - -p $proxysettings{'UPSTREAM_PROXY'} 2>/dev/null >/dev/null &");}
96 } else {
97 system("wget -qO - `wget -qO - $ARGV[1]` | mpg123 -b 1024 --aggressive -Zq - 2>/dev/null >/dev/null &");
98 }
99 }
100 elsif ($ARGV[0] eq 'stopweb') {
101 &stopweb();
102 }
103
104 sub stopweb(){
105 my $PID = `ps -ef | grep wget | grep EXTM3U | head -1 | awk '{ print \$2 }'`;
106 if ($debug){print "Stopping $PID\n";}
107 system("kill -KILL $PID");
108 my $PID = `ps -ef | grep "mpg123 -b 1024 --aggressive -Zq -" | head -1 | awk '{ print \$2 }'`;
109 if ($debug){print "Killing Process $PID\n";}
110 system("kill -KILL $PID");
111 }
112
113 sub getSongInfo(){
114 my $mp3 = MP3::Tag->new($filename);
115 my ($title, $track, $artist, $album, $comment, $year, $genre) = $mp3->autoinfo();
116 my $info = get_mp3info($filename);
117 $mp3->close();
118 $songs{$filename} = "|".$artist."|".$title."|".$track."|".$album."|".$year."|".$genre."|".$info->{MM}."|".$info->{SS}."|".$info->{BITRATE}."|".$info->{FREQUENCY}."|".$info->{MODE}."\n";
119 }
120
121 sub getExistingSongs(){
122 open(DATEI, "<${General::swroot}/mpfire/db/songs.db") || die "Keine Datenbank vorhanden";
123 my @Zeilen = <DATEI>;
124 close(DATEI);
125 foreach (@Zeilen){
126 my @Zeile = split(/\|/,$_);
127 $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";
128 }
129 }