bitjoe - Contrib - Contrib - autonuts - SOURCE CODE

#!/usr/bin/perl

# autonuts v3.0 by cider (slf@dreamscape.org)
# "my music collection has a juicy new center!"
# this version tries to avoid using expect. Expect sucks.
# mutella is vastly superior to gnut, will try to find better hosts
# for the file downloads while they are downloading or if fails
# you can also start up mutella manually after it has ran long enough
# to download the files if you wish to type list or info to track
# the progress. i am strongly in favor of this approach instead of
# my former tactics with gnut.
# http://enraptured.compulsion.org/code/
#
# autonuts is designed to pillage and data-mine gnutella using the
# command line gnutella client "mutella", using pure perl.
#
# this version is designed to run for 30 minutes after horizon and download
# requests are fired off, and then exits suitable for suicide batch jobs.
#
# usage: autonuts your simple text bandname here
#    ie: autonuts sneakerpimps &
#        autonuts the cure &
#        autonuts fugazi &
#                             ;)


use Term::ANSIColor;
use Text::Soundex;
use IPC::Open2;
$| = 1;

$ENV{TERM} = "dumb";
$SIG{INT} = sub { system "killall -9 mutella"; die "dying with cleanup.\n"; };

$archive = "."; # where our mp3s are located and downloaded to

$band = shift || die "who do you want to search for?\n";

$wantcap = 2; # this number is how many gigs of storage to wait for before searching
$testphrase = "$band"; # this is your generic search phrase for the search test

check_existing_songs($band);

my($r,$w);				# my read and write filehandles, globals definitely!
open2($r, $w, 'TERM=dumb mutella 2\>/dev/null') or die;	# does what open FH, "| cmd |" dosent
printuntil("Enjoy");		# wait until mutella's ready..

print $w "set MinConnections 4\n";
find_prompt();
print $w "set MaxConnections 8\n";

... [truncated, 455 more lines] ...