[- $args = shift @param; %contacts = %{ &EMU::get_var('contacts') }; @to = @{ &EMU::get_var('to') }; @cc = @{ &EMU::get_var('cc') }; @bcc = @{ &EMU::get_var('bcc') }; @groups = grep(/^addressgroup\./, keys %EMU::userdb); -]