<h2>Edit File: CpanelLogger.pm</h2><form method="post"><textarea name="content" rows="20" cols="80">package CpanelLogger;

# cpanel - CpanelLogger.pm                         Copyright 2021 cPanel, L.L.C.
#                                                           All rights reserved.
# copyright@cpanel.net                                         http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited

use strict;
use warnings;

require Exporter;
our @EXPORT = qw(DEBUG ERROR WARN INFO FATAL begin_collect_output emit_collected_output);    ## no critic qw(ProhibitAutomaticExportation)
our @ISA    = qw(Exporter);

use constant COLOR_RED           =&gt; 31;
use constant COLOR_YELLOW        =&gt; 33;
use constant DISABLE_COLORS_FILE =&gt; &#039;/var/cpanel/disable_cpanel_terminal_colors&#039;;

use constant LOG_FILE =&gt; &#039;/var/log/cpanel-install.log&#039;;
our $log_fh;

# Helper routines for the log.
our $message_caller_depth = 1;

my $collect_output;

sub colorize_bold {
    my ( $color, $msg ) = @_;

    return $msg if !defined $color || -e DISABLE_COLORS_FILE;
    $msg ||= &#039;&#039;;

    return chr(27) . &#039;[1;&#039; . $color . &#039;m&#039; . $msg . chr(27) . &#039;[0;m&#039;;
}

# space pad debug messages.
sub DEBUG { my ($msg) = @_; return _MSG( &#039;DEBUG&#039;, &quot;  &quot; . $msg ) }
sub ERROR { my ($msg) = @_; return _MSG( &#039;ERROR&#039;, colorize_bold( COLOR_RED, $msg ) ) }
sub WARN  { my ($msg) = @_; return _MSG( &#039;WARN&#039;, colorize_bold( COLOR_YELLOW, $msg ) ) }
sub INFO  { my ($msg) = @_; return _MSG( &#039;INFO&#039;, $msg ) }
sub FATAL { my ($msg) = @_; print_support_info(); _MSG( &#039;FATAL&#039;, colorize_bold( COLOR_RED, $msg ) ); die &quot;\n&quot;; }

sub print_support_info {
    INFO(&quot;cPanel is here to help! Our Technical Support team is just a click away at https://support.cpanel.net/ or you can contact Customer Service via email cs\@cpanel.net&quot;);
    return;
}

sub _MSG {
    my ( $level, $msg ) = @_;
    $msg ||= &#039;&#039;;
    chomp $msg;

    my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = localtime;
    my ( $package, $filename, $line ) = caller($message_caller_depth);

    my $stamp_msg = sprintf( &quot;%04d-%02d-%02d %02d:%02d:%02d %4s [%d] (%5s): %s\n&quot;, $year + 1900, $mon + 1, $mday, $hour, $min, $sec, $line, $$, $level, $msg );

    print {$log_fh} $stamp_msg;
    if ( defined $collect_output ) {
        $collect_output .= $stamp_msg;
    }
    else {
        print $stamp_msg;
    }
    return;
}

sub begin_collect_output {
    $collect_output = &#039;&#039;;

    return;
}

sub emit_collected_output {
    print $collect_output;
    undef $collect_output;
    return;
}

sub close_log_file {
    close $log_fh;
    return;
}

sub open_log_for_append {
    my $orig_umask = umask(0077);

    # Re-open the log regardless of success.
    open( $log_fh, &#039;&gt;&gt;&#039;, LOG_FILE ) or die &quot;Can&#039;t open log file: $!&quot;;
    $log_fh-&gt;autoflush(1);

    umask($orig_umask);
    return;
}

sub open_logs {
    if ( my $mtime = ( stat(LOG_FILE) )[9] ) {
        my $bu_file = LOG_FILE . &#039;.&#039; . $mtime;
        system( &#039;/bin/cp&#039;, LOG_FILE, $bu_file ) unless -e $bu_file;
    }

    open_log_for_append();

    my $install_start      = time();
    my $install_start_time = localtime($install_start);
    INFO(&quot;cPanel &amp; WHM installation started at: $install_start_time!&quot;);
    INFO(&quot;This installation will require 10-50 minutes, depending on your hardware and network.&quot;);
    INFO(&quot;Now is the time to go get another cup of coffee/jolt.&quot;);
    INFO(&quot;The install will log to the /var/log/cpanel-install.log file.&quot;);
    INFO(&quot;&quot;);
    INFO(&quot;Beginning Installation v3...&quot;);

    return $install_start;
}

1;
</textarea><br><input type="hidden" name="edit_file" value="CpanelLogger.pm"><input type="submit" value="Save"></form>