RegisterControl.java

Go to the documentation of this file.

/*
 * Turró i Cutiller Foundation. License notice.
 * Copyright (C) 2016 Lluis Turró Cutiller <http://www.turro.org/>
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU Affero General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU Affero General Public License for more details.
 *
 * You should have received a copy of the GNU Affero General Public License
 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
 */
 
package org.turro.contacts.zul.register;
 
import java.io.File;
import java.io.IOException;
import java.io.UnsupportedEncodingException;
import java.util.HashMap;
import java.util.List;
import java.util.Map;
import java.util.Set;
import java.util.logging.Level;
import java.util.logging.Logger;
import org.amic.util.file.FileUtil;
import org.turro.string.Strings;
import org.apache.commons.mail.EmailException;
import org.turro.action.Actions;
import org.turro.action.IRegisterCallback;
import org.turro.action.MailSenders;
import org.turro.action.PushSenders;
import org.turro.collections.KeyValueMap;
import org.turro.contacts.Connector;
import org.turro.contacts.Contact;
import org.turro.contacts.SignUp;
import org.turro.contacts.db.ContactsPU;
import org.turro.contacts.form.ContactWrapper;
import org.turro.contacts.profile.ProfileContext;
import org.turro.elephant.TemplateControl;
import org.turro.elephant.context.Application;
import org.turro.elephant.context.ElephantContext;
import org.turro.elephant.context.IConstructor;
import org.turro.elephant.security.IUser;
import org.turro.elephant.util.Messages;
import org.turro.elephant.web.tags.SessionTags;
import org.turro.i18n.I_;
import org.turro.jpa.Dao;
import org.turro.mail.sender.MailPool;
import org.turro.marker.ElephantMarker;
import org.turro.security.SecurityGroup;
import org.turro.security.SocialGroups;
import org.turro.zkoss.dialog.SelectionDialog;
import org.turro.zkoss.layout.TabbedContent;
import org.zkoss.zk.ui.event.Event;
import org.zkoss.zk.ui.select.annotation.Listen;
import org.zkoss.zk.ui.select.annotation.Wire;
import org.zkoss.zk.ui.util.Clients;
import org.zkoss.zul.Checkbox;
import org.zkoss.zul.Hlayout;
import org.zkoss.zul.Textbox;
 
public class RegisterControl extends TemplateControl {
  
  @Wire("#name")
  private Textbox name;
 
  @Wire("#email")
  private Textbox email;
 
  @Wire("#student")
  private Checkbox student;
 
  @Wire("#professional")
  private Checkbox professional;
 
  @Wire("#comment")
  private Textbox comment;
 
  @Wire("#accepted")
  private Checkbox accepted;
  
  @Wire("#termsrow")
  private Hlayout termsrow;
 
  @Listen("onCheck = #accepted")
  public void onTerms(Event event) {
    if(termsBox != null) {
      if(accepted.isChecked()) {
        SelectionDialog.showComponent(getPage(), I_.get("Terms of Use"), termsBox, "70%", "500px", null);
      }
    }
  }
  
  private SignUp sue;
  
  @Listen("onClick = #register")
  public void onRegister(Event event) {
    SignUp su = new SignUp();
    su.setName(name.getValue());
    su.setEmail(email.getValue());
    su.setComment(comment.getValue());
    su.setValueMap(keepValues());
    if(su.isValid()) {
      if(existPending(su.getEmail())) {
        Messages.confirmProcess().add(I_.get("Email pending to confirm"))
                .paragraph().add(I_.get("Resend confirmation e-mail")).show(() -> {
          try {
            sendEmail(sue);
            Clients.showNotification(I_.format("Confirmation e-mail has been sent to %s", sue.getEmail()));
          } catch (EmailException ex) {
            Logger.getLogger(RegisterControl.class.getName()).log(Level.SEVERE, ElephantContext.logMsg(null), ex);
          }
        });
      } else if(existEmail(su.getEmail())) {
        Clients.showNotification(I_.format("%s already exists", su.getEmail()));
        Application.getApplication().sendRedirect("/user?" + Actions.createRightNowAction("email=" + su.getEmail()));
      } else {
        if(termsrow.isVisible() && accepted != null && !accepted.isChecked()) {
          Clients.showNotification(I_.get("Read and accepted") + "?");
        } else {
          su = new ContactsPU().saveObject(su);
          try {
            sendEmail(su);
            Clients.showNotification(I_.format("Confirmation e-mail has been sent to %s", su.getEmail()));
          } catch (EmailException ex) {
            Logger.getLogger(RegisterControl.class.getName()).log(Level.SEVERE, ElephantContext.logMsg(null), ex);
          }
        }
      }
    } else {
      Clients.showNotification("No valid values");
    }
  }
 
  @Override
  public void doFinally() {
    super.doFinally();
    createTermsOfUse();
    if(termsBox != null) {
      accepted.setDisabled(false);
    }
    professional.setVisible(ProfileContext.hasCompanies());
    student.setVisible(ProfileContext.hasCenters());
  }
 
  private static boolean existEmail(String email) {
    Dao dao = new ContactsPU();
    List l = dao.getResultList(
            "select c from Connector c where c.value = ?",
            new Object[] { email }
    );
    if(l.isEmpty()) {
      l = dao.getResultList(
              "select c from SignUp c where c.email = ? and confirmed = TRUE",
              new Object[] { email }
      );
    }
    return !l.isEmpty();
  }
 
  private boolean existPending(String email) {
    Dao dao = new ContactsPU();
    List l = dao.getResultList(
            "select c from SignUp c where c.email = ? and confirmed = FALSE",
            new Object[] { email }
    );
    if(!l.isEmpty()) {
      sue = (SignUp) l.iterator().next();
    }
    return !l.isEmpty();
  }
 
  private boolean sendEmail(SignUp signUp) throws EmailException {
    new MailPool()
            .addUser(signUp.getName(), signUp.getEmail())
            .put("signUp", signUp)
            .sendTemplate("sign-pending", I_.get("Email pending to confirm") + " : " + ElephantContext.getSiteName());
    IRegisterCallback regcall = (IRegisterCallback) Application.getApplication().getConstructor()
            .getSessionAttribute(IRegisterCallback.REGISTER_CALLBACK_KEY);
    if(regcall != null) {
      regcall.onRegister(signUp.getEmail());
    }
    return true;
  }
 
  public static SignUp confirmEmail(String id) throws Exception {
    if(!Strings.isBlank(id)) {
      Dao dao = new ContactsPU();
      SignUp su = dao.find(SignUp.class, id);
      if(su != null) {
        if(su.isValid()) {
          if(!su.isConfirmed()) {
            createContact(su);
            su.setConfirmed(true);
            dao.saveObject(su);
            sendMailToAdmin(su);
            sendWelcomeMailToUser(su);
          }
        } 
      }
      return su;
    }
    return null;
  }
  
  public static void writeResultConfirmAction(IConstructor constructor, SignUp signUp) throws Exception {
    ElephantMarker em = new ElephantMarker(constructor);
    if(signUp != null && signUp.isConfirmed()) {
      em.put("signUp", signUp);
      try {
        em.put("link", ElephantContext.getRootWebPath() + "?" + Actions.createAction(signUp.getEmail(), "/user/changepass"));
      } catch (Exception ex) {
        Logger.getLogger(RegisterControl.class.getName()).log(Level.SEVERE, ElephantContext.logMsg(null), ex);
      }
      em.process("signup", "confirmed");
    } else {
      em.process("signup", "failed");
    }
  }
  
  public static void createContact(SignUp signUp) throws Exception {
    if(!existEmail(signUp.getEmail())) {
      Contact contact = new Contact();
      contact.setName(signUp.getName());
      contact.getComplexName().setFull(signUp.getName());
      contact.setUserMenu(true);
      Connector email = new Connector();
      email.setContact(contact);
      email.setDescription(IUser.CONNECTOR_EMAIL);
      email.setValue(signUp.getEmail());
      contact.getConnectors().add(email);
      try {
        KeyValueMap kvm = signUp.getValues();
        for(String key : kvm.keySet()) {
          if(!Strings.isBlank(key) && !Strings.isBlank(kvm.get(key))) {
            Connector suv = new Connector();
            suv.setContact(contact);
            suv.setDescription(key);
            suv.setValue(kvm.get(key));
            contact.getConnectors().add(suv);
          }
        }
      } catch(Exception ex) {}
      if(!Strings.isBlank(ElephantContext.getSiteSyndicate())) {
        String groups[] = ElephantContext.getSiteSyndicate().split(",");
        SocialGroups.syndicate(List.of(contact), Set.of(groups), null);
      }
      new ContactWrapper(contact).save();
    }
  }
 
  private static void sendMailToAdmin(SignUp signUp) {
    String message = signUp.getName() + ": " + signUp.getEmail();
    if(!Strings.isBlank(signUp.getComment())) message += "\n" + signUp.getComment();
    if(!Strings.isBlank(signUp.getValueMap())) message += "\n" + signUp.getValueMap();
    MailSenders.getPool().addAdministrators().addBySyndication(SecurityGroup.CONTACTS_ADMIN).send("New user", message);
    PushSenders.getPool().addAdministrators().addBySyndication(SecurityGroup.CONTACTS_ADMIN).send("New user", message);
  }
 
  private static void sendWelcomeMailToUser(SignUp signUp) throws UnsupportedEncodingException, EmailException {
    Map args = new HashMap();
    args.put("signUp", signUp);
    try {
      args.put("link", ElephantContext.getServerUrl("http") + "?" + Actions.createAction(signUp.getEmail(), "/user"));
    } catch (Exception ex) {
      Logger.getLogger(RegisterControl.class.getName()).log(Level.SEVERE, ElephantContext.logMsg(null), ex);
    }
    new MailPool()
            .addUser(signUp.getName(), signUp.getEmail())
            .putAll(args)
            .sendTemplate("sign-welcome", I_.get("Welcome") + " : " + ElephantContext.getSiteName());
  }
 
  private void createTermsOfUse() {
    File dir = new File(ElephantContext.getRealPath("/_internal/terms"));
    if(dir.exists()) {
      for(File f : dir.listFiles((File dir1, String name1) -> name1.endsWith(".txt"))) {
        createTab(f);
      }
    }
  }
 
  private TabbedContent termsBox;
  
  private void createTab(File f) {
    if(termsBox == null) {
      termsBox = new TabbedContent();
      termsBox.setVflex("true");
      termsBox.setStyle("width:100%");
      termsrow.setVisible(true);
    }
    Textbox text = new Textbox();
    text.setReadonly(true);
    text.setMultiline(true);
    text.setVflex("true");
    text.setHflex("true");
    try {
      text.setValue(FileUtil.getContent(f, ElephantContext.getEncoding()));
      termsBox.addContent(FileUtil.getBaseName(f), text);
    } catch (IOException ex) {
      Logger.getLogger(RegisterControl.class.getName()).log(Level.SEVERE, ElephantContext.logMsg(null), ex);
    }
  }
 
  private String keepValues() {
    HashMap<String, String> keep = new HashMap<>();
    if(professional.isVisible() && professional.isChecked()) {
      keep.put("su_professional", "true");
    }
    if(student.isVisible() && student.isChecked()) {
      keep.put("su_student", "true");
    }
    String webTags = SessionTags.get().path();
    if(!Strings.isBlank(webTags)) {
      keep.put("webTags", webTags);
    }
    return keep.isEmpty() ? null : KeyValueMap.format(keep);
  }
 
}