use strict;
use warnings;
use PPM::UI;
my $name = q{ActiveState PPM2 Repository};
my $results = PPM::UI::repository_info($name);
my $result = $results->{result};
print <<"END";

Name: $result->[0]
Location: $result->[1]
Type: $result->[2]

END