X-Git-Url: http://git.jankratochvil.net/?p=PerlMail.git;a=blobdiff_plain;f=perlmail-submit;h=4711b746d33c0084fbe36f2fcc936a0576cb0555;hp=d01bc39860cdd09c91475063fd8bb6ec2c60e6dd;hb=3cbaf4bbe1fe5f3b9f520e057ad8ef7c4d92d9c3;hpb=130d4621a51128a582392422074bb8954a78c254

diff --git a/perlmail-submit b/perlmail-submit
index d01bc39..4711b74 100755
--- a/perlmail-submit
+++ b/perlmail-submit
@@ -38,6 +38,9 @@ use POSIX qw(mktime);
 use Fcntl qw(:flock);
 
 
+my $DBI_CACHE=0;	# Cache DBI requests - may cause: MySQL server has gone away
+
+
 open DBI_PWD,$DBI_pwd or die "open \"$DBI_pwd\": $!";
 $DBI_pwd=<DBI_PWD>;
 close DBI_PWD or warn "close DBI_pwd: $!";
@@ -46,7 +49,7 @@ chomp $DBI_pwd;
 my $DBI;
 sub DBI
 {
-	return $DBI if $DBI;
+	return $DBI if $DBI_CACHE && $DBI;
 	$DBI=DBI->connect("DBI:mysql:database=$DBI_database;host=","$DBI_user",$DBI_pwd,{
 		"PrintError"=>0,	# handled by "RaiseError" below
 		"RaiseError"=>1,