On Wed, Jan 19, 2011 at 02:09:38PM +0000, Pierre Buhas wrote:
> my %domain_map = ();
> my $queues = new RT::Queues(RT::SystemUser);
> foreach my $queue ($queues->Next) {
> $domain_map { $queue->FirstCustomFieldValue('MailDomain') } = $queue->Name;
> }
That really wants to be a while ( my $queue = $queues->Next ) {
The new is really old-style but should be fine
-kevin
pgpCaWt8KdZOv.pgp
Description: PGP signature
