"switch" isn't really built into Perl, you have to "use Switch;". I've never tried using Perl modules from within the scrip custom condition/action/etc, though. I don't know of a reason, off hand, that it wouldn't work though.
-- Jacob Helwig PC Technician Busch's Help Desk Desk: x35221 Direct: 734-214-8221 -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Tim Wilson Sent: Monday, August 20, 2007 8:35 PM To: [email protected] Subject: [rt-users] Need LDAP scrip help: using a switch statement Hey everyone, I'm trying to adapt the "set custom field with LDAP query" scrip example from the RT book, and I'm stuck. I'm hoping someone has a suggestion. The main problem, I'm afraid, is a lack of perl experience. I've created a new scrip called "Set Building CF from LDAP on Create" with Condition "On Create" and Action "User Defined". Here's my custom action preparation code: my $email = ($self->TicketObj->RequestorAddresses)[0]; my $ldap = Net::LDAP->new( 'my.ldap.server ); $ldap->bind; my $msg = $ldap->search( base => 'ou=Staff,o=My-ldap-org', filter => '(email=$email)', ); my $entry = $msg->entry(0); my $ou = $entry->get_value('ou'); # Fix up the CF names based on LDAP results switch ($ou) { case "DISTRICT SERVICES" { $building = "DO" } case "HIGH SCHOOL" { $building = "HS" } case "JEFFERSON" { $building = "JES" } else { $building = "DO" } }; my $cf = RT::CustomField->new( $RT::SystemUser ); $cf->LoadByName( Name => 'Building' ); $self->TicketObj->AddCustomFieldValue( Field => $cf, Value => $building ); return 1; I don't have anything in the Custom action cleanup code box. I'm trying to use a switch because the field in our LDAP records doesn't match the custom field text in RT. Rather than changing everything in the LDAP, I was hoping to make the translation here in the scrip action. Anyone see a problem with this scrip? It doesn't seem to break anything, but neither does the custom field get set when a new ticket comes in. Running RT 3.6.3 on Ubuntu with MySQL 5.0.22 and apache-ssl 1.3.34 -Tim -- Tim Wilson, Director of Technology Buffalo-Hanover-Montrose Schools 214 1st Ave NE Buffalo, MN 55313 ph: 763.682.8740 fax: 763.682.8743 http://www.buffalo.k12.mn.us _______________________________________________ http://lists.bestpractical.com/cgi-bin/mailman/listinfo/rt-users Community help: http://wiki.bestpractical.com Commercial support: [EMAIL PROTECTED] Discover RT's hidden secrets with RT Essentials from O'Reilly Media. Buy a copy at http://rtbook.bestpractical.com _______________________________________________ http://lists.bestpractical.com/cgi-bin/mailman/listinfo/rt-users Community help: http://wiki.bestpractical.com Commercial support: [EMAIL PROTECTED] Discover RT's hidden secrets with RT Essentials from O'Reilly Media. Buy a copy at http://rtbook.bestpractical.com
