[thirdparty/openssl.git] / test / cms-examples.pl

#! /usr/bin/env perl
# Copyright 2008-2016 The OpenSSL Project Authors. All Rights Reserved.
#
# Licensed under the Apache License 2.0 (the "License").  You may not use
# this file except in compliance with the License.  You can obtain a copy
# in the file LICENSE in the source distribution or at
# https://www.openssl.org/source/license.html

# Perl script to run tests against S/MIME examples in RFC4134
# Assumes RFC is in current directory and called "rfc4134.txt"

use MIME::Base64;

my $badttest = 0;
my $verbose  = 1;

my $cmscmd;
my $exdir  = "./";
my $exfile = "./rfc4134.txt";

if (-f "../apps/openssl")
	{
	$cmscmd = "../util/shlib_wrap.sh ../apps/openssl cms";
	}
elsif (-f "..\\out32dll\\openssl.exe")
	{
	$cmscmd = "..\\out32dll\\openssl.exe cms";
	}
elsif (-f "..\\out32\\openssl.exe")
	{
	$cmscmd = "..\\out32\\openssl.exe cms";
	}

my @test_list = (
    [ "3.1.bin"  => "dataout" ],
    [ "3.2.bin"  => "encode, dataout" ],
    [ "4.1.bin"  => "encode, verifyder, cont, dss" ],
    [ "4.2.bin"  => "encode, verifyder, cont, rsa" ],
    [ "4.3.bin"  => "encode, verifyder, cont_extern, dss" ],
    [ "4.4.bin"  => "encode, verifyder, cont, dss" ],
    [ "4.5.bin"  => "verifyder, cont, rsa" ],
    [ "4.6.bin"  => "encode, verifyder, cont, dss" ],
    [ "4.7.bin"  => "encode, verifyder, cont, dss" ],
    [ "4.8.eml"  => "verifymime, dss" ],
    [ "4.9.eml"  => "verifymime, dss" ],
    [ "4.10.bin" => "encode, verifyder, cont, dss" ],
    [ "4.11.bin" => "encode, certsout" ],
    [ "5.1.bin"  => "encode, envelopeder, cont" ],
    [ "5.2.bin"  => "encode, envelopeder, cont" ],
    [ "5.3.eml"  => "envelopemime, cont" ],
    [ "6.0.bin"  => "encode, digest, cont" ],
    [ "7.1.bin"  => "encode, encrypted, cont" ],
    [ "7.2.bin"  => "encode, encrypted, cont" ]
);

# Extract examples from RFC4134 text.
# Base64 decode all examples, certificates and
# private keys are converted to PEM format.

my ( $filename, $data );

my @cleanup = ( "cms.out", "cms.err", "tmp.der", "tmp.txt" );

$data = "";

open( IN, $exfile ) || die "Can't Open RFC examples file $exfile";

while (<IN>) {
    next unless (/^\|/);
    s/^\|//;
    next if (/^\*/);
    if (/^>(.*)$/) {
        $filename = $1;
        next;
    }
    if (/^</) {
        $filename = "$exdir/$filename";
        if ( $filename =~ /\.bin$/ || $filename =~ /\.eml$/ ) {
            $data = decode_base64($data);
            open OUT, ">$filename";
            binmode OUT;
            print OUT $data;
            close OUT;
            push @cleanup, $filename;
        }
        elsif ( $filename =~ /\.cer$/ ) {
            write_pem( $filename, "CERTIFICATE", $data );
        }
        elsif ( $filename =~ /\.pri$/ ) {
            write_pem( $filename, "PRIVATE KEY", $data );
        }
        $data     = "";
        $filename = "";
    }
    else {
        $data .= $_;
    }

}

my $secretkey =
  "73:7c:79:1f:25:ea:d0:e0:46:29:25:43:52:f7:dc:62:91:e5:cb:26:91:7a:da:32";

foreach (@test_list) {
    my ( $file, $tlist ) = @$_;
    print "Example file $file:\n";
    if ( $tlist =~ /encode/ ) {
        run_reencode_test( $exdir, $file );
    }
    if ( $tlist =~ /certsout/ ) {
        run_certsout_test( $exdir, $file );
    }
    if ( $tlist =~ /dataout/ ) {
        run_dataout_test( $exdir, $file );
    }
    if ( $tlist =~ /verify/ ) {
        run_verify_test( $exdir, $tlist, $file );
    }
    if ( $tlist =~ /digest/ ) {
        run_digest_test( $exdir, $tlist, $file );
    }
    if ( $tlist =~ /encrypted/ ) {
        run_encrypted_test( $exdir, $tlist, $file, $secretkey );
    }
    if ( $tlist =~ /envelope/ ) {
        run_envelope_test( $exdir, $tlist, $file );
    }

}

foreach (@cleanup) {
    unlink $_;
}

if ($badtest) {
    print "\n$badtest TESTS FAILED!!\n";
}
else {
    print "\n***All tests successful***\n";
}

sub write_pem {
    my ( $filename, $str, $data ) = @_;

    $filename =~ s/\.[^.]*$/.pem/;

    push @cleanup, $filename;

    open OUT, ">$filename";

    print OUT "-----BEGIN $str-----\n";
    print OUT $data;
    print OUT "-----END $str-----\n";

    close OUT;
}

sub run_reencode_test {
    my ( $cmsdir, $tfile ) = @_;
    unlink "tmp.der";

    system( "$cmscmd -cmsout -inform DER -outform DER"
          . " -in $cmsdir/$tfile -out tmp.der" );

    if ($?) {
        print "\tReencode command FAILED!!\n";
        $badtest++;
    }
    elsif ( !cmp_files( "$cmsdir/$tfile", "tmp.der" ) ) {
        print "\tReencode FAILED!!\n";
        $badtest++;
    }
    else {
        print "\tReencode passed\n" if $verbose;
    }
}

sub run_certsout_test {
    my ( $cmsdir, $tfile ) = @_;
    unlink "tmp.der";
    unlink "tmp.pem";

    system( "$cmscmd -cmsout -inform DER -certsout tmp.pem"
          . " -in $cmsdir/$tfile -out tmp.der" );

    if ($?) {
        print "\tCertificate output command FAILED!!\n";
        $badtest++;
    }
    else {
        print "\tCertificate output passed\n" if $verbose;
    }
}

sub run_dataout_test {
    my ( $cmsdir, $tfile ) = @_;
    unlink "tmp.txt";

    system(
        "$cmscmd -data_out -inform DER" . " -in $cmsdir/$tfile -out tmp.txt" );

    if ($?) {
        print "\tDataout command FAILED!!\n";
        $badtest++;
    }
    elsif ( !cmp_files( "$cmsdir/ExContent.bin", "tmp.txt" ) ) {
        print "\tDataout compare FAILED!!\n";
        $badtest++;
    }
    else {
        print "\tDataout passed\n" if $verbose;
    }
}

sub run_verify_test {
    my ( $cmsdir, $tlist, $tfile ) = @_;
    unlink "tmp.txt";

    $form   = "DER"                     if $tlist =~ /verifyder/;
    $form   = "SMIME"                   if $tlist =~ /verifymime/;
    $cafile = "$cmsdir/CarlDSSSelf.pem" if $tlist =~ /dss/;
    $cafile = "$cmsdir/CarlRSASelf.pem" if $tlist =~ /rsa/;

    $cmd =
        "$cmscmd -verify -inform $form"
      . " -CAfile $cafile"
      . " -in $cmsdir/$tfile -out tmp.txt";

    $cmd .= " -content $cmsdir/ExContent.bin" if $tlist =~ /cont_extern/;

    system("$cmd 2>cms.err 1>cms.out");

    if ($?) {
        print "\tVerify command FAILED!!\n";
        $badtest++;
    }
    elsif ( $tlist =~ /cont/
        && !cmp_files( "$cmsdir/ExContent.bin", "tmp.txt" ) )
    {
        print "\tVerify content compare FAILED!!\n";
        $badtest++;
    }
    else {
        print "\tVerify passed\n" if $verbose;
    }
}

sub run_envelope_test {
    my ( $cmsdir, $tlist, $tfile ) = @_;
    unlink "tmp.txt";

    $form = "DER"   if $tlist =~ /envelopeder/;
    $form = "SMIME" if $tlist =~ /envelopemime/;

    $cmd =
        "$cmscmd -decrypt -inform $form"
      . " -recip $cmsdir/BobRSASignByCarl.pem"
      . " -inkey $cmsdir/BobPrivRSAEncrypt.pem"
      . " -in $cmsdir/$tfile -out tmp.txt";

    system("$cmd 2>cms.err 1>cms.out");

    if ($?) {
        print "\tDecrypt command FAILED!!\n";
        $badtest++;
    }
    elsif ( $tlist =~ /cont/
        && !cmp_files( "$cmsdir/ExContent.bin", "tmp.txt" ) )
    {
        print "\tDecrypt content compare FAILED!!\n";
        $badtest++;
    }
    else {
        print "\tDecrypt passed\n" if $verbose;
    }
}

sub run_digest_test {
    my ( $cmsdir, $tlist, $tfile ) = @_;
    unlink "tmp.txt";

    my $cmd =
      "$cmscmd -digest_verify -inform DER" . " -in $cmsdir/$tfile -out tmp.txt";

    system("$cmd 2>cms.err 1>cms.out");

    if ($?) {
        print "\tDigest verify command FAILED!!\n";
        $badtest++;
    }
    elsif ( $tlist =~ /cont/
        && !cmp_files( "$cmsdir/ExContent.bin", "tmp.txt" ) )
    {
        print "\tDigest verify content compare FAILED!!\n";
        $badtest++;
    }
    else {
        print "\tDigest verify passed\n" if $verbose;
    }
}

sub run_encrypted_test {
    my ( $cmsdir, $tlist, $tfile, $key ) = @_;
    unlink "tmp.txt";

    system( "$cmscmd -EncryptedData_decrypt -inform DER"
          . " -secretkey $key"
          . " -in $cmsdir/$tfile -out tmp.txt" );

    if ($?) {
        print "\tEncrypted Data command FAILED!!\n";
        $badtest++;
    }
    elsif ( $tlist =~ /cont/
        && !cmp_files( "$cmsdir/ExContent.bin", "tmp.txt" ) )
    {
        print "\tEncrypted Data content compare FAILED!!\n";
        $badtest++;
    }
    else {
        print "\tEncryptedData verify passed\n" if $verbose;
    }
}

sub cmp_files {
    my ( $f1, $f2 ) = @_;
    my ( $fp1, $fp2 );

    my ( $rd1, $rd2 );

    if ( !open( $fp1, "<$f1" ) ) {
        print STDERR "Can't Open file $f1\n";
        return 0;
    }

    if ( !open( $fp2, "<$f2" ) ) {
        print STDERR "Can't Open file $f2\n";
        return 0;
    }

    binmode $fp1;
    binmode $fp2;

    my $ret = 0;

    for ( ; ; ) {
        $n1 = sysread $fp1, $rd1, 4096;
        $n2 = sysread $fp2, $rd2, 4096;
        last if ( $n1 != $n2 );
        last if ( $rd1 ne $rd2 );

        if ( $n1 == 0 ) {
            $ret = 1;
            last;
        }

    }

    close $fp1;
    close $fp2;

    return $ret;

}
Commit	Line	Data
e0a65194 RS	1	#! /usr/bin/env perl
e0a65194 RS	2	# Copyright 2008-2016 The OpenSSL Project Authors. All Rights Reserved.
a329fdde	3	#
909f1a2e	4	# Licensed under the Apache License 2.0 (the "License"). You may not use
e0a65194 RS	5	# this file except in compliance with the License. You can obtain a copy
	6	# in the file LICENSE in the source distribution or at
	7	# https://www.openssl.org/source/license.html
a329fdde DSH	8
a329fdde DSH	9	# Perl script to run tests against S/MIME examples in RFC4134
d7c738a0 DSH	10	# Assumes RFC is in current directory and called "rfc4134.txt"
	11
	12	use MIME::Base64;
a329fdde DSH	13
a329fdde DSH	14	my $badttest = 0;
d7c738a0	15	my $verbose = 1;
a329fdde	16
3667a6f5	17	my $cmscmd;
d7c738a0 DSH	18	my $exdir = "./";
d7c738a0 DSH	19	my $exfile = "./rfc4134.txt";
a329fdde	20
3667a6f5 DSH	21	if (-f "../apps/openssl")
	22	{
	23	$cmscmd = "../util/shlib_wrap.sh ../apps/openssl cms";
	24	}
	25	elsif (-f "..\\out32dll\\openssl.exe")
	26	{
	27	$cmscmd = "..\\out32dll\\openssl.exe cms";
	28	}
	29	elsif (-f "..\\out32\\openssl.exe")
	30	{
	31	$cmscmd = "..\\out32\\openssl.exe cms";
	32	}
	33
a329fdde	34	my @test_list = (
d7c738a0 DSH	35	[ "3.1.bin" => "dataout" ],
d7c738a0 DSH	36	[ "3.2.bin" => "encode, dataout" ],
4a954b56	37	[ "4.1.bin" => "encode, verifyder, cont, dss" ],
d7c738a0 DSH	38	[ "4.2.bin" => "encode, verifyder, cont, rsa" ],
	39	[ "4.3.bin" => "encode, verifyder, cont_extern, dss" ],
	40	[ "4.4.bin" => "encode, verifyder, cont, dss" ],
4a954b56	41	[ "4.5.bin" => "verifyder, cont, rsa" ],
d7c738a0 DSH	42	[ "4.6.bin" => "encode, verifyder, cont, dss" ],
	43	[ "4.7.bin" => "encode, verifyder, cont, dss" ],
	44	[ "4.8.eml" => "verifymime, dss" ],
	45	[ "4.9.eml" => "verifymime, dss" ],
	46	[ "4.10.bin" => "encode, verifyder, cont, dss" ],
4a954b56	47	[ "4.11.bin" => "encode, certsout" ],
d7c738a0 DSH	48	[ "5.1.bin" => "encode, envelopeder, cont" ],
	49	[ "5.2.bin" => "encode, envelopeder, cont" ],
	50	[ "5.3.eml" => "envelopemime, cont" ],
	51	[ "6.0.bin" => "encode, digest, cont" ],
	52	[ "7.1.bin" => "encode, encrypted, cont" ],
	53	[ "7.2.bin" => "encode, encrypted, cont" ]
a329fdde DSH	54	);
a329fdde DSH	55
d7c738a0 DSH	56	# Extract examples from RFC4134 text.
	57	# Base64 decode all examples, certificates and
	58	# private keys are converted to PEM format.
	59
	60	my ( $filename, $data );
	61
	62	my @cleanup = ( "cms.out", "cms.err", "tmp.der", "tmp.txt" );
	63
	64	$data = "";
	65
	66	open( IN, $exfile ) \|\| die "Can't Open RFC examples file $exfile";
	67
	68	while (<IN>) {
	69	next unless (/^\\|/);
	70	s/^\\|//;
	71	next if (/^\*/);
	72	if (/^>(.*)$/) {
	73	$filename = $1;
	74	next;
	75	}
	76	if (/^</) {
	77	$filename = "$exdir/$filename";
	78	if ( $filename =~ /\.bin$/ \|\| $filename =~ /\.eml$/ ) {
	79	$data = decode_base64($data);
	80	open OUT, ">$filename";
	81	binmode OUT;
	82	print OUT $data;
	83	close OUT;
	84	push @cleanup, $filename;
	85	}
	86	elsif ( $filename =~ /\.cer$/ ) {
	87	write_pem( $filename, "CERTIFICATE", $data );
	88	}
	89	elsif ( $filename =~ /\.pri$/ ) {
	90	write_pem( $filename, "PRIVATE KEY", $data );
	91	}
	92	$data = "";
	93	$filename = "";
	94	}
	95	else {
	96	$data .= $_;
	97	}
b820455c	98
d7c738a0	99	}
a329fdde	100
d7c738a0 DSH	101	my $secretkey =
	102	"73:7c:79:1f:25:ea:d0:e0:46:29:25:43:52:f7:dc:62:91:e5:cb:26:91:7a:da:32";
	103
a329fdde	104	foreach (@test_list) {
d7c738a0 DSH	105	my ( $file, $tlist ) = @$_;
	106	print "Example file $file:\n";
	107	if ( $tlist =~ /encode/ ) {
	108	run_reencode_test( $exdir, $file );
	109	}
4a954b56 DSH	110	if ( $tlist =~ /certsout/ ) {
	111	run_certsout_test( $exdir, $file );
	112	}
d7c738a0 DSH	113	if ( $tlist =~ /dataout/ ) {
	114	run_dataout_test( $exdir, $file );
	115	}
	116	if ( $tlist =~ /verify/ ) {
	117	run_verify_test( $exdir, $tlist, $file );
	118	}
	119	if ( $tlist =~ /digest/ ) {
	120	run_digest_test( $exdir, $tlist, $file );
	121	}
	122	if ( $tlist =~ /encrypted/ ) {
	123	run_encrypted_test( $exdir, $tlist, $file, $secretkey );
	124	}
	125	if ( $tlist =~ /envelope/ ) {
	126	run_envelope_test( $exdir, $tlist, $file );
	127	}
a329fdde DSH	128
	129	}
	130
d7c738a0 DSH	131	foreach (@cleanup) {
	132	unlink $_;
	133	}
a329fdde DSH	134
a329fdde DSH	135	if ($badtest) {
d7c738a0 DSH	136	print "\n$badtest TESTS FAILED!!\n";
	137	}
	138	else {
	139	print "\n*All tests successful*\n";
	140	}
	141
	142	sub write_pem {
	143	my ( $filename, $str, $data ) = @_;
	144
	145	$filename =~ s/\.[^.]*$/.pem/;
	146
	147	push @cleanup, $filename;
	148
	149	open OUT, ">$filename";
	150
	151	print OUT "-----BEGIN $str-----\n";
	152	print OUT $data;
	153	print OUT "-----END $str-----\n";
	154
	155	close OUT;
a329fdde DSH	156	}
a329fdde DSH	157
d7c738a0 DSH	158	sub run_reencode_test {
	159	my ( $cmsdir, $tfile ) = @_;
	160	unlink "tmp.der";
	161
	162	system( "$cmscmd -cmsout -inform DER -outform DER"
	163	. " -in $cmsdir/$tfile -out tmp.der" );
	164
	165	if ($?) {
	166	print "\tReencode command FAILED!!\n";
	167	$badtest++;
	168	}
	169	elsif ( !cmp_files( "$cmsdir/$tfile", "tmp.der" ) ) {
	170	print "\tReencode FAILED!!\n";
	171	$badtest++;
	172	}
	173	else {
	174	print "\tReencode passed\n" if $verbose;
	175	}
	176	}
a329fdde	177
4a954b56 DSH	178	sub run_certsout_test {
	179	my ( $cmsdir, $tfile ) = @_;
	180	unlink "tmp.der";
	181	unlink "tmp.pem";
	182
	183	system( "$cmscmd -cmsout -inform DER -certsout tmp.pem"
	184	. " -in $cmsdir/$tfile -out tmp.der" );
	185
	186	if ($?) {
	187	print "\tCertificate output command FAILED!!\n";
	188	$badtest++;
	189	}
	190	else {
	191	print "\tCertificate output passed\n" if $verbose;
	192	}
	193	}
	194
d7c738a0 DSH	195	sub run_dataout_test {
	196	my ( $cmsdir, $tfile ) = @_;
	197	unlink "tmp.txt";
	198
	199	system(
	200	"$cmscmd -data_out -inform DER" . " -in $cmsdir/$tfile -out tmp.txt" );
	201
	202	if ($?) {
	203	print "\tDataout command FAILED!!\n";
	204	$badtest++;
	205	}
	206	elsif ( !cmp_files( "$cmsdir/ExContent.bin", "tmp.txt" ) ) {
	207	print "\tDataout compare FAILED!!\n";
	208	$badtest++;
	209	}
	210	else {
	211	print "\tDataout passed\n" if $verbose;
	212	}
	213	}
	214
	215	sub run_verify_test {
	216	my ( $cmsdir, $tlist, $tfile ) = @_;
	217	unlink "tmp.txt";
	218
	219	$form = "DER" if $tlist =~ /verifyder/;
	220	$form = "SMIME" if $tlist =~ /verifymime/;
	221	$cafile = "$cmsdir/CarlDSSSelf.pem" if $tlist =~ /dss/;
	222	$cafile = "$cmsdir/CarlRSASelf.pem" if $tlist =~ /rsa/;
	223
	224	$cmd =
	225	"$cmscmd -verify -inform $form"
	226	. " -CAfile $cafile"
	227	. " -in $cmsdir/$tfile -out tmp.txt";
	228
	229	$cmd .= " -content $cmsdir/ExContent.bin" if $tlist =~ /cont_extern/;
	230
	231	system("$cmd 2>cms.err 1>cms.out");
	232
	233	if ($?) {
	234	print "\tVerify command FAILED!!\n";
	235	$badtest++;
	236	}
	237	elsif ( $tlist =~ /cont/
	238	&& !cmp_files( "$cmsdir/ExContent.bin", "tmp.txt" ) )
	239	{
	240	print "\tVerify content compare FAILED!!\n";
	241	$badtest++;
	242	}
	243	else {
	244	print "\tVerify passed\n" if $verbose;
	245	}
	246	}
a329fdde	247
d7c738a0 DSH	248	sub run_envelope_test {
	249	my ( $cmsdir, $tlist, $tfile ) = @_;
	250	unlink "tmp.txt";
	251
	252	$form = "DER" if $tlist =~ /envelopeder/;
	253	$form = "SMIME" if $tlist =~ /envelopemime/;
	254
	255	$cmd =
	256	"$cmscmd -decrypt -inform $form"
	257	. " -recip $cmsdir/BobRSASignByCarl.pem"
	258	. " -inkey $cmsdir/BobPrivRSAEncrypt.pem"
	259	. " -in $cmsdir/$tfile -out tmp.txt";
	260
	261	system("$cmd 2>cms.err 1>cms.out");
	262
	263	if ($?) {
	264	print "\tDecrypt command FAILED!!\n";
	265	$badtest++;
	266	}
	267	elsif ( $tlist =~ /cont/
	268	&& !cmp_files( "$cmsdir/ExContent.bin", "tmp.txt" ) )
	269	{
	270	print "\tDecrypt content compare FAILED!!\n";
	271	$badtest++;
	272	}
	273	else {
	274	print "\tDecrypt passed\n" if $verbose;
	275	}
	276	}
	277
	278	sub run_digest_test {
	279	my ( $cmsdir, $tlist, $tfile ) = @_;
	280	unlink "tmp.txt";
	281
	282	my $cmd =
	283	"$cmscmd -digest_verify -inform DER" . " -in $cmsdir/$tfile -out tmp.txt";
	284
	285	system("$cmd 2>cms.err 1>cms.out");
	286
	287	if ($?) {
	288	print "\tDigest verify command FAILED!!\n";
	289	$badtest++;
	290	}
	291	elsif ( $tlist =~ /cont/
	292	&& !cmp_files( "$cmsdir/ExContent.bin", "tmp.txt" ) )
	293	{
	294	print "\tDigest verify content compare FAILED!!\n";
	295	$badtest++;
	296	}
	297	else {
	298	print "\tDigest verify passed\n" if $verbose;
	299	}
	300	}
	301
	302	sub run_encrypted_test {
	303	my ( $cmsdir, $tlist, $tfile, $key ) = @_;
	304	unlink "tmp.txt";
	305
	306	system( "$cmscmd -EncryptedData_decrypt -inform DER"
	307	. " -secretkey $key"
	308	. " -in $cmsdir/$tfile -out tmp.txt" );
	309
	310	if ($?) {
	311	print "\tEncrypted Data command FAILED!!\n";
312	$badtest++;
313	}
314	elsif ( $tlist =~ /cont/
315	&& !cmp_files( "$cmsdir/ExContent.bin", "tmp.txt" ) )
316	{
317	print "\tEncrypted Data content compare FAILED!!\n";
318	$badtest++;
319	}
320	else {
321	print "\tEncryptedData verify passed\n" if $verbose;
322	}
323	}
324
325	sub cmp_files {
326	my ( $f1, $f2 ) = @_;
327	my ( $fp1, $fp2 );
328
329	my ( $rd1, $rd2 );
330
331	if ( !open( $fp1, "<$f1" ) ) {
332	print STDERR "Can't Open file $f1\n";
333	return 0;
334	}
335
336	if ( !open( $fp2, "<$f2" ) ) {
337	print STDERR "Can't Open file $f2\n";
338	return 0;
339	}
340
341	binmode $fp1;
342	binmode $fp2;
343
344	my $ret = 0;
345
346	for ( ; ; ) {
347	$n1 = sysread $fp1, $rd1, 4096;
348	$n2 = sysread $fp2, $rd2, 4096;
349	last if ( $n1 != $n2 );
350	last if ( $rd1 ne $rd2 );
351
352	if ( $n1 == 0 ) {
353	$ret = 1;
354	last;
355	}
356
357	}
358
359	close $fp1;
360	close $fp2;
361
362	return $ret;
363
364	}
a329fdde	365