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:
itojun 2000-07-18 23:32:19 +00:00
parent 6a202d75eb
commit 4941457b0a
1 changed files with 3 additions and 3 deletions

View File

@ -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;