IP : 3.22.74.103Hostname : host45.registrar-servers.comKernel : Linux host45.registrar-servers.com 4.18.0-513.18.1.lve.2.el8.x86_64 #1 SMP Sat Mar 30 15:36:11 UTC 2024 x86_64Disable Function : None :) OS : Linux
PATH:
/
home/
../
var/
softaculous/
peel/
../
redax/
../
typo47/
../
unmark/
../
dada/
Config.pm/
/
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. # #----------------------------------------------------------------------------#
# Keep this next bit as-is; it's just opening the error file for writing. if ( $PROGRAM_ERROR_LOG && (!$ENV{NO_DADA_MAIL_CONFIG_IMPORT}) ) { open( STDERR, ">>$PROGRAM_ERROR_LOG" ) || warn "$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: $!"; }
# this only works if you have autocommit => 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 => 'connect_cached',
# UTF-8
# MySQL specific attribute: # mysql_enable_utf8 => 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 => 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 < 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 => 1,
# 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 => 0,
# HTML::Template, used for generating HTML screens # More information: # https://search.cpan.org/~samtregar/HTML-Template/Template.pm
HTML_TEMPLATE => 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 => 0,
# Net::SMTP, used for sending messages via SMTP: # more information: # https://search.cpan.org/~gbarr/libnet/Net/SMTP.pm
# 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:
$HTML_TEXTTOHTML_OPTIONS //= { escape_HTML_chars => 0, # This will also be overridden to, 0 by Dada Mail # BUT! Dada Mail will provide it's own # escape_HTML_chars-like routine
# 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.
# yes, shooting yourself in the foot, RTM $CONFIG_FILE =~ /(.*)/; $CONFIG_FILE = $1;
if ( -e $CONFIG_FILE && -f $CONFIG_FILE && -s $CONFIG_FILE ) { open( CONFIG, '<:encoding(UTF-8)', $CONFIG_FILE ) or warn "could not open outside config file, '$CONFIG_FILE' because: $!"; my $conf; $conf = do { local $/; <CONFIG> };
# shooting again, $conf =~ m/(.*)/ms; $conf = $1; eval $conf; if ($@) { die "$PROGRAM_NAME $VER ERROR - Outside config file '$CONFIG_FILE' contains errors:\n\n$@\n\n"; } if ( $PROGRAM_CONFIG_FILE_DIR eq 'auto' ) { if ( !defined $PROGRAM_ERROR_LOG ) { $PROGRAM_ERROR_LOG = $LOGS . '/errors.txt'; open( STDERR, ">>$PROGRAM_ERROR_LOG" ) || warn "$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: $!"; } } }
); 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.