← Back to branch summary

~ubuntu-branches/debian/sid/shorewall/sid

« back to all changes in this revision

Viewing changes to Perl/Shorewall/Tc.pm

  • Committer: Package Import Robot
  • Author(s): Roberto C. Sanchez
  • Date: 2013-09-24 19:17:20 UTC
  • mfrom: (1.3.53)
  • Revision ID: package-import@ubuntu.com-20130924191720-zn2nxs9sjn117ypr
Tags: 4.5.20-1
http://bugs.debian.org/712282
http://bugs.debian.org/686909
* New Upstream Version (Closes: #712282, #686909)
* Update to Standards-Version 3.9.4 (no changes)

Show diffs side-by-side

added added

removed removed

Lines of Context:
Perl/Shorewall/Tc.pm
40
40
our @ISA = qw(Exporter);
41
41
our @EXPORT = qw( process_tc setup_tc );
42
42
our @EXPORT_OK = qw( process_tc_rule initialize );
43
 
our $VERSION = '4.5_16';
 
43
our $VERSION = '4.5_19';
44
44
 
45
45
my  %tcs = ( T => { chain  => 'tcpost',
46
46
                    connmark => 0,
458
458
                                                  if ( $ip =~ /^\[(.+)\]$/ || $ip =~ /^<(.+)>$/ ) {
459
459
                                                      $ip = $1;
460
460
                                                  } elsif ( $ip =~ /^\[(.+)\]\/(\d+)$/ ) {
461
 
                                                      $ip = join( $1, $2 );
 
461
                                                      $ip = join( '/', $1, $2 );
462
462
                                                  }
463
463
                                              }
464
464
 
551
551
                                           assert ( $cmd eq 'INLINE' );
552
552
                                           $matches = get_inline_matches;
553
553
 
554
 
                                           if ( $matches =~ /^(.*\s+)-j\s+(.+)$/ ) {
 
554
                                           if ( $matches =~ /^(.*\s+)-j\s+(.+) $/ ) {
555
555
                                               $matches = $1;
556
556
                                               $target  = $2;
 
557
                                           } else {
 
558
                                               $target = '';
557
559
                                           }
558
560
 
559
561
                                           $cmd = '';
2444
2446
    if ( ( $state ||= '' ) ne '' ) {
2445
2447
        my $state1;
2446
2448
        fatal_error "Invalid STATE ( $state )" unless $state1 = $state{$state};
2447
 
        $state = "$globals{STATEMATCH} $state1 ";
 
2449
        $state = state_match( $state1 );
2448
2450
    }
2449
2451
 
2450
2452
    my $target = $secmark eq 'SAVE'    ? 'CONNSECMARK --save' :