Home | History | Annotate | Line # | Download | only in test 
      1 [{-$testname-}]
      2 ssl_conf = {-$testname-}-ssl
      3 
      4 [{-$testname-}-ssl]
      5 server = {-$testname-}-server
      6 client = {-$testname-}-client{-
      7     # The following sections are optional.
      8     $OUT = "";
      9     if (%server2) {
     10         $OUT .= "\nserver2 = $testname-server2";
     11     } elsif ($reuse_server2) {
     12         $OUT .= "\nserver2 = $testname-server";
     13     }
     14     if (%resume_server) {
     15         $OUT .= "\nresume-server = $testname-resume-server";
     16     } elsif ($reuse_resume_server) {
     17         $OUT .= "\nresume-server = $testname-server";
     18     }
     19     if (%resume_client) {
     20         $OUT .= "\nresume-client = $testname-resume-client";
     21     } elsif ($reuse_resume_client) {
     22         $OUT .= "\nresume-client = $testname-client";
     23     }
     24 -}
     25 
     26 [{-$testname-}-server]
     27 {-
     28     foreach my $key (sort keys %server) {
     29         # Emitted in the test section.
     30         next if ($key eq "extra");
     31         $OUT .= qq{$key} . " = " . qq{$server{$key}\n} if defined $server{$key};
     32     }
     33     if (%server2) {
     34         $OUT .= "\n[$testname-server2]\n";
     35         foreach my $key (sort keys %server2) {
     36             next if ($key eq "extra");
     37             $OUT .= qq{$key} . " = " . qq{$server2{$key}\n} if defined $server2{$key};
     38         }
     39     }
     40     if (%resume_server) {
     41         $OUT .= "\n[$testname-resume-server]\n";
     42         foreach my $key (sort keys %resume_server) {
     43             next if ($key eq "extra");
     44             $OUT .= qq{$key} . " = " . qq{$resume_server{$key}\n} if defined $resume_server{$key};
     45         }
     46     }
     47 -}
     48 [{-$testname-}-client]
     49 {-
     50     foreach my $key (sort keys %client) {
     51         next if ($key eq "extra");
     52         $OUT .= qq{$key} . " = " . qq{$client{$key}\n} if defined $client{$key};
     53     }
     54     if (%resume_client) {
     55         $OUT .= "\n[$testname-resume-client]\n";
     56         foreach my $key (sort keys %resume_client) {
     57 	    next if ($key eq "extra");
     58             $OUT .= qq{$key} . " = " . qq{$resume_client{$key}\n} if defined $resume_client{$key};
     59         }
     60     }
     61 -}
     62 [test-{-$idx-}]
     63 {-
     64     foreach my $key (sort keys %test) {
     65         $OUT .= qq{$key} ." = " . qq{$test{$key}\n} if defined $test{$key};
     66     }
     67 
     68     # The extra server/client configuration sections.
     69     if ($server{"extra"}) {
     70        $OUT .= "server = $testname-server-extra\n";
     71     }
     72     if (%server2 && $server2{"extra"}) {
     73        $OUT .= "server2 = $testname-server2-extra\n";
     74     } elsif ($reuse_server2 && $server{"extra"}) {
     75        $OUT .= "server2 = $testname-server-extra\n";
     76     }
     77     if (%resume_server && $resume_server{"extra"}) {
     78        $OUT .= "resume-server = $testname-resume-server-extra\n";
     79     } elsif ($reuse_resume_server && $server{"extra"}) {
     80        $OUT .= "resume-server = $testname-server-extra\n";
     81     }
     82     if ($client{"extra"}) {
     83        $OUT .= "client = $testname-client-extra\n";
     84     }
     85     if (%resume_client && $resume_client{"extra"}) {
     86        $OUT .= "resume-client = $testname-resume-client-extra\n";
     87     } elsif ($reuse_resume_client && $client{"extra"}) {
     88        $OUT .= "resume-client = $testname-client-extra\n";
     89     }
     90 
     91     if ($server{"extra"}) {
     92         $OUT .= "\n[$testname-server-extra]\n";
     93         foreach my $key (sort keys %{$server{"extra"}}) {
     94             $OUT .= qq{$key} . " = " . qq{$server{"extra"}{$key}\n}
     95 	    	 if defined $server{"extra"}{$key};
     96         }
     97     }
     98     if (%server2 && $server2{"extra"}) {
     99         $OUT .= "\n[$testname-server2-extra]\n";
    100         foreach my $key (sort keys %{$server2{"extra"}}) {
    101             $OUT .= qq{$key} . " = " . qq{$server2{"extra"}{$key}\n}
    102 	    	 if defined $server2{"extra"}{$key};
    103         }
    104     }
    105    if (%resume_server && $resume_server{"extra"}) {
    106         $OUT .= "\n[$testname-resume-server-extra]\n";
    107         foreach my $key (sort keys %{$resume_server{"extra"}}) {
    108             $OUT .= qq{$key} . " = " . qq{$resume_server{"extra"}{$key}\n}
    109 	    	 if defined $resume_server{"extra"}{$key};
    110         }
    111     }
    112    if ($client{"extra"}) {
    113         $OUT .= "\n[$testname-client-extra]\n";
    114         foreach my $key (sort keys %{$client{"extra"}}) {
    115             $OUT .= qq{$key} . " = " . qq{$client{"extra"}{$key}\n}
    116 	    	 if defined $client{"extra"}{$key};
    117         }
    118    }
    119    if (%resume_client && $resume_client{"extra"}) {
    120         $OUT .= "\n[$testname-resume-client-extra]\n";
    121         foreach my $key (sort keys %{$resume_client{"extra"}}) {
    122             $OUT .= qq{$key} . " = " . qq{$resume_client{"extra"}{$key}\n}
    123 	    	 if defined $resume_client{"extra"}{$key};
    124         }
    125     }
    126 -}
    127