Changeset 215

Timestamp:

10/25/09 00:30:18 (4 years ago)

Author:

jabra

Message:

docs updated for the release.

Location:

FierceParser/trunk

Files:

• Changes.txt (deleted)
• MANIFEST (modified) (1 diff)
• lib/Fierce/Parser.pod (modified) (4 diffs)

FierceParser/trunk/MANIFEST

@@ -1 +1 @@
 README
 Makefile.PL
-Changes.txt
 AUTHORS
 MANIFEST

FierceParser/trunk/lib/Fierce/Parser.pod

@@ -7 +7 @@
 =head1 VERSION
 
-This document describes Fierce::Parser version 1.00
+This document describes Fierce::Parser version 0.01
 
 =head1 SYNOPSIS
@@ -59 +59 @@
 
 The main idea behind the core modules is, you will first parse the scan data
-then extract the information. Therefore, you should run parse_file or
-parse_scan then the you can use any of the get_* methods.
+then extract the information. Therefore, you should run parse_file then you can use any of the subroutines.
 
 =over 4
@@ -231 +230 @@
      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 ($i_->bool == 1) {
+                print "Enabled\n";
+                print "\n\tZone Trasfer Result:" . "\t";
+                print "\t\t" . $_->output  . "\n";
+             }
+             else {
+                 print "Disabled\n";
+             }
+         }
+      }
  } 
 
@@ -542 +546 @@
                 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 ($i_->bool == 1) {
+                            print "Enabled\n";
+                            print "\n\tZone Trasfer Result:" . "\t";
+                            print "\t\t" . $_->output  . "\n";
+                        }
+                        else {
+                            print "Disabled\n";
+                    }
                 }
-
             }   
             print "\n";