Zimbra Forums

Code: Select all

#!/usr/bin/perl

#
# Step1: get list of contacts into a file
#        zmmailbox -z -m user@example.com gact > /tmp/user
# Step2: cat /tmp/user | argv[0]

# fileAs number
#(Blank) = Last, First
#1 = Last, First
#2 = First Last
#3 = Company
#4 = Last, First (Company)
#5 = First Last (Company)
#6 = Company (Last, First)
#7 = Company (First Last)
#8 = Custom - one must type: 8:<custom string>
#

#need email address
$emailAddr=shift(@ARGV);
if (!$emailAddr)
{
        printf "usage: %s: email address\n",$0;
}

sub FileAs {
 my($Id) = @_;

 #printf "zmmailbox -z -m user\@example.com mcta %s fileAs 1\n",$Id;
 printf "zmmailbox -z -m %s mcta %s fileAs 1\n",$emailAddr,$Id;
}

my $data = do { local $/; <STDIN> };
@data = split(/Id:/,$data);

foreach (@data)
{
        #default was 2
        if ($_ =~ /fileAs:\s*/)
        {

          # dont' touch group fileAs or existing ones that are file correctly
           if (($_ =~ m#type: group#) || ($_ =~ m#fileAs:\s*1#)) { next;}

            my ($Id) = $_ =~ m#\s+(\d+)#;
            if ($_ =~ m#/Contacts#)
            {
                FileAs($Id);
                #printf "[%s]\n",$_;
            }
        }
}

Code: Select all

#!/bin/sh

#
# as zimbra user.
#
# To see what would change:
#     usage: /home/jad/Zimbra/scripts/zimbra-build-gact.sh
#
# To execute the changes:
#     usage: /home/jad/Zimbra/scripts/zimbra-build-gact.sh  | sh
#
pathname=/home/jad/Zimbra/scripts

# replace with this for list of all users... [domain] optional
# zmprov -l gaa [domain]
for i in user1 user2 user3 user4
do
	zmmailbox -z -m $i@example.com gact | $pathname/zimbra-contacts-fileAs.pl $i@example.com
done

exit 0