Implemented External Interface

.gitignore

@@ -0,0 +1,151 @@
+## Ignore Visual Studio temporary files, build results, and
+## files generated by popular Visual Studio add-ons.
+
+# User-specific files
+*.suo
+*.user
+*.sln.docstates
+
+# Build results
+
+[Dd]ebug/
+[Rr]elease/
+x64/
+build/
+[Bb]in/
+[Oo]bj/
+
+# Enable "build/" folder in the NuGet Packages folder since NuGet packages use it for MSBuild targets
+!packages/*/build/
+
+# MSTest test Results
+[Tt]est[Rr]esult*/
+[Bb]uild[Ll]og.*
+
+*_i.c
+*_p.c
+*.ilk
+*.meta
+*.obj
+*.pch
+*.pdb
+*.pgc
+*.pgd
+*.rsp
+*.sbr
+*.tlb
+*.tli
+*.tlh
+*.tmp
+*.tmp_proj
+*.log
+*.vspscc
+*.vssscc
+.builds
+*.pidb
+*.log
+*.scc
+
+# Visual C++ cache files
+ipch/
+*.aps
+*.ncb
+*.opensdf
+*.sdf
+*.cachefile
+
+# Visual Studio profiler
+*.psess
+*.vsp
+*.vspx
+
+# Guidance Automation Toolkit
+*.gpState
+
+# ReSharper is a .NET coding add-in
+_ReSharper*/
+*.[Rr]e[Ss]harper
+
+# TeamCity is a build add-in
+_TeamCity*
+
+# DotCover is a Code Coverage Tool
+*.dotCover
+
+# NCrunch
+*.ncrunch*
+.*crunch*.local.xml
+
+# Installshield output folder
+[Ee]xpress/
+
+# DocProject is a documentation generator add-in
+DocProject/buildhelp/
+DocProject/Help/*.HxT
+DocProject/Help/*.HxC
+DocProject/Help/*.hhc
+DocProject/Help/*.hhk
+DocProject/Help/*.hhp
+DocProject/Help/Html2
+DocProject/Help/html
+
+# Click-Once directory
+publish/
+
+# Publish Web Output
+*.Publish.xml
+*.pubxml
+
+# NuGet Packages Directory
+## TODO: If you have NuGet Package Restore enabled, uncomment the next line
+#packages/
+
+# Windows Azure Build Output
+csx
+*.build.csdef
+
+# Windows Store app package directory
+AppPackages/
+
+# Others
+sql/
+*.Cache
+ClientBin/
+[Ss]tyle[Cc]op.*
+~$*
+*~
+*.dbmdl
+*.[Pp]ublish.xml
+*.pfx
+*.publishsettings
+
+# RIA/Silverlight projects
+Generated_Code/
+
+# Backup & report files from converting an old project file to a newer
+# Visual Studio version. Backup files are not needed, because we have git ;-)
+_UpgradeReport_Files/
+Backup*/
+UpgradeLog*.XML
+UpgradeLog*.htm
+
+# SQL Server files
+App_Data/*.mdf
+App_Data/*.ldf
+
+# =========================
+# Windows detritus
+# =========================
+
+# Windows image file caches
+Thumbs.db
+ehthumbs.db
+
+# Folder config file
+Desktop.ini
+
+# Recycle Bin used on file shares
+$RECYCLE.BIN/
+
+# Mac crap
+.DS_Store

App_LocalResources/Settings.ascx.resx

@@ -192,4 +192,10 @@
   <data name="Username_Lastname" xml:space="preserve">
     <value>Create from Lastname</value>
   </data>
+  <data name="lblInterface.Help" xml:space="preserve">
+    <value>Enter the external interface qualifier. See &lt;a href="https://github.com/DNN-Connect/UserAccountRegistration/wiki/External-Interfaces" target="_blank"&gt;this article&lt;/a&gt; on how to do that and how it can help you.</value>
+  </data>
+  <data name="lblInterface.Text" xml:space="preserve">
+    <value>External Interface</value>
+  </data>
 </root>

AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("01.00.01")> 
-<Assembly: AssemblyFileVersion("01.00.01")> 
+<Assembly: AssemblyVersion("01.01.00")> 
+<Assembly: AssemblyFileVersion("01.01.00")> 

Connect_AccountRegistration.dnn

@@ -1,6 +1,6 @@
 <dotnetnuke type="Package" version="5.0">
   <packages>
-    <package name="Connect AccountRegistrationForm" type="Module" version="01.00.01">
+    <package name="Connect AccountRegistrationForm" type="Module" version="01.01.00">
       <friendlyName>Connect: AccountRegistration</friendlyName>
       <description>A community module that handles account registrations and login in DNN</description>
       <iconFile>Images/icon_extensions.gif</iconFile>
@@ -14,7 +14,7 @@
       <releaseNotes src="ReleaseNotes.txt" />
 
       <dependencies>
-        <dependency type="CoreVersion">07.01.00</dependency>
+        <dependency type="CoreVersion">07.02.01</dependency>
       </dependencies>
 
       <components>

Connect_AccountRegistration.vbproj

@@ -139,6 +139,11 @@
     <None Include="BuildScripts\MSBuild.Community.Tasks.Targets" />
     <None Include="Connect_AccountRegistration.dnn" />
     <Content Include="Templates.ascx" />
+    <Content Include="Templates\DNN-Connect\Email.Admin.txt" />
+    <Content Include="Templates\DNN-Connect\Email.User.Private.txt" />
+    <Content Include="Templates\DNN-Connect\Email.User.txt" />
+    <Content Include="Templates\DNN-Connect\Email.User.Verified.txt" />
+    <Content Include="Templates\DNN-Connect\Form.txt" />
     <Content Include="Templates\Default\Email.Admin.txt" />
     <Content Include="Templates\Default\Email.User.Private.txt" />
     <Content Include="Templates\Default\Email.User.txt" />

Settings.ascx

@@ -48,4 +48,9 @@
 <div class="dnnFormItem">
      <dnn:Label ID="lblNotifyUser" runat="server" Text="Send confirmation e-mail to user:"></dnn:Label>
      <asp:CheckBox ID="chkNotifyUser" runat="server" />
+</div>
+
+<div class="dnnFormItem">
+     <dnn:Label ID="lblInterface" runat="server" Text="External Interface:"></dnn:Label>
+     <asp:TextBox ID="txtInterface" runat="server"></asp:TextBox>
 </div>

Settings.ascx.vb

@@ -17,6 +17,7 @@ Namespace Connect.Modules.UserManagement.AccountRegistration
                     BindPages()
                     BindRoles()
 
+                    If (Settings.Contains("ExternalInterface")) Then txtInterface.Text = Settings("ExternalInterface").ToString()
                     If (Settings.Contains("ShowUserName")) Then drpUsernameMode.SelectedValue = Settings("ShowUserName").ToString()
                     If (Settings.Contains("ShowDisplayName")) Then drpDisplaynameMode.SelectedValue = Settings("ShowDisplayName").ToString()
                     If (Settings.Contains("RedirectAfterSubmit")) Then drpRedirectAfterSubmit.SelectedValue = Settings("RedirectAfterSubmit").ToString()
@@ -35,7 +36,7 @@ Namespace Connect.Modules.UserManagement.AccountRegistration
             Try
                 Dim objModules As New Entities.Modules.ModuleController
 
-
+                objModules.UpdateTabModuleSetting(TabModuleId, "ExternalInterface", txtInterface.Text)
                 objModules.UpdateTabModuleSetting(TabModuleId, "ShowUserName", drpUsernameMode.SelectedValue)
                 objModules.UpdateTabModuleSetting(TabModuleId, "ShowDisplayName", drpDisplaynameMode.SelectedValue)
                 objModules.UpdateTabModuleSetting(TabModuleId, "RedirectAfterSubmit", drpRedirectAfterSubmit.SelectedValue)

Templates.ascx.vb

@@ -8,6 +8,7 @@ Imports DotNetNuke.Entities.Profile
 Imports DotNetNuke.UI.Skins.Controls
 Imports DotNetNuke.Services.Localization
 Imports DotNetNuke.Common.Globals
+Imports DotNetNuke.Framework.JavaScriptLibraries
 
 Namespace Connect.Modules.UserManagement.AccountRegistration
 
@@ -17,7 +18,7 @@ Namespace Connect.Modules.UserManagement.AccountRegistration
 
         Private Sub Page_Init(sender As Object, e As System.EventArgs) Handles Me.Init
 
-            DotNetNuke.Framework.jQuery.RequestDnnPluginsRegistration()
+            JavaScript.RequestRegistration(CommonJs.DnnPlugins)
 
         End Sub
 

View.ascx.vb

@@ -118,7 +118,6 @@ Namespace Connect.Modules.UserManagement.AccountRegistration
 
         Private Sub Register()
 
-
             pnlSuccess.Visible = False
             pnlError.Visible = False
 
@@ -659,6 +658,23 @@ Namespace Connect.Modules.UserManagement.AccountRegistration
             lblSucess.Text = "<ul><li>" & String.Format(Localization.GetString("RegisterSuccess", LocalResourceFile), NavigateURL(PortalSettings.HomeTabId)) & "</li></ul>"
             pnlSuccess.Visible = True
 
+
+            If ExternalInterface <> Null.NullString Then
+
+                Dim objInterface As Object = Nothing
+
+                If ExternalInterface.Contains(",") Then
+                    Dim strAssembly As String = ExternalInterface.Split(Char.Parse(","))(0).Trim
+                    Dim strClass As String = ExternalInterface.Split(Char.Parse(","))(1).Trim
+                    objInterface = System.Activator.CreateInstance(strAssembly, strClass).Unwrap
+                End If
+
+                If Not objInterface Is Nothing Then
+                    CType(objInterface, Interfaces.iAccountRegistration).FinalizeAccountRegistration(Server, Response, Request, oUser)
+                End If
+
+            End If
+
             If Not Request.QueryString("ReturnURL") Is Nothing Then
                 Response.Redirect(Server.UrlDecode(Request.QueryString("ReturnURL")), True)
             End If