#!/usr/bin/perl -w
print "This will change your password for everywhere except CSC\n";
print " maybe you should wait a couple of days and try again...\n\n";
$username = getpwuid("$>");
$basedn = "dc=parkland,dc=cc,dc=il,dc=us";
$binddn = "uid=$username, ou=People, $basedn";
system("ldappasswd -D\'$binddn\' -W");