/mcpSample Perl Code for Forwarding a Message and Marking It for Investigative Hold my $SERVER = 'cuc_server'; my $PASSWORD = 'cuc_password'; my $USER = 'cuc_user'; sub ForwardMessage { my $recipient = shift(@); my $messageObjectID = shift(@); my $userObjectID = shift(@); my $subject = shift(@); my $credentials="$PASSWORD"; my $url=https://$SERVER/vmrest/messages?messageid=$messageObjectID& userobjectid=$userObjectID; my $ua = LWP::UserAgent->new; my $header = HTTP::Headers->new; $header->header("Content-Type","multipart/mixed;boundary=Boundary"); my $req = HTTP::Request->new(POST => $url, $header, $credentials); $req->authorization_basic($USER,$PASSWORD); #Set investigative hold on/off (1=on, 0=off) my $invHold = 1; my $part = <<END_OF_PART; --Boundary Content-Type: application/xml <?xml version="1.0" encoding="UTF-8" standalone="yes"?><Message> <InvestigativeHold>$invHold</InvestigativeHold><Subject>$subject</Subject> <ArrivalTime>0</ArrivalTime><FromSub>false</FromSub></Message> --Boundary Content-Type: application/xml <?xml version="1.0" encoding="UTF-8" standalone="yes"?><Recipients><Recipient><Type>TO</Type> <Address><SmtpAddress>$recipient</SmtpAddress></Address></Recipient></Recipients> --Boundary-- END_OF_PART print "\nForwarding message to ", $recipient, "\n"; $req->content($part); my $response = $ua->request($req); }; • Partial XML Message Schema <xs:complexType name="Message"> xs:all <!- fields that can be modified by the client at any time -> <xs:element name="Subject" type="xs:string" minOccurs="0" /> <xs:element name="Read" type="xs:boolean" minOccurs="0" /> <!- flags that can be set by the client on send -> <xs:element name="Dispatch" type="xs:boolean" minOccurs="0" /> <xs:element name="Secure" type="xs:boolean" minOccurs="0" /> <xs:element name="Priority" type="priorityType" minOccurs="0" /> <xs:element name="Sensitivity" type="sensitivityType" minOccurs="0" /> <xs:element name="ReadReceiptRequested" type="xs:boolean" minOccurs="0" /> <xs:element name="DeliveryReceiptRequested" type="xs:boolean" minOccurs="0" /> <xs:element name="InvestigativeHold" type="xs:boolean" minOccurs="0" /> Cisco Unity Connection Messaging Interface (CUMI) API 38 Cisco Unity Connection Messaging Interface (CUMI) API -- Preventing Messages from Being Automatically Deleted (Investigative Hold) Sample Perl Code for Forwarding a Message and Marking It for Investigative Hold