DNS Resolver
I had a list of domains that needed their MX records updated. I first wanted to make sure that our DNS servers were authoritative for those zones. I used Perl and the Net::DNS CPAN module to figure out the NS records for each domain. [text] #!/usr/bin/perl use Net::DNS; my $resolver = Net::DNS::Resolver->new; my $query = […]
Tcl version of ucfirst
The load balancers we use at work have a TCL command line interface. A co-worker needed a TCL function written that would take a string as input and return the string transformed so that the first letter was upper case and the rest were lower case. There is a built in string function called toupper […]