#!/usr/local/bin/perl
use strict;
use warnings;
############################
# By: Ventz Petkov         #
# Date: 11-17-05           #
# Automatic iTunes Grabber #
############################
use Shell;

if(@ARGV != 1) {
    print "\t Usage: ./autoitunes <output_folder>\n";
    print "\t Example: ./autoitunes /tmp/music\n";
    exit;
}

my $output = $ARGV[0];
my ($x, $y) = (0,0);

for(171..174) {
    $x = $_;
    for(1..254) {
        $y = $_;
        my $ip = "128.103.$x.$y";
        print "Scanning IP: $ip\n";
        my $results = nmap("--host_timeout 201 -p 3689 -P0 $ip");
        if($results =~ /open/) {
            print "======================> IP with Open rendezvous: $ip\n";
            system("./itunes.pl $ip $output");
        }
    }
}
