added legacy code for reference

2026-06-04 14:56:43 +02:00
parent dbe6cd8653
commit c8a4d18f1a
93 changed files with 18065 additions and 0 deletions
@@ -0,0 +1,116 @@
+@imports OCMS
+@ModelType Global.OCMS.intranet.intranet_model
+@code
+    Dim Ctrl As Global.OCMS.intranet.Controllers.IntranetController_base = If(GetType(Global.OCMS.intranet.Controllers.IntranetController_base).IsAssignableFrom(Me.ViewContext.Controller.GetType()), DirectCast(Me.ViewContext.Controller, Global.OCMS.intranet.Controllers.IntranetController_base), Nothing)
+
+    Dim AccountName As String = "" 'Ctrl.AccountInfo.AccountName
+    Dim RequestedAccount As String = "" 'Ctrl.RequestedAccount
+
+    Dim isIE As Boolean = Global.OCMS.intranet.OCMS_intranet.isUNSupportedBrowser(Ctrl)
+
+    Dim textsdic As New LanguageTextDic("de")
+    With textsdic
+        .Add("noie", "Dieser Browser wird leider nicht unterstützt. Bitte verwenden Sie Edge, Firefox oder Chrome.", "This browser is unfortunately not supported. Please use Edge, Firefox, or Chrome instead.")
+        .Add("dph", "Datenschutz", "Data Protection & Privacy")
+        .Add("dps", "Diese Webseite ist ein nicht-öffentliches Online-Portal. Der Zugang ist ausschließlich für autorisierte Personen der jeweiligen Organisation vorbehalten." & vbNewLine & vbNewLine & "Bei Besuch dieser Anmeldeseite werden keine personenbezogen Daten erfasst und gespeichert, die Sie nicht selbst übermitteln. Übermittelte Daten werden ohne Ihre ausdrückliche Zustimmung generell nicht an Dritte weitergegeben." & vbNewLine &
+               "Zur Verminderung grundsätzlicher Sicherheitsrisiken bei der Datenübertragung im Internet findet die Kommunikation mit dem Server in beiden Richtungen grundsätzlich über eine gesicherte Verbindung statt." & vbNewLine & vbNewLine &
+               "Für die Nutzung der Seite als angemeldeter Benutzer beachten Sie bitte die ausführliche Datenschutzerklärung.",
+               "This website is a private online portal. Access have only members and authorized persons of the respective organisation." & vbNewLine & vbNewLine & "At visit of this login page, no individual-related data will be captured and stored, that you did not submit yourself. Sent data will generally not be distributed to third parties without your explicit consent." & vbNewLine &
+               "To reduce general security risks of transmitting data over the internet is the communication with the server in both directions generally via a secured connection." & vbNewLine & vbNewLine &
+               "For the use of this website as registered and logged-on user, please take note of the detailed data protection statements.")
+        .Add("ccc", "Ich stimme der Nutzung von Cookies zur Authentifizierung im internen Bereich zu.", "I consent to the use of cookies for authenticating in the internal area.")
+    End With
+
+
+End Code
+
+<div class="modal">
+    <div id="oci_login" class="modal-dialog in">
+        @If isIE = False Then
+        @<div class="modal-content" novalidate="true">
+            <div Class="modal-header">
+                @If AccountName <> "" Then
+                    @<h2>@(AccountName)</h2>
+                End If
+                <h3>@(Ctrl.AppName)</h3>
+            </div>
+        </div>
+        @<div class="modal-content" novalidate="true">
+                <form id="loginform" role="form" action="javascript:void(0);">
+                    <div class="modal-header"><h3 class="modal-title">Anmeldung</h3></div>
+                    <div class="modal-body">
+                        <div class="form-body">
+                            @If ctrl.Intranet.isAccountRequired = True AndAlso RequestedAccount = "" Then
+                                @<div class="form-group">
+                                    <div class="form-itm">
+                                        <label for="dlg_loginaccount">Account<span class="ind_required">*</span></label>
+                                    </div>
+                                    <div class="form-itm">
+                                        <input id="dlg_loginaccount" name="loginaccount" required placeholder="Account" class="form-control" value="@(RequestedAccount)" />
+                                    </div>
+                                </div>
+                                @<div class="form-group"><div class="form-sep"></div><div class="form-sep"></div></div>
+                            End If
+
+                            <div class="form-group">
+                                <div class="form-itm">
+                                    <label for="dlg_userinfo">Email / Anmeldename<span class="ind_required" vm-nvnote="Bitte tragen Sie hier Ihren Anmeldenamen oder Ihre Email-Adresse ein.">*</span></label>
+                                </div>
+                                <div class="form-itm">
+                                    <input id="dlg_userinfo" name="userinfo" required placeholder="Email-Adresse / Anmeldename" class="form-control" @(If(Ctrl.Intranet.isExtendedUserlookup, " onchange=""$ocms.login.uichange.call(this);""", "").raw()) />
+                                </div>
+                            </div>
+                            @If Ctrl.Intranet.isExtendedUserlookup = True Then
+                                @<div class="form-group hd">
+                                    <input id="dlg_userlogin" name="userlogin" required class="form-control" type="hidden" />
+                                </div>
+                                @<div class="form-group">
+                                    <div class="form-itm">
+                                        <label for="dlg_username">Benutzer<span class="ind_required">*</span></label>
+                                    </div>
+                                    <div class="form-itm">
+                                        <input id="dlg_username" name="username" required placeholder="Wird vom System ermittelt..." readonly="readonly" class="form-control" />
+                                    </div>
+                                </div>
+                            End If
+                            <div class="form-group">
+                                <div class="form-itm">
+                                    <label for="dlg_userpass">Passwort<span class="ind_required">*</span></label>
+                                </div>
+                                <div class="form-itm">
+                                    <input id="dlg_userpass" name="userpass" required placeholder="Passwort" class="form-control" type="password" />
+                                </div>
+                            </div>
+                            
+                        </div>
+                    </div>
+                    @If Ctrl.Intranet.isCookieConfirmationOnLogin = True Then
+                        @<div class="modal-footer">
+                            <div style="display: block;">
+                                <table>
+                                    <tbody><tr>
+                                            <td>
+                                                <input type="checkbox" class="custom-control-input" id="login-cookie" name="cookieconfirmed" autocomplete="off" value="true" required="" data-note="Zum Anmelden müssen Sie zustimmen.">
+                                            </td>
+                                            <td>
+                                                <label class="custom-control-label" for="login-cookie">@textsdic("ccc")</label>
+                                            </td>
+                                        </tr>
+                                    </tbody>
+                                </table>
+                            </div>
+                         </div>
+                    End If
+                    <div class="modal-footer">
+                        <div class="note_required"><span class="ind_required">*</span><span>Eingabe erforderlich.</span></div>
+                        <div id="dbtn-forgotpw" class="btn btn-sm" onclick="$ocms.login.sendpassword.call(this, event);">Passwort vergessen?</div>
+                        <Button id="dbtn-confirm" type="submit" class="btn btn-primary">Anmelden</button>
+                    </div>
+                    <div id="dataprivacy" class="modal-note"><h3>@textsdic("dph")</h3><p>@textsdic.rwMVC("dps")</p></div>
+                </form>
+            </div>
+        Else
+            @<div class="modal-content"><div class="modal-body alert">@textsdic("noie")</div></div>
+        End If
+    </div>
+</div>
@@ -0,0 +1,6 @@
+@imports OCMS
+@ModelType Global.OCMS.intranet.intranet_model
+@code
+
+End Code
+
@@ -0,0 +1,19 @@
+@imports OCMS
+@ModelType Global.OCMS.intranet.intranet_model
+@Code
+    ViewData("Title") = "Fuchs Intranet"
+
+    Dim Ctrl As Global.OCMS.intranet.Controllers.IntranetController_base = If(GetType(Global.OCMS.intranet.Controllers.IntranetController_base).IsAssignableFrom(Me.ViewContext.Controller.GetType()), DirectCast(Me.ViewContext.Controller, Global.OCMS.intranet.Controllers.IntranetController_base), Nothing)
+    Dim userident As Global.OCMS.ocms_UserIdentity = If(IsNothing(Ctrl) = False, Ctrl.UserIdent_base, Nothing)
+    Dim isAuth As Boolean = If(IsNothing(userident), False, userident.isAuthenticated())
+
+End Code
+
+@Section CustomHeader
+    @Me.Context.MvcLink("web/fuchs.css", MinIfNotDebug:=True, appendDateSuffix:=True)
+    @Me.Context.MvcLink("web/fuchs.js", MinIfNotDebug:=True, appendDateSuffix:=True)
+End Section
+
+@If isAuth = True Then
+
+End If
@@ -0,0 +1,109 @@
+@imports OCMS
+@imports json = Newtonsoft.Json.JsonConvert
+@ModelType Global.OCMS.intranet.intranet_model
+
+@code
+    Dim Ctrl As Global.OCMS.intranet.Controllers.IntranetController_base = If(GetType(Global.OCMS.intranet.Controllers.IntranetController_base).IsAssignableFrom(Me.ViewContext.Controller.GetType()), DirectCast(Me.ViewContext.Controller, Global.OCMS.intranet.Controllers.IntranetController_base), Nothing)
+    Dim userident As Global.OCMS.ocms_UserIdentity = If(IsNothing(Ctrl) = False, Ctrl.UserIdent_base, Nothing)
+    Dim isAuth As Boolean = If(IsNothing(userident), False, userident.isAuthenticated())
+
+    Dim isIE As Boolean = Global.OCMS.intranet.OCMS_intranet.isUNSupportedBrowser(Ctrl)
+
+    Dim UserDic As New Global.OCMS.GenericObjectDictionary(If(IsNothing(userident) = False, userident.toDictionary, New Dictionary(Of String, Object)))
+    Dim authinfo As New Dictionary(Of String, Object)
+    If isAuth = True Then
+        UserDic.CopyTo(authinfo)
+    End If
+    authinfo.set("requestedaccount", Ctrl.RequestedAccount)
+    authinfo.set("accountrequired", Ctrl.isAccountRequired)
+    Dim textsdic As New LanguageTextDic("de")
+    With textsdic
+        .Add("lgo", "abmelden", "log out")
+        .Add("rsp", "Passwort ändern", "Change Password")
+        .Add("po", "Übersicht", "Overview")
+    End With
+End Code
+<!DOCTYPE html>
+<html>
+<head>
+    <meta charset="utf-8" />
+    <meta name="viewport" content="width=device-width, initial-scale=1.0">
+    <title>@(If(If(Me.ViewData("Title"), "") <> "", Me.ViewData("Title"), "Intranet"))</title>
+    @Me.Context.MvcLink("/web/tools.min.css", appendDateSuffix:=True)
+    @Me.Context.MvcLink("/web/tools.js", appendDateSuffix:=True)
+
+    @If isAuth = True AndAlso isIE = False Then
+
+        @Me.Context.MvcLink("/Scripts/tinymce/tinymce.js")
+        @Me.Context.MvcLink("/web/fis.css", appendDateSuffix:=True)
+        @Me.Context.MvcLink("/web/fis.js", appendDateSuffix:=True)
+    Else
+        @Me.Context.MvcLink("/web/fisb.css", appendDateSuffix:=True)
+        @Me.Context.MvcLink("/web/fisb.js", appendDateSuffix:=True)
+    End If
+    @RenderSection("CustomHeader", False)
+    @*<!--[if IE]>
+            <link rel="stylesheet" type="text/css" href="/web/ie_compatibility.min.css" />
+        <![endif]-->*@
+
+    <script type="text/javascript">
+        //$(document).ready(function () { $('body').removeClass('ldng'); if ($.isFunction(w13.init)) { w13.init.call(this); } });
+        $ocms.auth = @(json.SerializeObject(authinfo).raw());
+    </script>
+</head>
+<body Class="ldng">
+    <div id = "bgimg" ></div>
+    @If isAuth = True AndAlso isIE = False Then
+        @<div class="pgb inactive">
+            @*style="transform: translate3d(100%, 0px, 0px);" data-progress-text="100%" data-progress="99"*@
+            <div class="pgb-progress">
+                <div class="inner"></div>
+            </div>
+        </div>
+        @<header>
+            <nav id="mainmenu">
+                <div class="nav-header">
+                    <div id="logo">&nbsp;</div>
+                    <button id="mmmb" class="nav-btn" data-toggle="vis" data-target="#mainmenu"><span class="glyphicon glyphicon-menu-hamburger"></span></button>
+                    <div id="brand" class="brand" title="Account: rcgd">@(Ctrl.AppName)</div>
+                    <div id="activemodule" class="activemodule">@textsdic("po")</div>
+                </div>
+                <ul class="nav-right">
+                    <li class="dropdown">
+                        <a class="dds dropdown-toggle" role="button" aria-expanded="false"><span class="glyphicon glyphicon-cog" aria-hidden="true"></span><span class="caret dd"></span></a>
+                        <ul id="vm_menu_auth" class="dropdown-menu right" role="menu">
+                            <li class="dropdown submenu">
+                                <a class="dds dropdown-toggle" role="button" aria-expanded="false">@UserDic("fullname_rev")<span class="caret dd"></span></a>
+                                <ul class="dropdown-menu" role="menu">
+                                    <li><a onclick="$ocms.logout.call(this);">@textsdic("lgo")</a></li>
+                                    <li><a onclick="$fis.resetPass.call(this);">@textsdic("rsp")</a></li>
+                                </ul>
+                            </li>
+                        </ul>
+                    </li>
+                </ul>
+            </nav>
+@RenderSection("BodyHeader", False)
+        </header>
+        @<main>
+            @*<div id="sidebar"></div>*@
+            <div id="topbar"></div>
+            <div id="listframe"></div>
+            <div id="contentframe">
+                @RenderBody()
+            </div>
+        </main>
+        @<footer>
+            @RenderSection("BodyFooter", False)
+        </footer>
+    Else
+        Try
+            @Html.Partial(partialViewName:="~/Areas/intranet/Views/Partials/vpart__ocms_login.vbhtml", model:=Me.Model, viewData:=ViewData)
+        Catch ex As Exception
+            System.Diagnostics.Debug.WriteLine("partial: vpart__ocms_login" & Microsoft.VisualBasic.vbNewLine & ex.Message)
+        End Try
+        @RenderBody()
+    End If
+    <div class="timer"></div>
+</body>
+</html>
@@ -0,0 +1,17 @@
+@imports OCMS
+@ModelType Global.OCMS.intranet.intranet_model
+@Code
+    ViewData("Title") = "Fuchs Intranet"
+
+    Dim Ctrl As Global.OCMS.intranet.Controllers.IntranetController_base = If(GetType(Global.OCMS.intranet.Controllers.IntranetController_base).IsAssignableFrom(Me.ViewContext.Controller.GetType()), DirectCast(Me.ViewContext.Controller, Global.OCMS.intranet.Controllers.IntranetController_base), Nothing)
+    Dim userident As Global.OCMS.ocms_UserIdentity = If(IsNothing(Ctrl) = False, Ctrl.UserIdent_base, Nothing)
+    Dim isAuth As Boolean = If(IsNothing(userident), False, userident.isAuthenticated())
+
+End Code
+
+@Section CustomHeader
+End Section
+
+@If isAuth = True Then
+
+End If
@@ -0,0 +1,3 @@
+@Code
+    Layout = "~/Views/Shared/_Layout.vbhtml"
+End Code
@@ -0,0 +1,36 @@
+<?xml version="1.0"?>
+
+<configuration>
+  <configSections>
+    <sectionGroup name="system.web.webPages.razor" type="System.Web.WebPages.Razor.Configuration.RazorWebSectionGroup, System.Web.WebPages.Razor, Version=3.0.0.0, Culture=neutral, PublicKeyToken=31BF3856AD364E35">
+      <section name="host" type="System.Web.WebPages.Razor.Configuration.HostSection, System.Web.WebPages.Razor, Version=3.0.0.0, Culture=neutral, PublicKeyToken=31BF3856AD364E35" requirePermission="false" />
+      <section name="pages" type="System.Web.WebPages.Razor.Configuration.RazorPagesSection, System.Web.WebPages.Razor, Version=3.0.0.0, Culture=neutral, PublicKeyToken=31BF3856AD364E35" requirePermission="false" />
+    </sectionGroup>
+  </configSections>
+
+  <system.web.webPages.razor>
+    <host factoryType="System.Web.Mvc.MvcWebRazorHostFactory, System.Web.Mvc, Version=5.2.7.0, Culture=neutral, PublicKeyToken=31BF3856AD364E35" />
+    <pages pageBaseType="System.Web.Mvc.WebViewPage">
+      <namespaces>
+        <add namespace="System.Web.Mvc" />
+        <add namespace="System.Web.Mvc.Ajax" />
+        <add namespace="System.Web.Mvc.Html" />
+        <add namespace="System.Web.Routing" />
+        <add namespace="System.Web.Optimization" />
+        <add namespace="Wilde13" />
+        
+      </namespaces>
+    </pages>
+  </system.web.webPages.razor>
+
+  <appSettings>
+    <add key="webpages:Enabled" value="false" />
+  </appSettings>
+
+  <system.webServer>
+    <handlers>
+      <remove name="BlockViewHandler"/>
+      <add name="BlockViewHandler" path="*" verb="*" preCondition="integratedMode" type="System.Web.HttpNotFoundHandler" />
+    </handlers>
+  </system.webServer>
+</configuration>