smeserver-sme9admin/contribs9/smeserver-sme9admin-1.5.bz7683-stop-on-mysql-error.patch

diff -Nur smeserver-sme9admin-1.5.old/root/usr/bin/sme9admind smeserver-sme9admin-1.5/root/usr/bin/sme9admind
--- smeserver-sme9admin-1.5.old/root/usr/bin/sme9admind 2014-12-24 01:41:01.000000000 -0500
+++ smeserver-sme9admin-1.5/root/usr/bin/sme9admind     2016-11-23 16:46:55.638000000 -0500
@@ -1021,10 +1021,17 @@
 #rewritten
 sub execute_sql_query {
     my ($requete)=(@_);
-    my $rq=$bd->prepare("$requete");
-    my $rslt=$rq->execute(); 
-    print "RQT MySQL : $requete , Reslt : $rslt/$!\n";
-    return $rslt;
+    if (defined ($bd)) {
+       my $rq=$bd->prepare("$requete") or 
+               warn "MYSQL error $DBI::errstr\n";
+       my $rslt=$rq->execute() or 
+               warn "MYSQL error $DBI::errstr\n"; 
+       print "RQT MySQL : $requete , Reslt : $rslt/$!\n";
+       return $rslt;
+       }
+        else
+        { print "mysql : no active connection to MySQL\n"; return 0;}
+
 }
 
 sub samba_status {
1	jpp	1.1	diff -Nur smeserver-sme9admin-1.5.old/root/usr/bin/sme9admind smeserver-sme9admin-1.5/root/usr/bin/sme9admind
2			--- smeserver-sme9admin-1.5.old/root/usr/bin/sme9admind 2014-12-24 01:41:01.000000000 -0500
3			+++ smeserver-sme9admin-1.5/root/usr/bin/sme9admind 2016-11-23 16:46:55.638000000 -0500
4			@@ -1021,10 +1021,17 @@
5			#rewritten
6			sub execute_sql_query {
7			my ($requete)=(@_);
8			- my $rq=$bd->prepare("$requete");
9			- my $rslt=$rq->execute();
10			- print "RQT MySQL : $requete , Reslt : $rslt/$!\n";
11			- return $rslt;
12			+ if (defined ($bd)) {
13			+ my $rq=$bd->prepare("$requete") or
14			+ warn "MYSQL error $DBI::errstr\n";
15			+ my $rslt=$rq->execute() or
16			+ warn "MYSQL error $DBI::errstr\n";
17			+ print "RQT MySQL : $requete , Reslt : $rslt/$!\n";
18			+ return $rslt;
19			+ }
20			+ else
21	jpp	1.2	+ { print "mysql : no active connection to MySQL\n"; return 0;}
22	jpp	1.1	+
23			}
24
25			sub samba_status {