<rsb:import lib="RSSBus.SmtpOps" />
<rsb:import lib="RSSBus.LdapOps" />

<rsb:info title="Email AD Groups" description="Quickly compose an email message and have it send to individual users or all users of the select AD Group." >
  <input name="ldapserver" required="true" />
  <input name="ldapauthdn" required="true" />
  <input name="ldappassword" required="true" />
  <input name="ldapdn" required="true" default="dc=com" />  
  <input name="mailserver" required="true" />
  <input name="from" default="rssbus@webpart.com" required="true" />
</rsb:info>

<!-- get a list of groups in AD -->
<rsb:set attr="server" value="[ldapserver]" />
<rsb:set attr="authdn" value="[ldapauthdn]" />
<rsb:set attr="password" value="[ldappassword]" />
<rsb:set attr="dn" value="[ldapdn]" />
<rsb:set attr="filter" value="objectClass=group"/>
<rsb:set attr="scope" value="WHOLESUBTREE"/>
<rsb:call op="ldapSearch" save="groups" />

<!-- display input elements for recipient, subject, and message content -->
<table>
  <tr><td>To:</td>
    <td>
      <select name="recipient" style="width:200px">
      <!--display the list of groups -->
      <rsb:call op="feedGet?feed=[_feeds.groups | urlencode]">
        <option value="[ldap:dn]">[ldap:name]</option>
      </rsb:call>
      </select>
    </td>
  </tr>
  <tr><td>Subject:</td><td><input type="text" value="" style="width:200px" name="Subject" id="Subject" value="" /></td></tr>
  <tr><td>Message:</td><td></td></tr>
  <tr><td colspan="2"><textarea name="Message" rows="10" cols="71"></textarea></td></tr>
  <tr><td></td><td align="right"><input type="submit" /></td></tr>
</table>

<!-- when a message is submitted, send it with the smtpSendMessage operation -->
<rsb:equals attr="_request.request_method" value="POST">
<rsb:check attr="_request.form:Message">
<rsb:notequals attr="_request.form:Message" value="">

<!-- find the members of the group -->
<rsb:set attr="dn" value="[_request.form:recipient]"/>
<rsb:set attr="scope" value="BASEOBJECT"/>
<rsb:set attr="filter" value="objectClass=*"/>
<rsb:call op="ldapSearch">

  <!-- for each member, find their email address and send the message -->
  <rsb:enum range="1..[ldap:member#]">
    <rsb:set attr="dn" value="[ldap:member#[_value]]"/>
    <rsb:set attr="server" value="[ldapserver]" />
    <rsb:call op="ldapSearch">
      <rsb:check attr="ldap:mail" >
        <!-- set the properties of the message -->
        <rsb:set attr="server" value="[mailserver]" />
        <rsb:set attr="from" value="[from]" />
        <rsb:set attr="subject" value="[_request.form:Subject]" />
        <rsb:set attr="html" value="[_request.form:Message]" />
        <rsb:set attr="to" value="[ldap:mail]" />

        <rsb:call op="smtpSendMessage">
          Emailed [ldap:mail]: [smtp:messageid | def('Message Not Sent.')]<br />
        </rsb:call>
      <rsb:else>
        Skipped [ldap:cn] ([ldap:dn]): No email address in this users entry.<br />
      </rsb:else>
      </rsb:check>
    </rsb:call>
  </rsb:enum>

</rsb:call>

</rsb:notequals>
</rsb:check>
</rsb:equals>