Ken,

Thanks for the example. Everything now works as I expected.

        al

Ken Cornetet wrote:
> 
> Here's the pertinent bit of code. The caller passes a dn, two lines of
> address information, and other misc info.
> 
> The sub appends a CRLF and the second address line to the first line (if the
> second line exists).
> 
> sub Modify {
> 
>         my ($dn, $addr1, $addr2, $city, $state, $zip, $company, $div,
> $phone) = @_;
> 
>         my $addr = $addr1;
>         if( $addr2 ) {
>                 $addr .= "\r\n$addr2";
>         }
> 
>         $ldap->modify( $dn,
>         changes => [
>         replace => [
>                 streetAddress => $addr,
>                 l => $city,
>                 postalCode => $zip,
>                 department => "$company/$div",
>                 st => $state,
>                 telephoneNumber => $phone
>         ]
>         ]);
> }

-- 

Al Lilianstrom
CD/OSS/CSI
[EMAIL PROTECTED]
List info   : http://www.activedir.org/mail_list.htm
List FAQ    : http://www.activedir.org/list_faq.htm
List archive: http://www.mail-archive.com/activedir%40mail.activedir.org/

Reply via email to