Changeset 139


Ignore:
Timestamp:
08/02/2009 11:01:45 AM (4 years ago)
Author:
deity
Message:

Closing off stuff for #22

Location:
trunk
Files:
1 added
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/docs/CHANGES.txt

    r138 r139  
    112009-08-02 plugin/nikto_multiple_index db_multiple_index 
    22        - Added check for multiple index files for request #16 
     3        - Turned standard headers into a database file to close off #22 
    342009-08-01 plugin/* nikto.pl 
    45        - Fixes for xml reporter to allow multiple hosts 
  • trunk/plugins/nikto_headers.plugin

    r130 r139  
    4141{ 
    4242   my ($mark)=@_;  
     43   my $dbarray = initialise_db("db_headers"); 
    4344   my @interesting_headers = qw /microsoftofficewebserver ms-author-via dasl dav daap-server/; 
    4445   # Standard headers, whisker is added to stop false positives 
    45    my @standard_headers = qw /accept accept-charset accept-encoding accept-language accept-ranges age allow authorization cache-control connection content-encoding content-language content-length content-location content-md5 content-range content-type date etag expect expires from host if-match if-modified-since if-none-match if-range if-unmodified-since last-modified location max-forwards pragma proxy-authenticate proxy-authorization range referer retry-after server te trailer transfer-encoding upgrade user-agent vary via warning www-authenticate whisker/; 
    4646   # Host Pragma 
    4747 
     
    144144   ####################################################################### 
    145145   # All other interesting headers 
     146    
     147   # First let's hit something we know should return something 
     148   my ($res, $content)=fetch("/","GET"); 
     149 
    146150   foreach my $header (@interesting_headers) 
    147151   { 
     
    161165      my $found = 0; 
    162166      my $reportnum = 999100; 
    163       foreach my $st_header (@standard_headers) 
    164       { 
    165          if ($header eq $st_header) 
     167      foreach my $st_header (@$dbarray) 
     168      { 
     169         if ($header eq $st_header->{header}) 
    166170         { 
    167171            $found=1; 
Note: See TracChangeset for help on using the changeset viewer.