Added META.{yml,json} files
authorMichael Rash <mbr@cipherdyne.org>
Wed, 29 Feb 2012 02:38:51 +0000 (21:38 -0500)
committerMichael Rash <mbr@cipherdyne.org>
Wed, 29 Feb 2012 02:38:51 +0000 (21:38 -0500)
- Added META.{yml,json} files similarly to fixing this bug filed against
  IPTables::Parse:
    https://rt.cpan.org/Ticket/Display.html?id=75366
- Minor bug fix to ensure not to look for 'extended' hash keys in returned
  IPTables::Parse data without an existence check first.
- Added the ability to specify 'ip6tables' when instantiating an
  IPTables::ChainMgr object via 'new'.
- Updated license to the Artistic license.

Changes
lib/IPTables/Parse.pm
t/basic_tests.pl

diff --git a/Changes b/Changes
index 46505b7..54a4bb8 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,12 @@
 Revision history for Perl extension IPTables::Parse.
 
+1.0 Tue Feb 28 21:45:19 2012
+    - Added META.{yml,json} files to fix this bug:
+        https://rt.cpan.org/Ticket/Display.html?id=75366
+    - Added the ability to specify 'ip6tables' when instantiating an
+      IPTables::ChainMgr object via 'new'.
+    - Updated license to the Artistic license.
+
 0.9 Sun Feb 26 21:01:45 2012
     - Applied slightly modified patch from SSIMON to properly pick up usage of
       state tracking in rule extended information as shown in this bug:
index d24340b..33dd973 100644 (file)
@@ -28,7 +28,7 @@ sub new() {
     my %args  = @_;
 
     my $self = {
-        _iptables => $args{'iptables'} || '/sbin/iptables',
+        _iptables => $args{'iptables'} || $args{'ip6tables'} || '/sbin/iptables',
         _iptout    => $args{'iptout'}    || '/tmp/ipt.out',
         _ipterr    => $args{'ipterr'}    || '/tmp/ipt.err',
         _ipt_alarm => $args{'ipt_alarm'} || 30,
@@ -822,6 +822,11 @@ The latest version of the IPTables::Parse extension can be found at:
 
 http://www.cipherdyne.org/modules/
 
+Source control is provided by git:
+
+http://www.cipherdyne.org/git/IPTables-Parse.git
+http://www.cipherdyne.org/cgi-bin/gitweb.cgi?p=IPTables-Parse.git;a=summary
+
 =head1 CREDITS
 
 Thanks to the following people:
@@ -837,10 +842,14 @@ this address if there are any questions, comments, or bug reports.
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2005-2012 by Michael Rash
+Copyright (C) 2005-2012 Michael Rash.  All rights reserved.
+
+This module is free software.  You can redistribute it and/or
+modify it under the terms of the Artistic License 2.0.  More information
+can be found here: http://www.perl.com/perl/misc/Artistic.html
 
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself, either Perl version 5.8.5 or,
-at your option, any later version of Perl 5 you may have available.
+This program is distributed "as is" in the hope that it will be useful,
+but without any warranty; without even the implied warranty of
+merchantability or fitness for a particular purpose.
 
 =cut
index e63aa62..16d4e37 100755 (executable)
@@ -73,7 +73,7 @@ sub ip6tables_tests() {
 
     &logr("\n[+] Running $ip6tables_bin tests...\n");
     my %opts = (
-        'iptables' => $ip6tables_bin,
+        'ip6tables' => $ip6tables_bin,
         'iptout'   => '/tmp/ip6tables.out',
         'ipterr'   => '/tmp/ip6tables.err',
         'debug'    => 0,