Skip to content

Instantly share code, notes, and snippets.

@mattpascoe
mattpascoe / ip2name.pl
Last active September 14, 2020 00:09
Simple perl script to do inline reverse DNS lookups of IPs. It processes stdin.. so just 'cat somefile | ./ip2name.pl'
#!/usr/bin/perl
# TODO: make command line options possible use $endline as selector
###$endline=true;
# TODO: allow a comment character in the mode that prints at the end of a line. user passable comment character.
# TODO: make it work with ipv6.. for now its ipv4 only
use Socket;
my %dnscache;
@mattpascoe
mattpascoe / list.txt
Last active February 2, 2020 00:50
Starwars list in progress
- Rancor Monster: ($100)
- Loose in box, NO paperwork, original outer box
- Ewok Village: ($120)
- Complete parts, instruction sheet, loose NO BOX
- Micro Collection Bespin Freeze Chamber: ($80)
- Complete parts, instruction sheet, original outer box
- Patrol Dewback: ($110)
- Figure, Saddle, special eddition original outer box, harness is broken, no documentation
- AST-5 Vehicle: ($60)
- Vehicle, instruction and sticker sheet, original outer box
@mattpascoe
mattpascoe / bindparse.awk
Created August 29, 2022 21:09
Parse bind zone files to produce dcm.pl output.
#!/usr/bin/awk -f
#
# Author: Matt Pascoe - matt@opennetadmin.com
#
# This awk script is used to extract relevant information from a bind zone
# file and build the appropriate fields for passing into
# a dcm.pl module. This can be used to bootstrap a new database from existing
# site data.
#
# You can simply cat a file and pipe it to this script