#updateWorkingRepositories.pl
use strict;
use warnings;
use PPM::Repositories;
use Net::Ping;

use PPM::Repositories;

use LWP::UserAgent;

my $ua       = new LWP::UserAgent;
$ua->env_proxy if defined $ENV{HTTP_proxy};

remove_non_active_state_repositories();
add_repositories();

#remove all repositories, except the repositories that come installed by default with ActiveState.
sub remove_non_active_state_repositories {
    
    my @repositories;
    my $result = `ppm rep`; 
    for (split /[\r\n]/, $result) {
        #parsing lines that looks like 
        #[ 3] jenda
        my ($number, $repository) = $_ =~ /(\[[^>]*\]\s)(.*)/;
        if ($repository) {
            unless ($repository =~ /activestate/i) { print `ppm rep delete $repository` unless (/activestate/i); }      
        }
    }
}

sub add_repositories {
    for ( keys %Repositories )
    {
        my $repository = $_;
        my $location = $Repositories{$_}->{location};
        my $domain = trim_domain($location);
    
        my $request  = new HTTP::Request ("GET" => "http://$domain");

        $request->proxy_authorization_basic($ENV{HTTP_proxy_user}, $ENV{HTTP_proxy_pass})
            if defined $ENV{HTTP_proxy};    
        
        my $response = $ua->request($request);
        
        if ( $response && $response->is_success ) {
            print "$repository is alive.\n";
            print `ppm repository add $repository $location` . "\n\n";
        } else {
            print "$repository is dead.\n";
        }
    }
}

#function that trims a domain
sub trim_domain {
    $_ = my $original_input = shift;
    $_ =~ s/^\s+//; #strip spaces at start of string
    $_ =~ s/\s+$//; #strip spaces at end of string
    $_ =~ s|^http://||; # strip http:// at begining
    $_ =~ s|/.*$||; # strip everything after the first /
    my $trimmed_domain = $_;
    
    unless ($trimmed_domain) {
        logMessage("trim_domain had a problem trimming $original_input");
        carp ("trim_domain had a problem trimming $original_input");
        $trimmed_domain = "$original_input couldn't be trimmed in trim_domain";
    } 
    return $trimmed_domain; 
}