CGI Easy mp3 search Code Library

#!/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;