Return to scriptdump.pl CVS log

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

Annotation of embedaddon/ipsec-tools/src/setkey/scriptdump.pl, revision 1.1.1.1

1.1       misho       1: #! @LOCALPREFIX@/bin/perl
                      2: 
                      3: if ($< != 0) {
                      4:        print STDERR "must be root to invoke this\n";
                      5:        exit 1;
                      6: }
                      7: 
                      8: $mode = 'add';
                      9: while ($i = shift @ARGV) {
                     10:        if ($i eq '-d') {
                     11:                $mode = 'delete';
                     12:        } else {
                     13:                print STDERR "usage: scriptdump [-d]\n";
                     14:                exit 1;
                     15:        }
                     16: }
                     17: 
                     18: open(IN, "setkey -D |") || die;
                     19: foreach $_ (<IN>) {
                     20:        if (/^[^\t]/) {
                     21:                ($src, $dst) = split(/\s+/, $_);
                     22:        } elsif (/^\t(esp|ah) mode=(\S+) spi=(\d+).*reqid=(\d+)/) {
                     23:                ($proto, $ipsecmode, $spi, $reqid) = ($1, $2, $3, $4);
                     24:        } elsif (/^\tE: (\S+) (.*)/) {
                     25:                $ealgo = $1;
                     26:                $ekey = $2;
                     27:                $ekey =~ s/\s//g;
                     28:                $ekey =~ s/^/0x/g;
                     29:        } elsif (/^\tA: (\S+) (.*)/) {
                     30:                $aalgo = $1;
                     31:                $akey = $2;
                     32:                $akey =~ s/\s//g;
                     33:                $akey =~ s/^/0x/g;
                     34:        } elsif (/^\tseq=(0x\d+) replay=(\d+) flags=(0x\d+) state=/) {
                     35:                print "$mode $src $dst $proto $spi";
                     36:                $replay = $2;
                     37:                print " -u $reqid" if $reqid;
                     38:                if ($mode eq 'add') {
                     39:                        print " -m $ipsecmode -r $replay" if $replay;
                     40:                        if ($proto eq 'esp') {
                     41:                                print " -E $ealgo $ekey" if $ealgo;
                     42:                                print " -A $aalgo $akey" if $aalgo;
                     43:                        } elsif ($proto eq 'ah') {
                     44:                                print " -A $aalgo $akey" if $aalgo;
                     45:                        }
                     46:                } 
                     47:                print ";\n";
                     48: 
                     49:                $src = $dst = $upper = $proxy = '';
                     50:                $ealgo = $ekey = $aalgo = $akey = '';
                     51:        }
                     52: }
                     53: close(IN);
                     54: 
                     55: exit 0;