Fixed memory leak in the event of a failure of BUF_MEM_grow
[openssl.git] / test / cms-test.pl
1 # test/cms-test.pl
2 # Written by Dr Stephen N Henson (steve@openssl.org) for the OpenSSL
3 # project.
4 #
5 # ====================================================================
6 # Copyright (c) 2008 The OpenSSL Project.  All rights reserved.
7 #
8 # Redistribution and use in source and binary forms, with or without
9 # modification, are permitted provided that the following conditions
10 # are met:
11 #
12 # 1. Redistributions of source code must retain the above copyright
13 #    notice, this list of conditions and the following disclaimer.
14 #
15 # 2. Redistributions in binary form must reproduce the above copyright
16 #    notice, this list of conditions and the following disclaimer in
17 #    the documentation and/or other materials provided with the
18 #    distribution.
19 #
20 # 3. All advertising materials mentioning features or use of this
21 #    software must display the following acknowledgment:
22 #    "This product includes software developed by the OpenSSL Project
23 #    for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)"
24 #
25 # 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
26 #    endorse or promote products derived from this software without
27 #    prior written permission. For written permission, please contact
28 #    licensing@OpenSSL.org.
29 #
30 # 5. Products derived from this software may not be called "OpenSSL"
31 #    nor may "OpenSSL" appear in their names without prior written
32 #    permission of the OpenSSL Project.
33 #
34 # 6. Redistributions of any form whatsoever must retain the following
35 #    acknowledgment:
36 #    "This product includes software developed by the OpenSSL Project
37 #    for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)"
38 #
39 # THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
40 # EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
41 # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
42 # PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE OpenSSL PROJECT OR
43 # ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
44 # SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
45 # NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
46 # LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
47 # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
48 # STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
49 # ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
50 # OF THE POSSIBILITY OF SUCH DAMAGE.
51 # ====================================================================
52
53 # CMS, PKCS7 consistency test script. Run extensive tests on
54 # OpenSSL PKCS#7 and CMS implementations.
55
56 my $ossl_path;
57 my $redir = " 2> cms.err > cms.out";
58 # Make VMS work
59 if ( $^O eq "VMS" && -f "OSSLX:openssl.exe" ) {
60     $ossl_path = "pipe mcr OSSLX:openssl";
61 }
62 # Make MSYS work
63 elsif ( $^O eq "MSWin32" && -f "../apps/openssl.exe" ) {
64     $ossl_path = "cmd /c ..\\apps\\openssl";
65 }
66 elsif ( -f "../apps/openssl$ENV{EXE_EXT}" ) {
67     $ossl_path = "../util/shlib_wrap.sh ../apps/openssl";
68 }
69 elsif ( -f "..\\out32dll\\openssl.exe" ) {
70     $ossl_path = "..\\out32dll\\openssl.exe";
71 }
72 elsif ( -f "..\\out32\\openssl.exe" ) {
73     $ossl_path = "..\\out32\\openssl.exe";
74 }
75 else {
76     die "Can't find OpenSSL executable";
77 }
78
79 my $pk7cmd   = "$ossl_path smime ";
80 my $cmscmd   = "$ossl_path cms ";
81 my $smdir    = "smime-certs";
82 my $halt_err = 1;
83
84 my $badcmd = 0;
85 my $no_ec;
86 my $no_ec2m;
87 my $ossl8 = `$ossl_path version -v` =~ /0\.9\.8/;
88
89 system ("$ossl_path no-ec >/dev/null");
90 if ($? == 0)
91         {
92         $no_ec = 1;
93         }
94 elsif ($? == 256)
95         {
96         $no_ec = 0;
97         }
98 else
99         {
100         die "Error checking for EC support\n";
101         }
102     
103 system ("$ossl_path no-ec2m >/dev/null");
104 if ($? == 0)
105         {
106         $no_ec2m = 1;
107         }
108 elsif ($? == 256)
109         {
110         $no_ec2m = 0;
111         }
112 else
113         {
114         die "Error checking for EC2M support\n";
115         }
116     
117 my @smime_pkcs7_tests = (
118
119     [
120         "signed content DER format, RSA key",
121         "-sign -in smcont.txt -outform \"DER\" -nodetach"
122           . " -certfile $smdir/smroot.pem"
123           . " -signer $smdir/smrsa1.pem -out test.cms",
124         "-verify -in test.cms -inform \"DER\" "
125           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt"
126     ],
127
128     [
129         "signed detached content DER format, RSA key",
130         "-sign -in smcont.txt -outform \"DER\""
131           . " -signer $smdir/smrsa1.pem -out test.cms",
132         "-verify -in test.cms -inform \"DER\" "
133           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt -content smcont.txt"
134     ],
135
136     [
137         "signed content test streaming BER format, RSA",
138         "-sign -in smcont.txt -outform \"DER\" -nodetach"
139           . " -stream -signer $smdir/smrsa1.pem -out test.cms",
140         "-verify -in test.cms -inform \"DER\" "
141           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt"
142     ],
143
144     [
145         "signed content DER format, DSA key",
146         "-sign -in smcont.txt -outform \"DER\" -nodetach"
147           . " -signer $smdir/smdsa1.pem -out test.cms",
148         "-verify -in test.cms -inform \"DER\" "
149           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt"
150     ],
151
152     [
153         "signed detached content DER format, DSA key",
154         "-sign -in smcont.txt -outform \"DER\""
155           . " -signer $smdir/smdsa1.pem -out test.cms",
156         "-verify -in test.cms -inform \"DER\" "
157           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt -content smcont.txt"
158     ],
159
160     [
161         "signed detached content DER format, add RSA signer",
162         "-resign -inform \"DER\" -in test.cms -outform \"DER\""
163           . " -signer $smdir/smrsa1.pem -out test2.cms",
164         "-verify -in test2.cms -inform \"DER\" "
165           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt -content smcont.txt"
166     ],
167
168     [
169         "signed content test streaming BER format, DSA key",
170         "-sign -in smcont.txt -outform \"DER\" -nodetach"
171           . " -stream -signer $smdir/smdsa1.pem -out test.cms",
172         "-verify -in test.cms -inform \"DER\" "
173           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt"
174     ],
175
176     [
177         "signed content test streaming BER format, 2 DSA and 2 RSA keys",
178         "-sign -in smcont.txt -outform \"DER\" -nodetach"
179           . " -signer $smdir/smrsa1.pem -signer $smdir/smrsa2.pem"
180           . " -signer $smdir/smdsa1.pem -signer $smdir/smdsa2.pem"
181           . " -stream -out test.cms",
182         "-verify -in test.cms -inform \"DER\" "
183           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt"
184     ],
185
186     [
187 "signed content test streaming BER format, 2 DSA and 2 RSA keys, no attributes",
188         "-sign -in smcont.txt -outform \"DER\" -noattr -nodetach"
189           . " -signer $smdir/smrsa1.pem -signer $smdir/smrsa2.pem"
190           . " -signer $smdir/smdsa1.pem -signer $smdir/smdsa2.pem"
191           . " -stream -out test.cms",
192         "-verify -in test.cms -inform \"DER\" "
193           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt"
194     ],
195
196     [
197         "signed content test streaming S/MIME format, 2 DSA and 2 RSA keys",
198         "-sign -in smcont.txt -nodetach"
199           . " -signer $smdir/smrsa1.pem -signer $smdir/smrsa2.pem"
200           . " -signer $smdir/smdsa1.pem -signer $smdir/smdsa2.pem"
201           . " -stream -out test.cms",
202         "-verify -in test.cms " . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt"
203     ],
204
205     [
206 "signed content test streaming multipart S/MIME format, 2 DSA and 2 RSA keys",
207         "-sign -in smcont.txt"
208           . " -signer $smdir/smrsa1.pem -signer $smdir/smrsa2.pem"
209           . " -signer $smdir/smdsa1.pem -signer $smdir/smdsa2.pem"
210           . " -stream -out test.cms",
211         "-verify -in test.cms " . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt"
212     ],
213
214     [
215         "enveloped content test streaming S/MIME format, 3 recipients",
216         "-encrypt -in smcont.txt"
217           . " -stream -out test.cms"
218           . " $smdir/smrsa1.pem $smdir/smrsa2.pem $smdir/smrsa3.pem ",
219         "-decrypt -recip $smdir/smrsa1.pem -in test.cms -out smtst.txt"
220     ],
221
222     [
223 "enveloped content test streaming S/MIME format, 3 recipients, 3rd used",
224         "-encrypt -in smcont.txt"
225           . " -stream -out test.cms"
226           . " $smdir/smrsa1.pem $smdir/smrsa2.pem $smdir/smrsa3.pem ",
227         "-decrypt -recip $smdir/smrsa3.pem -in test.cms -out smtst.txt"
228     ],
229
230     [
231 "enveloped content test streaming S/MIME format, 3 recipients, key only used",
232         "-encrypt -in smcont.txt"
233           . " -stream -out test.cms"
234           . " $smdir/smrsa1.pem $smdir/smrsa2.pem $smdir/smrsa3.pem ",
235         "-decrypt -inkey $smdir/smrsa3.pem -in test.cms -out smtst.txt"
236     ],
237
238     [
239 "enveloped content test streaming S/MIME format, AES-256 cipher, 3 recipients",
240         "-encrypt -in smcont.txt"
241           . " -aes256 -stream -out test.cms"
242           . " $smdir/smrsa1.pem $smdir/smrsa2.pem $smdir/smrsa3.pem ",
243         "-decrypt -recip $smdir/smrsa1.pem -in test.cms -out smtst.txt"
244     ],
245
246 );
247
248 my @smime_cms_tests = (
249
250     [
251         "signed content test streaming BER format, 2 DSA and 2 RSA keys, keyid",
252         "-sign -in smcont.txt -outform \"DER\" -nodetach -keyid"
253           . " -signer $smdir/smrsa1.pem -signer $smdir/smrsa2.pem"
254           . " -signer $smdir/smdsa1.pem -signer $smdir/smdsa2.pem"
255           . " -stream -out test.cms",
256         "-verify -in test.cms -inform \"DER\" "
257           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt"
258     ],
259
260     [
261         "signed content test streaming PEM format, 2 DSA and 2 RSA keys",
262         "-sign -in smcont.txt -outform PEM -nodetach"
263           . " -signer $smdir/smrsa1.pem -signer $smdir/smrsa2.pem"
264           . " -signer $smdir/smdsa1.pem -signer $smdir/smdsa2.pem"
265           . " -stream -out test.cms",
266         "-verify -in test.cms -inform PEM "
267           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt"
268     ],
269
270     [
271         "signed content MIME format, RSA key, signed receipt request",
272         "-sign -in smcont.txt -signer $smdir/smrsa1.pem -nodetach"
273           . " -receipt_request_to test\@openssl.org -receipt_request_all"
274           . " -out test.cms",
275         "-verify -in test.cms "
276           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt"
277     ],
278
279     [
280         "signed receipt MIME format, RSA key",
281         "-sign_receipt -in test.cms"
282           . " -signer $smdir/smrsa2.pem"
283           . " -out test2.cms",
284         "-verify_receipt test2.cms -in test.cms"
285           . " \"-CAfile\" $smdir/smroot.pem"
286     ],
287
288     [
289         "enveloped content test streaming S/MIME format, 3 recipients, keyid",
290         "-encrypt -in smcont.txt"
291           . " -stream -out test.cms -keyid"
292           . " $smdir/smrsa1.pem $smdir/smrsa2.pem $smdir/smrsa3.pem ",
293         "-decrypt -recip $smdir/smrsa1.pem -in test.cms -out smtst.txt"
294     ],
295
296     [
297         "enveloped content test streaming PEM format, KEK",
298         "-encrypt -in smcont.txt -outform PEM -aes128"
299           . " -stream -out test.cms "
300           . " -secretkey 000102030405060708090A0B0C0D0E0F "
301           . " -secretkeyid C0FEE0",
302         "-decrypt -in test.cms -out smtst.txt -inform PEM"
303           . " -secretkey 000102030405060708090A0B0C0D0E0F "
304           . " -secretkeyid C0FEE0"
305     ],
306
307     [
308         "enveloped content test streaming PEM format, KEK, key only",
309         "-encrypt -in smcont.txt -outform PEM -aes128"
310           . " -stream -out test.cms "
311           . " -secretkey 000102030405060708090A0B0C0D0E0F "
312           . " -secretkeyid C0FEE0",
313         "-decrypt -in test.cms -out smtst.txt -inform PEM"
314           . " -secretkey 000102030405060708090A0B0C0D0E0F "
315     ],
316
317     [
318         "data content test streaming PEM format",
319         "-data_create -in smcont.txt -outform PEM -nodetach"
320           . " -stream -out test.cms",
321         "-data_out -in test.cms -inform PEM -out smtst.txt"
322     ],
323
324     [
325         "encrypted content test streaming PEM format, 128 bit RC2 key",
326         "\"-EncryptedData_encrypt\" -in smcont.txt -outform PEM"
327           . " -rc2 -secretkey 000102030405060708090A0B0C0D0E0F"
328           . " -stream -out test.cms",
329         "\"-EncryptedData_decrypt\" -in test.cms -inform PEM "
330           . " -secretkey 000102030405060708090A0B0C0D0E0F -out smtst.txt"
331     ],
332
333     [
334         "encrypted content test streaming PEM format, 40 bit RC2 key",
335         "\"-EncryptedData_encrypt\" -in smcont.txt -outform PEM"
336           . " -rc2 -secretkey 0001020304"
337           . " -stream -out test.cms",
338         "\"-EncryptedData_decrypt\" -in test.cms -inform PEM "
339           . " -secretkey 0001020304 -out smtst.txt"
340     ],
341
342     [
343         "encrypted content test streaming PEM format, triple DES key",
344         "\"-EncryptedData_encrypt\" -in smcont.txt -outform PEM"
345           . " -des3 -secretkey 000102030405060708090A0B0C0D0E0F1011121314151617"
346           . " -stream -out test.cms",
347         "\"-EncryptedData_decrypt\" -in test.cms -inform PEM "
348           . " -secretkey 000102030405060708090A0B0C0D0E0F1011121314151617"
349           . " -out smtst.txt"
350     ],
351
352     [
353         "encrypted content test streaming PEM format, 128 bit AES key",
354         "\"-EncryptedData_encrypt\" -in smcont.txt -outform PEM"
355           . " -aes128 -secretkey 000102030405060708090A0B0C0D0E0F"
356           . " -stream -out test.cms",
357         "\"-EncryptedData_decrypt\" -in test.cms -inform PEM "
358           . " -secretkey 000102030405060708090A0B0C0D0E0F -out smtst.txt"
359     ],
360
361 );
362
363 my @smime_cms_comp_tests = (
364
365     [
366         "compressed content test streaming PEM format",
367         "-compress -in smcont.txt -outform PEM -nodetach"
368           . " -stream -out test.cms",
369         "-uncompress -in test.cms -inform PEM -out smtst.txt"
370     ]
371
372 );
373
374 my @smime_cms_param_tests = (
375     [
376         "signed content test streaming PEM format, RSA keys, PSS signature",
377         "-sign -in smcont.txt -outform PEM -nodetach"
378           . " -signer $smdir/smrsa1.pem -keyopt rsa_padding_mode:pss"
379           . " -out test.cms",
380         "-verify -in test.cms -inform PEM "
381           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt"
382     ],
383
384     [
385         "signed content test streaming PEM format, RSA keys, PSS signature, no attributes",
386         "-sign -in smcont.txt -outform PEM -nodetach -noattr"
387           . " -signer $smdir/smrsa1.pem -keyopt rsa_padding_mode:pss"
388           . " -out test.cms",
389         "-verify -in test.cms -inform PEM "
390           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt"
391     ],
392
393     [
394         "signed content test streaming PEM format, RSA keys, PSS signature, SHA384 MGF1",
395         "-sign -in smcont.txt -outform PEM -nodetach"
396           . " -signer $smdir/smrsa1.pem -keyopt rsa_padding_mode:pss"
397           . " -keyopt rsa_mgf1_md:sha384 -out test.cms",
398         "-verify -in test.cms -inform PEM "
399           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt"
400     ],
401
402     [
403 "enveloped content test streaming S/MIME format, OAEP default parameters",
404         "-encrypt -in smcont.txt"
405           . " -stream -out test.cms"
406           . " -recip $smdir/smrsa1.pem -keyopt rsa_padding_mode:oaep",
407         "-decrypt -recip $smdir/smrsa1.pem -in test.cms -out smtst.txt"
408     ],
409
410     [
411 "enveloped content test streaming S/MIME format, OAEP SHA256",
412         "-encrypt -in smcont.txt"
413           . " -stream -out test.cms"
414           . " -recip $smdir/smrsa1.pem -keyopt rsa_padding_mode:oaep"
415           . " -keyopt rsa_oaep_md:sha256",
416         "-decrypt -recip $smdir/smrsa1.pem -in test.cms -out smtst.txt"
417     ],
418
419     [
420 "enveloped content test streaming S/MIME format, ECDH",
421         "-encrypt -in smcont.txt"
422           . " -stream -out test.cms"
423           . " -recip $smdir/smec1.pem",
424         "-decrypt -recip $smdir/smec1.pem -in test.cms -out smtst.txt"
425     ],
426
427     [
428 "enveloped content test streaming S/MIME format, ECDH, AES128, SHA256 KDF",
429         "-encrypt -in smcont.txt"
430           . " -stream -out test.cms"
431           . " -recip $smdir/smec1.pem -aes128 -keyopt ecdh_kdf_md:sha256",
432         "-decrypt -recip $smdir/smec1.pem -in test.cms -out smtst.txt"
433     ],
434
435     [
436 "enveloped content test streaming S/MIME format, ECDH, K-283, cofactor DH",
437         "-encrypt -in smcont.txt"
438           . " -stream -out test.cms"
439           . " -recip $smdir/smec2.pem -aes128"
440           . " -keyopt ecdh_kdf_md:sha256 -keyopt ecdh_cofactor_mode:1",
441         "-decrypt -recip $smdir/smec2.pem -in test.cms -out smtst.txt"
442     ],
443
444     [
445 "enveloped content test streaming S/MIME format, X9.42 DH",
446         "-encrypt -in smcont.txt"
447           . " -stream -out test.cms"
448           . " -recip $smdir/smdh.pem -aes128",
449         "-decrypt -recip $smdir/smdh.pem -in test.cms -out smtst.txt"
450     ]
451 );
452
453 print "CMS => PKCS#7 compatibility tests\n";
454
455 run_smime_tests( \$badcmd, \@smime_pkcs7_tests, $cmscmd, $pk7cmd );
456
457 print "CMS <= PKCS#7 compatibility tests\n";
458
459 run_smime_tests( \$badcmd, \@smime_pkcs7_tests, $pk7cmd, $cmscmd );
460
461 print "CMS <=> CMS consistency tests\n";
462
463 run_smime_tests( \$badcmd, \@smime_pkcs7_tests, $cmscmd, $cmscmd );
464 run_smime_tests( \$badcmd, \@smime_cms_tests,   $cmscmd, $cmscmd );
465
466 print "CMS <=> CMS consistency tests, modified key parameters\n";
467 run_smime_tests( \$badcmd, \@smime_cms_param_tests,   $cmscmd, $cmscmd );
468
469 if ( `$ossl_path version -f` =~ /ZLIB/ ) {
470     run_smime_tests( \$badcmd, \@smime_cms_comp_tests, $cmscmd, $cmscmd );
471 }
472 else {
473     print "Zlib not supported: compression tests skipped\n";
474 }
475
476 print "Running modified tests for OpenSSL 0.9.8 cms backport\n" if($ossl8);
477
478 if ($badcmd) {
479     print "$badcmd TESTS FAILED!!\n";
480 }
481 else {
482     print "ALL TESTS SUCCESSFUL.\n";
483 }
484
485 unlink "test.cms";
486 unlink "test2.cms";
487 unlink "smtst.txt";
488 unlink "cms.out";
489 unlink "cms.err";
490
491 sub run_smime_tests {
492     my ( $rv, $aref, $scmd, $vcmd ) = @_;
493
494     foreach $smtst (@$aref) {
495         my ( $tnam, $rscmd, $rvcmd ) = @$smtst;
496         if ($ossl8)
497                 {
498                 # Skip smime resign: 0.9.8 smime doesn't support -resign        
499                 next if ($scmd =~ /smime/ && $rscmd =~ /-resign/);
500                 # Disable streaming: option not supported in 0.9.8
501                 $tnam =~ s/streaming//; 
502                 $rscmd =~ s/-stream//;  
503                 $rvcmd =~ s/-stream//;
504                 }
505         if ($no_ec && $tnam =~ /ECDH/)
506                 {
507                 print "$tnam: skipped, EC disabled\n";
508                 next;
509                 }
510         if ($no_ec2m && $tnam =~ /K-283/)
511                 {
512                 print "$tnam: skipped, EC2M disabled\n";
513                 next;
514                 }
515         system("$scmd$rscmd$redir");
516         if ($?) {
517             print "$tnam: generation error\n";
518             $$rv++;
519             exit 1 if $halt_err;
520             next;
521         }
522         system("$vcmd$rvcmd$redir");
523         if ($?) {
524             print "$tnam: verify error\n";
525             $$rv++;
526             exit 1 if $halt_err;
527             next;
528         }
529         if (!cmp_files("smtst.txt", "smcont.txt")) {
530             print "$tnam: content verify error\n";
531             $$rv++;
532             exit 1 if $halt_err;
533             next;
534         }
535         print "$tnam: OK\n";
536     }
537 }
538
539 sub cmp_files {
540     use FileHandle;
541     my ( $f1, $f2 ) = @_;
542     my $fp1 = FileHandle->new();
543     my $fp2 = FileHandle->new();
544
545     my ( $rd1, $rd2 );
546
547     if ( !open( $fp1, "<$f1" ) ) {
548         print STDERR "Can't Open file $f1\n";
549         return 0;
550     }
551
552     if ( !open( $fp2, "<$f2" ) ) {
553         print STDERR "Can't Open file $f2\n";
554         return 0;
555     }
556
557     binmode $fp1;
558     binmode $fp2;
559
560     my $ret = 0;
561
562     for ( ; ; ) {
563         $n1 = sysread $fp1, $rd1, 4096;
564         $n2 = sysread $fp2, $rd2, 4096;
565         last if ( $n1 != $n2 );
566         last if ( $rd1 ne $rd2 );
567
568         if ( $n1 == 0 ) {
569             $ret = 1;
570             last;
571         }
572
573     }
574
575     close $fp1;
576     close $fp2;
577
578     return $ret;
579
580 }
581