Category: Uncategorized

Encode/decode SMTP AUTH username/passwords

March 20, 2009

When using SMTP AUTH, the username and password are base64 encoded. Here’s a snip of perl that will encode a string:

perl -MMIME::Base64 -e 'print encode_base64("username");'

1	perl -MMIME::Base64 -e 'print encode_base64("username");'

This will produce something like this:

dXNlcm5hbWU=

1	dXNlcm5hbWU=

And here’s the decode:

perl -MMIME::Base64 -e 'print decode_base64("dXNlcm5hbWU=");'

1	perl -MMIME::Base64 -e 'print decode_base64("dXNlcm5hbWU=");'

which of course yields:

username

username

Change ZimbraMon Disk Thresholds

March 8, 2009

Edit the file at:

/opt/zimbra/libexec/zmdisklog

1 2	/opt/zimbra/libexec/zmdisklog

Look for these lines:

my $DISK_CRIT_THRESHOLD = 90;
my $DISK_WARN_THRESHOLD = 80;

my $DISK_CRIT_THRESHOLD = 90;

my $DISK_WARN_THRESHOLD = 80;

Change them as desired to give different warning/critical levels. In one case that we worked on, the server had multiple partitions. We wanted different thresholds on each partition which was accomplished with the following patch:

--- zmdisklog.orig      2009-03-08 15:10:26.000000000 -0400
+++ zmdisklog   2009-03-08 15:13:21.000000000 -0400
@@ -77,8 +77,12 @@
                my (undef, $total, $used, $avail) = split(/\s+/, $df[0]);
     my $pct=int(($used/$total)*100) if ($total > 0);
     my $lvl = "info";
+if ($dev eq "/dev/sdb1") {
+    $lvl = "err" if ($pct > 95);
+} else {
     $lvl = "err" if ($pct > $DISK_WARN_THRESHOLD);
     $lvl = "crit" if ($pct > $DISK_CRIT_THRESHOLD);
+};
     if ($lvl eq "info") {
                  Zimbra::Mon::Logger::Log( "$lvl", "$dt, DISK: ${hostname}: dev: $dev, mp: $mp, tot: $total, avail: $avail" );
     } else {

--- zmdisklog.orig 2009-03-08 15:10:26.000000000 -0400

+++ zmdisklog 2009-03-08 15:13:21.000000000 -0400

@@ -77,8 +77,12 @@

my (undef, $total, $used, $avail) = split(/\s+/, $df[0]);

my $pct=int(($used/$total)*100) if ($total > 0);

my $lvl = "info";

+if ($dev eq "/dev/sdb1") {

+ $lvl = "err" if ($pct > 95);

+} else {

$lvl = "err" if ($pct > $DISK_WARN_THRESHOLD);

$lvl = "crit" if ($pct > $DISK_CRIT_THRESHOLD);

+};

if ($lvl eq "info") {

Zimbra::Mon::Logger::Log( "$lvl", "$dt, DISK: ${hostname}: dev: $dev, mp: $mp, tot: $total, avail: $avail" );

} else {

Perl – Sorting multi-diminsional arrays

March 2, 2009

To numerically sort @myarray by the second column do this:

@myarray = sort { $a->[1] <=> $b->[1] } @myarray;

1	@myarray = sort { $a->[1] <=> $b->[1] } @myarray;

Here is an alpha sort of @myarray on the third column:

@myarray = sort { $a->[2] cmp $b->[2] } @myarray;

1	@myarray = sort { $a->[2] cmp $b->[2] } @myarray;

Reliable Penguin provides managed web hosting, systems administration, website and server migrations, and expert consulting.

Recent Updates

Fixing WP‑CLI “eval()’d code” Parse Errors on PHP 8.4 During “wp db import”

Force a 404 With a CloudFront Function (Always)

HTTP Basic Auth Is Dead

WordPress 6.8 Speculative Loading Can Break HTTP Basic Auth

Zero‑Trust for WordPress Admin with Cloudflare Access (Email One‑Time Codes)

Category: Uncategorized

Encode/decode SMTP AUTH username/passwords

Change ZimbraMon Disk Thresholds

Perl – Sorting multi-diminsional arrays

Recent Updates

Categories

Get a free consultation from Reliable Penguin