Running this yields:#!/usr/bin/perl -w use strict; use DNS::ZoneFile; my ($ORIGIN,$NEW_ZONE); my $zone=DNS::ZoneFile->new( "../named.master.conf/_dnsmaster", ZONE_ORIGIN=>$ORIGIN, NEW_ZONE=>$NEW_ZONE, ); $zone->printZone( "example.com" );
> perl Fetchzones.pl Useless use of private variable in void context at /usr/local/lib/perl +5/site_perl/5.6.1/DNS/ZoneFile.pm line 115. Use of implicit split to @_ is deprecated at /usr/local/lib/perl5/site +_perl/5.6.1/DNS/ZoneFile.pm line 220. Use of implicit split to @_ is deprecated at /usr/local/lib/perl5/site +_perl/5.6.1/DNS/ZoneFile.pm line 240. Use of implicit split to @_ is deprecated at /usr/local/lib/perl5/site +_perl/5.6.1/DNS/ZoneFile.pm line 260. Explicit blessing to '' (assuming package main) at /usr/local/lib/perl +5/site_perl/5.6.1/DNS/ZoneFile.pm line 133. Can't locate object method "readZoneFile" via package "main" (perhaps +you forgot to load "main"?) at /usr/local/lib/perl5/site_perl/5.6.1/D +NS/ZoneFile.pm line 139.
Not sure how to interpret this error message...
What I'm trying to accomplish is to make a script to read a bind 8 named.conf file and tell me the filename for each master zone.
~~
naChoZ
In reply to DNS::ZoneFile by naChoZ
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |