<h2>Editing File: /var/softaculous/dada/Config.pm</h2><form method='post'><textarea name='content' class='file-edit'>package DADA::Config;
use v5.10.1;
#----------------------------------------------------------------------------#
# This file holds default values for the global configuration variables 
# in Dada Mail. See:
#
#          https://dadamailproject.com/d/global_variables.pod.html
# 
# for more information. 
#
#----------------------------------------------------------------------------#

require Exporter;
our @ISA = qw(Exporter);

use vars qw($PROGRAM_ROOT_PASSWORD $MAILPROG $DIR $FILES $PROGRAM_URL $S_PROGRAM_URL $RUNNING_UNDER $ADDITIONAL_PERLLIBS $PLUGIN_CONFIGS $PLUGINS_ENABLED $MAIL_SETTINGS $MASS_MAIL_SETTINGS $LIST_TYPES $AMAZON_SES_OPTIONS $MAILGUN_OPTIONS $WWW_ENGINE_OPTIONS $FIRST_SUB $SEC_SUB @C $SALT $ENABLE_CSRF_PROTECTION $FILE_CHMOD $DIR_CHMOD $GIVE_PROPS_IN_EMAIL $GIVE_PROPS_IN_HTML $GIVE_PROPS_IN_ADMIN $GIVE_PROPS_IN_SUBSCRIBE_FORM $PROGRAM_IMG_FILENAME $SUBSCRIBED_MESSAGE $ARCHIVES $TEMPLATES $ALTERNATIVE_HTML_TEMPLATE_PATH $TMP $LOGS $BACKUPS %BACKUP_HISTORY  $ENFORCE_CLOSED_LOOP_OPT_IN $SUPPORT_FILES $WYSIWYG_EDITOR_OPTIONS $FILE_BROWSER_OPTIONS $SCHEDULED_JOBS_OPTIONS $SCREEN_CACHE $DATA_CACHE $GLOBAL_BLACK_LIST $GLOBAL_UNSUBSCRIBE $HIDDEN_SUBSCRIBER_FIELDS_PREFIX @PING_URLS $CONFIRMATION_TOKEN_OPTIONS $SUBSCRIPTION_SUCCESSFUL_COPY $PIN_WORD $PIN_NUM $TEXT_CSV_PARAMS $ALLOW_ROOT_LOGIN  @CHARSETS @CONTENT_TYPES %LIST_SETUP_DEFAULTS %LIST_SETUP_INCLUDE %LIST_SETUP_OVERRIDES @LIST_SETUP_DONT_CLONE %PRIORITIES $ATTACHMENT_TEMPFILE $MAIL_VERP_SEPARATOR %MIME_TYPES $DEFAULT_MIME_TYPE $MIME_PARANOID $MIME_HUSH $MIME_OPTIMIZE $MIME_TOOLS_PARAMS $NPH $PROGRAM_USAGE_LOG $ROOT_PASS_IS_ENCRYPTED $SHOW_ADMIN_LINK $LIST_PASSWORD_RESET $ADMIN_FLAVOR_NAME $SIGN_IN_FLAVOR_NAME $DISABLE_OUTSIDE_LOGINS %LOG $DEBUG_TRACE %CPAN_DEBUG_SETTINGS $ADMIN_MENU $EMAIL_CASE @EMAIL_EXCEPTIONS $LIST_IN_ORDER $ADMIN_TEMPLATE $USER_TEMPLATE $BACKEND_DB_TYPE $SUBSCRIBER_DB_TYPE $ARCHIVE_DB_TYPE $SETTINGS_DB_TYPE $SESSION_DB_TYPE $BOUNCE_SCORECARD_DB_TYPE $CLICKTHROUGH_DB_TYPE %SQL_PARAMS $DBI_PARAMS $PROFILE_OPTIONS $PII_OPTIONS $GLOBAL_API_OPTIONS $PLUGIN_RUNMODES $PROGRAM_ERROR_LOG $SHOW_HELP_LINKS $HELP_LINKS_URL $VER $VERSION  $PROGRAM_NAME @CONTENT_TRANSFER_ENCODINGS $CONFIG_FILE $PROGRAM_CONFIG_FILE_DIR $OS $DEFAULT_ADMIN_SCREEN $DEFAULT_LOGOUT_SCREEN $DEFAULT_SCREEN $HTML_CHARSET $SEND_ARCHIVED_MESSAGE $CAPTCHA_TYPE $GOOGLE_MAPS_PARAMS $RECAPTCHA_PARAMS $RECAPTHCA_MAILHIDE_PARAMS  $LOGIN_COOKIE_NAME %COOKIE_PARAMS $CP_SESSION_PARAMS $GOOGLE_MAPS_API_PARAMS $RATE_LIMITING $HTML_TEXTTOHTML_OPTIONS $HTML_SCRUBBER_OPTIONS $TEMPLATE_SETTINGS $TEMPLATE_OPTIONS $LOGIN_WIDGET $NULL_DEVICE $LIST_QUOTA $SUBSCRIPTION_QUOTA $MAILOUT_AT_ONCE_LIMIT $MAILOUT_STALE_AFTER %EMAIL_HEADERS @EMAIL_HEADERS_ORDER $LIST_HEADERS);

@EXPORT_OK = qw($PROGRAM_ROOT_PASSWORD $MAILPROG $DIR $FILES $PROGRAM_URL $S_PROGRAM_URL $RUNNING_UNDER $ADDITIONAL_PERLLIBS $PLUGIN_CONFIGS $PLUGINS_ENABLED $MAIL_SETTINGS $MASS_MAIL_SETTINGS $LIST_TYPES $AMAZON_SES_OPTIONS $MAILGUN_OPTIONS $WWW_ENGINE_OPTIONS $FIRST_SUB $SEC_SUB @C $SALT $ENABLE_CSRF_PROTECTION $FILE_CHMOD $DIR_CHMOD $GIVE_PROPS_IN_EMAIL $GIVE_PROPS_IN_HTML $GIVE_PROPS_IN_ADMIN $GIVE_PROPS_IN_SUBSCRIBE_FORM $PROGRAM_IMG_FILENAME $SUBSCRIBED_MESSAGE     $ARCHIVES $TEMPLATES $ALTERNATIVE_HTML_TEMPLATE_PATH $TMP $LOGS $BACKUPS %BACKUP_HISTORY  $ENFORCE_CLOSED_LOOP_OPT_IN $SUPPORT_FILES $WYSIWYG_EDITOR_OPTIONS $FILE_BROWSER_OPTIONS $SCHEDULED_JOBS_OPTIONS $SCREEN_CACHE $DATA_CACHE $GLOBAL_BLACK_LIST $GLOBAL_UNSUBSCRIBE $HIDDEN_SUBSCRIBER_FIELDS_PREFIX @PING_URLS $CONFIRMATION_TOKEN_OPTIONS $SUBSCRIPTION_SUCCESSFUL_COPY $PIN_WORD $PIN_NUM $TEXT_CSV_PARAMS $ALLOW_ROOT_LOGIN  @CHARSETS @CONTENT_TYPES %LIST_SETUP_DEFAULTS %LIST_SETUP_INCLUDE %LIST_SETUP_OVERRIDES @LIST_SETUP_DONT_CLONE %PRIORITIES $ATTACHMENT_TEMPFILE $MAIL_VERP_SEPARATOR %MIME_TYPES $DEFAULT_MIME_TYPE $MIME_PARANOID $MIME_HUSH $MIME_OPTIMIZE $MIME_TOOLS_PARAMS $NPH $PROGRAM_USAGE_LOG $ROOT_PASS_IS_ENCRYPTED $SHOW_ADMIN_LINK $LIST_PASSWORD_RESET $ADMIN_FLAVOR_NAME $SIGN_IN_FLAVOR_NAME $DISABLE_OUTSIDE_LOGINS %LOG $DEBUG_TRACE %CPAN_DEBUG_SETTINGS $ADMIN_MENU $EMAIL_CASE @EMAIL_EXCEPTIONS $LIST_IN_ORDER $ADMIN_TEMPLATE $USER_TEMPLATE $BACKEND_DB_TYPE $SUBSCRIBER_DB_TYPE $ARCHIVE_DB_TYPE $SETTINGS_DB_TYPE $SESSION_DB_TYPE $BOUNCE_SCORECARD_DB_TYPE $CLICKTHROUGH_DB_TYPE %SQL_PARAMS $DBI_PARAMS $PROFILE_OPTIONS $PII_OPTIONS $GLOBAL_API_OPTIONS $PLUGIN_RUNMODES $PROGRAM_ERROR_LOG $SHOW_HELP_LINKS $HELP_LINKS_URL $VER $VERSION  $PROGRAM_NAME @CONTENT_TRANSFER_ENCODINGS $CONFIG_FILE $PROGRAM_CONFIG_FILE_DIR $OS $DEFAULT_ADMIN_SCREEN $DEFAULT_LOGOUT_SCREEN $DEFAULT_SCREEN $HTML_CHARSET $SEND_ARCHIVED_MESSAGE $CAPTCHA_TYPE $GOOGLE_MAPS_PARAMS $RECAPTCHA_PARAMS $RECAPTHCA_MAILHIDE_PARAMS  $LOGIN_COOKIE_NAME %COOKIE_PARAMS $CP_SESSION_PARAMS GOOGLE_MAPS_API_PARAMS $RATE_LIMITING $HTML_TEXTTOHTML_OPTIONS $HTML_SCRUBBER_OPTIONS $TEMPLATE_SETTINGS $TEMPLATE_OPTIONS $LOGIN_WIDGET $NULL_DEVICE $LIST_QUOTA $SUBSCRIPTION_QUOTA $MAILOUT_AT_ONCE_LIMIT $MAILOUT_STALE_AFTER %EMAIL_HEADERS @EMAIL_HEADERS_ORDER $LIST_HEADERS);

#
#
#
#

$PROGRAM_CONFIG_FILE_DIR = '[[softdatadir]]/.dada_files/.configs';

#
#
#
#
#

#--------------------------------#
# Leave the below line, alone!
_config_import(); #  Leave alone!
# Leave the above line, alone!
#--------------------------------#

BEGIN {


#
#
#
#
#

$PROGRAM_ERROR_LOG = '[[softdatadir]]/.dada_files/.logs/errors.txt';

#
#
#
#
#

    # Keep this next bit as-is; it's just opening the error file for writing.
    if (
		$PROGRAM_ERROR_LOG 
		&amp;&amp; (!$ENV{NO_DADA_MAIL_CONFIG_IMPORT})
	) {
        open( STDERR, &quot;&gt;&gt;$PROGRAM_ERROR_LOG&quot; )
          || warn
&quot;$PROGRAM_NAME Error: Cannot redirect STDERR, it's possible that Dada Mail does not have write permissions to this file ($PROGRAM_ERROR_LOG) or it doesn't exist! If Dada Mail cannot make this file for you, create it yourself and give it enough permissions so it may write to it: $!&quot;;
    }

    # chmod(0777, $PROGRAM_ERROR_LOG);
}


$PROGRAM_ROOT_PASSWORD  //= 'root_password';
$ROOT_PASS_IS_ENCRYPTED //= 0;


($DIR) //= $PROGRAM_CONFIG_FILE_DIR =~ m/^(.*?)\/\.configs$/;
$ARCHIVES          //= $DIR . '/.archives';
$BACKUPS           //= $DIR . '/.backups';
$FILES             //= $DIR . '/.lists';
$LOGS              //= $DIR . '/.logs';
$PROGRAM_USAGE_LOG //= $LOGS . '/dada.txt';
$TEMPLATES         //= $DIR . '/.templates';
$TMP               //= $DIR . '/.tmp';


$PROGRAM_URL   //= 'https://www.changetoyoursite.com/cgi-bin/dada/mail.cgi';
$S_PROGRAM_URL //= $PROGRAM_URL;

$RUNNING_UNDER //= 'CGI'; 
$ADDITIONAL_PERLLIBS //= [qw()];


$SUPPORT_FILES //= {
    dir =&gt; '',
    url =&gt; '',
};

$WYSIWYG_EDITOR_OPTIONS //= {
    ckeditor =&gt; {
        enabled =&gt; 0,
        url     =&gt; '',
    },
    tiny_mce =&gt; {
        enabled =&gt; 0,
        url     =&gt; '',
    },
};

$FILE_BROWSER_OPTIONS //= {
	rich_filemanager  =&gt; { 
		enabled      =&gt; 0,
		url          =&gt; '',
		upload_dir   =&gt; '',
		upload_url   =&gt; '',
		connector    =&gt; 'php', 
		session_name =&gt; 'PHPSESSID', 
		session_dir  =&gt; '',
	},
	core5_filemanager  =&gt; { 
		enabled      =&gt; 0, 
		url          =&gt; '', 
		upload_dir   =&gt; '', 
		upload_url   =&gt; '',
		connector    =&gt; '', 
	},
	none =&gt; { 
		enabled      =&gt; 1,
	}
};


$SCHEDULED_JOBS_OPTIONS //= { 
#   enabled               =&gt; 1, 
   scheduled_jobs_flavor =&gt; '_schedules', 
   log                   =&gt; 0, 
   run_at_teardown       =&gt; 1, 
   
};


$BACKEND_DB_TYPE          //= 'SQL';
$SUBSCRIBER_DB_TYPE       //= 'SQL';
$ARCHIVE_DB_TYPE          //= 'SQL';
$SETTINGS_DB_TYPE         //= 'SQL';
$SESSION_DB_TYPE          = undef; #noop
$BOUNCE_SCORECARD_DB_TYPE //= 'SQL';
$CLICKTHROUGH_DB_TYPE     //= 'SQL';

%SQL_PARAMS = (

    # May just be, &quot;localhost&quot;
    dbserver =&gt; 'localhost',

    database =&gt; '',

    # MySQL:      3306
    # PostgreSQL: 5432
    port =&gt; '3306',

    # MySQL:      mysql
    # PostgreSQL: Pg
    # SQLite:     SQLite
    dbtype =&gt; 'mysql',

    user =&gt; '',
    pass =&gt; '',

) unless keys %SQL_PARAMS;


$DBI_PARAMS //= {

    InactiveDestroy      =&gt; 0,
    pg_server_prepare    =&gt; 0,
    mysql_auto_reconnect =&gt; 1,

# this only works if you have autocommit =&gt; 1 ? (or is it, AutoCommit)
# This would probably be fine, since we don't commit, anyways, but
# will be problematic, if we ever put in transaction support. Hmm...
# But wait, there's more :
#TRANSACTION SUPPORT ^
#
#Beginning with DBD::mysql 2.0416, transactions are supported. The transaction support works as follows:
#
#   * By default AutoCommit mode is on, following the DBI specifications.

    dada_connection_method =&gt; 'connect_cached',

    # UTF-8

    # MySQL specific attribute:
    #
    mysql_enable_utf8 =&gt; 1,

    #
    # You will also need to ensure that your database / table / column is
    # configured to use UTF8. See Chapter 10 of the mysql manual for details.

    # DBD::Pg specific attribute. If true, then the utf8 flag will be turned on
    # for returned character data (if the data is valid UTF-8). For details
    # about the utf8 flag, see the Encode module. This attribute is only
    # relevant under perl 5.8 and later.
    #
    pg_enable_utf8 =&gt; 1,

    # SQLite
    # If set to a true value, DBD::SQLite will turn the UTF-8 flag on for all
    # text strings coming out of the database (this feature is currently
    # disabled for perl &lt; 5.8.5). For more details on the UTF-8 flag see
    # perlunicode. The default is for the UTF-8 flag to be turned off.
    #
    sqlite_unicode =&gt; 1,
	
	AutoInactiveDestroy =&gt; 1, 

};


$PROFILE_OPTIONS //= {

    enabled                         =&gt; 1,
    profile_email                   =&gt; '',
    enable_captcha                  =&gt; 1,
    update_email_options =&gt; {
        send_notification_to_profile_email =&gt; 0,
        subscription_check_skip            =&gt; 'auto',
    },

    gravatar_options =&gt; {
        enable_gravators     =&gt; 1,
        default_gravatar_url =&gt; undef,
    },

    features =&gt; {
        register                   =&gt; 0,
        password_reset             =&gt; 1,
        profile_fields             =&gt; 0,
        mailing_list_subscriptions =&gt; 1,
        protected_directories      =&gt; 0,
        update_email_address       =&gt; 0,
        change_password            =&gt; 1,
        delete_profile             =&gt; 0,
    },
    cookie_params =&gt; {
        -name     =&gt; 'dada_profile',
        -path     =&gt; '/',
        -expires  =&gt; '+1y',
		-SameSite =&gt; 'Lax',
    },

};

$PII_OPTIONS //= { 
	allow_logging_emails_in_analytics =&gt; 0, 
	ip_address_logging_style          =&gt; 'anonymized', 
};

$GLOBAL_API_OPTIONS //= { 
	enabled     =&gt; 0, 
	public_key  =&gt; undef, 
	private_key =&gt; undef, 
};


$PLUGIN_RUNMODES //= { 
    boilerplate_plugin           =&gt; {run =&gt; \&amp;boilerplate_plugin::run},
    tracker                      =&gt; {run =&gt; \&amp;tracker::run}, 
    bounce_handler               =&gt; {run       =&gt; \&amp;bounce_handler::run, 
	                                 sched_run =&gt; \&amp;bounce_handler::scheduled_task},
    bridge                       =&gt; {run       =&gt; \&amp;bridge::run,         
	                                 sched_run =&gt; \&amp;bridge::scheduled_task},
    change_root_password         =&gt; {run =&gt; \&amp;change_root_password::run}, 
    change_list_shortname        =&gt; {run =&gt; \&amp;change_list_shortname::run},  
    password_protect_directories =&gt; {run       =&gt; \&amp;password_protect_directories::run,
	                                 sched_run =&gt; \&amp;password_protect_directories::scheduled_task},   
    log_viewer                   =&gt; {run =&gt; \&amp;log_viewer::run},
    screen_cache                 =&gt; {run =&gt; \&amp;screen_cache::run},
    global_config                =&gt; {run =&gt; \&amp;global_config::run}, 
    view_list_settings           =&gt; {run =&gt; \&amp;view_list_settings::run},
	usage_log_to_consent_activity =&gt;  {run =&gt; \&amp;usage_log_to_consent_activity::run},
	
};

$PLUGINS_ENABLED //= {
    boilerplate_plugin            =&gt; 0,
    tracker                       =&gt; 0,
    bounce_handler                =&gt; 0,
    bridge                        =&gt; 0,
    change_root_password          =&gt; 0,
    change_list_shortname         =&gt; 0,
    password_protect_directories  =&gt; 0,
    log_viewer                    =&gt; 0,
    screen_cache                  =&gt; 0,
    global_config                 =&gt; 0,
    view_list_settings            =&gt; 0,
    usage_log_to_consent_activity =&gt; 0,
	
};

$PLUGIN_CONFIGS //= { 

	Bounce_Handler =&gt; {
		Server                      =&gt; undef,
		Address                     =&gt; undef,
		Username                    =&gt; undef,
		Password                    =&gt; undef,
		Port                        =&gt; undef,
		USESSL                      =&gt; undef,
		starttls                    =&gt; undef,
		SSL_verify_mode             =&gt; undef,
		AUTH_MODE                   =&gt; undef,
		Plugin_Name                 =&gt; undef,
		Plugin_URL                  =&gt; undef,
		Allow_Manual_Run            =&gt; undef,
		Manual_Run_Passcode         =&gt; undef,
		Enable_POP3_File_Locking    =&gt; undef, 
		Log                         =&gt; undef,
		MessagesAtOnce              =&gt; undef,
		Max_Size_Of_Any_Message     =&gt; undef,
		Rules                       =&gt; undef,

	},
	Bridge =&gt; {

		Plugin_Name                         =&gt; undef,
		Plugin_URL                          =&gt; undef,
		Allow_Manual_Run                    =&gt; undef,
		Manual_Run_Passcode                 =&gt; undef,
		MessagesAtOnce                      =&gt; undef,
		Room_For_One_More_Check             =&gt; undef,
		Enable_POP3_File_Locking            =&gt; undef,
		Check_List_Owner_Return_Path_Header =&gt; undef,
		Check_Multiple_Return_Path_Headers  =&gt; undef,

    },

	Tracker =&gt; {

		Plugin_Name                         =&gt; undef,
		Plugin_URL                          =&gt; undef,
		Geo_IP_Db                           =&gt; undef,
		
	},

	Mailing_Monitor =&gt; {

		Plugin_Name                         =&gt; undef,
		Plugin_URL                          =&gt; undef,
		Allow_Manual_Run                    =&gt; undef,
		Manual_Run_Passcode                 =&gt; undef,

	},

    log_viewer =&gt; {	

		Plugin_URL                          =&gt; undef,
		tail_command                        =&gt; undef,

	},

	default_mass_mailing_messages =&gt; {

		Plugin_Name                         =&gt; undef,
		Plugin_URL                          =&gt; undef,

	},

	password_protect_directories =&gt; {

		Plugin_Name                         =&gt; undef,
		Plugin_URL                          =&gt; undef,
		Allow_Manual_Run                    =&gt; undef,
		Manual_Run_Passcode                 =&gt; undef,
		Base_Absolute_Path                  =&gt; undef, 
		Base_URL                            =&gt; undef, 

	},

    blog_index =&gt; {

		Default_List                        =&gt; undef,
		Entries                             =&gt; undef,
		Style                               =&gt; undef,
		Allow_QS_Overrides                  =&gt; undef,

	}, 

	multiple_subscribe =&gt; {

		Plugin_Name                         =&gt; undef,
		Plugin_URL                          =&gt; undef,

	},

	Global_Config =&gt; {

		Plugin_Name                         =&gt; undef,

	},

};


$MAILPROG           //= '/usr/sbin/sendmail';
$MAIL_SETTINGS      //= &quot;|$MAILPROG -t&quot;;
$MASS_MAIL_SETTINGS //= &quot;|$MAILPROG -t&quot;;


$LIST_TYPES //= {
	
    list                =&gt; 'Subscribers',
    black_list          =&gt; 'Black Listed',
    white_list          =&gt; 'White Listed',     
    
	authorized_senders  =&gt; 'Authorized Senders',
    moderators          =&gt; 'Moderators',
	requires_moderation =&gt; 'Requires Moderation',
	
	
	sub_request_list    =&gt; 'Subscription Requests',
    unsub_request_list  =&gt; 'Unsubscription Requests',
    
	bounced_list        =&gt; 'Bouncing Addresses',
	ignore_bounces_list =&gt; 'Ignore Bounces',
	
	
	sub_confirm_list    =&gt; 'Unconfirmed Subscribers',
	unsub_confirm_list  =&gt; 'Unconfirmed Removals',
	
	invite_list         =&gt; 'Invitees',
	invited_list		=&gt; 'Invited',
	
	test_list           =&gt; 'Testers',
	
};

$AMAZON_SES_OPTIONS //= { 
    AWS_endpoint                     =&gt; undef,
	AWSAccessKeyId                   =&gt; undef,
	AWSSecretKey                     =&gt; undef,
	Allowed_Sending_Quota_Percentage =&gt; 90,
};

$MAILGUN_OPTIONS //= { 
	region  =&gt; 'us',
	api_key =&gt; undef, 
	domain  =&gt; undef,
};


$MANDRILL_OPTIONS = undef;

$WWW_ENGINE_OPTIONS //= {
	engine          =&gt; 'LWP', # curl
	user_agent      =&gt;  'Mozilla/5.0 (compatible; ' . $PROGRAM_NAME . ')',  # 'Mozilla/5.0 (Macintosh; Intel Mac OS X 10.15; rv:94.0) Gecko/20100101 Firefox/94.0'
	verify_hostname =&gt; 1,
}; 


$SHOW_ADMIN_LINK        //= 1;
$LIST_PASSWORD_RESET    //= 1; 
$ADMIN_FLAVOR_NAME      //= 'admin';
$SIGN_IN_FLAVOR_NAME    //= 'sign_in';
$DEFAULT_SCREEN         //= '';
$DEFAULT_ADMIN_SCREEN   //= $S_PROGRAM_URL . '?flavor=drafts';
$DEFAULT_LOGOUT_SCREEN  //= $S_PROGRAM_URL . '?flavor=' . $ADMIN_FLAVOR_NAME . '&amp;logged_out=1';
$DISABLE_OUTSIDE_LOGINS //= 1;
$LOGIN_WIDGET           //= 'popup_menu';
$ALLOW_ROOT_LOGIN       //= 1;
  
$LOGIN_COOKIE_NAME //= 'dadalogin';

%COOKIE_PARAMS = (
	-path     =&gt; '/',
	-expires  =&gt; '+7d',
	-samesite =&gt; 'Lax',
) unless keys %COOKIE_PARAMS; 

$CP_SESSION_PARAMS //= { 
	check_matching_ip_addresses =&gt; 1, 
};

$RATE_LIMITING //= { 
	enabled   =&gt; 1, 
	max_hits  =&gt; 10, 
	timeframe =&gt; 5, 
};

$GOOGLE_MAPS_API_PARAMS //= {
	api_key =&gt;  '',
};


$CAPTCHA_TYPE = undef; # noop #

$RECAPTCHA_PARAMS //= {

	recaptcha_type    =&gt;  'v2',
	on_subscribe_form =&gt;  1,
	
	v2 =&gt; {
	    public_key        =&gt;  undef,
	    private_key       =&gt;  undef,
	}, 
	v3 =&gt; {
	    public_key        =&gt;  undef,
	    private_key       =&gt;  undef,
		hide_badge        =&gt;  1,
		
	},
};


# NOOP
$RECAPTHCA_MAILHIDE_PARAMS //= {};


$SHOW_HELP_LINKS //= 1;
$HELP_LINKS_URL  //= 'https://dadamailproject.com/pro_dada/11.0.0';
$NPH //= 0;


%LOG = (
    subscriptions        =&gt; 0,
    mailings             =&gt; 0,
    mass_mailings        =&gt; 1,
    mass_mailing_batches =&gt; 1,
    logins               =&gt; 1,
    list_lives           =&gt; 1,

) unless keys %LOG;


$DEBUG_TRACE //= {

    DADA_App_BounceHandler             =&gt; 0,
    DADA_App_DBIHandle                 =&gt; 0,
    DADA_App_Digests                   =&gt; 0, 
    DADA_App_FormatMessages            =&gt; 0,
	DADA_App_HTMLtoMIMEMessage         =&gt; 0, 
    DADA_App_Subscriptions             =&gt; 0,
    DADA_App_WebServices               =&gt; 0,
	DADA_Template_HTML                 =&gt; 0,
	DADA_Logging_Clickthrough          =&gt; 0,
    DADA_Mail_MailOut                  =&gt; 0,
    DADA_Mail_Send                     =&gt; 0,
    DADA_MailingList                   =&gt; 0,
	DADA_MailingList_Archives          =&gt; 0, 
	DADA_MailingList_MessageDrafts     =&gt; 0, 
	DADA_MailingList_Settings          =&gt; 0,
    DADA_Profile                       =&gt; 0,
    DADA_Profile_Fields                =&gt; 0,
    DADA_Profile_Session               =&gt; 0,

};

%CPAN_DEBUG_SETTINGS = (

    # DBI, handles all SQL database calls.
    # More Information:
    # https://search.cpan.org/~timb/DBI/DBI.pm#TRACING
    # As noted in these docs, you can set the trace level as far 15

    DBI =&gt; 0,

    # HTML::Template, used for generating HTML screens
    # More information:
    # https://search.cpan.org/~samtregar/HTML-Template/Template.pm

    HTML_TEMPLATE =&gt; 0,

    #  Net::POP3, used for checking awaiting messages on a POP3 Server
    #  More Information:
    #  https://search.cpan.org/~gbarr/libnet/Net/POP3.pm
       NET_POP3 =&gt; 0,

    # Net::SMTP, used for sending messages via SMTP:
    # more information:
    # https://search.cpan.org/~gbarr/libnet/Net/SMTP.pm

    NET_SMTP =&gt; 0,

) unless keys %CPAN_DEBUG_SETTINGS;

$ADMIN_TEMPLATE                 = undef; #noop
$USER_TEMPLATE                  = undef; #noop
$ALTERNATIVE_HTML_TEMPLATE_PATH //= undef;

$TEMPLATE_SETTINGS              //= {
    engine                           =&gt; 'Best',
};

$TEMPLATE_OPTIONS //= {
    user =&gt; { 
            enabled        =&gt; 0,
            mode           =&gt; undef,
            manual_options =&gt; { 
                template_url =&gt; undef,
            },
            magic_options  =&gt; { 
                template_url          =&gt; undef, 
                add_base_href         =&gt; 0,
                base_href_url         =&gt; undef, 
                replace_content_from  =&gt; undef,
                replace_id            =&gt; undef, 
                replace_class         =&gt; undef, 
                add_app_css           =&gt; 0,
                add_custom_css        =&gt; 0,
                custom_css_url        =&gt; undef, 
                include_jquery_lib    =&gt; 1,
                include_app_user_js   =&gt; 1,
                head_content_added_by =&gt; 'push', 
            }
    }, 
};

# Mostly a noop these days... 
%BACKUP_HISTORY = (
    settings  =&gt; 3,
    archives  =&gt; 3,
    schedules =&gt; 3,
) unless keys %BACKUP_HISTORY;


$ENFORCE_CLOSED_LOOP_OPT_IN             //= 0;
$GLOBAL_BLACK_LIST                      //= 0;
$GLOBAL_UNSUBSCRIBE                     //= 0;
$HIDDEN_SUBSCRIBER_FIELDS_PREFIX        //= '_';


$SCREEN_CACHE                           //= 1;
$DATA_CACHE                             //= 1;

@PING_URLS = qw(
  https://rpc.pingomatic.com/
) unless scalar @PING_URLS;


$CONFIRMATION_TOKEN_OPTIONS //= { 
	expires =&gt; 60,
};


# If you do put the $ADMIN_MENU variable in the outside config file,
# make sure to also! put the below line (uncommented):
#
#  $S_PROGRAM_URL = $PROGRAM_URL
#
# Before the $ADMIN_URL variable, as well as the below 5 lines of code:

$S_PROGRAM_URL = $PROGRAM_URL;
my $EXT_URL = $S_PROGRAM_URL;
   $EXT_URL =~ s/\/(\w+)\.(cgi|pl)$/\//;
   $EXT_URL .= 'extensions';
   
$ADMIN_MENU //= [

{-Title      =&gt; 'Mass Mailing',
 -Activated  =&gt; 1,
 -Submenu    =&gt; [
				{
				-Title     =&gt; 'All Drafts/Stationery/Schedules',
				-Title_URL =&gt; &quot;$S_PROGRAM_URL?flavor=drafts&quot;,
				-Function  =&gt; 'drafts',
				-Activated =&gt; 1,
				},
			
				{ 
				-Title      =&gt; '+ New Draft Message',
				-Title_URL  =&gt; &quot;$S_PROGRAM_URL?flavor=send_email&amp;draft_role=draft&quot;,
				-Function   =&gt; 'send_email',
				-Activated  =&gt; 1,
				},

				{
				-Title      =&gt; 'Monitor',
				-Title_URL  =&gt; &quot;$S_PROGRAM_URL?flavor=sending_monitor&quot;,
				-Function   =&gt; 'sending_monitor',
				-Activated  =&gt; 1,
				},

				{
				-Title     =&gt; 'Options',
				-Title_URL =&gt; &quot;$S_PROGRAM_URL?flavor=mass_mailing_options&quot;,
				-Function  =&gt; 'mass_mailing_options',
				-Activated =&gt; 1,
				},
		]
},

{-Title      =&gt; 'Mailing List',
 -Activated  =&gt; 1,
 -Submenu    =&gt; [
				{
				-Title      =&gt; 'List Information',
				-Title_URL  =&gt; &quot;$S_PROGRAM_URL?flavor=change_info&quot;,
				-Function   =&gt; 'change_info',
				-Activated  =&gt; 1,
				},
				
				{
				-Title      =&gt; 'Privacy Policy',
				-Title_URL  =&gt; &quot;$S_PROGRAM_URL?flavor=manage_privacy_policy&quot;,
				-Function   =&gt; 'manage_privacy_policy',
				-Activated  =&gt; 0,
				},
				
				{
				-Title      =&gt; 'List Consents',
				-Title_URL  =&gt; &quot;$S_PROGRAM_URL?flavor=manage_list_consent&quot;,
				-Function   =&gt; 'manage_list_consent',
				-Activated  =&gt; 0,
				},

				{
				-Title      =&gt; 'List Password',
				-Title_URL  =&gt; &quot;$S_PROGRAM_URL?flavor=change_password&quot;,
				-Function   =&gt; 'change_password',
				-Activated  =&gt; 1,
				},

				{
				-Title      =&gt; 'Options',
				-Title_URL  =&gt; &quot;$S_PROGRAM_URL?flavor=list_options&quot;,
				-Function   =&gt; 'list_options',
				-Activated  =&gt; 1,
				},
				
			    {
                       -Title     =&gt; 'Web Services API',
                       -Title_URL =&gt; &quot;$S_PROGRAM_URL?flavor=web_services&quot;,
                       -Function  =&gt; 'web_services',
                       -Activated =&gt; 1,
                   },
            
				{
				-Title      =&gt; 'Delete This Mailing List',
				-Title_URL  =&gt; &quot;$S_PROGRAM_URL?flavor=delete_list&quot;,
				-Function   =&gt; 'delete_list',
				-Activated  =&gt; 0,
				},
		]
},

{-Title      =&gt; 'Membership',
 -Activated  =&gt; 1,
 -Submenu    =&gt; [
				{
				-Title      =&gt; 'View',
				-Title_URL  =&gt; &quot;$S_PROGRAM_URL?flavor=view_list&quot;,
				-Function   =&gt; 'view_list',
				-Activated  =&gt; 1,
				},
				
				{
				-Title      =&gt; 'Recent Activity',
				-Title_URL  =&gt; &quot;$S_PROGRAM_URL?flavor=list_activity&quot;,
				-Function   =&gt; 'list_activity',
				-Activated  =&gt; 1,
				},

				{
				-Title      =&gt; 'Invite&lt;!-- tmpl_var LT_CHAR --&gt;!-- tmpl_if list_settings.enable_mass_subscribe --&lt;!-- tmpl_var GT_CHAR --&gt;/Subscribe&lt;!-- tmpl_var LT_CHAR --&gt;!-- /tmpl_if --&lt;!-- tmpl_var GT_CHAR --&gt;/Add',
				-Title_URL  =&gt; &quot;$S_PROGRAM_URL?flavor=add&quot;,
				-Function   =&gt; 'add',
				-Activated  =&gt; 1,
				},

				{
				-Title      =&gt; 'Remove',
				-Title_URL  =&gt; &quot;$S_PROGRAM_URL?flavor=delete_email&quot;,
				-Function   =&gt; 'delete_email',
				-Activated  =&gt; 1,
				},

				{
				-Title      =&gt; 'Options', 
				-Title_URL  =&gt;  &quot;$S_PROGRAM_URL?flavor=subscription_options&quot;,
				-Function   =&gt; 'subscription_options',
				-Activated  =&gt; 0,
				},
		]
},

{
-Title      =&gt; 'Sending',
-Activated  =&gt; 1,
-Submenu    =&gt; [
			
				{
				-Title      =&gt; 'Options',
				-Title_URL  =&gt; &quot;$S_PROGRAM_URL?flavor=mail_sending_options&quot;,
				-Function   =&gt; 'mail_sending_options',
				-Activated  =&gt; 1,
				},

				{
				-Title      =&gt; 'Advanced Options',
				-Title_URL  =&gt; &quot;$S_PROGRAM_URL?flavor=mail_sending_advanced_options&quot;,
				-Function   =&gt; 'mail_sending_advanced_options',
				-Activated  =&gt; 1,
				},
				{
				-Title      =&gt; 'Mass Mailing Options',
				-Title_URL  =&gt; &quot;$S_PROGRAM_URL?flavor=mailing_sending_mass_mailing_options&quot;,
				-Function   =&gt; 'mailing_sending_mass_mailing_options',
				-Activated  =&gt; 1,
				},
		]
},

{-Title     =&gt; 'Archives',
 -Activated =&gt; 1,
 -Submenu   =&gt; [
				{
				-Title      =&gt; 'View',
				-Title_URL  =&gt; &quot;$S_PROGRAM_URL?flavor=view_archive&quot;,
				-Function   =&gt; 'view_archive',
				-Activated  =&gt; 1,
				},

				{
				-Title      =&gt; 'Options',
				-Title_URL  =&gt; &quot;$S_PROGRAM_URL?flavor=archive_options&quot;,
				-Function   =&gt; 'archive_options',
				-Activated  =&gt; 1,
				},
				
				{
				-Title      =&gt; 'Advanced Options',
				-Title_URL  =&gt; &quot;$S_PROGRAM_URL?flavor=adv_archive_options&quot;,
				-Function   =&gt; 'adv_archive_options',
				-Activated  =&gt; 1,
				},
		]
},


{-Title      =&gt; 'Appearance',
 -Activated  =&gt; 1,
 -Submenu    =&gt; [
				{
				-Title      =&gt; 'Your Mailing List Template',
				-Title_URL  =&gt; &quot;$S_PROGRAM_URL?flavor=edit_template&quot;,
				-Function   =&gt; 'edit_template',
				-Activated  =&gt; 1,
				},

				{
				-Title      =&gt; 'Email Themes',
				-Title_URL  =&gt; &quot;$S_PROGRAM_URL?flavor=email_themes&quot;,
				-Function   =&gt; 'email_themes',
				-Activated  =&gt; 1,
				},

				{
				-Title      =&gt; 'Custom Mass Mailing Layout',
				-Title_URL  =&gt; &quot;$S_PROGRAM_URL?flavor=edit_type&quot;,
				-Function   =&gt; 'edit_type',
				-Activated  =&gt; 1,
				},
				
				{
				-Title      =&gt; 'HTML Screen Templates',
				-Title_URL  =&gt; &quot;$S_PROGRAM_URL?flavor=edit_html_type&quot;,
				-Function   =&gt; 'edit_html_type',
				-Activated  =&gt; 1,
				},

				{
				-Title      =&gt; 'Subscription Form HTML',
				-Title_URL  =&gt; &quot;$S_PROGRAM_URL?flavor=html_code&quot;,
				-Function   =&gt; 'html_code',
				-Activated  =&gt; 1,
				},

				{
				-Title      =&gt; 'Create a Back Link',
				-Title_URL  =&gt; &quot;$S_PROGRAM_URL?flavor=back_link&quot;,
				-Function   =&gt; 'back_link',
				-Activated  =&gt; 1,
				},


		]
},


{
-Title     =&gt; 'Profiles',
-Activated =&gt; 1,
-Submenu   =&gt; [
			     {
			     -Title      =&gt; 'Profile Fields',
			     -Title_URL  =&gt; &quot;$S_PROGRAM_URL?flavor=profile_fields&quot;,
			     -Function   =&gt; 'profile_fields',
			     -Activated  =&gt; 1,
			     },
		]
},

{
-Title      =&gt; 'Plugins/Extensions',
-Activated  =&gt; 1,
-Submenu    =&gt; [

#					# These are plugins. Make sure you install them 
#					# if you want to use them! 

#					{
#					-Title      =&gt; 'Tracker',
#					-Title_URL  =&gt; $S_PROGRAM_URL.&quot;/plugins/tracker&quot;,
#					-Function   =&gt; 'tracker',
#					-Activated  =&gt; 1,
#					},

#					{
#					-Title      =&gt; 'Bounce Handler',
#					-Title_URL  =&gt; $S_PROGRAM_URL.&quot;/plugins/bounce_handler&quot;,
#					-Function   =&gt; 'bounce_handler',
#					-Activated  =&gt; 1,
#					},

#					{
#					-Title      =&gt; 'Bridge',
#					-Title_URL  =&gt; $S_PROGRAM_URL.&quot;/plugins/bridge&quot;,
#					-Function   =&gt; 'bridge',
#					-Activated  =&gt; 1,
#					},

#					{
#					-Title      =&gt; 'Change the Program Root Password',
#					-Title_URL  =&gt; $S_PROGRAM_URL.&quot;/plugins/change_root_password&quot;,
#					-Function   =&gt; 'change_root_password',
#					-Activated  =&gt; 0,
#					},

#					{
#					-Title      =&gt; 'Change Your List Short Name',
#					-Title_URL  =&gt; $S_PROGRAM_URL.&quot;/plugins/change_list_shortname&quot;,
#					-Function   =&gt; 'change_list_shortname',
#					-Activated  =&gt; 0,
#					},

#					{
#					-Title      =&gt; 'Password Protect Directories',
#					-Title_URL  =&gt; $S_PROGRAM_URL.&quot;/plugins/password_protect_directories&quot;,
#					-Function   =&gt; 'password_protect_directories',
#					-Activated  =&gt; 1,
#					},

#					{
#					-Title      =&gt; 'View Logs',
#					-Title_URL  =&gt; $S_PROGRAM_URL.&quot;/plugins/log_viewer&quot;,
#					-Function   =&gt; 'log_viewer',
#					-Activated  =&gt; 1,
#					},

#					{
#					-Title      =&gt; 'Screen Cache',
#					-Title_URL  =&gt; $S_PROGRAM_URL.&quot;/plugins/screen_cache&quot;,
#					-Function   =&gt; 'screen_cache',
#					-Activated  =&gt; 0,
#					},

#					{
#					-Title      =&gt; 'Global Configuration',
#					-Title_URL  =&gt; $S_PROGRAM_URL.&quot;/plugins/global_config&quot;,
#					-Function   =&gt; 'global_config',
#					-Activated  =&gt; 0,
#					},

#					{
#					-Title      =&gt; 'Boilerplate Example',
#					-Title_URL  =&gt; $S_PROGRAM_URL.&quot;/plugins/boilerplate_plugin&quot;,
#					-Function   =&gt; 'boilerplate',
#					-Activated  =&gt; 1,
#					},

#					{
#					-Title      =&gt; 'View List Settings',
#					-Title_URL  =&gt; $S_PROGRAM_URL.&quot;/plugins/view_list_settings&quot;,
#					-Function   =&gt; 'view_list_settings',
#					-Activated  =&gt; 1,
#					},

#					{
#					-Title      =&gt; 'usage_log_to_consent_activity',
#					-Title_URL  =&gt; $S_PROGRAM_URL.&quot;/plugins/usage_log_to_consent_activity&quot;,
#					-Function   =&gt; 'usage_log_to_consent_activity',
#					-Activated  =&gt; 0,
#					},

#					{
#					-Title      =&gt; 'Multiple Subscribe',
#					-Title_URL  =&gt; $EXT_URL.&quot;/multiple_subscribe.cgi&quot;,
#					-Function   =&gt; 'multiple_subscribe',
#					-Activated  =&gt; 1,
#					},

#					{
#					-Title      =&gt; 'Archive Blog Index',
#					-Title_URL  =&gt; $EXT_URL.&quot;/blog_index.cgi?mode=html&amp;list=&lt;!-- tmpl_var LT_CHAR --&gt;!-- tmpl_var list_settings.list --&lt;!-- tmpl_var GT_CHAR --&gt;&quot;,
#					-Function   =&gt; 'blog_index',
#					-Activated  =&gt; 1,
#					},

			],
		},


	{
	-Title      =&gt; '&lt;i class=&quot;fi-widget&quot;&gt;&lt;/i&gt; Control Panel Settings',
	-Activated  =&gt; 0,
	-Submenu    =&gt; [
				{
				-Title      =&gt; 'Enable/Disable Features',
				-Title_URL  =&gt; &quot;$S_PROGRAM_URL?flavor=feature_set&quot;,
				-Function   =&gt; 'feature_set',
				-Activated  =&gt; 0,
				},
				
				{
				-Title      =&gt; 'Scheduled Jobs',
				-Title_URL  =&gt; &quot;$S_PROGRAM_URL?flavor=scheduled_jobs&quot;,
				-Function   =&gt; 'scheduled_jobs',
				-Activated  =&gt; 1,
				},
				
				{
				-Title      =&gt; 'App Configuration',
				-Title_URL  =&gt; &quot;$S_PROGRAM_URL?flavor=setup_info&quot;,
				-Function   =&gt; 'setup_info',
				-Activated  =&gt; 1,
				},
				
				{
				-Title      =&gt; 'About Dada Mail',
				-Title_URL  =&gt; &quot;$S_PROGRAM_URL?flavor=manage_script&quot;,
				-Function   =&gt; 'manage_script',
				-Activated  =&gt; 1,
				},
				
			], 
	},

];

$LIST_QUOTA //= 3;
$SUBSCRIPTION_QUOTA //= 100;
$MAILOUT_AT_ONCE_LIMIT //= 1;
$MAILOUT_STALE_AFTER   //= 86400;

$EMAIL_CASE //= 'lc_all';

@EMAIL_EXCEPTIONS = qw()
  unless scalar @EMAIL_EXCEPTIONS;

$LIST_IN_ORDER //= 0;

$FILE_CHMOD //= 0644;
$DIR_CHMOD  //= 0755;

$HTML_CHARSET //= 'UTF-8';

# https://www.w3.org/International/O-charset.html
# https://www.w3.org/International/O-HTTP-charset

@CHARSETS = (
    'UTF-8	UTF-8',
    'Afrikaans (af)	 iso-8859-1',
    'Afrikaans (af)	windows-1252',
    'Albanian (sq)	 iso-8859-1',
    'Albanian (sq)	 windows-1252',
    'Arabic (ar)	iso-8859-6',
    'Basque (eu)	iso-8859-1',
    'Basque (eu)	windows-1252',
    'Bulgarian (bg)	 iso-8859-5',
    'Byelorussian (be)	 iso-8859-5',
    'Catalan (ca)	iso-8859-1',
    'Catalan (ca)	windows-1252',
    'Croatian (hr)	 iso-8859-2',
    'Czech (cs)	 iso-8859-2',
    'Danish (da)	iso-8859-1',
    'Danish (da)	windows-1252',
    'Dutch (nl)	 iso-8859-1',
    'Dutch (nl)	 windows-1252',
    'English (en)	iso-8859-1',
    'English (en)	windows-1252',
    'Esperanto (eo)	 iso-8859-3',
    'Estonian (et)	 iso-8859-15',
    'Faroese (fo)	iso-8859-1',
    'Faroese (fo)	windows-1252',
    'Finnish (fi)	iso-8859-1',
    'Finnish (fi)	windows-1252',
    'French (fr)	iso-8859-1',
    'French (fr)	windows-1252',
    'Galician (gl)	 iso-8859-1',
    'Galician (gl)	 windows-1252',
    'German (de)	iso-8859-1',
    'German (de)	windows-1252',
    'Greek (el)	 iso-8859-7',
    'Hebrew (iw)	iso-8859-8',
    'Hungarian (hu)	 iso-8859-2',
    'Icelandic (is)	 iso-8859-1',
    'Icelandic (is)	 windows-1252',
    'Inuit (Eskimo)	 iso-8859-10',
    'Irish (ga)	 iso-8859-1',
    'Irish (ga)	 windows-1252',
    'Italian (it)	iso-8859-1',
    'Italian (it)	windows-1252',
    'Japanese (ja)	 shift_jis',
    'Japanese (ja)	iso-2022-jp',
    'Japanese (ja)	 euc-jp',
    'Lapp()	iso-8859-10',
    'Latvian (lv)	iso-8859-13',
    'Latvian (lv)	windows-1257',
    'Lithuanian (lt)	iso-8859-13',
    'Lithuanian (lt)	windows-1257',
    'Macedonian (mk)	iso-8859-5',
    'Maltese (mt)	iso-8859-3',
    'Norwegian (no)	 iso-8859-1',
    'Norwegian (no)	 windows-1252',
    'Polish (pl)	iso-8859-2',
    'Portuguese (pt)	iso-8859-1',
    'Portuguese (pt)	windows-1252',
    'Romanian (ro)	 iso-8859-2',
    'Russian (ru)	koi8-r',
    'Russian (ru)	iso-8859-5',
    'Scottish (gd)	 iso-8859-1',
    'Scottish (gd)	 windows-1252',
    'Serbian (sr)	iso-8859-5',
    'Slovak (sk)	iso-8859-2',
    'Slovenian (sl)	 iso-8859-2',
    'Spanish (es)	iso-8859-1',
    'Spanish (es)	windows-1252',
    'Swedish (sv)	iso-8859-1',
    'Swedish (sv)	windows-1252',
    'Thai (th)	windows-874',
    'Turkish (tr)	iso-8859-9',
    'Turkish (tr)	windows-1254',
    'Ukrainian (uk)	 iso-8859-5'
) unless scalar @CHARSETS;

@CONTENT_TYPES = qw(
  text/plain
  text/html
  ) unless scalar @CONTENT_TYPES;

%PRIORITIES = (
    'none' =&gt; 'Do not set a, &quot;X-Priority&quot; Header.',
    5      =&gt; 'lowest',
    4      =&gt; 'low',
    3      =&gt; 'normal',
    2      =&gt; 'high',
    1      =&gt; 'highest',
) unless keys %PRIORITIES;

@CONTENT_TRANSFER_ENCODINGS = qw(
  7bit
  8bit
  quoted-printable
  base64
  binary
  ) unless scalar @CONTENT_TRANSFER_ENCODINGS;

$HTML_TEXTTOHTML_OPTIONS //= {
    escape_HTML_chars =&gt; 0,    # This will also be overridden to, 0 by Dada Mail
                               # BUT! Dada Mail will provide it's own
                               # escape_HTML_chars-like routine

};

$HTML_SCRUBBER_OPTIONS //= {
    rules   =&gt; [ 
        script =&gt; 0, 
        style  =&gt; 1, 
    ],
    default =&gt; [
        1 =&gt; {
            '*'        =&gt; 1,          # default rule, allow all attributes
            'href'     =&gt; qr{^(?!(?:java)?script)}i,
            'src'      =&gt; qr{^(?!(?:java)?script)}i,
            'cite'     =&gt; '(?i-xsm:^(?!(?:java)?script))',
            'language' =&gt; 0,
            'name'        =&gt; 1,    # could be sneaky, but hey ;)
            'onblur'      =&gt; 0,
            'onchange'    =&gt; 0,
            'onclick'     =&gt; 0,
            'ondblclick'  =&gt; 0,
            'onerror'     =&gt; 0,
            'onfocus'     =&gt; 0,
            'onkeydown'   =&gt; 0,
            'onkeypress'  =&gt; 0,
            'onkeyup'     =&gt; 0,
            'onload'      =&gt; 0,
            'onmousedown' =&gt; 0,
            'onmousemove' =&gt; 0,
            'onmouseout'  =&gt; 0,
            'onmouseover' =&gt; 0,
            'onmouseup'   =&gt; 0,
            'onreset'     =&gt; 0,
            'onselect'    =&gt; 0,
            'onsubmit'    =&gt; 0,
            'onunload'    =&gt; 0,

            #'src'        =&gt; 0, # borks images?
            'type' =&gt; 0,
        },
    ],
    deny =&gt; [
        qw(
          embed
          object
          frame
          iframe
          meta
          )
    ],
    comment =&gt; 1,
    process =&gt; 0,
};


%MIME_TYPES = (
    '.gif'  =&gt; 'image/gif',
    '.jpg'  =&gt; 'image/jpg',
    '.png'  =&gt; 'image/png',
    '.jpeg' =&gt; 'image/jpeg',

    '.pdf' =&gt; 'application/pdf',
    '.psd' =&gt; 'application/psd',

    '.html' =&gt; 'text/html',
    '.txt'  =&gt; 'text/plain',

    '.doc' =&gt; 'application/msword',
    '.xls' =&gt; 'application/x-msexcel',
    '.ppt' =&gt; 'application/x-mspowerpoint',

    '.mp3' =&gt; 'application/octet-stream',
    '.mov' =&gt; 'video/quicktime',

) unless keys %MIME_TYPES;

$DEFAULT_MIME_TYPE //= 'application/octet-stream';
$MIME_PARANOID     //= 0;
$MIME_HUSH         //= 0;
$MIME_OPTIMIZE     = undef; #noop
$MIME_TOOLS_PARAMS //= { 
	tmp_to_core    =&gt; 1, 
	tmp_dir        =&gt; 'app_default', #server_default, #app_default
};

%LIST_SETUP_DEFAULTS = (

    # Mailing List &gt;&gt; List Information
    
    list             =&gt; '',    # don't default...
    list_name        =&gt; '',
    list_owner_email =&gt; '',
    admin_email      =&gt; undef,
    info             =&gt; '',    
    privacy_policy   =&gt; '',
    physical_address =&gt; '',
        # (Dummy)
        list_info =&gt; undef,
		
	list_phone_number    =&gt; undef, 
	
	list_consent_ids     =&gt; '',

	logo_image_url       =&gt; undef,
	website_url          =&gt; undef,
	facebook_page_url    =&gt; undef,
	twitter_url          =&gt; undef,
	instagram_url        =&gt; undef,
	youtube_url          =&gt; undef, 
	whatsapp_number      =&gt; undef,
	custom_url_color     =&gt; '#666666',
	custom_url_label     =&gt; undef,
	custom_url           =&gt; undef, 
	
    # Mailing List &gt;&gt; List Password
    password         =&gt; '',      # you'll need to encrypt it to use this...
    cipher_key       =&gt; undef,

    # Mailing List &gt;&gt; Options
    private_list     =&gt; 0,
    
    #mailing list options
    mx_check                   =&gt; 0,
    closed_list                =&gt; 0,
    invite_only_list           =&gt; 0,
    show_hidden                =&gt; 0,
    hide_list                  =&gt; 0,
    show_request_removal_links =&gt; 1, 
    
	show_subscription_form     =&gt; 1, 
	
	
    # Mass Mailing Options
    mass_mailing_convert_plaintext_to_html      =&gt; 1,
    mass_mailing_block_css_to_inline_css        =&gt; 1,
	email_embed_images_as_attachments           =&gt; 1, 
	email_image_width_limit                     =&gt; 580,
	
	email_limit_message_size                    =&gt; 1, 
	email_message_size_limit                    =&gt; 10, 
	
	resize_drag_and_drop_images                 =&gt; 1,
	enable_file_attachments_in_editor           =&gt; 1,  
	email_resize_embedded_images                =&gt; 1,
	mass_mailing_remove_javascript              =&gt; 1, 
	mass_mailing_save_sent_drafts_as_stationery =&gt; 0, 
	mass_mailing_default_layout                 =&gt; undef, 
	mass_mailing_show_by_default_type           =&gt; 'html',
	mass_mailing_use_list_headers               =&gt; 1,
	mass_mailing_use_list_unsubscribe_headers   =&gt; 1, 
	
	mass_mailing_show_previews_in               =&gt; 'modal_window',
	
    #quotas
    use_subscription_quota =&gt; 0,
    subscription_quota     =&gt; 0,

    
    email_your_subscribed_msg        =&gt; 1,    # Notice the incorrect, &quot;your&quot; instead of, &quot;you're&quot; - doh!
    email_you_are_not_subscribed_msg =&gt; 0,

    send_unsub_success_email =&gt; 1,
    send_sub_success_email   =&gt; 1,

    get_sub_notice                  =&gt; 1,
    send_subscription_notice_to     =&gt; 'list_owner',
    alt_send_subscription_notice_to =&gt; '' ,

    unsub_show_email_hint             =&gt; 1,
	
	# Not used anymore -  &quot;completing_the_unsubscription&quot; should be set to, &quot;one_click_unsubscribe_no_confirm_screen&quot;
	one_click_unsubscribe             =&gt; 0,
	
	completing_the_unsubscription     =&gt; 'click_link_on_confirm_screen', 
    get_unsub_notice                  =&gt; 1,
    send_unsubscription_notice_to     =&gt; 'list_owner',
    alt_send_unsubscription_notice_to =&gt; '', 

    enable_closed_loop_opt_in                =&gt; 1,    # Closed-Loop Opt-In
	enable_captcha_on_initial_subscribe_form =&gt; 1, 
    limit_sub_confirm                        =&gt; 1,
    limit_sub_confirm_use_captcha            =&gt; 1,
	
	enable_sub_confirm_stopforumspam_protection =&gt; 0, 
	enable_sub_confirm_suspicious_activity_by_ip_protection =&gt; 1,

    use_alt_url_sub_confirm_success                  =&gt; 0,
    alt_url_sub_confirm_success                      =&gt; '',
    alt_url_sub_confirm_success_w_qs                 =&gt; 0,
	alt_url_sub_confirm_success_show_in_modal_window =&gt; 0, 

    use_alt_url_sub_confirm_failed                   =&gt; 0,
    alt_url_sub_confirm_failed_w_qs                  =&gt; 0,
    alt_url_sub_confirm_failed                       =&gt; '',
	alt_url_sub_confirm_failed_show_in_modal_window  =&gt; 0,

    use_alt_url_sub_success  =&gt; 0,
    alt_url_sub_success_w_qs =&gt; 0,
    alt_url_sub_success      =&gt; '',

    use_alt_url_sub_failed  =&gt; 0,
    alt_url_sub_failed_w_qs =&gt; 0,
    alt_url_sub_failed      =&gt; '',

    use_alt_url_unsub_success  =&gt; 0,
    alt_url_unsub_success_w_qs =&gt; 0,
    alt_url_unsub_success      =&gt; '',

    use_alt_url_subscription_approval_step  =&gt; 0,
    alt_url_subscription_approval_step      =&gt; '',
    alt_url_subscription_approval_step_w_qs =&gt; 0,

    enable_subscription_approval_step =&gt; 0,
    captcha_sub                       =&gt; 0,

    send_subscribed_by_list_owner_message   =&gt; 0,
    send_unsubscribed_by_list_owner_message =&gt; 0,

    send_last_archived_msg_mass_mailing =&gt; 0,

    send_admin_unsubscription_notice        =&gt; 0, 
    send_admin_unsubscription_notice_to     =&gt; 'list_owner', 
    alt_send_admin_unsubscription_notice_to =&gt; '', 


    # SMTP Options

    smtp_server =&gt; undef,
    smtp_port   =&gt; 25,

    use_smtp_ssl        =&gt; 0,
	smtp_starttls       =&gt; 0, 
	smtp_ssl_verify_mode =&gt; 0, 
    set_smtp_sender =&gt; 1,
    use_sasl_smtp_auth  =&gt; 0,
    sasl_auth_mechanism =&gt; 'AUTO',
    sasl_smtp_username  =&gt; undef,
    sasl_smtp_password  =&gt; undef,

    smtp_max_messages_per_connection =&gt; undef,

    # Sending Options

    # Enable Batch Sending
    enable_bulk_batching =&gt; 1,

    # adjust_batch_sleep_time
    adjust_batch_sleep_time =&gt; 1,

    # Receive Finishing Message
    get_finished_notification =&gt; 1,

    # Send: [x] message(s) per batch
    mass_send_amount =&gt; 1,

    # and then wait: [x] seconds, before the next
    bulk_sleep_amount =&gt; 8,

    # Auto-Pickup Dropped Mass Mailings
    auto_pickup_dropped_mailings =&gt; 1,

    # sendmail, smtp, amazon_ses
    sending_method =&gt; 'sendmail',

    # Send a copy to the List Owner
    mass_mailing_send_to_list_owner =&gt; 1,
	mass_mailing_save_logs          =&gt; 0,

    amazon_ses_auto_batch_settings  =&gt; 1,

    # For mass mailings, connect only once per batch?
    # 0 = no
    # 1 = yes!
    smtp_connection_per_batch =&gt; 0,

    # adv sending options

    precedence =&gt; undef,
    charset    =&gt; 'UTF-8	UTF-8',

    # (Dummy)
    charset_value =&gt; 'UTF-8',
    priority      =&gt; 3,

    plaintext_encoding                     =&gt; 'quoted-printable',
    html_encoding                          =&gt; 'quoted-printable',
    add_sendmail_f_flag                    =&gt; 1,
    verp_return_path                       =&gt; 0,

    # view list prefs

    view_list_subscriber_number            =&gt; 100,
    view_list_show_timestamp_col           =&gt; 1, 
	view_list_show_sub_confirm_list        =&gt; 1, 
	view_list_enable_delete_all_button     =&gt; 0,
    view_list_order_by                     =&gt; 'timestamp', 
    view_list_order_by_direction           =&gt; 'DESC', 

    # add list prefs
    use_add_list_import_limit              =&gt; 1, 
    add_list_import_limit                  =&gt; 5000, 
    allow_profile_editing =&gt; 0, 
    
    # archive prefs

    archive_messages                       =&gt; 1,
    show_archives                          =&gt; 1,
    archives_available_only_to_subscribers =&gt; 0,
    archive_subscribe_form                 =&gt; 1,
    archive_search_form                    =&gt; 1,
    captcha_archive_send_form              =&gt; 0,
    archive_send_form                      =&gt; 0,
    send_newest_archive                    =&gt; 0,
                                          
    archive_show_second                    =&gt; 0,
    archive_show_hour_and_minute           =&gt; 0,
    archive_show_month                     =&gt; 1,
    archive_show_day                       =&gt; 1,
    archive_show_year                      =&gt; 1,
    archive_index_count                    =&gt; 10,
                                          
    sort_archives_in_reverse              =&gt; 1,
    disable_archive_js                    =&gt; 1,
    style_quoted_archive_text             =&gt; 1,
    publish_archives_rss                  =&gt; 1,
    ping_archives_rss                     =&gt; 0,
    html_archives_in_iframe               =&gt; 0,
    display_attachments                   =&gt; 1,
    add_subscribe_form_to_feeds           =&gt; 1,
    add_social_bookmarking_badges         =&gt; 1,
	
	archive_auto_remove                   =&gt; 0,
	archive_auto_remove_after_timespan    =&gt; '1y', 

    # Can be set to, &quot;none&quot;,&quot;break&quot;, &quot;spam_me_not&quot;
    archive_protect_email =&gt; 'break',

    enable_gravatars     =&gt; 0,
    default_gravatar_url =&gt; undef,

    # archive editing prefs

    editable_headers =&gt; 'Subject',

    #blacklist
    black_list                           =&gt; 1,
    add_unsubs_to_black_list             =&gt; 1,
    allow_blacklisted_to_subscribe       =&gt; 1,
    allow_admin_to_subscribe_blacklisted =&gt; 0,

    # White List Prefs
    enable_white_list =&gt; 0,
	
	# Testers List Prefs
	enable_test_list               =&gt; 0,
	enable_test_list_address_limit =&gt; 1, 
	test_list_address_limit        =&gt; 10, 
	
    # List Invite Prefs

    invites_check_for_already_invited                =&gt; 1,
    invites_prohibit_reinvites                       =&gt; 1,
	invites_show_profile_fields_in_subscription_form =&gt; 0,


	email_theme_name =&gt; undef, 
    #  Mailing List Template Prefs

    get_template_data =&gt; 'from_default_template',
    url_template      =&gt; '',

    mailing_list_message_from_phrase =&gt; '&lt;!-- tmpl_var list_settings.list_name --&gt;', 
    mailing_list_message_to_phrase   =&gt; '&lt;!-- tmpl_var list_settings.list_name --&gt; Subscriber',
    mailing_list_message_subject     =&gt; '&lt;!-- tmpl_var list_settings.list_name --&gt; Message',
    mailing_list_message_html        =&gt; qq{&lt;!-- tmpl_var message_body --&gt;\n\n&lt;p&gt;&lt;strong&gt;&lt;a href=&quot;&lt;!-- tmpl_var list_unsubscribe_link --&gt;&quot;&gt;Unsubscribe Automatically &amp;#187;&lt;/a&gt;&lt;/strong&gt;&lt;/p&gt;},
    mailing_list_message             =&gt; qq{&lt;!-- tmpl_var message_body --&gt;\n\nUnsubscribe Automatically:\n&lt;!-- tmpl_var list_unsubscribe_link --&gt;},
	
	
    # Create a Back Link prefs
    back_link_website_name =&gt; '',
    back_link_website_url  =&gt; '',

    #SQL stuff

    # I don't think this is honored...
    # Don't change.
    subscription_table =&gt; 'dada_subscribers',

    # Not used?
    hard_remove =&gt; 1,

    # Not used?
    merge_fields =&gt; '',

    fallback_field_values =&gt; '',

    # HTML Screen Templates

    html_confirmation_message         =&gt; undef,
    html_subscribed_message           =&gt; undef,
    html_unsubscribed_message         =&gt; undef,
    html_subscription_request_message =&gt; undef,

    # Features
    admin_menu               =&gt; undef,
    disabled_screen_view     =&gt; 'hide',
	list_control_panel_style =&gt; 'top_bar',

    # List CP -&gt; Options

    use_wysiwyg_editor                      =&gt; 'ckeditor',
    enable_mass_subscribe                   =&gt; 1,
    enable_mass_subscribe_only_w_root_login =&gt; 1,

    # Send me the list password.
    pass_auth_id =&gt; undef,

### Plugins

    # Bridge Plugin:

    group_list                     =&gt; 0,
#	group_list_pp_mode             =&gt; 1, 
	group_list_pp_mode_from_phrase =&gt; '&lt;!-- tmpl_var original_from_phrase default=&quot;Subscriber&quot; --&gt; &lt;!-- tmpl_var subscriber.email --&gt; [&lt;!-- tmpl_var list_settings.list_name --&gt;]',  
	                                    
    open_discussion_list =&gt; 0,

    discussion_template_defang   =&gt; 1,
    only_allow_group_plain_text  =&gt; 0,
    mail_group_message_to_poster =&gt; 1,
    prefix_list_name_to_subject  =&gt; 1,
    no_prefix_list_name_to_subject_in_archives =&gt; 1,

	bridge_mention_original_sender =&gt; 1, 
    set_to_header_to_list_address        =&gt; 0,
    prefix_discussion_list_subjects_with =&gt; 'list_shortname',
    send_received_msg                    =&gt; 1, 
    send_msgs_to_list                    =&gt; 1,
    disable_discussion_sending           =&gt; 1,
    mail_discussion_message_to_poster    =&gt; 1,

    ignore_spam_messages                =&gt; 0,
    find_spam_assassin_score_by         =&gt; 'looking_for_embedded_headers',
    ignore_spam_messages_with_status_of =&gt; 6,
    rejected_spam_messages              =&gt; 'ignore_spam',

    enable_moderation              =&gt; 0,
    moderate_discussion_lists_with =&gt; 'list_owner_email',
	bridge_use_moderation_for      =&gt; 'everyone',
	bridge_recently_added_subscribers_timeframe =&gt; '1',
    send_moderation_msg            =&gt; 0,
    send_moderation_accepted_msg   =&gt; 0,
    send_moderation_rejection_msg  =&gt; 0,
	bridge_auto_reject_awaiting_moderation_messages           =&gt; 1, 
	bridge_auto_reject_awaiting_moderation_messages_timeframe =&gt; 1, 


    send_msg_copy_address          =&gt; '',


    enable_authorized_sending        =&gt; 0,

    authorized_sending_no_moderation =&gt; 0,
    subscriber_sending_no_moderation =&gt; 0,

    strip_file_attachments    =&gt; 0,
    file_attachments_to_strip =&gt; '',
    discussion_pop_server     =&gt; '',
	discussion_pop_port       =&gt; 'AUTO',
    discussion_pop_username   =&gt; '',
    discussion_pop_email      =&gt; '',
    bridge_list_email_type    =&gt; 'pop3_account',
    discussion_pop_password   =&gt; '',

    discussion_pop_auth_mode       =&gt; 'POP',
    discussion_pop_use_ssl         =&gt; 0,
	discussion_pop_starttls        =&gt;  0,
	discussion_pop_ssl_verify_mode =&gt; 0, 

    bridge_announce_reply_to                      =&gt; 'none', 
	bridge_announce_reply_to_custom_email_address =&gt; undef, 
    send_not_allowed_to_post_msg                  =&gt; 1,
    send_invalid_msgs_to_owner                    =&gt; 1,
    send_msg_copy_to                              =&gt; 0,
    rewrite_anounce_from_header                   =&gt; 1,
	announce_from_header_allowed_domains          =&gt; '',

    msg_soft_size_limit      =&gt; 5242880, 
    msg_hard_size_limit      =&gt; 7340032, 

    digest_enable               =&gt; 0, 
    digest_schedule             =&gt; 86400, 
    digest_last_archive_id_sent =&gt; undef, 
	
	delivery_prefs_set_default =&gt; 0, 
	delivery_prefs_default     =&gt; 'individual',
	
	bridge_send_internal_problem_to_list_owner =&gt; 1, 
	
	
    # Tracker
    tracker_record_view_count                       =&gt; 5,
    tracker_auto_parse_links                        =&gt; 1,
    tracker_auto_parse_mailto_links                 =&gt; 0,
    tracker_track_opens_method                      =&gt; 'directly',
    tracker_track_email                             =&gt; 0,
	tracker_track_anonymously                       =&gt; 1, 
	tracker_show_location_data                      =&gt; 1,
	tracker_show_maps_in_reports                    =&gt; 1,
    tracker_clean_up_reports                        =&gt; 1,
    tracker_show_message_reports_in_mailing_monitor =&gt; 0,

	tracker_protect_tracked_links_from_prefetching  =&gt; 1, 
    tracker_update_profiles_w_geo_ip_data           =&gt; 0,
    tracker_update_profile_fields_ip_dada_meta      =&gt; undef, 

	tracker_send_analytics_email_notification       =&gt; 1, 
	tracker_data_auto_remove                        =&gt; 0,
	tracker_data_auto_remove_after_timespan         =&gt; '1y', 

    #	tracker_enable_data_cache                           =&gt; 1,
    #	tracker_dada_cache_expires                          =&gt; 1, # in hours

    # Bounce Handler

    bounce_handler_threshold_score                         =&gt; 10,
    bounce_handler_hardbounce_score                        =&gt; 4,
    bounce_handler_softbounce_score                        =&gt; 1,
    bounce_handler_decay_score                             =&gt; 1,
    bounce_handler_forward_msgs_to_list_owner              =&gt; 0,
	bounce_handler_forward_abuse_report_msgs_to_list_owner =&gt; 1, 
	bounce_handler_send_unsub_notification                 =&gt; 0, 
    bounce_handler_when_threshold_reached                  =&gt; 'move_to_bounced_sublist',
	
	enable_ignore_bounces_list                             =&gt; 0, 
        
    public_api_key   =&gt;  undef, 
    private_api_key  =&gt; undef, 
    
    
    schedule_last_checked_time =&gt; undef, 

    scheduled_jobs_last_ran =&gt; undef, 

) unless keys %LIST_SETUP_DEFAULTS;

%LIST_SETUP_INCLUDE = ()
  unless keys %LIST_SETUP_INCLUDE;

%LIST_SETUP_DEFAULTS = ( %LIST_SETUP_DEFAULTS, %LIST_SETUP_INCLUDE );

%LIST_SETUP_OVERRIDES = ()
  unless keys %LIST_SETUP_OVERRIDES;

@LIST_SETUP_DONT_CLONE = qw(

  list
  list_name
  info
  list_info
  list_owner_email
  privacy_policy
  physical_address
  password
  
  list_consent_ids

  bridge_list_email_type

  disable_discussion_sending
  discussion_pop_server
  discussion_pop_username
  discussion_pop_email
  discussion_pop_password
  discussion_pop_auth_mode
  discussion_pop_use_ssl

)  unless scalar @LIST_SETUP_DONT_CLONE;
 
$OS //= $^O;

$NULL_DEVICE //= '/dev/null';

srand( time() ^ ( $$ + ( $$ &lt;&lt; 15 ) ) );

$FIRST_SUB //= 0;
$SEC_SUB   //= 2;

@C = ( 'a' .. 'z', 'A' .. 'Z', '0' .. '9', '.' );
$SALT = $C[ rand(@C) ] . $C[ rand(@C) ];

$ENABLE_CSRF_PROTECTION //= 1; 

# Pick a word. It really doesn't matter what the word is - a longer
# word doesn't necessarily mean a better pin number.

if ( !defined($PIN_WORD) ) {
    $PIN_WORD =
      ( $ROOT_PASS_IS_ENCRYPTED == 1 ) ? ($PROGRAM_ROOT_PASSWORD) : ('dada');
}

# Pick a number. I would keep it between 1 and 9.
$PIN_NUM //= unpack( &quot;%32C*&quot;, $FILES );

$TEXT_CSV_PARAMS //= {
    binary              =&gt; 1,
  #  allow_loose_escapes =&gt; 1,
    always_quote        =&gt; 1,
  #  auto_diag           =&gt; 1,
};

BEGIN { @AnyDBM_File::ISA = qw(DB_File GDBM_File) }


# I don't believe this does anything, and should be removed: 
$ATTACHMENT_TEMPFILE //= 0;


$MAIL_VERP_SEPARATOR //= '-';


$VERSION = 11.22.0;
$VER = 'v11.22.0 stable 2023-09-18';

#
#
#
#####################################################################

$PROGRAM_NAME //= &quot;Dada Mail&quot;;

%EMAIL_HEADERS = (

    Date                        =&gt; undef,
    From                        =&gt; undef,
    To                          =&gt; undef,
    Cc                          =&gt; undef,
    Bcc                         =&gt; undef,
    Sender                      =&gt; undef,
    'Return-Path'               =&gt; undef,
    'Reply-To'                  =&gt; undef,
    'In-Reply-To'               =&gt; undef,
    References                  =&gt; undef,
    'X-Priority'                =&gt; undef,
    'X-Original-From'           =&gt; undef,
    'Content-Base'              =&gt; undef,
    List                        =&gt; undef,
    'List-Archive'              =&gt; undef,
    'List-Digest'               =&gt; undef,
    'List-Help'                 =&gt; undef,
    'List-ID'                   =&gt; undef,
    'List-Owner'                =&gt; undef,
    'List-Post'                 =&gt; undef,
    'List-Subscribe'            =&gt; undef,
    'List-Unsubscribe'          =&gt; undef,
    'List-Unsubscribe'          =&gt; undef,
	'List-Unsubscribe-Post'     =&gt; undef, 
    'List-URL'                  =&gt; undef,
    'X-BeenThere'               =&gt; undef,
	'X-Beenthere'               =&gt; undef,
    'Message-ID'                =&gt; undef,
    'Precedence'                =&gt; 'list',
    'X-Mailer'                  =&gt; &quot;$PROGRAM_NAME $VER &quot;,
    'X-Cc'                      =&gt; undef,
    'Content-type'              =&gt; undef,
    'Content-Transfer-Encoding' =&gt; undef,
    'Content-Disposition'       =&gt; undef,
    'MIME-Version'              =&gt; undef,
    Subject                     =&gt; '(no subject)',
	'X-Preheader'               =&gt; undef,
    Body                        =&gt; 'blank',
) unless keys %EMAIL_HEADERS;


@EMAIL_HEADERS_ORDER = qw(
  Date
  From
  To
  Cc
  Bcc
  Sender
  Return-Path
  Reply-To
  In-Reply-To
  References
  X-Priority
  X-Original-From
  
  Precedence

  List
  X-List
  List-Archive
  List-Digest
  List-Help
  List-ID
  List-Owner
  List-Post
  List-Subscribe
  List-Unsubscribe
  List-Unsubscribe-Post
  List-URL
  X-BeenThere
  X-Beenthere
  
  X-Message-ID
  Message-ID

  X-Mailer
  X-Cc

  Content-type
  Content-Transfer-Encoding
  Content-Disposition
  Content-Base

  MIME-Version
  X-Preheader
  Subject
  ) unless scalar @EMAIL_HEADERS_ORDER;
  

$LIST_HEADERS //= { 
	'Precedence'                =&gt; undef,
	'List'                      =&gt; undef,
	'List-Archive'              =&gt; undef,
	'List-Digest'               =&gt; undef,
	'List-Help'                 =&gt; undef,
	'List-ID'                   =&gt; undef,
	'List-Owner'                =&gt; undef,
	'List-Post'                 =&gt; undef,
	'List-Subscribe'            =&gt; undef,
	'List-Unsubscribe'          =&gt; undef,
	'List-Unsubscribe'          =&gt; undef,
	'List-Unsubscribe-Post'     =&gt; undef, 
	'List-URL'                  =&gt; undef,
	'X-Mailer'                  =&gt; undef, 
};
  

######################################################################

# https://dadamailproject.com/purchase/pro.html
#
#
#
#

$GIVE_PROPS_IN_EMAIL //= 1;
$GIVE_PROPS_IN_HTML //= 1;
$GIVE_PROPS_IN_ADMIN //= 1;
$GIVE_PROPS_IN_SUBSCRIBE_FORM //= 1;
$PROGRAM_IMG_FILENAME //= 'dada_mail_logo.png';
##########################################

#

# my $imported_config = 0; 
sub _config_import {

#	if ($imported_config == 1){
#		warn 'skipping opening .dada_config - already imported.'; 
#		return; 
#	}	
#	else { 
#		warn 'opening .dada_config' ; 
#	}


# There's no user-servicable parts in the subroutine, so don't make any changes,
# unless you're customizing Dada Mail or debugging something interesting.
#
    if ( exists( $ENV{NO_DADA_MAIL_CONFIG_IMPORT} ) ) {
        if ( $ENV{NO_DADA_MAIL_CONFIG_IMPORT} == 1 ) {
            return;
        }
    }

    # Keep this as, 'https://www.changetoyoursite.com/cgi-bin/dada/mail.cgi'
    # What we're doing is, seeing if you've actually changed the variable from
    # it's default, and if not, we take a best guess.

    my $CONFIG_FILE_DIR = undef;

    if ( defined($OS) !~ m/^Win|^MSWin/i ) {
        my $getpwuid_call;
        my $good_getpwuid;
        eval { $getpwuid_call = ( getpwuid $&gt; )[7]; };
        if ( !$@ ) {
            $good_getpwuid = $getpwuid_call;
        }
        if ( $PROGRAM_CONFIG_FILE_DIR eq 'auto' ) {
			$good_getpwuid =~ s/\/$//; 
            $CONFIG_FILE_DIR = $good_getpwuid . '/.dada_files/.configs';
        }
        else {
            $CONFIG_FILE_DIR = $PROGRAM_CONFIG_FILE_DIR;
        }
    }

    $CONFIG_FILE = $CONFIG_FILE_DIR . '/.dada_config';

    # yes, shooting yourself in the foot, RTM
    $CONFIG_FILE =~ /(.*)/;
    $CONFIG_FILE = $1;

    if ( -e $CONFIG_FILE &amp;&amp; -f $CONFIG_FILE &amp;&amp; -s $CONFIG_FILE ) {
        open( CONFIG, '&lt;:encoding(UTF-8)', $CONFIG_FILE )
          or warn
          &quot;could not open outside config file, '$CONFIG_FILE' because: $!&quot;;
        my $conf;
        $conf = do { local $/; &lt;CONFIG&gt; };

        # shooting again,
        $conf =~ m/(.*)/ms;
        $conf = $1;
        eval $conf;
        if ($@) {
            die
&quot;$PROGRAM_NAME $VER ERROR - Outside config file '$CONFIG_FILE' contains errors:\n\n$@\n\n&quot;;
        }
        if ( $PROGRAM_CONFIG_FILE_DIR eq 'auto' ) {
            if ( !defined $PROGRAM_ERROR_LOG ) {
                $PROGRAM_ERROR_LOG = $LOGS . '/errors.txt';
                open( STDERR, &quot;&gt;&gt;$PROGRAM_ERROR_LOG&quot; )
                  || warn
&quot;$PROGRAM_NAME Error: Cannot redirect STDERR, it's possible that Dada Mail does not have write permissions to this file ($PROGRAM_ERROR_LOG) or it doesn't exist! If Dada Mail cannot make this file for you, create it yourself and give it enough permissions so it may write to it: $!&quot;;
            }
        }
    }

    if ( $PROGRAM_URL eq
        'https://www.changetoyoursite.com/cgi-bin/dada/mail.cgi' )
    {
        require CGI;
        $PROGRAM_URL = CGI::url();
    }

   # I really DO NOT think this is the place to massage Config variables if they
   # aren't set right, but it will save people headaches, in the long run:

    my %default_table_names = (
        subscriber_table                   =&gt; 'dada_subscribers',
        profile_table                      =&gt; 'dada_profiles',
        profile_fields_table               =&gt; 'dada_profile_fields',
        profile_fields_attributes_table    =&gt; 'dada_profile_fields_attributes',
        profile_settings_table             =&gt; 'dada_profile_settings',
        archives_table                     =&gt; 'dada_archives',
        settings_table                     =&gt; 'dada_settings',
        session_table                      =&gt; 'dada_sessions',
        bounce_scores_table                =&gt; 'dada_bounce_scores',
        clickthrough_urls_table            =&gt; 'dada_clickthrough_urls',
        clickthrough_url_log_table         =&gt; 'dada_clickthrough_url_log',
        mass_mailing_event_log_table       =&gt; 'dada_mass_mailing_event_log',
        password_protect_directories_table =&gt; 'dada_password_protect_directories',
        confirmation_tokens_table          =&gt; 'dada_confirmation_tokens',
		message_drafts_table               =&gt; 'dada_message_drafts', 
		rate_limit_hits_table              =&gt; 'dada_rate_limit_hits',
		email_message_previews_table       =&gt; 'dada_email_message_previews',
		
		privacy_policies_table             =&gt; 'dada_privacy_policies',
		consents_table                     =&gt; 'dada_consents',
		consent_activity_table             =&gt; 'dada_consent_activity',
		
		simple_auth_str_table              =&gt; 'dada_simple_auth_str',
		
		dbtype =&gt; 'SQLite',
		database =&gt; 'dadamail',
        
		
    );
    for ( keys %default_table_names ) {
        if ( !exists( $SQL_PARAMS{$_} ) ) {
            $SQL_PARAMS{$_} = $default_table_names{$_};
        }
    }

}

=pod

=head1 COPYRIGHT

Copyright (c) 1999 - 2023 Justin Simoni All rights reserved. 

This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or (at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.

=cut

# Don't remove the '1'. It lives here at the bottom. It likes it there.

1;

__END__
</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fvar%2Fsoftaculous%2Fdada'>Back to Directory</a>