# -- # 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::Console::Command::Maint::Log::Clear; use strict; use warnings; use parent qw(Kernel::System::Console::BaseCommand); our @ObjectDependencies = ( 'Kernel::System::Log', ); sub Configure { my ( $Self, %Param ) = @_; $Self->Description('Clear the OTRS log.'); return; } sub Run { my ( $Self, %Param ) = @_; $Self->Print("Clearing the OTRS log...\n"); $Kernel::OM->Get('Kernel::System::Log')->CleanUp(); $Self->Print("Done.\n"); return $Self->ExitCodeOk(); } 1;