#!/usr/bin/perl -w
#
# CGI script to be installed in /cgi-bin directory
# Calls player.pl with song number from CGI parameters
use strict;
print "Content-type: text/html\n";
print "Refresh: 5; URL=/cgi-bin/playinfo\n\n";
my $position = $ENV{'QUERY_STRING'}
or die "Song number must be specified\n";
print "result";
print "Playing track $position
\n";
print "";
system "/root/player.pl $position >/dev/null 2>/dev/null