Easy mp3 search
#!/usr/bin/perl
####################################
# Easy MP3 Search #
# Copyright (c) 1999 By Cgiman #
# Version: 1.00 #
####################################
use CGI;
$in = new CGI;
$keywords = $in->param('keywords');
$location = $in->param('location');
$search =~ tr/ /+/;
if ($location eq "Kermit")
{
$searchat = "http://oth.net/cgi-bin/search?q=$keywords\&cl=1";
$data = "http://easympsearch.cjb.net";
}
elsif ($location eq "Fast MP3")
{
$searchat = "http://mp3.lycos.com/cgi-bin/search?query=$keywords\&hits=100";
$data = "http://easympsearch.cjb.net";
}
elsif ($location eq "2look4")
{
$searchat = "http://www.2look4.com/cgi-bin/mp3/search.cgi?query=$keywords\&sites=a";
$data = "http://easympsearch.cjb.net";
}
elsif ($location eq "cybertropix")
{
$searchat = "http://www.cybertropix.com/search/index.shtml?query=$keywords\&max=150\&timeout=5";
$data = "http://easympsearch.cjb.net";
}
elsif ($location eq "astraweb")
{
$searchat = "http://mp3search.astraweb.com/cgi-bin/search.cgi?word=$keywords";
$data = "http://easympsearch.cjb.net";
}
elsif ($location eq "mp3box")
{
$searchat = "http://mp3.box.sk/mp3ftp.php3?srch=$keywords\&submit=+search+";
$data = "http://easympsearch.cjb.net";
}
elsif ($location eq "mp3board")
{
$searchat = "http://www.mp3board.com/search.exe?search=$keywords";
$data = "http://easympsearch.cjb.net";
}
elsif ($location eq "palavista")
{
$searchat = "http://mp3.palaquest.com/cgi-bin/burgandy.pl?template=default.html\&minrel=90\&maxhit=200\&query=$keywords";
$data = "http://easympsearch.cjb.net";
}
elsif ($location eq "mircx")
{
$searchat = "http://www.mircx.com/cgi-bin/s?q=$keywords\&d=m";
$data = "http://easympsearch.cjb.net";
}
elsif ($location eq "mp3cache")
{
$searchat = "http://mp3.home.ro/search.php3?q=$keywords";
$data = "http://easympsearch.cjb.net";
}
elsif ($location eq "musicseek")
{
$searchat = "http://www.musicseek.net/search.phtml?query=$keywords\&perpage=100\&smartsearch=yes\&ftypes=.mp3\&minrel=25";
$data = "http://easympsearch.cjb.net";
}
elsif ($location eq "musicgrab")
{
$searchat = "http://www.musicgrab.com/search.phtml?search=$keywords\&offset=0";
$data = "http://easympsearch.cjb.net";
}
elsif ($location eq "1mp3")
{
$searchat = "http://207.36.98.16/cgi-bin/mp3ftp/search.cgi?wh=se\&qu=$keywords\&si=0\&ty=0\&co=0";
$data = "http://easympsearch.cjb.net";
}
elsif ($location eq "audiofind")
{
$searchat = "http://www.audiofind.com:70/?audiofindsearch=$keywords\&audiofindtype=mp3";
$data = "http://easympsearch.cjb.net";
}
elsif ($location eq "acidsearch")
{
$searchat = "http://www.acidsearch.com/cgi-bin/search/search.cgi?query=$keywords\&engine=mp3";
$data = "http://easympsearch.cjb.net";
}
else
{
$searchat = "http://oth.net/cgi-bin/search?q=$keywords\&cl=1";
$data = "http://easympsearch.cjb.net";
}
$frames = qq~
<html>
<head>
<title>MP3 Search</title>
</head>
<frameset rows="68,1*" cols="*" frameborder="NO" border="0" framespacing="0">
<frame marginwidth=0 marginheight=0 scrolling="NO" frameborder="NO" name="data" src="$data">
<frame src="$searchat" scrolling="AUTO" frameborder="NO" name="engineframe">
</frameset>
<noframes>
<body bgcolor="#FFFFFF">
Your Browser doesn't support frames - you should get a newer version for free at <a href="http://www.netscape.com">Netscape.com</a>)
</body>
</noframes>
</html>
~;
print "Content-type: text/html\n\n";
print $frames;
exit;