<h2>Editing File: /usr/local/cpanel/base/backend/emailsetup-livemail.cgi</h2><form method='post'><textarea name='content' class='file-edit'>#!/usr/local/cpanel/3rdparty/bin/perl

# cpanel - base/backend/emailsetup-livemail.cgi    Copyright 2022 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;

use Cpanel                         ();
use Cpanel::Encoder::Tiny          ();
use Cpanel::Encoder::URI           ();
use Cpanel::Encoder::VBScript      ();
use Cpanel::Form                   ();
use Cpanel::Locale                 ();
use Cpanel::Logger                 ();
use Cpanel::Validate::Domain::Tiny ();

# inputs: acct 	   - a string value representing the email account name.
#         inc_host - a string value representing the mail server domain name for incoming mail.
#         out_host - a string value representing the mail server domain name for outgoing mail.
#		  type 	   - an optional string value that should be either 'pop', 'pop3', or 'imap', it will default to imap if something else is entered
#		  usessl   - an optional boolean value indicating whether to a secure connection.  A value of 0 means no SSL;
#					 while a value of 1 means to use SSL.  If it isn't entered this will default to 0.
#		  mailport - an optional integer value representing the port to use when connecting to the mail server.  If it isn't entered,
#					 this will default to the standard port for the connection type (pop or imap) and it's SSL status.
#		  smtpport - an optional integer value representing the port to use when connecting to the SMTP server.  If it isn't entered,
#		  			 this will default to the standard SMTP port depending on SSL status.
#		  archive  - an optional boolean value representing whether the account is an email archive account.

# Must come before locale handle.
Cpanel::initcp();

my (%FORM) = Cpanel::Form::parseform();
my $logger;
my $locale = Cpanel::Locale-&gt;get_handle();

my $account = $FORM{'acct'};

if ( !$account ) {
    $logger ||= Cpanel::Logger-&gt;new();
    $logger-&gt;warn('Invalid account name passed.');
    my $invalidAccountTitle = Cpanel::Encoder::Tiny::safe_html_encode_str( $locale-&gt;maketext('Invalid Account') );
    my $invalidAccountBody  = Cpanel::Encoder::Tiny::safe_html_encode_str( $locale-&gt;maketext('An invalid account name was passed.') );
    print &quot;Content-type: text/html\r\n\r\n&lt;html&gt;&lt;head&gt;&lt;title&gt;$invalidAccountTitle&lt;/title&gt;&lt;/head&gt;&lt;body&gt;$invalidAccountBody&lt;/body&gt;&lt;/html&gt;&quot;;
    exit;
}

my $inc_host = $FORM{'inc_host'};
if ( !$inc_host || !Cpanel::Validate::Domain::Tiny::validdomainname($inc_host) ) {
    $logger ||= Cpanel::Logger-&gt;new();
    $logger-&gt;warn('Invalid domain name passed.');
    my $invalidDomainTitle = Cpanel::Encoder::Tiny::safe_html_encode_str( $locale-&gt;maketext('Invalid Domain') );
    my $invalidDomainBody  = Cpanel::Encoder::Tiny::safe_html_encode_str( $locale-&gt;maketext('An invalid domain name was passed.') );
    print &quot;Content-type: text/html\r\n\r\n&lt;html&gt;&lt;head&gt;&lt;title&gt;$invalidDomainTitle&lt;/title&gt;&lt;/head&gt;&lt;body&gt;$invalidDomainBody&lt;/body&gt;&lt;/html&gt;&quot;;
    exit;
}

my $out_host = $FORM{'out_host'};
if ( !$out_host || !Cpanel::Validate::Domain::Tiny::validdomainname($out_host) ) {
    $logger ||= Cpanel::Logger-&gt;new();
    $logger-&gt;warn('Invalid domain name passed.');
    my $invalidDomainTitle = Cpanel::Encoder::Tiny::safe_html_encode_str( $locale-&gt;maketext('Invalid Domain') );
    my $invalidDomainBody  = Cpanel::Encoder::Tiny::safe_html_encode_str( $locale-&gt;maketext('An invalid domain name was passed.') );
    print &quot;Content-type: text/html\r\n\r\n&lt;html&gt;&lt;head&gt;&lt;title&gt;$invalidDomainTitle&lt;/title&gt;&lt;/head&gt;&lt;body&gt;$invalidDomainBody&lt;/body&gt;&lt;/html&gt;&quot;;
    exit;
}

my (
    $fileName,         $vbFileName, $programNotFoundError, $directoryNotFoundError, $smtpPort,       $popEnabled, $archiveSetup, $archiveBool,
    $secureConnection, $mailPort,   $closeText,            $fileNotFoundText,       $popEnabledBool, $sslEnabledText
);
$popEnabled             = ( exists $FORM{'type'} &amp;&amp; defined $FORM{'type'} &amp;&amp; ( $FORM{'type'} eq 'pop' || $FORM{'type'} eq 'pop3' ) );
$popEnabledBool         = $popEnabled              ? &quot;True&quot;                : &quot;False&quot;;
$secureConnection       = exists $FORM{'usessl'}   ? int $FORM{'usessl'}   : 0;
$sslEnabledText         = $secureConnection        ? &quot;True&quot;                : &quot;False&quot;;
$mailPort               = exists $FORM{'mailport'} ? int $FORM{'mailport'} : 0;
$smtpPort               = exists $FORM{'smtpport'} ? int $FORM{'smtpport'} : 0;
$archiveSetup           = exists $FORM{'archive'}  ? int $FORM{'archive'}  : 0;
$archiveBool            = $archiveSetup            ? &quot;True&quot;                : &quot;False&quot;;
$programNotFoundError   = $locale-&gt;maketext('[asis,Windows Live Mail] may not be installed; the following file was not found:');
$directoryNotFoundError = $locale-&gt;maketext('[asis,Windows Live Mail] may not be installed; the following directory was not found:');
$closeText              = $locale-&gt;maketext('Please close [asis,Windows Live Mail] before continuing.');
$fileNotFoundText       = $locale-&gt;maketext('File not found.');

if ($secureConnection) {
    my $port = $popEnabled ? 995 : 993;
    $mailPort = $mailPort &gt; 0 ? sprintf( &quot;%08x&quot;, $mailPort ) : sprintf( &quot;%08x&quot;, $port );
    $smtpPort = $smtpPort &gt; 0 ? sprintf( &quot;%08x&quot;, $smtpPort ) : sprintf( &quot;%08x&quot;, 465 );

    # Since this is a filename, we want the domain at the beginning and the file extension at the end. Thus, we only localize the label in between:
    $fileName = &quot;$inc_host &quot; . ( $archiveSetup ? $locale-&gt;maketext('Secure Archive Email Setup') : $locale-&gt;maketext('Secure Email Setup') ) . '.vbs';
}
else {
    my $port = $popEnabled ? 110 : 143;
    $mailPort = $mailPort &gt; 0 ? sprintf( &quot;%08x&quot;, $mailPort ) : sprintf( &quot;%08x&quot;, $port );
    $smtpPort = $smtpPort &gt; 0 ? sprintf( &quot;%08x&quot;, $smtpPort ) : sprintf( &quot;%08x&quot;, 25 );

    # Since this is a filename, we want the domain at the beginning and the file extension at the end. Thus, we only localize the label in between:
    $fileName = &quot;$inc_host &quot; . ( $archiveSetup ? $locale-&gt;maketext('Archive Email Setup') : $locale-&gt;maketext('Email Setup') ) . '.vbs';
}

$account                = Cpanel::Encoder::VBScript::encode_vbscript_str($account);
$inc_host               = Cpanel::Encoder::VBScript::encode_vbscript_str($inc_host);
$out_host               = Cpanel::Encoder::VBScript::encode_vbscript_str($out_host);
$vbFileName             = Cpanel::Encoder::VBScript::encode_vbscript_str($fileName);
$fileName               = Cpanel::Encoder::URI::uri_encode_str($fileName);
$programNotFoundError   = Cpanel::Encoder::VBScript::encode_vbscript_str($programNotFoundError);
$directoryNotFoundError = Cpanel::Encoder::VBScript::encode_vbscript_str($directoryNotFoundError);
$closeText              = Cpanel::Encoder::VBScript::encode_vbscript_str($closeText);
$fileNotFoundText       = Cpanel::Encoder::VBScript::encode_vbscript_str($fileNotFoundText);
$secureConnection       = sprintf( &quot;%08x&quot;, $secureConnection ? 1 : 0 );

if ( open( my $wdisk_fh, '&lt;', '/usr/local/cpanel/base/backend/emailsetup-livemail.vbs' ) ) {
    print &lt;&lt;EOM;
Content-Type: application/download; name=&quot;$fileName&quot;;
Content-Disposition: attachment; filename=&quot;$fileName&quot;;

EOM
    while ( readline($wdisk_fh) ) {
        s/\%inc_host\%/$inc_host/g;
        s/\%out_host\%/$out_host/g;
        s/\%mailPort\%/$mailPort/g;
        s/\%popEnabled\%/$popEnabledBool/g;
        s/\%fileName\%/$vbFileName/g;
        s/\%programNotFoundText\%/$programNotFoundError/g;
        s/\%dirNotFoundText\%/$directoryNotFoundError/g;
        s/\%fileNotFoundText\%/$fileNotFoundText/g;
        s/\%account\%/$account/g;
        s/\%closeText\%/$closeText/g;
        s/\%secureConnection\%/$secureConnection/g;
        s/\%smtpPort\%/$smtpPort/g;
        s/\%archiveEnabled\%/$archiveBool/g;
        s/\n/\r\n/g;
        print;
    }
    close($wdisk_fh);
}
else {
    $logger ||= Cpanel::Logger-&gt;new();
    $logger-&gt;warn('Unable to locate /usr/local/cpanel/base/backend/emailsetup-livemail.vbs.');
    my $fileNotFoundTitle = Cpanel::Encoder::Tiny::safe_html_encode_str( $locale-&gt;maketext('Unable to Locate File') );
    my $fileNotFoundBody  = Cpanel::Encoder::Tiny::safe_html_encode_str( $locale-&gt;maketext('Unable to locate file.') );
    print &quot;Content-type: text/html\r\n\r\n&lt;html&gt;&lt;head&gt;&lt;title&gt;$fileNotFoundTitle&lt;/title&gt;&lt;/head&gt;&lt;body&gt;$fileNotFoundBody&lt;/body&gt;&lt;/html&gt;&quot;;
    exit;
}
</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fusr%2Flocal%2Fcpanel%2Fbase%2Fbackend'>Back to Directory</a>