# -- # 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::Output::HTML::Notification::CustomerOnline; use parent 'Kernel::Output::HTML::Base'; use strict; use warnings; our @ObjectDependencies = ( 'Kernel::Config', 'Kernel::System::AuthSession', 'Kernel::System::DateTime', 'Kernel::Output::HTML::Layout', ); sub Run { my ( $Self, %Param ) = @_; my $SessionObject = $Kernel::OM->Get('Kernel::System::AuthSession'); my $SessionMaxIdleTime = $Kernel::OM->Get('Kernel::Config')->Get('SessionMaxIdleTime'); my %Online = (); my @Sessions = $SessionObject->GetAllSessionIDs(); for (@Sessions) { my %Data = $SessionObject->GetSessionIDData( SessionID => $_, ); if ( $Data{UserType} eq 'Customer' && $Data{UserLastRequest} && $Data{UserLastRequest} + $SessionMaxIdleTime > $Kernel::OM->Create('Kernel::System::DateTime')->ToEpoch() && $Data{UserFirstname} && $Data{UserLastname} ) { $Online{ $Data{UserID} } = "$Data{UserFullname}"; if ( $Param{Config}->{ShowEmail} ) { $Online{ $Data{UserID} } .= " ($Data{UserEmail})"; } } } for ( sort { $Online{$a} cmp $Online{$b} } keys %Online ) { if ( $Param{Message} ) { $Param{Message} .= ', '; } $Param{Message} .= "$Online{$_}"; } if ( $Param{Message} ) { # get layout object my $LayoutObject = $Kernel::OM->Get('Kernel::Output::HTML::Layout'); return $LayoutObject->Notify( Info => $LayoutObject->{LanguageObject}->Translate( 'Online Customer: %s', $Param{Message}, ), ); } else { return ''; } } 1;