scripts

misc scripts and tools
git clone git://git.2f30.org/scripts.git
Log | Files | Refs

commit 2df23367f35c571d640b92c4c16082c056065df1
parent 7bc9f56e4446e3906886964cf83bfd8ea061bba7
Author: sin <sin@2f30.org>
Date:   Fri Apr 21 11:22:13 +0100

Add fetch-spf script

Diffstat:
fetch-spf | 44++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 44 insertions(+), 0 deletions(-)

diff --git a/fetch-spf b/fetch-spf @@ -0,0 +1,44 @@ +#!/usr/bin/perl +# +# Copyright (c) 2016 Reyk Floeter <reyk@openbsd.org> +# +# Permission to use, copy, modify, and distribute this software for any +# purpose with or without fee is hereby granted, provided that the above +# copyright notice and this permission notice appear in all copies. +# +# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES +# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF +# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR +# ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES +# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN +# ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF +# OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. + +$domain = shift @ARGV or die "usage: $0 domain"; + +sub parsespf +{ + my $domain = shift; + my @foo = `nslookup -q=TXT $domain`; + my @results = (); + + foreach (@foo) { + next if not /$domain\ttext/; + next if not s/$domain\ttext = "v=spf1([^"]+)"/$1/; + + @results = split /\s+/; + foreach (@results) { + next if /.all/; + if (s/^ip[46]://) { + print "$_\n"; + } elsif (s/^(redirect|include)[:=]//) { + print "\n#$_\n"; + parsespf($_); + } + } + } +} + +parsespf($domain); + +0;