Using Active Perl, how to connect to the Groupwise message store and process messages?
First, connect to the Groupwise System Object — then get the Domain, Post Office, and finally a user name. Use the user name to connect to the Groupwise Session Object to get to the account’s messages. This assumes that a Groupwise 32-bit client is installed on your workstation. Code fragment: $gwsystem = “x:\\domain”; $System = new Win32::OLE(“NovellGroupWareAdmin”); $Session = new Win32::OLE(“NovellGroupWareSession”); $System->Connect($gwsystem); $Domain = $System->ConnectedDomain; $PostOffices = $Domain->PostOffices; $PostOffice = $PostOffices->Item(“My PostOffice”); $Users = $PostOffice->Users; # Get Users collection $UserIter = $Users->CreateIterator; Users: while (1) { $Myuser = $UserIter->Next || last Users; $username = $Myuser->Name; $Account = $Session->MultiLogin($username,””,”password”); …do stuff with messages… } 3.1 In Sendmail, how to add custom headers (X-CustomHeader) to every outgoing message? In your sendmail .mc file, configure a macro with the header informatio
