Return to sp.pl CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / ipsec-tools / src / racoon / contrib

Annotation of embedaddon/ipsec-tools/src/racoon/contrib/sp.pl, revision 1.1

1.1     ! misho       1: #! /usr/pkg/bin/perl
        !             2: 
        !             3: die "insufficient arguments" if (scalar(@ARGV) < 2);
        !             4: $src = $ARGV[0];
        !             5: $dst = $ARGV[1];
        !             6: $mode = 'transport';
        !             7: if (scalar(@ARGV) > 2) {
        !             8:        $mode = $ARGV[2];
        !             9: }
        !            10: 
        !            11: open(OUT, "|setkey -c");
        !            12: if ($mode eq 'transport') {
        !            13:        print STDERR "install esp transport mode: $src -> $dst\n";
        !            14:        print OUT "spdadd $src $dst any -P out ipsec esp/transport//require;\n";
        !            15:        print OUT "spdadd $dst $src any -P in ipsec esp/transport//require;\n";
        !            16: } elsif ($mode eq 'delete') {
        !            17:        print STDERR "delete policy: $src -> $dst\n";
        !            18:        print OUT "spddelete $src $dst any -P out;\n";
        !            19:        print OUT "spddelete $dst $src any -P in;\n";
        !            20: }
        !            21: close(OUT);