salutu nur se ni havas pasvorton

wdiestel · wdiestel · commit f7d7250caf80 · 2024-11-15T22:18:22.000+01:00
diff --git a/bin/mailsender.pm b/bin/mailsender.pm
@@ -44,12 +44,14 @@ sub smtp_connect {
             }
 
             #$smtps->auth($setup->{user}, $setup->{password}) 
-            my $authzd = $smtps->auth($sasl);
-            unless ($authzd) {
-                #print "SASL: ",Dumper($sasl);
-                die "Saluto al retpoŝtilo malsukcesis!";
+            if ($setup->{password}) {
+                my $authzd = $smtps->auth($sasl);
+                unless ($authzd) {
+                    #print "SASL: ",Dumper($sasl);
+                    die "Saluto al retpoŝtilo malsukcesis!";
+                }
+                #print "SASL: ",Dumper($sasl) if ($debug);
             }
-            #print "SASL: ",Dumper($sasl) if ($debug);
             return $smtps;
         }
     } else {

Original file line number	Diff line number	Diff line change
`@@ -44,12 +44,14 @@ sub smtp_connect {`
`44`	`44`	`}`
`45`	`45`
`46`	`46`	`#$smtps->auth($setup->{user}, $setup->{password})`
`47`		`- my $authzd = $smtps->auth($sasl);`
`48`		`- unless ($authzd) {`
`49`		`- #print "SASL: ",Dumper($sasl);`
`50`		`- die "Saluto al retpoŝtilo malsukcesis!";`
	`47`	`+ if ($setup->{password}) {`
	`48`	`+ my $authzd = $smtps->auth($sasl);`
	`49`	`+ unless ($authzd) {`
	`50`	`+ #print "SASL: ",Dumper($sasl);`
	`51`	`+ die "Saluto al retpoŝtilo malsukcesis!";`
	`52`	`+ }`
	`53`	`+ #print "SASL: ",Dumper($sasl) if ($debug);`
`51`	`54`	`}`
`52`		`- #print "SASL: ",Dumper($sasl) if ($debug);`
`53`	`55`	`return $smtps;`
`54`	`56`	`}`
`55`	`57`	`} else {`