sync with the current usage. from kame.
note th at the file will not be installed into locations like /usr/sibn or /sbin.
This commit is contained in:
parent
6a202d75eb
commit
4941457b0a
|
@ -1,6 +1,6 @@
|
|||
#! @LOCALPREFIX@/bin/perl
|
||||
#
|
||||
# $NetBSD: scriptdump.pl,v 1.1 2000/06/13 15:15:26 itojun Exp $
|
||||
# $NetBSD: scriptdump.pl,v 1.2 2000/07/18 23:32:19 itojun Exp $
|
||||
#
|
||||
|
||||
if ($< != 0) {
|
||||
|
@ -35,11 +35,11 @@ foreach $_ (<IN>) {
|
|||
$akey =~ s/\s//g;
|
||||
$akey =~ s/^/0x/g;
|
||||
} elsif (/^\treplay=(\d+) flags=(0x\d+) state=/) {
|
||||
print "$mode $src $dst $proto $spi -m $ipsecmode";
|
||||
print "$mode $src $dst $proto $spi";
|
||||
$replay = $1;
|
||||
print " -u $reqid" if $reqid;
|
||||
if ($mode eq 'add') {
|
||||
print " -r $replay" if $replay;
|
||||
print " -m $ipsecmode -r $replay" if $replay;
|
||||
if ($proto eq 'esp') {
|
||||
print " -E $ealgo $ekey" if $ealgo;
|
||||
print " -A $aalgo $akey" if $aalgo;
|
||||
|
|
Loading…
Reference in New Issue