1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
sub execviamod
{
print OUT "begin execviamod\n" ;
Embperl::Execute ({inputfile => 'plain.htm', input_escmode => 7, escmode => 7}) ;
print OUT "middle execviamod\n" ;
Embperl::Req::ExecuteComponent ({inputfile => 'plain.htm', input_escmode => 7, escmode => 7}) ;
print OUT "end execviamod\n" ;
}
sub execviamod2
{
Embperl::Execute ({inputfile => 'div.htm', input_escmode => 7, escmode => 7}) ;
Embperl::Req::ExecuteComponent ({inputfile => 'div.htm', input_escmode => 7, escmode => 7}) ;
}
1 ;
|
