init III

2024-10-14 00:08:40 +02:00
parent dbfba56f66
commit 1462d52e13
4572 changed files with 2658864 additions and 0 deletions
--- a/OTRS/Kernel/System/Web/InterfaceInstaller.pm
+++ b/OTRS/Kernel/System/Web/InterfaceInstaller.pm
@@ -0,0 +1,171 @@
+# --
+# Copyright (C) 2001-2019 OTRS AG, https://otrs.com/
+# --
+# This software comes with ABSOLUTELY NO WARRANTY. For details, see
+# the enclosed file COPYING for license information (GPL). If you
+# did not receive this file, see https://www.gnu.org/licenses/gpl-3.0.txt.
+# --
+
+package Kernel::System::Web::InterfaceInstaller;
+
+use strict;
+use warnings;
+
+use Kernel::Language qw(Translatable);
+
+our @ObjectDependencies = (
+    'Kernel::Config',
+    'Kernel::Output::HTML::Layout',
+    'Kernel::System::Log',
+    'Kernel::System::Main',
+    'Kernel::System::Web::Request',
+);
+
+=head1 NAME
+
+Kernel::System::Web::InterfaceInstaller - the installer web interface
+
+=head1 DESCRIPTION
+
+the global installer web interface
+
+=head1 PUBLIC INTERFACE
+
+=head2 new()
+
+create installer web interface object
+
+    use Kernel::System::Web::InterfaceInstaller;
+
+    my $Debug = 0;
+    my $Interface = Kernel::System::Web::InterfaceInstaller->new( Debug => $Debug );
+
+=cut
+
+sub new {
+    my ( $Type, %Param ) = @_;
+
+    # allocate new hash for object
+    my $Self = {};
+    bless( $Self, $Type );
+
+    # get debug level
+    $Self->{Debug} = $Param{Debug} || 0;
+
+    $Kernel::OM->ObjectParamAdd(
+        'Kernel::System::Log' => {
+            LogPrefix => $Kernel::OM->Get('Kernel::Config')->Get('CGILogPrefix') || 'Installer',
+        },
+        'Kernel::Output::HTML::Layout' => {
+            InstallerOnly => 1,
+        },
+        'Kernel::System::Web::Request' => {
+            WebRequest => $Param{WebRequest} || 0,
+        },
+    );
+
+    # debug info
+    if ( $Self->{Debug} ) {
+
+        $Kernel::OM->Get('Kernel::System::Log')->Log(
+            Priority => 'debug',
+            Message  => 'Global handle started...',
+        );
+    }
+
+    return $Self;
+}
+
+=head2 Run()
+
+execute the object
+
+    $Interface->Run();
+
+=cut
+
+sub Run {
+    my $Self = shift;
+
+    # get common framework params
+    my %Param;
+
+    my $ParamObject = $Kernel::OM->Get('Kernel::System::Web::Request');
+
+    $Param{Action}     = $ParamObject->GetParam( Param => 'Action' )     || 'Installer';
+    $Param{Subaction}  = $ParamObject->GetParam( Param => 'Subaction' )  || '';
+    $Param{NextScreen} = $ParamObject->GetParam( Param => 'NextScreen' ) || '';
+
+    $Kernel::OM->ObjectParamAdd(
+        'Kernel::Output::HTML::Layout' => {
+            %Param,
+        },
+    );
+
+    my $LayoutObject = $Kernel::OM->Get('Kernel::Output::HTML::Layout');
+
+    # check secure mode
+    if ( $Kernel::OM->Get('Kernel::Config')->Get('SecureMode') ) {
+        print $LayoutObject->Header();
+        print $LayoutObject->Error(
+            Message => Translatable('SecureMode active!'),
+            Comment => Translatable(
+                'If you want to re-run the Installer, disable the SecureMode in the SysConfig.'
+            ),
+        );
+        print $LayoutObject->Footer();
+    }
+
+    # run modules if a version value exists
+    elsif ( $Kernel::OM->Get('Kernel::System::Main')->Require("Kernel::Modules::$Param{Action}") ) {
+
+        # proof of concept! - create $GenericObject
+        my $GenericObject = ( 'Kernel::Modules::' . $Param{Action} )->new(
+            %Param,
+            Debug => $Self->{Debug},
+        );
+
+        print $GenericObject->Run();
+    }
+
+    # else print an error screen
+    else {
+
+        # create new LayoutObject with '%Param'
+        print $LayoutObject->Header();
+        print $LayoutObject->Error(
+            Message => $LayoutObject->{LanguageObject}->Translate( 'Action "%s" not found!', $Param{Action} ),
+            Comment => Translatable('Please contact the administrator.'),
+        );
+        print $LayoutObject->Footer();
+    }
+
+    return;
+}
+
+sub DESTROY {
+    my $Self = shift;
+
+    # debug info
+    if ( $Self->{Debug} ) {
+
+        $Kernel::OM->Get('Kernel::System::Log')->Log(
+            Priority => 'debug',
+            Message  => 'Global handle stopped.',
+        );
+    }
+
+    return 1;
+}
+
+1;
+
+=head1 TERMS AND CONDITIONS
+
+This software is part of the OTRS project (L<https://otrs.org/>).
+
+This software comes with ABSOLUTELY NO WARRANTY. For details, see
+the enclosed file COPYING for license information (GPL). If you
+did not receive this file, see L<https://www.gnu.org/licenses/gpl-3.0.txt>.
+
+=cut