File: queue.pl

package info (click to toggle)
digitaldj 0.7.5-5
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 1,344 kB
  • ctags: 548
  • sloc: sh: 7,376; ansic: 6,265; perl: 495; makefile: 160; sql: 87
file content (18 lines) | stat: -rw-r--r-- 305 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
#!/usr/bin/perl

use CGI;
use strict;

my $cgi=new CGI;

my $song_id=$cgi->param('song_id');

my $cmd=qq(/var/www/cgi-bin/ddj-remote 192.168.1.202 "juke_add_song $song_id");

my $result=`$cmd`;

print "Content-type: application/blah\n\n";

#print "command was [$cmd]\n";

#print "result was [$result]\n";