Hello Friends,
I am Pramod. New to this forums. I came here to seek help from you guys.
I am running a real media streaming music website. I have got a cgi script which can be used to make a playlist & play the files.
Please check the demo of the script which is running
http://www.kannadaaudio.com/demo.htm
===http://www.kannadaaudio.com/list.cgi
See the Code here =
print <<EndHTML1;
<html><head><title>Here comes~</title></head>
<body><center>
EndHTML1
@Lists = split(/,/, $FORM{'text1'});
$FILE_NAME = $YEAR.$MONTH.$DAY. "_" .$HR.$MIN.$SEC.".ram";
$FILE_NAME2 = ">".$FILE_NAME;
open(OUTF,$FILE_NAME2) or &dienice("Couldn't open survey.out for
writing. Please notify webmaster.");
foreach $list (@Lists) {
print OUTF "$Songs{$list}\n";
}
close(OUTF);
# Modify this yourself if you want a different look.. or add a pop up
# windows for the .ram file. If you don't know how to do it. I suggest
# you leave it as it is. =)
print <<EndHTML;
Here is your list<p>
<img src="http://images.real.com/pics/general/*reeplayer_g2.gif"><p>
<a href="$FILE_NAME">Click Here to listen!</a><p>
Thanks for visiting my site. =)
<p>
<br>
EndHTML
print "</body></html>";
sub dienice {
($msg) = @_;
print "<h2>Error</h2>\n";
print $msg;
exit;
}
Download the source code here =
http://www.kannadaaudio.com/reallist.zip
Wht i want you to help me in is===
When it is play it goes to the next page but i don't want that...........
I want like this so that the created .ram file should be executed automatically & played in the realplayer instead of goin to next page & clicking on it....
Sorry for bad english........
Pramod
