Changeset 214

Timestamp:

10/24/09 23:44:29 (4 years ago)

Author:

jabra

Message:

recon zone transfer fix

Files:

• FierceParser/trunk/examples/recon.pl (modified) (1 diff)

FierceParser/trunk/examples/recon.pl

@@ -34 +34 @@
                 print "\tIP:" . "\t\t" . $i->ip . "\n";
                 print "\tZone Transfer:" . "\t";
-                ( scalar(grep($i->hostname eq $_->name_server, @{ $zone_transfers->result } )) == 1 ) ? print "Enabled\n" : print "Disabled\n";
-
-                if  ( scalar(grep($i->hostname eq $_->name_server, @{ $zone_transfers->result } )) == 1 ) { 
-                    print "\tZone Trasfer Result:" . "\t";
-                    foreach(@{ $zone_transfers->result} )  { print "\t\t" . $_->output . "\n"; }
+                foreach ( @{ $zone_transfers->result } ) {
+                    if ($i->hostname eq $_->name_server ) {
+                        if ($_->bool == 1) {
+                            print "Enabled\n";
+                        }
+                        else {
+                            print "Disabled\n";
+                        }
+                    }
                 }
-
             }   
             print "\n";