#!/usr/local/bin/perl
$|=1;
print "Content-type : text/plain","\n\n";

#bin/ldapsearch -b "o=Globus, c=US" -h ldap.globus.org 'objectclass=*'
@params = split(/&/,$ENV{'QUERY_STRING'});
$base   = $params[0];
$filter = $params[1];
#$command = "ldapsearch -b \"$base\"  -h ldap.globus.org \'$filter\' ";
$command = "ldapsearch -b \"$base\"  -h mds.globus.org \'$filter\' ";
#command = $command\n";   
system($command); 
