/[cvs]/nfo/perl/scripts/giantdisc/bin/gdkeypad.pl
ViewVC logotype

Diff of /nfo/perl/scripts/giantdisc/bin/gdkeypad.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by joko, Fri Apr 1 02:14:03 2005 UTC revision 1.2 by joko, Fri Apr 1 02:14:50 2005 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl -w  #!/usr/bin/perl -w
2  #  #
3  ##################################################  ##################################################
4  #  #
5  # GiantDisc mp3 Jukebox, KeyPad Functions  # GiantDisc mp3 Jukebox, KeyPad Functions
6  #  #
7  # © 2000-2002, Rolf Brugger  #  2000-2002, Rolf Brugger
8  #              Modified by Philipp Heckel  #              Modified by Philipp Heckel and Andreas Motl
9  #  #
10  ##################################################  ##################################################
11    
12    use strict;
13    
14    use IO::Socket;
15    use Fcntl;
16    
17    
18    use lib '/home/music/bin';
19    use gddb;
20    use gdparams;
21    use gdgentools;
22    use gdgentools_extended;
23    
24    use DBI;
25    
26    
27    ##################################################
28    ### get Parameters
29    if(scalar(@ARGV) < 4){
30      print("Syntax: gdkeypad.pl host-ip player-id audiochannel mode\n");
31      print("        mode can be 'play', 'pause', 'stop', 'next', 'prev', 'fastfwd', 'rewind' or 'pl_activate'\n");
32      exit(0);
33    }
34    
35    my $dbhost     = $ARGV[0];
36    my $playerid   = $ARGV[1];
37    my $audiochannel = $ARGV[2];
38    my $mode       = $ARGV[3];
39    my $playlist_id       = $ARGV[4];
40    
41    $gdparms::dbhost = $dbhost;
42    
43    ### open DB connection
44    my $dbh = DBI->connect("DBI:mysql:GiantDisc:".$dbhost, "music", undef)
45        or die "unable to connect to GiantDisc db";
46    
47    ### switch modes
48    if ($mode eq 'play') {
49      cmd_play($dbh,$playerid,$audiochannel);
50    }
51    elsif ($mode eq 'stop') {
52      cmd_stop($dbh,$playerid,$audiochannel);
53    }
54    elsif ($mode eq 'pause') {
55      cmd_pause($dbh,$playerid,$audiochannel);
56    }
57    elsif ($mode eq 'prev') {
58      cmd_prev($dbh,$playerid,$audiochannel);
59    }
60    elsif ($mode eq 'next') {
61      cmd_next($dbh,$playerid,$audiochannel);
62    }
63    elsif ($mode eq 'fastfwd') {
64      cmd_fastfwd($dbh,$playerid,$audiochannel);
65    }
66    elsif ($mode eq 'rewind') {
67      cmd_rewind($dbh,$playerid,$audiochannel);
68    }
69    elsif ($mode eq 'pl_activate') {
70      cmd_call_playlist($dbh,$playerid,$audiochannel);
71    }
72    
73    ####################################################################
74    ### Keypad Functions
75    
76    sub cmd_stop{
77      gdgentools::pl_stop($dbh, $playerid, $audiochannel);
78    }
79    
80    sub cmd_pause{
81      gdgentools::pl_pause($dbh, $playerid, $audiochannel);
82    }
83    
84    sub cmd_play{
85      gdgentools::pl_play($dbh, $playerid, $audiochannel);
86    }
87    
88    sub cmd_prev{
89      gdgentools::pl_prev($dbh, $playerid, $audiochannel);
90    }
91    
92    sub cmd_next{
93      gdgentools::pl_next($dbh, $playerid, $audiochannel);
94    }
95    
96    sub cmd_fastfwd{
97      gdgentools::pl_ff($dbh, $playerid, $audiochannel);
98    }
99    
100    sub cmd_rewind{
101      gdgentools::pl_rw($dbh, $playerid, $audiochannel);
102    }
103    
104  use strict;  sub cmd_call_playlist{
105      gdgentools_extended::cmd_call_playlist($dbh, $playerid, $audiochannel, $playlist_id);
 use IO::Socket;  
 use Fcntl;  
   
   
 use lib '/home/music/bin';  
 use gddb;  
 use gdparams;  
 use gdgentools;  
   
 use DBI;  
   
   
 ##################################################  
 ### get Parameters  
 if(scalar(@ARGV) != 4){  
   print("Syntax: gdkeypad.pl host-ip player-id audiochannel mode\n");  
   print("        mode can be 'play', 'pause', 'stop', 'next', 'prev', 'fastfwd' or 'rewind'\n");  
   exit(0);  
 }  
   
 my $dbhost     = $ARGV[0];  
 my $playerid   = $ARGV[1];  
 my $audiochannel = $ARGV[2];  
 my $mode       = $ARGV[3];  
   
 $gdparms::dbhost = $dbhost;  
   
 ### open DB connection  
 my $dbh = DBI->connect("DBI:mysql:GiantDisc:".$dbhost, "music", undef)  
     or die "unable to connect to GiantDisc db";  
   
 ### switch modes  
 if ($mode eq 'play') {  
   cmd_play($dbh,$playerid,$audiochannel);  
 }  
 elsif ($mode eq 'stop') {  
   cmd_stop($dbh,$playerid,$audiochannel);  
 }  
 elsif ($mode eq 'pause') {  
   cmd_pause($dbh,$playerid,$audiochannel);  
 }  
 elsif ($mode eq 'prev') {  
   cmd_prev($dbh,$playerid,$audiochannel);  
 }  
 elsif ($mode eq 'next') {  
   cmd_next($dbh,$playerid,$audiochannel);  
 }  
 elsif ($mode eq 'fastfwd') {  
   cmd_fastfwd($dbh,$playerid,$audiochannel);  
 }  
 elsif ($mode eq 'rewind') {  
   cmd_rewind($dbh,$playerid,$audiochannel);  
 }  
   
 ####################################################################  
 ### Keypad Functions  
   
 sub cmd_stop{  
   gdgentools::pl_stop($dbh, $playerid, $audiochannel);  
 }  
   
 sub cmd_pause{  
   gdgentools::pl_pause($dbh, $playerid, $audiochannel);  
 }  
   
 sub cmd_play{  
   gdgentools::pl_play($dbh, $playerid, $audiochannel);  
 }  
   
 sub cmd_prev{  
   gdgentools::pl_prev($dbh, $playerid, $audiochannel);  
 }  
   
 sub cmd_next{  
   gdgentools::pl_next($dbh, $playerid, $audiochannel);  
 }  
   
 sub cmd_fastfwd{  
   gdgentools::pl_ff($dbh, $playerid, $audiochannel);  
 }  
   
 sub cmd_rewind{  
   gdgentools::pl_rw($dbh, $playerid, $audiochannel);  
106  }  }
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed