olksdr

Keybase proof

I hereby claim:

• I am olksdr on github.
• I am olksdr (https://keybase.io/olksdr) on keybase.
• I have a public key ASAxbiWvhOSFPG0PNQIKUbJ0ctFVjdjrJ483qpBYKnwqggo

To claim this, I am signing this object:

olksdr

QUEUEID (?:[A-F0-9]+|NOQUEUE)
EMAILADDRESSPART [a-zA-Z0-9_.+-=:]+
EMAILADDRESS %{EMAILADDRESSPART:local}@%{EMAILADDRESSPART:remote}
RELAY (?:%{HOSTNAME:relayhost}(?:\[%{IP:relayip}\](?::[0-9]+(.[0-9]+)?)?)?)
POSREAL [0-9]+(.[0-9]+)?
DELAYS (%{POSREAL}[/]*)+
DSN %{NONNEGINT}.%{NONNEGINT}.%{NONNEGINT}
STATUS sent|deferred|bounced|expired
PERMERROR 5[0-9]{2}
MESSAGELEVEL reject|warning|error|fatal|panic

olksdr

#!/bin/bash

mail=$1

exec 3<>/dev/tcp/e3qa2-pmta1/25

echo -ne "helo example.com\r\n" >&3
echo -ne "mail from: test@example.com\r\n" >&3
echo -ne "rcpt to: $mail\r\n" >&3
echo -ne "data\r\n" >&3

olksdr

#!/usr/bin/env perl

use strict;
use warnings;
use 5.016;

use IO::Uncompress::Bunzip2 qw(bunzip2 $Bunzip2Error);


while(<>) {

olksdr

#!/usr/bin/env perl

use feature qw(say);
use strict;
use warnings;
use utf8;
use 5.16.0;

use IO::Handle;
use IO::Uncompress::Bunzip2 qw(bunzip2 $Bunzip2Error);