#!/usr/bin/perl
#
# This software may be used and distributed according to the terms
# of the GNU Public License, incorporated herein by reference
#
# MyNapster WebClient copyright 2000
# info@mynapster.com
#
# You are welcome to modify and distribute this code

use CGI qw(:standard); 
use CGI::Cookie;
use lib "/home/mynapste/www/cgi-bin";
use napster;
use strict;

$SIG{'HUP'} = \&puke;
$SIG{'INT'} = \&puke;
$SIG{'KILL'} = \&puke;
$SIG{'PIPE'} = \&puke;
$SIG{'ALRM'} = \&puke;
 alarm 40; 


if (param()) 
{ 

  my  $cookie_nick = cookie('nick'); 
  my  $cookie_pass = cookie('pass'); 
  my ($nick, $pass);

  if (!$cookie_nick && !$cookie_pass) 
  {

     my $mynapster = Napster->new("", "");
     my @chars = ('a' .. 'z', 'A' .. 'Z', 0 .. 9);
     $nick = join "", map $chars[rand @chars], 1 .. 10; 
     $pass = join "", map $chars[rand @chars], 1 .. 7; 

     my ($type, $msg) = $mynapster->register_new_user($nick, $pass, $nick . '@hotmail.com');
     if ($type != 3)
     {
       print header;
       print_form();  
       print p, h1("Could not create a new user, reason $type, message : $msg"),p;
       print end_html; 
       die;
     }
     else
     {
       $cookie_nick = cookie(-NAME => 'nick', -VALUE => $nick, -EXPIRES => '+2y');
       $cookie_pass = cookie(-NAME => 'pass', -VALUE => $pass, -EXPIRES => '+2y');
     };
  }
  else
  {
    $nick = $cookie_nick;
    $pass = $cookie_pass;
  };


  my $mynapster = Napster->new($nick, $pass);

  my $nap_server = param('Server');
  my @all_servers = param('servers');
  foreach my $serv (@all_servers)
  {
    if ($serv =~ /$nap_server/)
    {
      $_ = $serv;
    };
  };
  my ($ip, $port);
  s/^(\S*)\s//; 
  $ip = $1;
  s/^(\S*)\s//; 
  $port = $1;


  my ($nap_ip, $nap_port) = $mynapster->connect($ip, $port);

  if ($nap_ip != -1) 
  {
     print header(-COOKIE => [$cookie_nick, $cookie_pass]);
     print_form();  

     my %songs = $mynapster->search(FILENAME => param('name'), MAX_RESULTS => param('max_res'));
     if (!defined(%songs))
     {
       print h3({-style=>'Color: green;'},"No matching songs found"), p;
     };

     foreach my $song (keys %songs)
     {
       $_ = (split(/\\/, $song))[-1];
       s/"//g;
       my ($md5, $size, $bitrate, $freq, $length, $nick, $ip, $link_type) = split ' ', $songs{$song};
       my $ref = "/cgi-bin/get_song.cgi/?song=" . CGI::escape($song) . "&nick=" . CGI::escape($nick) .
                 "&nap_ip=" . $nap_ip . "&nap_port=" . $nap_port . "&size=" . $size;
     
       my $mysize = sprintf '%.2f', $size/1000000;
       print a( {-href=>$ref}, $_), '      ', $mysize, " MB"; 
       for (my $i = 1; $i < $link_type; $i++)
       {
         print '<IMG SRC="http://www.mynapster.interserver.net/gjethi.gif" width=24 height=25 border=0>';
       };
       print p;
     }
     print end_html; 
     $mynapster->disconnect;

  }
  else
  {
    print header;
    print_form();  
    print p, h1("Could not connect to napster, contact a webmaster"),p;
  }   
  

}
else
{
  print header;
  print_form();  

sub puke {
  die;
} 



sub print_form
{
## my @servers = napster::get_servers_list;
## my @hidden_servers = @servers;
## foreach (@servers)
## {
##   s/(\S*)$//; 
##   $_ = $1;
## };
## my $serv_ref = \@servers; 
 print start_html('My Napster'),
       h3({-style=>'Color: green;'},"My Napster"),
       start_form, "Song or Artist name : ", textfield('name'), 
       " Max Results : ", textfield('max_res'),
       p;

 print radio_group(-name=>'Server', -values=>['opennap.htoc.com','opennap.cx','wintermute.sparhawk.bc.ca',
                        'wolf.ircmafia.org', 'imperialfleet.com', 'mynapster.com', 'culvernap.yi.org',
                        'mp3hoy.net', 'opennap.darkcrystal.cx', 'bitchx.dimension6.com', 
                        'thrashmetal.napster.com', 'salsa.napster.com', 'crossover.napster.com',
                        'blackmetal.napster.com', 'polskpunk.napster.com', 'negerpunk.napster.com', 
                        'hardcore.napster.com', 'clubhouse.napster.com', 'eurohouse.napster.com', 
                        'alternative.napster.com', 'freestyle.napster.com', 'britpop.napster.com', 'samba.napster.com', 
                        'tango.napster.com', 'porngroove.napster.com', 'primus.napster.com', 'trance.napster.com',
                        'opera.napster.com', 'acoustic.napster.com', 'easylistening.napster.com', 'symphonicrock.napster.com',
                        'psychedelicrock.napster.com', 'bluegrass.napster.com', 'celtic.napster.com',
                        'fastfusion.napster.com', 'swing.napster.com', 'hardrock.napster.com', 'rockandroll.napster.com',
                        'acidjazz.napster.com', 'acidpunk.napster.com', 'showtunes.napster.com', 'rave.napster.com',
                        'newage.napster.com', 'jungle.napster.com', 'gangstarap.napster.com', 'hiphop.napster.com',
                        'eurodance.napster.com', 'techno.napster.com', 'rock.napster.com', 'pop.napster.com',
                        'oldies.napster.com', 'funk.napster.com', 'disco.napster.com', 'bigband.napster.com',
                        'tribal.napster.com'],
                   -default=>'eurohouse.napster.com'); 


       print '<INPUT TYPE="hidden" NAME="servers" VALUE="207.210.164.190 8888 Opennap 1036 207349 820 opennap.htoc.com">';
       print '<INPUT TYPE="hidden" NAME="servers" VALUE="216.207.184.105 8888 Opennap 1036 207349 820 opennap.cx">';
       print '<INPUT TYPE="hidden" NAME="servers" VALUE="24.66.169.200 8888 Opennap 1036 207349 820 wintermute.sparhawk.bc.ca">';
       print '<INPUT TYPE="hidden" NAME="servers" VALUE="207.210.164.190 8888 Opennap 1036 207349 820 opennap.htoc.com">';
       print '<INPUT TYPE="hidden" NAME="servers" VALUE="206.191.246.25 8888 Opennap 1036 207349 820 wolf.ircmafia.org">';
       print '<INPUT TYPE="hidden" NAME="servers" VALUE=" 207.195.111.2 8888 Opennap 1036 207349 820 bitchx.dimension6.com">';
       print '<INPUT TYPE="hidden" NAME="servers" VALUE="64.13.30.57 8888 Opennap 1036 207349 820 imperialfleet.com">';
       print '<INPUT TYPE="hidden" NAME="servers" VALUE="64.224.196.144 8888 Opennap 1036 207349 820 mynapster.com">';
       print '<INPUT TYPE="hidden" NAME="servers" VALUE="128.61.2.126 8888 Opennap 1036 207349 820 culvernap.yi.org">';
       print '<INPUT TYPE="hidden" NAME="servers" VALUE="207.113.81.214 8888 Opennap 1036 207349 820 mp3hoy.net">';
       print '<INPUT TYPE="hidden" NAME="servers" VALUE="216.29.79.90 8888 Opennap 1036 207349 820 opennap.darkcrystal.cx">';
       print '<INPUT TYPE="hidden" NAME="servers" VALUE="208.49.239.248 7777 Napster -1 -1 -1 thrashmetal.napster.com">';
       print '<INPUT TYPE="hidden" NAME="servers" VALUE="208.49.239.248 8888 Napster -1 -1 -1 salsa.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.178.163.61 7777 Napster -1 -1 -1 crossover.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.178.163.61 8888 Napster -1 -1 -1 blackmetal.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.178.175.133 7777 Napster -1 -1 -1 polskpunk.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.178.175.133 8888 Napster -1 -1 -1 negerpunk.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.184.216.204 7777 Napster -1 -1 -1 hardcore.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.184.216.204 8888 Napster -1 -1 -1 clubhouse.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.184.216.205 7777 Napster -1 -1 -1 eurohouse.napster.com">';
       print '<INPUT TYPE="hidden" NAME="servers" VALUE="208.184.216.205 8888 Napster -1 -1 -1 alternative.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.184.216.206 7777 Napster -1 -1 -1 freestyle.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.184.216.206 8888 Napster -1 -1 -1 britpop.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.184.216.207 7777 Napster -1 -1 -1 samba.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.184.216.207 8888 Napster -1 -1 -1 tango.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.184.216.208 7777 Napster -1 -1 -1 porngroove.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.184.216.208 8888 Napster -1 -1 -1 primus.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.184.216.209 7777 Napster -1 -1 -1 trance.napster.com">';
       print '<INPUT TYPE="hidden" NAME="servers" VALUE="208.184.216.209 8888 Napster -1 -1 -1 opera.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.184.216.210 7777 Napster -1 -1 -1 acoustic.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.184.216.210 8888 Napster -1 -1 -1 easylistening.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.184.216.211 7777 Napster -1 -1 -1 symphonicrock.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.184.216.211 8888 Napster -1 -1 -1 psychedelicrock.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.184.216.212 7777 Napster -1 -1 -1 bluegrass.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.184.216.212 8888 Napster -1 -1 -1 celtic.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.184.216.213 7777 Napster -1 -1 -1 fastfusion.napster.com">';
       print '<INPUT TYPE="hidden" NAME="servers" VALUE="208.184.216.213 8888 Napster -1 -1 -1 swing.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.184.216.214 7777 Napster -1 -1 -1 hardrock.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.184.216.214 8888 Napster -1 -1 -1 rockandroll.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.184.216.215 7777 Napster -1 -1 -1 acidjazz.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.184.216.215 8888 Napster -1 -1 -1 acidpunk.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.184.216.216 7777 Napster -1 -1 -1 showtunes.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.184.216.216 8888 Napster -1 -1 -1 rave.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.184.216.217 7777 Napster -1 -1 -1 newage.napster.com">';
       print '<INPUT TYPE="hidden" NAME="servers" VALUE="208.184.216.217 8888 Napster -1 -1 -1 jungle.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.184.216.218 7777 Napster -1 -1 -1 gangstarap.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.184.216.218 8888 Napster -1 -1 -1 hiphop.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.184.216.219 7777 Napster -1 -1 -1 eurodance.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.184.216.219 8888 Napster -1 -1 -1 popfolk.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.184.216.221 7777 Napster -1 -1 -1 country.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.184.216.221 8888 Napster -1 -1 -1 punk.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.178.175.130 7777 Napster -1 -1 -1 acid.napster.com">';
       print '<INPUT TYPE="hidden" NAME="servers" VALUE="208.178.175.130 8888 Napster -1 -1 -1 instrumental.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.49.239.247 7777 Napster -1 -1 -1 vocal.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.49.239.247 8888 Napster -1 -1 -1 triphop.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.178.175.132 7777 Napster -1 -1 -1 techno.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.178.175.132 8888 Napster -1 -1 -1 rock.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.178.175.134 7777 Napster -1 -1 -1 pop.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.178.175.134 8888 Napster -1 -1 -1 oldies.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.184.216.201 7777 Napster -1 -1 -1 funk.napster.com">';
       print '<INPUT TYPE="hidden" NAME="servers" VALUE="208.184.216.201 8888 Napster -1 -1 -1 disco.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.184.216.198 7777 Napster -1 -1 -1 bigband.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="208.184.216.198 8888 Napster -1 -1 -1 tribal.napster.com"><INPUT TYPE="hidden" NAME="servers" VALUE="59 3282 656741 2596"><P><P>',
       p,p,submit,
       end_form, hr,
       p;

};